- Koha-devel - lists.koha-community.org

CVS: koha updateitem.pl,1.1.1.1,1.2
by Chris Cormack 10 May '01

10 May '01

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv20351 Modified Files: updateitem.pl Log Message: Set up so marking a item lost, adds a charge for the replacement price to a borrowers record (if it is on issue) Index: updateitem.pl =================================================================== RCS file: /cvsroot/koha/koha/updateitem.pl,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 *** updateitem.pl 2000/12/19 23:45:53 1.1.1.1 --- updateitem.pl 2001/05/09 23:26:11 1.2 *************** *** 6,17 **** use C4::Acquisitions; use C4::Output; my $input= new CGI; - #print $input->header; - #print $input->dump; - - #my $title=checkinp($input->param('Title')); - #my $author=checkinp($input->param('Author')); my $bibnum=checkinp($input->param('bibnum')); my $itemnum=checkinp($input->param('itemnumber')); --- 6,15 ---- use C4::Acquisitions; use C4::Output; + use C4::Circulation::Circ2; + use C4::Accounts2; + my $env; my $input= new CGI; my $bibnum=checkinp($input->param('bibnum')); my $itemnum=checkinp($input->param('itemnumber')); *************** *** 24,31 **** #need to do barcode check my $barcode=$input->param('Barcode'); - #modbiblio($bibnum,$title,$author,$copyright,$seriestitle,$serial,$unititle,$notes); my $bibitemnum=checkinp($input->param('bibitemnum')); - #my $olditemtype my $itemtype=checkinp($input->param('Item')); my $isbn=checkinp($input->param('ISBN')); --- 22,27 ---- *************** *** 39,47 **** my $dewey; my $subclass; if ($itemtype ne 'NF'){ $classification=$class; } if ($class =~/[0-9]+/){ - # print $class; $dewey= $class; $dewey=~ s/[a-z]+//gi; --- 35,43 ---- my $dewey; my $subclass; + my $override=$input->param('override'); if ($itemtype ne 'NF'){ $classification=$class; } if ($class =~/[0-9]+/){ $dewey= $class; $dewey=~ s/[a-z]+//gi; *************** *** 54,58 **** $classification=$temp[0]; $subclass=$temp[1]; - # print $classification,$dewey,$subclass; }else{ $dewey=''; --- 50,53 ---- *************** *** 61,80 **** my $pages=checkinp($input->param('Pages')); my $volumeddesc=checkinp($input->param('Volume')); - - #have to check how many items are attached to this bibitem, if one, just change it, - #if more than one, we must create a new one. - #my $number=countitems($bibitemnum); - #if ($number > 1){ - # print $number; - #check if bibitemneeds modifying - # my $needsmod=needsmod($bibitemnum,$itemtype); - # if ($needsmod != 1){ - # $bibitemnum=newbiblioitem($bibnum,$itemtype,$volumeddesc,$classification); - # } - #} - #modbibitem($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc); - moditem('loan',$itemnum,$bibitemnum,$barcode,$notes,$homebranch,$lost,$wthdrawn); ! print $input->redirect("moredetail.pl?type=intra&bib=$bibnum&bi=$bibitemnum"); #print $bibitemnum; --- 56,118 ---- my $pages=checkinp($input->param('Pages')); my $volumeddesc=checkinp($input->param('Volume')); ! if ($wthdrawn == 0 && $override ne 'yes'){ ! moditem('loan',$itemnum,$bibitemnum,$barcode,$notes,$homebranch,$lost,$wthdrawn); ! if ($lost ==1){ ! my $dbh=C4Connect; ! my $sth=$dbh->prepare("Select * from issues where (itemnumber='$itemnum') and (returndate is null)"); ! $sth->execute; ! my $data=$sth->fetchrow_hashref; ! if ($data->{'borrowernumber'} ne '') { ! #item on issue add replacement cost to borrowers record ! my $accountno=getnextacctno($env,$data->{'borrowernumber'},$dbh); ! my $item=getiteminformation($env, $itemnum); ! my $account="Insert into accountlines ! (borrowernumber,accountno,date,amount,description,accounttype,amountoutstanding,itemnumber) ! values ! ('$data->{'borrowernumber'}','$accountno',now(),'$item->{'replacementprice'}', ! 'Lost Item $item->{'title'} $item->{'barcode'}','L', ! '$item->{'replacementprice'}','$itemnum')"; ! my $sth2=$dbh->prepare($account); ! # print $input->header; ! # print $account; ! $sth2->execute; ! $sth2->finish; ! } ! $sth->finish; ! } ! print $input->redirect("moredetail.pl?type=intra&bib=$bibnum&bi=$bibitemnum"); ! } else { ! ! # print "marking cancelled"; ! #need to check if it is on reserve or issued ! my $dbh=C4Connect; ! my $flag=0; ! my ($resbor,$resrec)=C4::Circulation::Circ2::checkreserve($env,$dbh,$itemnum); ! # print $resbor; ! if ($resbor){ ! print $input->header; ! print "The biblio or biblioitem this item belongs to has a reserve on it"; ! $flag=1; ! } ! my $sth=$dbh->prepare("Select * from issues where (itemnumber='$itemnum') and (returndate is null)"); ! $sth->execute; ! my $data=$sth->fetchrow_hashref; ! if ($data->{'borrowernumber'} ne '') { ! print $input->header; ! print "<p>Item is on issue"; ! $flag=1; ! } ! $sth->finish; ! $dbh->disconnect; ! if ($flag == 1){ ! my $url=$input->self_url; ! $url.="&override=yes"; ! print "<p> <a href=$url>Cancel Anyway</a>   or <a href=\"\">Back</a>"; ! }else { ! moditem('loan',$itemnum,$bibitemnum,$barcode,$notes,$homebranch,$lost,$wthdrawn); ! print $input->redirect("moredetail.pl?type=intra&bib=$bibnum&bi=$bibitemnum"); ! } ! } #print $bibitemnum; *************** *** 85,86 **** --- 123,127 ---- return($inp); } + + #sub checkissue{ +

