[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/acqui addorder.pl,1.10,1.11 finishreceive.pl,1.7,1.
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/acqui addorder.pl,1.10,1.11 finishreceive.pl,1.7,1.8 |
Date: |
Fri, 20 Sep 2002 06:05:38 -0700 |
Update of /cvsroot/koha/koha/acqui
In directory usw-pr-cvs1:/tmp/cvs-serv27188
Modified Files:
addorder.pl finishreceive.pl
Log Message:
long is the road to 1.4.0
* MARCadditem and MARCmoditem now works
* various bugfixes in MARC management
!!! 1.3.0 should be released very soon now. Be careful !!!
Index: addorder.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/addorder.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -r1.10 -r1.11
*** addorder.pl 14 Aug 2002 18:12:52 -0000 1.10
--- addorder.pl 20 Sep 2002 13:05:36 -0000 1.11
***************
*** 61,67 ****
my $orderexists=$input->param('orderexists');
#check to see if biblio exists
if ($quantity ne '0'){
-
if ($existing eq 'no'){
#if it doesnt create it
--- 61,67 ----
my $orderexists=$input->param('orderexists');
+ print STDERR "quantity = $quantity // existing = $existing\n";
#check to see if biblio exists
if ($quantity ne '0'){
if ($existing eq 'no'){
#if it doesnt create it
***************
*** 85,96 ****
--- 85,100 ----
# series => $series?$series:"" });
} else {
+ print STDERR "inside loop\n";
$bibnum=$input->param('biblio');
$bibitemnum=$input->param('bibitemnum');
my $oldtype=$input->param('oldtype');
+ print STDERR "bibitemnum : $bibitemnum itemtype:$itemtype
oldtype:$oldtype\n";
if ($bibitemnum eq '' || $itemtype ne $oldtype){
$bibitemnum= &newbiblioitem({ biblionumber => $bibnum,
itemtype =>
$itemtype?$itemtype:"",
isbn => $isbn?$isbn:""
});
+ print STDERR "newbiblioitem\n";
}
+ print STDERR "modbiblio\n";
&modbiblio({
biblionumber => $bibnum,
Index: finishreceive.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/finishreceive.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** finishreceive.pl 14 Aug 2002 18:12:52 -0000 1.7
--- finishreceive.pl 20 Sep 2002 13:05:36 -0000 1.8
***************
*** 94,97 ****
--- 94,98 ----
&modbibitem({
biblioitemnumber => $bibitemno,
+ biblionumber => $biblionumber,
itemtype => $itemtype?$itemtype:"",
isbn => $isbn?$isbn:"",
***************
*** 119,122 ****
--- 120,124 ----
# print $barcode;
}
+ # print STDERR "************ biblionumber => $biblionumber\n";
my ($error) = newitems({ biblioitemnumber => $bibitemno,
biblionumber => $biblionumber,
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/acqui addorder.pl,1.10,1.11 finishreceive.pl,1.7,1.8,
Paul POULAIN <=
- Prev by Date:
[Koha-cvs] CVS: koha search.pl,1.10,1.11 updatebibitem.pl,1.8,1.9 updateitem.pl,1.4,1.5
- Next by Date:
[Koha-cvs] CVS: koha jmemberentry.pl,1.3,1.4
- Previous by thread:
[Koha-cvs] CVS: koha search.pl,1.10,1.11 updatebibitem.pl,1.8,1.9 updateitem.pl,1.4,1.5
- Next by thread:
[Koha-cvs] CVS: koha jmemberentry.pl,1.3,1.4
- Index(es):