gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add Call to Bookseller.pm & 1 sub renamed.

This commit is contained in:
toins 2006-07-27 13:58:33 +00:00
parent b48c9ff9ec
commit 6808155c44
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
serials/acqui-search-result.pl
View File

@ -50,6 +50,7 @@ use C4::Database;
use HTML::Template;
use C4::Acquisition;
use C4::Date;
use C4::Bookseller;
my $query=new CGI;
my ($template, $loggedinuser, $cookie)
@ -69,7 +70,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;

6
serials/lateissues.pl
View File

@ -47,6 +47,7 @@ use C4::Output;
use C4::Interface::CGI::Output;
use C4::Context;
use HTML::Template;
use C4::Bookseller;
my $query = new CGI;
# my $title = $query->param('title');
@ -70,9 +71,8 @@ my $CGIsupplier=CGI::scrolling_list(
my @lateissues;
@lateissues = GetLateIssues($supplierid) if $supplierid;
my @supplierinfo;
my $nothing;
($nothing,@supplierinfo)=GetBookSeller($supplierid) if $supplierid;
my @supplierinfo=GetBookSeller($supplierid) if $supplierid;
my ($template, $loggedinuser, $cookie)
= get_template_and_user({template_name => "serials/lateissues.tmpl",