From e0389bac1115c387163de423b5f7442d9b970a00 Mon Sep 17 00:00:00 2001 From: rangi Date: Mon, 12 Mar 2001 23:15:09 +0000 Subject: [PATCH] Script from Glen Stewart, i think to do with simplified acqusitions module? (correct me if im wrong glen) --- newbiblio.pl | 316 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 316 insertions(+) create mode 100644 newbiblio.pl diff --git a/newbiblio.pl b/newbiblio.pl new file mode 100644 index 0000000000..4b714bc108 --- /dev/null +++ b/newbiblio.pl @@ -0,0 +1,316 @@ +#!/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=new CGI; +print $input->header(); +my $id=$input->param('id'); +my $title=$input->param('title'); +my $author=$input->param('author'); +my $copyright=$input->param('copyright'); +my ($count,@booksellers)=bookseller($id); +my $ordnum=$input->param('ordnum'); +my $biblio=$input->param('biblio'); +my $data; +my $new; +if ($ordnum eq ''){ + $new='yes'; + $ordnum=newordernum; + $data=bibdata($biblio); + if ($data->{'title'} eq ''){ + $data->{'title'}=$title; + $data->{'author'}=$author; + $data->{'copyrightdate'}=$copyright; + } +}else { + $data=getsingleorder($ordnum); + $biblio=$data->{'biblionumber'}; +} + +print startpage; + +print startmenu('acquisitions'); + + +my $basket=$input->param('basket'); +print < + + + + +
+printend +; + +if ($biblio eq ''){ + print ""; +} + +print < + + + + +{'biblioitemnumber'}> +{'itemtype'}> +{'discount'}> +{'listincgst'}> +{'listprice'}> +{'gstreg'}> +printend +; +my ($count2,$currencies)=getcurrencies; +for (my $i=0;$i<$count2;$i++){ + print "[$i]->{'currency'}\" value=$currencies->[0]->{'rate'}>\n"; +} +if ($new ne 'yes'){ + print "\n"; +} +print <View Basket +$ordnum - Order Details
+Shopping Basket For: $booksellers[0]->{'name'} +

+

+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
CATALOGUE DETAILS
Title * +
Author +
Copyright Date +
Format +
ISBN{'isbn'}> +
Series +
Branch
Item Barcodeprepare($query); + $sth->execute; + my $data=$sth->fetchrow_hashref; + print $data->{'barcode'}+1; + $sth->finish; + $dbh->disconnect; +} + +print < +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
ACCOUNTING DETAILS
Quantity +
Bookfund
Suppliers List Price +
Replacement Cost
+(NZ\$ inc GST)		 +
+Budgeted Cost
+(NZ\$ ex GST, inc discount) 		+
+Budgeted GST +
+BUDGETED TOTAL +
Actual Cost +
Invoice Number * +
Notes +
+ +
+ +
+ +
HELP
+
    +
  • 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 purchased 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; -- 2.39.2