[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-devel] CVS: koha/acqui addorder.pl,1.3,1.4 finishreceive.pl,1.2,1.
From: |
Gynn Lomax |
Subject: |
[Koha-devel] CVS: koha/acqui addorder.pl,1.3,1.4 finishreceive.pl,1.2,1.3 |
Date: |
Wed May 8 20:02:02 2002 |
Update of /cvsroot/koha/koha/acqui
In directory usw-pr-cvs1:/tmp/cvs-serv16527/acqui
Modified Files:
addorder.pl finishreceive.pl
Log Message:
Update to catalogue to allow change of biblio abstracts.
Related modifications to acqui system to match changes in Acquisition.pm
detail.pm changed to show abstract - still working on how to show url's
Index: addorder.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/addorder.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** addorder.pl 15 Apr 2002 05:33:33 -0000 1.3
--- addorder.pl 9 May 2002 03:01:40 -0000 1.4
***************
*** 8,18 ****
use C4::Output;
use C4::Acquisitions;
- #use Date::Manip;
my $input = new CGI;
- #print $input->header;
- #print startpage();
- #print startmenu('acquisitions');
- #print $input->dump;
my $existing=$input->param('existing');
my $title=$input->param('title');
--- 8,13 ----
***************
*** 40,44 ****
my $ecost=$input->param('ecost');
my $gst=$input->param('GST');
- #check to see if orderexists
my $orderexists=$input->param('orderexists');
--- 35,38 ----
***************
*** 48,59 ****
if ($existing eq 'no'){
#if it doesnt create it
! $bibnum = &newbiblio({ title => $title,
! author =>$author,
! copyright => $copyright });
$bibitemnum = &newbiblioitem({ biblionumber => $bibnum,
! itemtype => $itemtype,
! isben => $isbn });
newsubtitle($bibnum);
! modbiblio($bibnum,$title,$author,$copyright,$series);
} else {
$bibnum=$input->param('biblio');
--- 42,57 ----
if ($existing eq 'no'){
#if it doesnt create it
! $bibnum = &newbiblio({ title => $title?$title:"",
! author => $author?$author:"",
! copyright => $copyright?$copyright:"" });
$bibitemnum = &newbiblioitem({ biblionumber => $bibnum,
! itemtype => $itemtype?$itemtype:"",
! isben => $isbn?$isbn:"" });
newsubtitle($bibnum);
! modbiblio({ biblionumber => $bibnum,
! title => $title?$title:"",
! author => $author?$author:"",
! copyrightdate => $copyright?$copyright:"",
! series => $series?$series:"" });
} else {
$bibnum=$input->param('biblio');
***************
*** 63,69 ****
$bibitemnum=newbiblioitem($bibnum,$itemtype,$isbn);
}
! modbiblio($bibnum,$title,$author,$copyright,$series);
}
! if ($orderexists ne ''){
modorder($title,$ordnum,$quantity,$listprice,$bibnum,$basketno,$supplier,$who,$notes,$bookfund,$bibitemnum,$rrp,$ecost,$gst);
}else {
--- 61,71 ----
$bibitemnum=newbiblioitem($bibnum,$itemtype,$isbn);
}
! modbiblio({ biblionumber => $bibnum,
! title => $title?$title:"",
! author => $author?$author:"",
! copyrightdate => $copyright?$copyright:"",
! series => $series?$series:"" });
}
! if ($orderexists ne '') {
modorder($title,$ordnum,$quantity,$listprice,$bibnum,$basketno,$supplier,$who,$notes,$bookfund,$bibitemnum,$rrp,$ecost,$gst);
}else {
***************
*** 71,76 ****
}
} else {
- #print $input->header;
- #print "del";
$bibnum=$input->param('biblio');
delorder($bibnum,$ordnum);
--- 73,76 ----
***************
*** 78,82 ****
print $input->redirect("newbasket.pl?id=$supplier&basket=$basketno");
- #print $input->dump;
- #print endmenu('acquisitions');
- #print endpage();
--- 78,79 ----
Index: finishreceive.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/finishreceive.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** finishreceive.pl 29 Apr 2002 05:25:41 -0000 1.2
--- finishreceive.pl 9 May 2002 03:01:40 -0000 1.3
***************
*** 14,18 ****
my $user=$input->remote_user;
#print $input->dump;
! my $biblio=$input->param('biblio');
my $ordnum=$input->param('ordnum');
my $quantrec=$input->param('quantityrec');
--- 14,18 ----
my $user=$input->remote_user;
#print $input->dump;
! my $biblionumber = $input->param('biblio');
my $ordnum=$input->param('ordnum');
my $quantrec=$input->param('quantityrec');
***************
*** 21,25 ****
my $cost=$input->param('cost');
my $invoiceno=$input->param('invoice');
- my $id=$input->param('id');
my $bibitemno=$input->param('biblioitemnum');
my $data=bibitemdata($bibitemno);
--- 21,24 ----
***************
*** 38,47 ****
my $itemtype=$input->param('format');
my $isbn=$input->param('ISBN');
! my $series=$input->param('Series');
! my $bookseller=$input->param('bookseller');
! $id=$bookseller;
! my $title=$input->param('title');
! my $author=$input->param('author');
! my $copyright=$input->param('copyright');
if ($quantrec != 0){
--- 37,49 ----
my $itemtype=$input->param('format');
my $isbn=$input->param('ISBN');
! my $bookseller = $input->param('bookseller');
! my $id = $bookseller;
! my $biblio = {
! biblionumber => $biblionumber,
! title => $input->param('title')?$input->param('title'):"",
! author => $input->param('author')?$input->param('author'):"",
! copyrightdate => $input->param('copyright')?$input->param('copyright'):"",
! series => $input->param('Series')?$input->param('Series'):""
! }; # my $biblio
if ($quantrec != 0){
***************
*** 60,69 ****
# print "$bibitemno";
$class="Periodical";
! $bibitemno=newbiblioitem($biblio,$itemtype,$isbn,$volinf,$class);
# print "here $bibitemno";
}
if ($quantity != 0){
!
receiveorder($biblio,$ordnum,$quantrec,$user,$cost,$invoiceno,$bibitemno,$freight,$bookfund);
! modbiblio($biblio,$title,$author,$copyright,$series);
modbibitem($bibitemno,$itemtype,$isbn,$publisher,$pubdate,$class,$dewey,$subclass,$illus,$pages,$volinf,$notes,$size);
#print $notes;
--- 62,71 ----
# print "$bibitemno";
$class="Periodical";
! $bibitemno=newbiblioitem($biblionumber,$itemtype,$isbn,$volinf,$class);
# print "here $bibitemno";
}
if ($quantity != 0){
!
receiveorder($biblionumber,$ordnum,$quantrec,$user,$cost,$invoiceno,$bibitemno,$freight,$bookfund);
! modbiblio($biblio);
modbibitem($bibitemno,$itemtype,$isbn,$publisher,$pubdate,$class,$dewey,$subclass,$illus,$pages,$volinf,$notes,$size);
#print $notes;
***************
*** 81,85 ****
}
my ($error) = newitems({ biblioitemnumber => $bibitemno,
! biblionumber => $biblio,
replacementprice => $replacement,
price => $cost,
--- 83,87 ----
}
my ($error) = newitems({ biblioitemnumber => $bibitemno,
! biblionumber => $biblionumber,
replacementprice => $replacement,
price => $cost,
***************
*** 100,104 ****
} else {
print $input->header;
! delorder($biblio,$ordnum);
print $input->redirect("/acquisitions/");
}
--- 102,106 ----
} else {
print $input->header;
! delorder($biblionumber,$ordnum);
print $input->redirect("/acquisitions/");
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-devel] CVS: koha/acqui addorder.pl,1.3,1.4 finishreceive.pl,1.2,1.3,
Gynn Lomax <=
- Prev by Date:
[Koha-devel] CVS: koha/C4 Acquisitions.pm,1.7,1.8 Output.pm,1.6,1.7 Search.pm,1.21,1.22
- Next by Date:
[Koha-devel] CVS: koha detail.pl,1.4,1.5 modbib.pl,1.1.1.1,1.2 updatebiblio.pl,1.1.1.1,1.2
- Previous by thread:
[Koha-devel] CVS: koha/C4 Acquisitions.pm,1.7,1.8 Output.pm,1.6,1.7 Search.pm,1.21,1.22
- Next by thread:
[Koha-devel] CVS: koha detail.pl,1.4,1.5 modbib.pl,1.1.1.1,1.2 updatebiblio.pl,1.1.1.1,1.2
- Index(es):