Cleanup - admin scripts

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

diff --git a/serials/acqui-search-result.pl b/serials/acqui-search-result.pl
index 853759d..6066bdd 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
 
@@ -45,11 +44,9 @@ use C4::Auth;
 use C4::Biblio;
 use C4::Output;
 use CGI;
-use C4::Interface::CGI::Output;
-use C4::Database;
-use HTML::Template;
 use C4::Acquisition;
-use C4::Date;
+use C4::Dates qw/format_date/;
+use C4::Bookseller;
 
 my $query=new CGI;
 my ($template, $loggedinuser, $cookie)
@@ -57,7 +54,7 @@ my ($template, $loggedinuser, $cookie)
                  query => $query,
                  type => "intranet",
                  authnotrequired => 0,
-                 flagsrequired => {acquisition => 1},
+                 flagsrequired => {serials => 1},
                  debug => 1,
                  });
 
@@ -69,7 +66,7 @@ my $count = scalar @suppliers;
 my $toggle=0;
 my @loop_suppliers;
 for (my $i=0; $i<$count; $i++) {
-    my $orders = GetOrders($suppliers[$i]->{'id'});
+    my $orders = GetPendingOrders($suppliers[$i]->{'id'});
     my $ordcount = scalar @$orders;
     
     my %line;