From bd85aad550b90cc22cb63764b85efe8647c65d87 Mon Sep 17 00:00:00 2001 From: toins Date: Wed, 26 Jul 2006 09:57:33 +0000 Subject: [PATCH] Code cleaned. POD added. Sub renamed. --- acqui/lateorders.pl | 52 +++++++++++++++++++++++++++++++++++---------- 1 file changed, 41 insertions(+), 11 deletions(-) diff --git a/acqui/lateorders.pl b/acqui/lateorders.pl index 720dd8e2ad..880bedb41e 100755 --- a/acqui/lateorders.pl +++ b/acqui/lateorders.pl @@ -17,41 +17,68 @@ # $Id$ +=head1 NAME + +lateorders.pl + +=head1 DESCRIPTION + +this script shows late orders for a specific supplier, branch and delay +given on input arg. + +=head1 CGI PARAMETERS + +=over 4 + +=item supplierid +To know on which supplier this script have to display late order. + +=item delay +To know the time boundary. Default value is 30 days. + +=item branch +To know on which branch this script have to display late order. + +=back + +=cut + use strict; use CGI; -use C4::Acquisition; +use C4::Bookseller; use C4::Auth; use C4::Koha; use C4::Output; use C4::Interface::CGI::Output; use C4::Context; use HTML::Template; +use C4::Acquisition; my $query = new CGI; my ($template, $loggedinuser, $cookie) -= get_template_and_user({template_name => "acqui/lateorders.tmpl", += get_template_and_user( + {template_name => "acqui/lateorders.tmpl", query => $query, type => "intranet", authnotrequired => 0, flagsrequired => {acquisition => 1}, debug => 1, }); -# my $title = $query->param('title'); -# my $ISSN = $query->param('ISSN'); -# my @subscriptions = GetSubscriptions($title,$ISSN); my $supplierid = $query->param('supplierid'); my $delay = $query->param('delay'); my $branch = $query->param('branch'); -$delay =($delay?$delay:30); +#default value for delay +$delay = 30 unless $delay; -my %supplierlist = getsupplierlistwithlateorders($delay,$branch); +my %supplierlist = GetBooksellersWithLateOrders($delay,$branch); my @select_supplier; push @select_supplier,""; foreach my $supplierid (keys %supplierlist){ push @select_supplier, $supplierid; } + my $CGIsupplier=CGI::scrolling_list( -name => 'supplierid', -values => \@select_supplier, -default => $supplierid, @@ -62,7 +89,8 @@ my $CGIsupplier=CGI::scrolling_list( -name => 'supplierid', $template->param(Supplier=>$supplierlist{$supplierid}) if ($supplierid); -my $branches = getbranches; +my $branches = GetBranches; + my @branchloop; foreach my $thisbranch (sort keys %$branches) { my %row =(value => $thisbranch, @@ -71,13 +99,15 @@ foreach my $thisbranch (sort keys %$branches) { push @branchloop, \%row; } my $CGIbranch=CGI::scrolling_list( -name => 'branch', - -values => \@select_branches, - -labels => \%select_branches, + -values => \@branchloop, + -labels => $branches, -size => 1, -tabindex=>'', -multiple => 0 ); -my ($count, @lateorders) = getlateorders($delay,$supplierid,$branch); +my @lateorders = GetLateOrders($delay,$supplierid,$branch); +my $count = scalar @lateorders; + my $total; foreach my $lateorder (@lateorders){ $total+=$lateorder->{subtotal}; -- 2.39.5