1 0

CVS: koha renewscript.pl,1.1.1.1,1.2
by Chris Cormack 10 May '01

10 May '01

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv20049 Modified Files: renewscript.pl Log Message: Fixed so renewing a rental item adds a charge Index: renewscript.pl =================================================================== RCS file: /cvsroot/koha/koha/renewscript.pl,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 *** renewscript.pl 2000/12/19 23:45:53 1.1.1.1 --- renewscript.pl 2001/05/09 23:23:52 1.2 *************** *** 31,34 **** --- 31,35 ---- #check its status my $status=renewstatus(\%env,$bornum,$key); + # print $status; if ($status == 1){ renewbook(\%env,$bornum,$key);

1 0

CVS: koha mancredit.pl,1.1,1.2 maninvoice.pl,1.1,1.2
by Chris Cormack 10 May '01

10 May '01

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv19677 Modified Files: mancredit.pl maninvoice.pl Log Message: Added facility to do a cash refund. Also HLT allows ppl to work off their bill,so added a facility to do manual credit for that Index: mancredit.pl =================================================================== RCS file: /cvsroot/koha/koha/mancredit.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -r1.1 -r1.2 *** mancredit.pl 2001/05/02 21:08:56 1.1 --- mancredit.pl 2001/05/09 23:22:10 1.2 *************** *** 39,42 **** --- 39,43 ---- <option value=C>Credit</option> <option value=BAY>Baycorp Adjustment</option> + <option value=WORK>Worked off</option> </select> </td></tr> Index: maninvoice.pl =================================================================== RCS file: /cvsroot/koha/koha/maninvoice.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -r1.1 -r1.2 *** maninvoice.pl 2001/05/02 21:08:56 1.1 --- maninvoice.pl 2001/05/09 23:22:10 1.2 *************** *** 17,20 **** --- 17,21 ---- my $add=$input->param('add'); if ($add){ + # print $input->header; my $itemnum=$input->param('itemnum'); my $desc=$input->param('desc'); *************** *** 41,44 **** --- 42,46 ---- <option value=N>New Card</option> <option value=M>Sundry</option> + <option value=REF>Cash Refund</option> </select> </td></tr>

1 0

CVS: koha/C4 Accounts2.pm,1.6,1.7
by Chris Cormack 10 May '01

10 May '01

Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv19677/C4 Modified Files: Accounts2.pm Log Message: Added facility to do a cash refund. Also HLT allows ppl to work off their bill,so added a facility to do manual credit for that Index: Accounts2.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Accounts2.pm,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -r1.6 -r1.7 *** Accounts2.pm 2001/05/02 21:13:15 1.6 --- Accounts2.pm 2001/05/09 23:22:10 1.7 *************** *** 16,20 **** @ISA = qw(Exporter); ! @EXPORT = qw(&recordpayment &fixaccounts &makepayment &manualinvoice); %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], --- 16,21 ---- @ISA = qw(Exporter); ! @EXPORT = qw(&recordpayment &fixaccounts &makepayment &manualinvoice ! &getnextacctno); %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], *************** *** 225,228 **** --- 226,232 ---- $desc="Lost Item"; } + if ($type eq 'REF'){ + $amountleft=refund('',$bornum,$amount); + } if ($itemnum ne ''){ my $sth=$dbh->prepare("Select * from items where barcode='$itemnum'"); *************** *** 262,265 **** --- 266,270 ---- my $sth = $dbh->prepare($query); $sth->execute; + # print $query; # offset transactions while (($accdata=$sth->fetchrow_hashref) and ($amountleft>0)){ *************** *** 268,274 **** --- 273,327 ---- $amountleft = $amountleft - $accdata->{'amountoutstanding'}; } else { + $newamtos = $accdata->{'amountoutstanding'} + $amountleft; + $amountleft = 0; + } + my $thisacct = $accdata->{accountno}; + $updquery = "update accountlines set amountoutstanding= '$newamtos' + where (borrowernumber = '$bornumber') and (accountno='$thisacct')"; + my $usth = $dbh->prepare($updquery); + $usth->execute; + $usth->finish; + $updquery = "insert into accountoffsets + (borrowernumber, accountno, offsetaccount, offsetamount) + values ($bornumber,$accdata->{'accountno'},$nextaccntno,$newamtos)"; + my $usth = $dbh->prepare($updquery); + $usth->execute; + $usth->finish; + } + $sth->finish; + $dbh->disconnect; + return($amountleft); + } + + sub refund{ + #here we update both the accountoffsets and the account lines + my ($env,$bornumber,$data)=@_; + my $dbh=C4Connect; + my $updquery = ""; + my $newamtos = 0; + my $accdata = ""; + # my $branch=$env->{'branchcode'}; + my $amountleft = $data *-1; + + # begin transaction + my $nextaccntno = getnextacctno($env,$bornumber,$dbh); + # get lines with outstanding amounts to offset + my $query = "select * from accountlines + where (borrowernumber = '$bornumber') and (amountoutstanding<0) + order by date"; + my $sth = $dbh->prepare($query); + $sth->execute; + # print $query; + # print $amountleft; + # offset transactions + while (($accdata=$sth->fetchrow_hashref) and ($amountleft<0)){ + if ($accdata->{'amountoutstanding'} > $amountleft) { + $newamtos = 0; + $amountleft = $amountleft - $accdata->{'amountoutstanding'}; + } else { $newamtos = $accdata->{'amountoutstanding'} - $amountleft; $amountleft = 0; } + # print $amountleft; my $thisacct = $accdata->{accountno}; $updquery = "update accountlines set amountoutstanding= '$newamtos'

1 0

CVS: koha/C4/Circulation Renewals2.pm,1.1.1.1,1.2
by Chris Cormack 09 May '01

09 May '01

Update of /cvsroot/koha/koha/C4/Circulation In directory usw-pr-cvs1:/tmp/cvs-serv19303/C4/Circulation Modified Files: Renewals2.pm Log Message: Renewing a rental or pay item from the borrowers record screen Now adds a charge to the borrowers account Index: Renewals2.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Circulation/Renewals2.pm,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 *** Renewals2.pm 2000/12/19 23:45:56 1.1.1.1 --- Renewals2.pm 2001/05/09 00:05:57 1.2 *************** *** 13,16 **** --- 13,19 ---- use C4::Database; use C4::Stats; + use C4::Accounts2; + use C4::Circulation::Circ2; + use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); *************** *** 130,134 **** --- 133,151 ---- $sth->finish; UpdateStats($env,$env->{'branchcode'},'renew','','',$itemno); + my ($charge,$type)=calc_charges($env, $itemno, $bornum); + if ($charge > 0){ + my $accountno=getnextacctno($env,$bornum,$dbh); + my $item=getiteminformation($env, $itemno); + my $account="Insert into accountlines + (borrowernumber,accountno,date,amount,description,accounttype,amountoutstanding,itemnumber) + values + ('$bornum','$accountno',now(),$charge,'Renewal of Rental Item $item->{'title'} $item->{'barcode'}','Rent',$charge,'$itemno')"; + $sth=$dbh->prepare($account); + $sth->execute; + $sth->finish; + # print $account; + } $dbh->disconnect; + # return(); }

1 0

CVS: koha/C4 Groups.pm,NONE,1.1
by Steve Tonnesen 03 May '01

03 May '01

Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv5902/koha/C4 Added Files: Groups.pm Log Message: Steve Tonnesen's K12Admin-specific (for the time-being) group based overdue reports. --- NEW FILE --- package C4::Groups; #package to deal with Returns #written 3/11/99 by olwen(a)katipo.co.nz use strict; require Exporter; use DBI; use C4::Database; use C4::Circulation::Circ2; #use C4::Accounts; #use C4::InterfaceCDK; #use C4::Circulation::Main; #use C4::Format; #use C4::Circulation::Renewals; #use C4::Scan; use C4::Stats; #use C4::Search; #use C4::Print; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking $VERSION = 0.01; @ISA = qw(Exporter); @EXPORT = qw(&getgroups &groupmembers); %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], # your exported package globals go here, # as well as any optionally exported functions @EXPORT_OK = qw($Var1 %Hashit); # non-exported package globals go here #use vars qw(@more $stuff); # initalize package globals, first exported ones my $Var1 = ''; my %Hashit = (); # then the others (which are still accessible as $Some::Module::stuff) my $stuff = ''; my @more = (); # all file-scoped lexicals must be created before # the functions below that use them. # file-private lexicals go here my $priv_var = ''; my %secret_hash = (); # here's a file-private function as a closure, # callable as &$priv_func; it cannot be prototyped. my $priv_func = sub { # stuff goes here. }; # make all your functions, whether exported or not; sub getgroups { my ($env) = @_; my %groups; my $dbh=&C4Connect; my $sth=$dbh->prepare("select distinct groupshortname,grouplongname from borrowergroups"); $sth->execute; while (my ($short, $long)=$sth->fetchrow) { $groups{$short}=$long; } $dbh->disconnect; return (\%groups); } sub groupmembers { my ($env, $group) = @_; my @members; my $dbh=&C4Connect; my $q_group=$dbh->quote($group); my $sth=$dbh->prepare("select borrowernumber from borrowergroups where groupshortname=$q_group"); $sth->execute; while (my ($borrowernumber) = $sth->fetchrow) { my ($patron, $flags) = getpatroninformation($env, $borrowernumber); my $currentissues=currentissues($env, $patron); $patron->{'currentissues'}=$currentissues; push (@members, $patron); } return (\@members); } END { } # module clean-up code here (global destructor)

1 0

CVS: koha groups.pl,NONE,1.1
by Steve Tonnesen 03 May '01

03 May '01

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv5902/koha Added Files: groups.pl Log Message: Steve Tonnesen's K12Admin-specific (for the time-being) group based overdue reports. --- NEW FILE --- #!/usr/bin/perl #written 14/1/2000 #script to display reports use CGI qw/:standard/; use C4::Output; use C4::Groups; use C4::Circulation::Circ2; use C4::Print; use DBI; my $input=new CGI; my $time=$input->param('time'); #print $input->header; my $branches=getbranches(\%env); my $printers=getprinters(\%env); my $branch=$input->param('branch'); my $printer=$input->param('printer'); ($branch) || ($branch=$input->cookie('branch')); ($printer) || ($printer=$input->cookie('printer')); my ($oldbranch, $oldprinter); if ($input->param('selectnewbranchprinter')) { $oldbranch=$branch; $oldprinter=$printer; $branch=''; $printer=''; } $env{'branchcode'}=$branch; $env{'printer'}=$printer; #$env{'queue'}=$printer; my $branchcount=0; my $printercount=0; my $branchoptions; my $printeroptions; foreach (keys %$branches) { (next) unless ($_); (next) if (/^TR$/); $branchcount++; my $selected=''; ($selected='selected') if ($_ eq $oldbranch); ($selected='selected') if ($_ eq $branch); $branchoptions.="<option value=$_ $selected>$branches->{$_}->{'branchname'}\n"; } foreach (keys %$printers) { (next) unless ($_); $printercount++; my $selected=''; ($selected='selected') if ($_ eq $oldprinter || $_ eq $printer); $printeroptions.="<option value=$_ $selected>$printers->{$_}->{'printername'}\n"; } if ($printercount==1) { ($printer)=keys %$printers; } if ($branchcount==1) { ($branch)=keys %$branches; } my $branchname=''; my $printername=''; if ($branch && $printer) { $branchname=$branches->{$branch}->{'branchname'}; $printername=$printers->{$printer}->{'printername'}; } my $branchcookie=$input->cookie(-name=>'branch', -value=>"$branch", -expires=>'+1y', -path=>'/cgi-bin/koha/'); my $printercookie=$input->cookie(-name=>'printer', -value=>"$printer", -expires=>'+1y', -path=>'/cgi-bin/koha/'); print $input->header(-type=>'text/html',-expires=>'now', -cookie=>[$branchcookie,$printercookie]); print startpage; unless ($input->param('printable')) { print startmenu('report'); } print center; my $type=$input->param('type'); my $groups=getgroups(); if ($input->param('print')) { if ($input->param('groupsselected')) { foreach ($input->param()) { if (/print_(.*)/) { my $group=$1; printgroup($group,$input->param('type')); } } } else { print "<h2>Select the groups to print</h2>\n"; print "<form method=post>\n"; print "<input type=hidden name=print value=1>\n"; print "<input type=hidden name=groupsselected value=1>\n"; print "<table border=0><tr><td bgcolor=#dddddd>\n"; print "<table border=1 cellspacing=5 cellpadding=10><tr>\n"; my $counter=0; foreach (sort {$groups->{$a} cmp $groups->{$b}} keys %$groups) { (next) unless ($groups->{$_}); if ($counter>3) { $counter=0; print "</tr><tr>\n"; } else { } print << "EOF"; <td><input type=checkbox name=print_$_ value=0> $groups->{$_} </td> EOF $counter++; } print << "EOF"; </tr></table> </td></tr></table> <p> Printer: <select name=printer> $printeroptions </select> <p> <input type=radio name=type value=issues> Issues <input type=radio name=type value=overdues checked> Overdues <p> <input type=submit value=Print> </body></html> EOF exit; } } if (my $group=$input->param('group')) { print "<a href=groups.pl?type=$type>Back to group list</a><p>\n"; if ($input->param('printable')) { print "<head><title>Overdue list for $groups->{$group}</title></head><body>\n"; } my $members=groupmembers($env, $group); print "<table border=0><tr><td bgcolor=#dddddd>\n"; print "<table border=1 cellspacing=5 cellpadding=10>\n"; my $typetext=''; ($type eq 'overdues') ? ($typetext="Overdues") : ($typetext="Issues"); print "<thead><tr><th>Card #</th><th>Name</th><th>IS/OD</th><th>$typetext</th></tr></thead>\n"; foreach (sort { $a->{'surname'}." ".$a->{'firstname'} cmp $b->{'surname'}." ".$b->{'firstname'} } @$members) { my $fullname=$_->{'firstname'}." ".$_->{'surname'}; my $userid=$_->{'userid'}; my $cardnumber=$_->{'cardnumber'}; my $currentissues=$_->{'currentissues'}; my $counter=0; my $overduecounter=0; my $overduelist=''; foreach (keys %$currentissues) { $counter++; if ($currentissues->{$_}->{'overdue'}) { $overduecounter++; $title=$currentissues->{$_}->{'title'}; $author=$currentissues->{$_}->{'author'}; $date_due=$currentissues->{$_}->{'date_due'}; $overduelist.="<u>$title</u> by $author (<font color=red>$date_due</font>)<br>\n"; } else { if ($type eq 'issues') { $title=$currentissues->{$_}->{'title'}; $author=$currentissues->{$_}->{'author'}; $date_due=$currentissues->{$_}->{'date_due'}; $overduelist.="<u>$title</u> by $author due on $date_due<br>\n"; } } } my $overduetext="0"; if ($overduecounter) { $overduetext="<font color=red>$overduecounter</font>"; } (next) unless ($overduecounter || $counter); if ($overduecounter==0 && $type eq 'overdues') { next; } print "<tr><td align=center>$cardnumber</td><td>$fullname</td><td align=center>$counter/$overduetext</td><td>$overduelist</td></tr>\n"; } print "</table>\n"; print "</td></tr></table>\n"; } else { print "<a href=groups.pl?print=1>Print Reports</a><p>\n"; print "<h2>Pick a group</h2>\n"; print "<table border=0><tr><td bgcolor=#dddddd>\n"; print "<table border=1 cellspacing=5 cellpadding=10><tr>\n"; my $counter=0; foreach (sort {$groups->{$a} cmp $groups->{$b}} keys %$groups) { (next) unless ($groups->{$_}); if ($counter>3) { $counter=0; print "</tr><tr>\n"; } else { } print << "EOF"; <td align=center>$groups->{$_} <br> <a href=groups.pl?type=issues&group=$_>Issues</a> | <a href=groups.pl?type=overdues&group=$_>Overdues</a> </td> EOF $counter++; } print "</tr></table>\n"; print "</td></tr></table>\n"; } unless ($input->param('printable')) { print endmenu('report'); } print endpage; sub printgroup { my $group=shift; my $type=shift; $output= "<head><title>Overdue list for $groups->{$group}</title></head><body><center>\n"; my $members=groupmembers($env, $group); ($type eq 'overdues') && ($output.="<img src=/usr/local/koha/librarian/htdocs/images/overdues.jpg><br>\n"); $output.= "<table border=1 cellspacing=5 cellpadding=10>\n"; my $typetext=''; ($type eq 'overdues') ? ($typetext="Overdues") : ($typetext="Issues"); $output.= "<thead><tr><th>Card #</th><th>Name</th><th>IS/OD</th><th>$typetext</th></tr></thead>\n"; foreach (sort { $a->{'surname'}." ".$a->{'firstname'} cmp $b->{'surname'}." ".$b->{'firstname'} } @$members) { my $fullname=$_->{'firstname'}." ".$_->{'surname'}; my $userid=$_->{'userid'}; my $cardnumber=$_->{'cardnumber'}; my $currentissues=$_->{'currentissues'}; my $counter=0; my $overduecounter=0; my $overduelist=''; foreach (keys %$currentissues) { $counter++; if ($currentissues->{$_}->{'overdue'}) { $overduecounter++; $title=$currentissues->{$_}->{'title'}; $author=$currentissues->{$_}->{'author'}; $date_due=$currentissues->{$_}->{'date_due'}; $overduelist.="<u>$title</u> by $author (<font color=red>$date_due</font>)<br>\n"; } else { if ($type eq 'issues') { $title=$currentissues->{$_}->{'title'}; $author=$currentissues->{$_}->{'author'}; $date_due=$currentissues->{$_}->{'date_due'}; $overduelist.="<u>$title</u> by $author due on $date_due<br>\n"; } } } my $overduetext="0"; if ($overduecounter) { $overduetext="<font color=red>$overduecounter</font>"; } (next) unless ($overduecounter || $counter); if ($overduecounter==0 && $type eq 'overdues') { next; } $output.= "<tr><td align=center>$cardnumber</td><td>$fullname</td><td align=center>$counter/$overduetext</td><td>$overduelist</td></tr>\n"; } $output.= "</table>\n"; $output.= "</td></tr></table>\n"; open (P, "|html2ps | lpr -P$printer"); print P $output; close P; }

1 0

CVS: koha-html/intranet-html/images overdues.jpg,NONE,1.1
by Steve Tonnesen 03 May '01

03 May '01

Update of /cvsroot/koha/koha-html/intranet-html/images In directory usw-pr-cvs1:/tmp/cvs-serv5634/koha-html/intranet-html/images Added Files: overdues.jpg Log Message: Header graphic used by Steve Tonnesen's K12Admin-specific class overdue printouts. --- NEW FILE --- ÿØÿà ÿÄ !1"a#$A2Q3BÿÄ ?zª-µA2E8U4!DÇ9J<ÕýÝÜC¡ZÛ¶_4ŸU:œ%HÅ@GÔ¡ÅbZAcW¥îŽTrR²FB&)ûyÊfêœ×Ó1=¬ÃÛÜâbLVñ5Ô¬ÇñärQd{°")]l â«Ë599C;5ŒYÅµú³œ~ââ²zçYk\j{OºžÜ¶ŒÔ¡ìÙS ÙlÁÁ$Wu6y*ºY7AZŒ#ÈÒŒ5æªÈe>QÒµzÒÞœ*ó¬>8Šü}Yå ¬oà3¹lä^`}@}(µáÛøyÍ€Éhó5+žB ÁÎªÉT h¬G¯@EtÎIåœª8xþÓbòýêþÒšuCëvÉ^18$îÂ8æÍ~ß6ÛkäÊÈû b°øÂ%.ko€RrZ*keóóIgIgÕjsaE° c6<.2î$2}Ä<¥ïÛ³œ,ý7i€n{<}úþé (ª€í¡è7XáÛÈEª'M)¿í Ïõ3QrçO,ZÊV+fp8ÅnóÃ&cRÆ0¢@)öOdý3Ðö;êãX£ãQA4YCÒ&&ÑOÛ (€õ}2þáÅäZUŠ@D±@²J;q®²~Œ% -G>ÒÐ~ (ÊÍØ÷¹ úâÞvŒüHSXMÇ0xP( #ieÇåpM~µáâ[#Äãµ&?L÷¢Z°Z.ÃÎÓu\4@2 HdÜ<<rKTNÉŒ,íô©ä@=p8äht¥ÛÜ£žº£Sœç<{)sD jB5Ôb,0ªÁÌÔRäsN@¹HÝŠNÝŠR9VKùðOcÈbŽ kzÞ>ËU³Ê=9ä¯3V·Yåj»Il×H'¬±;ÆêÇT$DuÜ+ªžä ¶ÌTì|Áôã9¥tã8ttã8ttãUãÔ³Öc:bÑuÚªÿ ÆJÄ6]E¡xª²úÃ?}CØ©øùÊÙ{šíaî÷7l4¿hŸ »C£ûaî]>Ô÷··µ4XêÛÅ õÆ#SeäÎe²Ò-LN õÇ0ï·Rµ~G7u»=üUûR^ÇÛXLÞÕi!Ežrx¯>'èVfnQFN¥ÜsnŒzµ÷sÆ0¯çü;¶ÀVî,MÕÄ×gÅOöòkÃ5ªçpaND° Qqç¬7X$D2®€çz{Aa¡Yš ²fýÆ'€1ªçL£ùmæ%î ±FS|üQéÉdô{{§¢»rSPà2mÇîW«.BcÓvxÌØžX© 'nTaf{fû€ñJ§ðX#Gžûìçýºžo¬VLgHW-¥XG±žÆTç*<J=ÅFY1ÂØDKØªÉGÿ èª/+-)ŠÉ6¯;EUìÖ¶Rò¹JU;Ü»5zîã3ÊG+(çpàrþ¡XÚü?Ú ·ÛñãØùêØÜÐ£Ô-(Žê¶R}œaCÁ±uçØ,÷nÕxý8Õ§D/ÝÕ¶ªóÚNŽÆŸOœ3fðè*øèjœcežÝoÔ}Ax°(+&\ŸNä¥È''¬UbñÓTD§"*ÏÈ šÇÄ±F`ImÆÛ±ºóá*9GßäÔ\L¹KÐ¬/ªWÊœyý>Õ$ Ý€[ÇKÁN°"dÓlý·}ä äâ"õÖÕôQŸÐkýÂ¥òG®ýá6sl·Øó«MnÇ]nì&`¡)¯yÜ&ñ&šÖ*Ï\®ßF^í|Q®Z|ß'lÔ\Ô¯3åKjÊ§n ®©¹#h«X)Älâ€ã ?³?vihGO5«§ŽsWÑ>GDv%«²p.®ÔyðÁ`±yx&¯4ííÝM~ívY¯O ZÊÇº /æ,&:ª»ÖÈ=9r U}hcÕã ÌªÂÛñ-#7/}0]¶tVÊûoªø!ØÇæÍÁ8D S}»#å-2GÄà)Áv=àÀ `DJ =þCŸFÆù_f:}óä:VL€Ë$u£-Ô;4=®· j%g5ñìs&ªj$¡ppMDÎüNC "r ?Lû°&cÁÅyü²&há%ãÙË.íÒH S75~¥Ø.ÿ fl=ê~ÑgQvßAé,E\SXåòjm1¡Ñtiac§4æÕXä,óœÉ·/Ë4ÓiMn7a¹jyº ci9³lL@-ô[°H ÒÏŠÓ¢¢ãåA%r4èÆCBGŽ|k6è6fÈ€ÜÔý£àJåh vËö<ëK)åqûìúHT0$y»¡vÄÈ€u>®jÂ*H¢àÞ¡{[CGjüm©²ù«yT5Ð4ÕÚzygœ³U7h-ù#¿?u ©XáZŒö+8ÆÈGæVªº°cù]øùØ~|×;£ -é©)Ž0ôžbž2óøûùæóRöd{mªs>+ŒÞ(¯ÜE]©ÕU²Yê2lÜšÍÜu UäÖÏU£²m.€n¡ ªg!a_Óÿ pBSÖb+{ilzQÇ"šxÏìÊÄ #¯ººIX\&Ýcaç}9ÚBÞÜgÀ}HäVnšÝáüÄÊ6,ñÌAmw€QŠciR(®êZ!FË€*å¿Hš`ÑÒÏÍä-I%[x·ÇED®É/¥<+é8xÄª zÎ€Ã¥4àIš²{·Øoìß}Œíïä~zë)sœÑñÄ«NB¹Uh!Ýíåa¬AŽ>ŠZiÛ&w)L!îž/p)> ÈÔ¬×w!Ø÷ßaÓ)ÅFy&: >þ`¶??Û©b×>=5õÉËX<p°1öÌåáE¬/=ÄÄþýEåä_Ýÿ R$Ü( ~ 3ÉZÝK10hæ¯<,E"áÛpw:$ÑÈªèà«#ÊÀûàçš²éÑéŸ×}Èï²|åî/OôbÒdÅVÌÈ¹$ÝÂlH'ï$Ê¢%*+,J*CIxJ¯PøšÖ»¯¯Y1vðñòÌlÔ«)Ý"ÕÑÛ3pk<RT±ïßG9n©hí×-\ ªjv¶»¬µnKQ.®¿©3võDsÃf<üù+Ojà ï Ó/¯@HR'D0#U>Zð$&ºÃÀA ïºí±ßîO|=UûýXà²â`Ú«~ÿ 3xk®ÝGŽ»¬u^DÒ7õjáÆÉÔ~c%jQVx g<€,ñR³le«€-xc^`ÙrÜÇñíúëô×ôØë×OÜÄž2U»$Ü£t #Xð`Åe an¡Ø"žUA4Ÿ€*dp)Þ)R²ËÔ;§fŸu&ÀrX'=@dpYzu¶;Ûoi¢Y¢¢-'ërbC£²&¢$bšÒAÎ¿nå¢ê¢w®±ËÛÈ®^ÖJìù4tt¿-^Ò4ôøLÌ]~ÈªBšð ,G§Šš¡¡@S¿Ÿãmÿ éQá@`*]î£a°?ûýýþýiFÕz?uc2eNKÃ¹jãÛŠOŸ€Ç ÂJ·)$åGÖë8b«µUYÆî ÅOôÌlÕ4POè5sÒšØjçvÊ6ç^ÀI4dÁÁd.Ù.G(plìbšL)@Å7î)ß<qÎËÊÍ\§/-3nW`8³oÉÀ#ßÜôãpñÿ H43c»fÁ^u"¥ýÒÿ £`¿

1 0

CVS: koha/C4/Circulation Circ2.pm,1.16,1.17
by Steve Tonnesen 03 May '01

03 May '01

Update of /cvsroot/koha/koha/C4/Circulation In directory usw-pr-cvs1:/tmp/cvs-serv32680/koha/C4/Circulation Modified Files: Circ2.pm Log Message: Added an overdue variable to the itemdata returned by the currentissues subroutine. This makes it easier to pick out overdue items in other modules (ie circulation, reports, etc.) Index: Circ2.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Circulation/Circ2.pm,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -r1.16 -r1.17 *** Circ2.pm 2001/05/02 21:15:22 1.16 --- Circ2.pm 2001/05/02 22:38:26 1.17 *************** *** 636,640 **** --- 636,647 ---- $data->{'dewey'}=~s/0*$//; ($data->{'dewey'} == 0) && ($data->{'dewey'}=''); + my @datearr = localtime(time()); + my $todaysdate = (1900+$datearr[5]).sprintf ("%0.2d", ($datearr[4] + +1)).sprintf ("%0.2d", $datearr[3]); my $datedue=$data->{'date_due'}; + $datedue=~s/-//g; + if ($datedue < $todaysdate) { + $data->{'overdue'}=1; + } my $itemnumber=$data->{'itemnumber'}; $currentissues{$counter}=$data;

1 0

CVS: koha-html/intranet-html/images create-man-credit.gif,NONE,1.1 create-man-invoice.gif,NONE,1.1
by Chris Cormack 03 May '01

03 May '01

Update of /cvsroot/koha/koha-html/intranet-html/images In directory usw-pr-cvs1:/tmp/cvs-serv13474/intranet-html/images Added Files: create-man-credit.gif create-man-invoice.gif Log Message: Images for the manual invoice and manual credit buttons, plus a little mod to the circulation include --- NEW FILE --- GIF89aÛ V(ÉbJZ¯ØìUªíz¿à°xL.± ÅI\8ž|N¯ÛïøŒ~Ïïûÿ Sn'¥Š§š©ª«¬±²³Žµ¶·ž¹º)¿ÀÁÂÃÄÅ)ÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÍ)ÆàáâãäÃ)èéêëìíîïðñòóôõö÷øùúë) þÿ aÀÀÎq6L Ñ£H8p²å€P£JjªU(&@p¢ÂÕ¯` ð*u§Ah {5£¡ÖV Ëi xóê%àÖ@^ö Lx¯Â ¢ 8Ä##~<8Ã(œ¡.HŒÞ€ðRÞ¬·×ÓšQsú4×cËÝÚíÛÈ.\š» Øž§ífvÜÞ2ÇÝYvñåS4Nœz(Õ©û®æÁ ÓœÏ¥ð »xßš¯I}z ßå³W*>wc«¿bö5OX×{äQwÞéQÿ| ,×@Aè_ŸIh]nqGwôiÈà º è±c 1àXVxžaÙPrìŽZ/® |^9çÜ9tšÝU tì?åeéžSÎ^ÐYîžFÙNð2hñEQ<^ 3¯»è»g5¿UÀýhX_zò¿ÿ~íÝ¶WQSUp©uÔŒe¹µFÑÏÀulQž¢8À(lÖ"@øo@ ]h¿<å(üÃÊ"E~Ä þ¢¬ýEðöa]ìò/;là)Ãâðéf@©¡®I)f¹!Ìßte7äÇ^&ÝÈFM*e²É0er(Òbv:8i,sà!EŠ³ÿ4$HÌžü£Sñò·âž¢7.ÉAøGôÈåJÃÀ?þØ¬@À x "ÖxÈ°ñ<ã!ÐÈJÑÒn@£ŠÚøÈMgº ºÔ2Ý)5ª zÊäšHMªR]8õ©PªT§JUªŠàXÍªV·ÊÕ®zÕ«F]ªXÇJÖ¥ŠàhM«Z×ÊÖ¶ºÕ)(\çJ×ºÚõ®xÍ«^÷Ê×Ÿúõ¯ ¬`KØºŠ@eM¬bK €`¬d'KÙÊZö²Í¬f7ËÙÎzö³ hG+Ù.ö4Mj÷ Ã¹-]a!ÛÚÚö¶žÍm^quðo pKÜâ÷žTP~æ:÷¹ÐîsàH÷º ØÍ®v¡Ë --- NEW FILE --- GIF89aÛ Z"ÊbJZ¯ØìUªíz¿à°xL.±HÄI`8ž|N¯ÛïøŒ~Ïïûÿ Sn'Š§š©ª«¬±²³Žµ¶·ž¹º²)ÀÁÂÃÄÅÆ)ËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÎ)ÇáâãäåÄ)éêëìíîïðñòóôõö÷øùúûì) ÿ Äà³šÑ£EC!]Ê iäX©€{AAD 4Y`dL A °¥ Z0å$IÚï¥i¥nL) `ð@I^ Šdé%|Ÿ¹äVþ§ p&i¢ °`/pàD»<Ê«¯ðè¢À)º[pÀ/ iÂ/Œ. -@c4µÙjŒ×X"w6@tsæŒy?bck«Ðög¬Õäöc»MAÝ<î÷ct¯Öødq³ÐÙXr=s0XÿY("f:bdbEènz\Ñd@/Vi«ßë/Yê¬g@üï¹EÀëd OÖ``ü[ñ%ýYÄÊº\:!E QAìŽO&<pMDñTëNå3Jbe8°XyZ ?O`a@üvòŸŠd~`b )ó3ØL&Ã Úð=¡XÐ S(D`EC5áÐj8$4€RIÀ^"²ÿ,*"baÆý# tdy$4(È:B¡u4I9HGc(¥£4ªlËq l¯Tq' QÜ |ÍâÀ>#°6^=ªPºÚr\a'dâz ÄÓöÜ¡:ÏîÿýÄ2®ñdã!ÆC¢12¥ÞL·1ªÔ¥1éJ«1SgôtëPJÔ¢ "»HªRÊÔŠ:õ©OMÁ'ŠJÕªZõªXÍjVjÔ®zõ«CMÁÆJÖ²õ¬hMkZSP¶ºõp«\çJ×ºÚõ®xÍ«^÷Ê×Ÿúõ¯pMÁÀJØÂ¶HÀØÆ:ö±¬d'KÙÊZö²Í¬f7ËÙÎz¶±QÉ(asØÒvÈÜ¬

3 5