followup : auto_truncation 3287252c0
[koha.git] / labels / label-item-search.pl
index 392f61e..3bba92d 100755 (executable)
@@ -52,7 +52,7 @@ BEGIN {
 # 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') || '';
@@ -63,7 +63,10 @@ my $dbh = C4::Context->dbh;
 
 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';
 
@@ -98,7 +101,7 @@ if ($op eq "do_search") {
        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
        }
@@ -253,21 +256,21 @@ else {
     );
     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;