Преглед изворни кода

bringing cvs tree into line

master
chris пре 21 година
родитељ
комит
612ece496f
6 измењених фајлова са 109 додато и 2 уклоњено
  1. +1
    -0
      C4/Search.pm
  2. +52
    -0
      acqorders.pl
  3. +32
    -0
      booksellers.pl
  4. +1
    -1
      fines.pl
  5. +1
    -1
      moredetail.pl
  6. +22
    -0
      orderbreakdown.pl

+ 1
- 0
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;


+ 52
- 0
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;

+ 32
- 0
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;

+ 1
- 1
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;


+ 1
- 1
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>


+ 22
- 0
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;

Loading…
Откажи
Сачувај