diff --git a/C4/Search.pm b/C4/Search.pm index 345dc05..d4df66d 100755 --- a/C4/Search.pm +++ b/C4/Search.pm @@ -640,6 +640,7 @@ sub itemissues { if (my $data2=$sth2->fetchrow_hashref){ $data->{"timestamp$i2"}=$data2->{'timestamp'}; $data->{"card$i2"}=$data2->{'cardnumber'}; + $data->{"borrower$i2"}=$data2->{'borrowernumber'}; } } $sth2->finish; diff --git a/acqorders.pl b/acqorders.pl new file mode 100755 index 0000000..0226093 --- /dev/null +++ b/acqorders.pl @@ -0,0 +1,52 @@ +#!/usr/bin/perl + +#script to display info about acquisitions +#written by chris@katipo.co.nz 31/01/2000 + +use C4::Acquisitions; +use C4::Output; +use CGI; +my $input=new CGI; +print $input->header(); +my $num=$input->param('num'); +my $offset=$input->param('offset'); +my ($count,$data)=getorders($num,$offset); +#print $data->[0]->{'ordernumber'}; +#print $count; + +print startpage; +print mktablehdr; + +#$count=100; +for (my$i=0;$i<$count;$i++){ +# print "$data->[$i]->{'ordernumber'}
"; + print mktablerow(7,'white',bold('Ordernumber'),bold('Biblionumber'),bold('Title'), + bold('Requisitioned by'),bold('date entered'),bold('Authorised by'),bold('BooksellerID')); + print mktablerow(7,'white',mklink("orderbreakdown.pl?id=$data->[$i]->{'ordernumber'}", + $data->[$i]->{'ordernumber'}),$data->[$i]->{'biblionumber'}, + $data->[$i]->{'title'},$data->[$i]->{'requisitionedby'}, + $data->[$i]->{'entrydate'},$data->[$i]->{'authorisedby'}, + mklink("/cgi-bin/koha/booksellers.pl?id=$data->[$i]->{'booksellerid'}",$data->[$i]->{'booksellerid'})); + print mktablerow(7,'white',"Deliverydays:$data->[$i]->{'deliverydays'}", + "Followupdays:$data->[$i]->{'followupdays'}", + "Date Printed:$data->[$i]->{'dateprinted'}","Quantity:$data->[$i]->{'quantity'}", + "Currency:$data->[$i]->{'currency'}","listprice:$data->[$i]->{'listprice'}", + "totalamount:$data->[$i]->{'totalamount'}"); + print mktablerow(7,'white',"Date Recieved:$data->[$i]->{'daterecieved'}", + "Invoicenumber:$data->[$i]->{'booksellerinvoicenumber'}", + "Freight:$data->[$i]->{'freight'}","Unitprice:$data->[$i]->{'unitprice'}", + "Quantity Recieved:$data->[$i]->{'quantityrecieved'}", + "Source:$data->[$i]->{'source'}","Cancelled by:$data->[$i]->{'canceledby'}"); + print mktablerow(7,'white',"Damaged:$data->[$i]->{'quantityreceiveddamage'}", + "notes:$data->[$i]->{'notes'}","Supplier ref:$data->[$i]->{'supplierreference'}", + "Purcahse order:$data->[$i]->{'purchaseordernumber'}", + "Subscription:$data->[$i]->{'subscription'}","From:$data->[$i]->{'subscriptionfrom'}", + "To:$data->[$i]->{'subscriptionto'}"); + print mktablerow(); +} +print mktableft; +$num=$num+$offset; + +print "More"; + +print endpage; diff --git a/booksellers.pl b/booksellers.pl new file mode 100755 index 0000000..b4e2d8f --- /dev/null +++ b/booksellers.pl @@ -0,0 +1,32 @@ +#!/usr/bin/perl + +#script to display info about acquisitions +#written by chris@katipo.co.nz 31/01/2000 + +use C4::Acquisitions; +use C4::Output; +use CGI; +my $input=new CGI; +print $input->header(); +my $id=$input->param('id'); +my $bookseller=bookseller($id); +print startpage; +print mktablehdr; + +print mktablerow(7,'white',"Id:$bookseller->{'id'}", +"Name:$bookseller->{'name'}","Address +$bookseller->{'address1'}
+$bookseller->{'address2'}
+$bookseller->{'address3'}
+$bookseller->{'address4'}
","Phone:$bookseller->{'phone'}", +"Account:$bookseller->{'accountnumber'}","Other supplier +$bookseller->{'othersupplier'}", +"currency:$bookseller->{'currency'}" +); +print mktablerow(7,'white',"Delivery Days:$bookseller->{'delvierydays'}", +"Follow up:$bookseller->{'followupdays'}"," Follow ups cancel:$bookseller->{'followupscancel'}", +"Speciality:$booksller->{'speciality'}","Fax:$bookseller->{'fax'}", +"Notes:$bookseller->{'notes'}","Email$bookseller->{'email'}"); +print mktablerow(2,'white',"url:$bookseller->{'url'}","Rep:$bookseller->{'rep'}"); +print mktableft; +print endpage; diff --git a/fines.pl b/fines.pl index 4b2034b..9647503 100755 --- a/fines.pl +++ b/fines.pl @@ -14,7 +14,7 @@ my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime(time); $mon++; $year=$year+1900; #my $date=Date_DaysSince999($mon,$mday,$year); -my $date=Date_DaysSince999(2,2,2000); +my $date=Date_DaysSince999(2,3,2000); my $bornum; my $borrower; my $max=5; diff --git a/moredetail.pl b/moredetail.pl index a3c168a..c50a959 100755 --- a/moredetail.pl +++ b/moredetail.pl @@ -108,7 +108,7 @@ print <Home Branch: $items[$i]->{'homebranch'}
Last seen: $items[$i]->{'datelastseen'}
Last borrowed: $items[$i]->{'timestamp0'}
-Currently on issue to: $items[$i]->{'card0'}
+Currently on issue to: {'borrower0'}>$items[$i]->{'card0'}
Last Borrower 1: $items[$i]->{'card'}
Last Borrower 2: $items[$i]->{'card1'}
Current Branch: $items[$i]->{'holdingbranch'}
diff --git a/orderbreakdown.pl b/orderbreakdown.pl new file mode 100755 index 0000000..d214150 --- /dev/null +++ b/orderbreakdown.pl @@ -0,0 +1,22 @@ +#!/usr/bin/perl + +#script to display info about acquisitions +#written by chris@katipo.co.nz 31/01/2000 + +use C4::Acquisitions; +use C4::Output; +use CGI; +my $input=new CGI; +print $input->header(); +my $id=$input->param('id'); +my ($count,$order)=breakdown($id); +print startpage; +print mktablehdr; +#print $id; +for (my$i=0;$i<$count;$i++){ +print mktablerow(5,'white',"Ordernumber:$order->[$i]->{'ordernumber'}", +"Line umber:$order->[$i]->{'linenumber'}","Branch Code:$order->[$i]->{'branchcode'}", +"Bookfundid:$order->[$i]->{'bookfundid'}","Allocation:$order->[$i]->{'allocation'}"); +} +print mktableft; +print endpage;