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;