From rangi@usw-pr-cvs1.sourceforge.net Mon Mar 12 15:13:13 2001 From: Chris Cornack To: koha-devel@lists.koha-community.org Subject: [Koha-devel] CVS: koha newbiblio.pl,NONE,1.1 Date: Mon, 12 Mar 2001 15:15:11 -0800 Message-ID: MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="===============4705774546604872787==" --===============4705774546604872787== Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv11726 Added Files: newbiblio.pl=20 Log Message: Script from Glen Stewart, i think to do with simplified acqusitions module? (correct me if im wrong glen) --- NEW FILE --- #!/usr/bin/perl #script to show display basket of orders #written by chris@katipo.co.nz 24/2/2000 use C4::Acquisitions; use C4::Output; use C4::Search; use C4::Database; use CGI; use strict; my $input=3Dnew CGI; print $input->header(); my $id=3D$input->param('id'); my $title=3D$input->param('title'); my $author=3D$input->param('author'); my $copyright=3D$input->param('copyright'); my ($count,@booksellers)=3Dbookseller($id); my $ordnum=3D$input->param('ordnum'); my $biblio=3D$input->param('biblio'); my $data; my $new; if ($ordnum eq ''){ $new=3D'yes'; $ordnum=3Dnewordernum; $data=3Dbibdata($biblio); if ($data->{'title'} eq ''){ $data->{'title'}=3D$title; $data->{'author'}=3D$author; $data->{'copyrightdate'}=3D$copyright; } }else { $data=3Dgetsingleorder($ordnum); $biblio=3D$data->{'biblionumber'}; }=20 print startpage; print startmenu('acquisitions'); my $basket=3D$input->param('basket'); print <
printend ; if ($biblio eq ''){ print ""; } print < {'biblioitemnumber'}> {'itemtype'}> {'discount'}> {'listincgst'}> {'listprice'}> {'gstreg'}> printend ; my ($count2,$currencies)=3Dgetcurrencies; for (my $i=3D0;$i<$count2;$i++){ print "[$i]->{'currency'}\" valu= e=3D$currencies->[0]->{'rate'}>\n"; } if ($new ne 'yes'){ print "\n"; } print <3D"View=20 $ordnum - Order Details
Shopping Basket For: $booksellers[0]->{'name'}

CATALOGUE DETAILS
Title * {'title'}">
Author {'author'}" >
Copyright Date {'copyright= date'}">
Format
ISBN {'isbn'}>
Series {'seriestitle'= }">
Branch
Item Barcode prepare($query); $sth->execute; my $data=3D$sth->fetchrow_hashref; print $data->{'barcode'}+1; $sth->finish; $dbh->disconnect; } print <
ACCOUNTING DETAILS
Quantity {'quantity'}= " onchange=3D'update(this.form)' >
Bookfund
Suppliers List Price {'listpric= e'}" onchange=3D'update(this.form)'>
Replacement Cost
(NZ\$ inc GST)		 {'rrp'}" onchange= =3D'update(this.form)'>
Budgeted Cost
(NZ\$ ex GST, inc discount) 		{'ecost'}" onch= ange=3D'update(this.form)'>
Budgeted GST
BUDGETED TOTAL
Actual Cost
Invoice Number *
Notes {'notes'}">
HELP<= /B>
  • If ordering more than one copy of an item you will be prompted to choose= additional bookfunds, and put in additional barcodes at the next screen

  • Bold fields must be filled in to create a new bibilo and item.

  • Shaded fields can be used to do a "quick" receive, when items have been p= urchased locally or gifted. In this case the quantity "ordered" will also be= entered into the database as the quantity received.

 

printend ; print endmenu('acquisitions'); print endpage; --===============4705774546604872787==--