replace syslog with warns

[koha-ffzg.git] / serials / acqui-search-result.pl

diff --git a/serials/acqui-search-result.pl b/serials/acqui-search-result.pl
index e936ea5..4f410bd 100755 (executable)
--- a/serials/acqui-search-result.pl
+++ b/serials/acqui-search-result.pl
@@ -20,7 +20,6 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id$
 
 =head1 NAME
 
@@ -43,12 +42,11 @@ acqui-search-result.pl
 use strict;
 use C4::Auth;
 use C4::Biblio;
+use C4::Output;
 use CGI;
-use C4::Interface::CGI::Output;
 use C4::Acquisition;
-use C4::Date;
+use C4::Dates qw/format_date/;
 use C4::Bookseller;
-use C4::Acquisition;
 
 my $query=new CGI;
 my ($template, $loggedinuser, $cookie)
@@ -56,7 +54,7 @@ my ($template, $loggedinuser, $cookie)
                  query => $query,
                  type => "intranet",
                  authnotrequired => 0,
-                 flagsrequired => {acquisition => 1},
+                 flagsrequired => {serials => 1},
                  debug => 1,
                  });
 
@@ -65,20 +63,12 @@ my @suppliers = GetBookSeller($supplier);
 my $count = scalar @suppliers;
 
 #build result page
-my $toggle=0;
 my @loop_suppliers;
 for (my $i=0; $i<$count; $i++) {
     my $orders = GetPendingOrders($suppliers[$i]->{'id'});
     my $ordcount = scalar @$orders;
     
     my %line;
-    if ($toggle==0){
-        $line{even}=1;
-        $toggle=1;
-    } else {
-        $line{even}=0;
-        $toggle=0;
-    }
     $line{aqbooksellerid} =$suppliers[$i]->{'id'};
     $line{name} = $suppliers[$i]->{'name'};
     $line{active} = $suppliers[$i]->{'active'};