From 96ca30a8ad5039784eeac826f48be5ee1d39d1da Mon Sep 17 00:00:00 2001 From: rangi Date: Mon, 12 Mar 2001 23:33:25 +0000 Subject: [PATCH] Just realised this is supposed to be in the acqui/ dir (doh) --- newbiblio.pl | 316 --------------------------------------------------- 1 file changed, 316 deletions(-) delete mode 100644 newbiblio.pl diff --git a/newbiblio.pl b/newbiblio.pl deleted file mode 100644 index 4b714bc108..0000000000 --- a/newbiblio.pl +++ /dev/null @@ -1,316 +0,0 @@ -#!/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.5