bringing cvs tree into line

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;

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'}<br>";
+   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',"<b>Deliverydays:</b>$data->[$i]->{'deliverydays'}",
+  "<b>Followupdays:</b>$data->[$i]->{'followupdays'}",
+  "<b>Date Printed:</b>$data->[$i]->{'dateprinted'}","<b>Quantity:</b>$data->[$i]->{'quantity'}",
+  "<b>Currency:</b>$data->[$i]->{'currency'}","<b>listprice:</b>$data->[$i]->{'listprice'}",
+  "<b>totalamount:</b>$data->[$i]->{'totalamount'}");
+  print mktablerow(7,'white',"<b>Date Recieved:</b>$data->[$i]->{'daterecieved'}",
+  "<b>Invoicenumber:</b>$data->[$i]->{'booksellerinvoicenumber'}",
+  "<b>Freight:</b>$data->[$i]->{'freight'}","<b>Unitprice:</b>$data->[$i]->{'unitprice'}",
+  "<b>Quantity Recieved:</b>$data->[$i]->{'quantityrecieved'}",
+  "<b>Source:</b>$data->[$i]->{'source'}","<b.>Cancelled by:</b>$data->[$i]->{'canceledby'}");
+  print mktablerow(7,'white',"<b>Damaged:</b>$data->[$i]->{'quantityreceiveddamage'}",
+  "<b>notes:</b>$data->[$i]->{'notes'}","<b>Supplier ref:</b>$data->[$i]->{'supplierreference'}",
+  "<b>Purcahse order:</b>$data->[$i]->{'purchaseordernumber'}",
+  "<b>Subscription:</b>$data->[$i]->{'subscription'}","<b>From:</b>$data->[$i]->{'subscriptionfrom'}",
+  "<b>To:</b>$data->[$i]->{'subscriptionto'}");
+  print mktablerow();
+}
+print mktableft;
+$num=$num+$offset;
+
+print "<a href=acqorders.pl?num=$num&offset=$offset>More</a>";
+
+print endpage;

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',"<b>Id</b>:$bookseller->{'id'}",
+"<b>Name:</b>$bookseller->{'name'}","<b>Address</b>
+$bookseller->{'address1'}<br>
+$bookseller->{'address2'}<br>
+$bookseller->{'address3'}<br>
+$bookseller->{'address4'}<br>","<b>Phone:</b>$bookseller->{'phone'}",
+"<b>Account:</b>$bookseller->{'accountnumber'}","<b>Other supplier</b>
+$bookseller->{'othersupplier'}",
+"<b>currency</b>:$bookseller->{'currency'}"
+);
+print mktablerow(7,'white',"<b>Delivery Days:</b>$bookseller->{'delvierydays'}",
+"<b>Follow up</b>:$bookseller->{'followupdays'}","<b> Follow ups cancel:</b>$bookseller->{'followupscancel'}",
+"<b>Speciality:</b>$booksller->{'speciality'}","<b>Fax</b>:$bookseller->{'fax'}",
+"<b>Notes:</b>$bookseller->{'notes'}","<b>Email</b>$bookseller->{'email'}");
+print mktablerow(2,'white',"<b>url:</b>$bookseller->{'url'}","<b>Rep:</b>$bookseller->{'rep'}");
+print mktableft;
+print endpage;

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;

moredetail.pl

@@ -108,7 +108,7 @@ print <<printend
 <b>Home Branch:</b> $items[$i]->{'homebranch'}<br>
 <b>Last seen:</b> $items[$i]->{'datelastseen'}<br>
 <b>Last borrowed:</b> $items[$i]->{'timestamp0'}<br>
-<b>Currently on issue to:</b> $items[$i]->{'card0'}<br>
+<b>Currently on issue to:</b> <a href=/cgi-bin/koha/moremember.pl?bornum=$items[$i]->{'borrower0'}>$items[$i]->{'card0'}</a><br>
 <b>Last Borrower 1:</b> $items[$i]->{'card'}<br>
 <b>Last Borrower 2:</b> $items[$i]->{'card1'}<br>
 <b>Current Branch:</b> $items[$i]->{'holdingbranch'}<br>

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',"<b>Ordernumber:</b>$order->[$i]->{'ordernumber'}",
+"<b>Line umber</b>:$order->[$i]->{'linenumber'}","<b>Branch Code:</b>$order->[$i]->{'branchcode'}",
+"<b>Bookfundid</b>:$order->[$i]->{'bookfundid'}","<b>Allocation:</b>$order->[$i]->{'allocation'}");
+}
+print mktableft;
+print endpage;