# Using more than one scrolling list in a CGI assigns the same default value to all the
# scrolling lists on the page !?!? That's why this function was written.
-my $query = new CGI;
+my $query = new CGI;
my $type = $query->param('type');
my $op = $query->param('op') || '';
my $startfrom = $query->param('startfrom') || 1;
my ( $template, $loggedinuser, $cookie );
-my ($total_hits, $orderby, $results, $total, $error, $marcresults, $idx, $datefrom, $dateto, $ccl_textbox);
+my (
+ $total_hits, $orderby, $results, $total, $error,
+ $marcresults, $idx, $datefrom, $dateto, $ccl_textbox
+);
my $resultsperpage = C4::Context->preference('numSearchResults') || '20';
if ($marcresults) {
$show_results = scalar @$marcresults;
} else {
- $debug and warn "ERROR label-item-search: no results from SimpleSearch";
+ warn "ERROR label-item-search: no results from SimpleSearch";
# leave $show_results undef
}
);
my $itemtypes = GetItemTypes;
my @itemtypeloop;
- foreach my $thisitemtype (keys %$itemtypes) {
- my %row =(value => $thisitemtype,
- description => $itemtypes->{$thisitemtype}->{'description'},
- );
- push @itemtypeloop, \%row;
+ foreach my $thisitemtype ( keys %$itemtypes ) {
+ my %row = (
+ value => $thisitemtype,
+ description => $itemtypes->{$thisitemtype}->{'description'},
+ );
+ push @itemtypeloop, \%row;
}
$template->param(
- itemtypeloop =>\@itemtypeloop,
- batch_id => $batch_id,
- type => $type,
+ itemtypeloop => \@itemtypeloop,
+ batch_id => $batch_id,
+ type => $type,
);
}
+
# Print the page
-$template->param(
- DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(),
-);
+$template->param( DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(), );
output_html_with_http_headers $query, $cookie, $template->output;