[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/acqui addorder.pl,1.22,1.23
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/acqui addorder.pl,1.22,1.23 |
Date: |
Wed, 24 Nov 2004 08:00:23 -0800 |
Update of /cvsroot/koha/koha/acqui
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12961/acqui
Modified Files:
addorder.pl
Log Message:
* critical fix for acquisition (see RC3 release notes)
Index: addorder.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/addorder.pl,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -r1.22 -r1.23
*** addorder.pl 14 Sep 2004 12:09:51 -0000 1.22
--- addorder.pl 24 Nov 2004 16:00:20 -0000 1.23
***************
*** 87,90 ****
--- 87,91 ----
#check to see if biblio exists
if ($existing eq 'no'){
+ warn "ADDING";
#if it doesnt create it
$bibnum = &newbiblio({ title => $title?$title:"",
***************
*** 106,109 ****
--- 107,111 ----
}
} else {
+ warn "MODIFYING";
$bibnum=$input->param('biblio');
$bibitemnum=$input->param('bibitemnum');
***************
*** 113,125 ****
# publishercode =>
$publishercode,
# });
! # &modbiblio({
! # biblionumber => $bibnum,
! # title => $title?$title:"",
! # author => $author?$author:"",
! # copyrightdate => $copyrightdate?$copyrightdate:"",
! # series => $series?$series:"" },
! # );
}
if ($ordnum) {
modorder($title,$ordnum,$quantity,$listprice,$bibnum,$basketno,$booksellerid,$loggedinuser,$notes,$bookfund,$bibitemnum,$rrp,$ecost,$gst,$budget,$cost,$invoice,$sort1,$sort2);
}else {
--- 115,128 ----
# publishercode =>
$publishercode,
# });
! &modbiblio({
! biblionumber => $bibnum,
! title => $title?$title:"",
! author => $author?$author:"",
! copyrightdate => $copyrightdate?$copyrightdate:"",
! series => $series?$series:"" },
! );
}
if ($ordnum) {
+ warn "MODORDER $title / $ordnum / $quantity / $bookfund";
modorder($title,$ordnum,$quantity,$listprice,$bibnum,$basketno,$booksellerid,$loggedinuser,$notes,$bookfund,$bibitemnum,$rrp,$ecost,$gst,$budget,$cost,$invoice,$sort1,$sort2);
}else {
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/acqui addorder.pl,1.22,1.23,
Paul POULAIN <=
- Prev by Date:
[Koha-cvs] CVS: koha/C4 Biblio.pm,1.109,1.110
- Next by Date:
[Koha-cvs] CVS: koha/misc/sql-datas/french stopwords.sql,NONE,1.1 stopwords.txt,NONE,1.1
- Previous by thread:
[Koha-cvs] CVS: koha/C4 Biblio.pm,1.109,1.110
- Next by thread:
[Koha-cvs] CVS: koha/misc/sql-datas/french stopwords.sql,NONE,1.1 stopwords.txt,NONE,1.1
- Index(es):