Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Third in the series of branch merges. Starting to run out of easy stuff. :)

Browse source
This commit is contained in:
tonnesen 2002-06-20 17:45:18 +00:00
parent cb7441a537
commit 3d0fb625a0
4 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
acqui.simple/bulkmarcimport.pl
View file

@ -32,6 +32,7 @@ use CGI;
use DBI;
#use strict;
use C4::Acquisitions;
use C4::Biblio;
use C4::Output;
my $dbh=C4Connect;
my $userid=$ENV{'REMOTE_USER'};

4
acqui/acquire.pl
View file

@ -4,6 +4,7 @@
#written by chris@katipo.co.nz 24/2/2000
use C4::Acquisitions;
use C4::Biblio;
use C4::Output;
use C4::Database;
use C4::Search;
@ -190,7 +191,8 @@ print <<EOP
<td><select name=bookfund size=1>
EOP
;
my ($count2,@bookfund)=bookfunds;
my @bookfund;
($count2,@bookfund)=bookfunds();
for (my $i=0;$i<$count2;$i++){
print "<option value=$bookfund[$i]->{'bookfundid'}";
if ($bookfund[$i]->{'bookfundid'}==$results[0]->{'bookfundid'}){

8
acqui/receive.pl
View file

@ -4,6 +4,7 @@
#written by chris@katipo.co.nz 24/2/2000
use C4::Acquisitions;
use C4::Biblio;
use C4::Output;
use CGI;
use strict;
@ -54,11 +55,10 @@ $date
EOP
;
my ($count,@results);
my @results;
($count,@results)=invoice($invoice);
if ($invoice eq ''){
($count,@results)=getallorders($id);
} else {
($count,@results)=invoice($invoice);
($count,@results)=getallorders($id);
}
print $count;
my $totalprice=0;

5
delbiblio.pl
View file

@ -10,6 +10,7 @@ use C4::Search;
use CGI;
use C4::Output;
use C4::Acquisitions;
use C4::Biblio;
my $input = new CGI;
#print $input->header;
@ -27,6 +28,6 @@ if ($count > 0){
print "This biblio has $count items attached, please delete them before deleting this biblio<p>
";
} else {
delbiblio($biblio);
print $input->redirect("/catalogue/");
delbiblio($biblio);
print $input->redirect("/catalogue/");
}