From finlayt@users.sourceforge.net Wed May  1 17:06:32 2002
From: Finlay Thompson <finlayt@users.sourceforge.net>
To: koha-devel@lists.koha-community.org
Subject: [Koha-devel] CVS: koha/circ circulationold.pl,NONE,1.1
 returns.pl,NONE,1.1 branchtransfers.pl,1.3,1.4 circulation.pl,1.23,1.24
Date: Wed, 01 May 2002 17:18:08 +0000
Message-ID: <E17347C-0003yk-00@usw-pr-cvs1.sourceforge.net>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============4426775210285999015=="

--===============4426775210285999015==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable

Update of /cvsroot/koha/koha/circ
In directory usw-pr-cvs1:/tmp/cvs-serv14842

Modified Files:
	branchtransfers.pl circulation.pl=20
Added Files:
	circulationold.pl returns.pl=20
Log Message:

Changes to circulations:
added returns.pl  ->  deals with the returns only
moved old circulation.pl to circulationold.pl which still deals with issues.
fixed up branchtransfers.pl
moved circulation2.pl to circulation.pl

Note more changes coming next week


--- NEW FILE ---
#!/usr/bin/perl

use CGI qw/:standard/;
use C4::Circulation::Circ2;
use C4::Output;
use C4::Print;
use DBI;


my %env;
my $headerbackgroundcolor=3D'#99cc33';
my $circbackgroundcolor=3D'#ffffcc';
my $circbackgroundcolor=3D'white';
my $linecolor1=3D'#ffffcc';
my $linecolor2=3D'white';
my $backgroundimage=3D"/images/background-mem.gif";
my $query=3Dnew CGI;
my $branches=3Dgetbranches(\%env);
my $printers=3Dgetprinters(\%env);
my $branch=3D$query->param('branch');
my $printer=3D$query->param('printer');
#print $query->header;
($branch) || ($branch=3D$query->cookie('branch'));
($printer) || ($printer=3D$query->cookie('printer'));
my ($oldbranch, $oldprinter);
if ($query->param('selectnewbranchprinter')) {
    $oldbranch=3D$branch;
    $oldprinter=3D$printer;
    $branch=3D'';
    $printer=3D'';
}
$env{'branchcode'}=3D$branch;
$env{'printer'}=3D$printer;
$env{'queue'}=3D$printer;
my $branchcount=3D0;
my $printercount=3D0;
my $branchoptions;
my $printeroptions;
foreach (keys %$branches) {
    (next) unless ($_);
    (next) if (/^TR$/);
    $branchcount++;
    my $selected=3D'';
    ($selected=3D'selected') if ($_ eq $oldbranch);
    $branchoptions.=3D"<option value=3D$_ $selected>$branches->{$_}->{'branch=
name'}\n";
}
foreach (keys %$printers) {
    (next) unless ($_);
    $printercount++;
    my $selected=3D'';
    ($selected=3D'selected') if ($_ eq $oldprinter);
    $printeroptions.=3D"<option value=3D$_ $selected>$printers->{$_}->{'print=
ername'}\n";
}
if ($printercount=3D=3D1) {
    ($printer)=3Dkeys %$printers;
}
if ($branchcount=3D=3D1) {
    ($branch)=3Dkeys %$branches;
}


my $branchname=3D'';
my $printername=3D'';
if ($branch && $printer) {
    $branchname=3D$branches->{$branch}->{'branchname'};
    $printername=3D$printers->{$printer}->{'printername'};
}


my $branchcookie=3D$query->cookie(-name=3D>'branch', -value=3D>"$branch", -ex=
pires=3D>'+1y');
my $printercookie=3D$query->cookie(-name=3D>'printer', -value=3D>"$printer", =
-expires=3D>'+1y');

print $query->header(-type=3D>'text/html',-expires=3D>'now', -cookie=3D>[$bra=
nchcookie,$printercookie]);
#print $query->dump;
print startpage();
#print startmenu('circulation');
my @inp=3Dstartmenu('circulation');
if ($query->param('module') eq 'issues' && $query->param('barcode') eq '' && =
$query->param('charges') eq 'yes'){
 my $count=3D@inp;
 for (my $i=3D0;$i<$count;$i++){
  my $bornum=3D$query->param('borrnumber');
  $inp[$i]=3D~ s/onLoad=3Dfocusinput\(\)/onLoad=3Dfocusinput\(\)\;messenger\(=
\"\/cgi-bin\/koha\/pay.pl?bornum=3D$bornum\"\)\;window1.focus\(\)/;
 }
}
print @inp;

print <<EOF
<script language=3D"javascript" type=3D"text/javascript">
<!--
function messenger(url){
   window1=3Dwindow.open(url,"window1","height=3D700,width=3D600,left=3D150,t=
op=3D50,350,screenY=3D50");
}
//-->
</script>
EOF
;
if ($printer && $branch) {

    SWITCH: {
	if ($query->param('module') eq 'issues') { issues(); last SWITCH; }
	if ($query->param('module') eq 'returns') { returns(); last SWITCH; }
	issues();
    }
} else {
    my ($printerform, $branchform);
    if ($printercount>1) {
	$printerform=3D<<"EOF";

<table border=3D0 cellspacing=3D0 cellpadding=3D5>
<tr><th bgcolor=3D$headerbackgroundcolor background=3D$backgroundimage><font =
color=3Dblack>Choose a Printer</font></td></tr>
<tr><td>
<select name=3Dprinter>
$printeroptions
</select>
</td></tr>
</table>
EOF
    } else {
	my ($printer) =3D keys %$printers;
	$printerform=3D<<"EOF";
	<input type=3Dhidden name=3Dprinter value=3D$printer>
EOF
    }

    if ($branchcount>1) {
	$branchform=3D<<"EOF";
<table border=3D0 cellpadding=3D5 cellspacing=3D0>
<tr><th bgcolor=3D$headerbackgroundcolor background=3D$backgroundimage><font =
color=3Dblack>Choose a Branch</font></td></tr>
<tr><td>
<select name=3Dbranch>
$branchoptions
</select>
</td></tr>
</table>
EOF
    }
    print << "EOF";
    <center>
    Select a branch and a printer
    <form method=3Dget>
    <table border=3D0>
    <tr><td>
    $branchform
    </td><td>
    $printerform
    </td></tr>
    </table>
    <input type=3Dsubmit>
    </form>
EOF
}


print endmenu('circulation');
print endpage();

sub default {
print << "EOF";
<a href=3Dcirulationold.pl?module=3Dissues&branch=3D$branch&printer=3D$printe=
r>Issues</a>
<a href=3Dcirulationold.pl?module=3Dreturns&branch=3D$branch&printer=3D$print=
er>Returns</a>
EOF
}


sub decode {
    ($encoded) =3D @_;
    $seq =3D 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789+=
-';
    @s =3D map { index($seq,$_); } split(//,$encoded);
    $l =3D ($#s+1) % 4;
    if ($l)
    {
	if ($l =3D=3D 1)
	{
	    print "Error!";
	    return;
	}
	$l =3D 4-$l;
	$#s +=3D $l;
    }
    $r =3D '';
    while ($#s >=3D 0)
    {
	$n =3D (($s[0] << 6 | $s[1]) << 6 | $s[2]) << 6 | $s[3];
	$r .=3Dchr(($n >> 16) ^ 67) .
	     chr(($n >> 8 & 255) ^ 67) .
	     chr(($n & 255) ^ 67);
	@s =3D @s[4..$#s];
    }
    $r =3D substr($r,0,length($r)-$l);
    return $r;
}

sub returns {
    my %returneditems;
    print "<FONT SIZE=3D6><em>Circulation: Returns</em></FONT><br>";
    foreach ($query->param) {
	(next) unless (/ri-(\d*)/);
	my $counter=3D$1;
	(next) if ($counter>20);
	my $barcode=3D$query->param("ri-$counter");
      # I'm not POSITIVE this decode belongs here - can't tell what causes it=
 to run.
      # decode cuecat
      chomp($barcode);
      @fields =3D split(/\./,$barcode);
      @results =3D map(decode($_), @fields[1..$#fields]);
      if ($#results =3D=3D 2)
      {
  	$barcode=3D$results[2];
      }
      # end decode
	my $duedate=3D$query->param("dd-$counter");
	my $borrowernumber=3D$query->param("bn-$counter");
	$counter++;
	$returneditems{$counter}=3D$barcode;
	$riduedate{$counter}=3D$duedate;
	$riborrowernumber{$counter}=3D$borrowernumber;
	$ritext.=3D"<input type=3Dhidden name=3Dri-$counter value=3D$barcode>\n";
	$ritext.=3D"<input type=3Dhidden name=3Ddd-$counter value=3D$duedate>\n";
	$ritext.=3D"<input type=3Dhidden name=3Dbn-$counter value=3D$borrowernumber>=
\n";
    }
    if (my $barcode=3D$query->param('barcode')) {
      # decode cuecat
      chomp($barcode);
      @fields =3D split(/\./,$barcode);
      @results =3D map(decode($_), @fields[1..$#fields]);
      if ($#results =3D=3D 2)
      {
  	$barcode=3D$results[2];
      }
      # end decode
	$ritext.=3D"<input type=3Dhidden name=3Dri-0 value=3D$barcode>\n";
	$returneditems{0}=3D$barcode;
    }
=09
    my $barcodeentrytext=3D << "EOF";
    <form method=3Dpost action=3D/cgi-bin/koha/circ/cirulationold.pl>
    <table border=3D0 cellpadding=3D5 cellspacing=3D0 bgcolor=3D#dddddd>
	<tr><td colspan=3D2 bgcolor=3D$headerbackgroundcolor align=3Dcenter backgrou=
nd=3D$backgroundimage><font color=3Dblack><b>Enter Book Barcode</b></font></t=
d></tr>
	<tr><td>Item Barcode:</td><td><input name=3Dbarcode size=3D10></td></tr>
    </table>
    <input type=3Dhidden name=3Dmodule value=3Dreturns>
    <input type=3Dhidden name=3Dbranch value=3D$branch>
    <input type=3Dhidden name=3Dprinter value=3D$printer>
    $ritext
EOF
    if ((my $barcode=3D$query->param('barcode')) || (%returneditems)) {
      # decode cuecat
      chomp($barcode);
      @fields =3D split(/\./,$barcode);
      @results =3D map(decode($_), @fields[1..$#fields]);
      if ($#results =3D=3D 2)
      {
  	$barcode=3D$results[2];
      }
      # end decode
	my ($iteminformation, $borrower, $messages, $overduecharge) =3D returnbook(\=
%env, $barcode);
=09
	(my $nosuchitem=3D1) unless ($iteminformation);
	$riborrowernumber{0}=3D$borrower->{'borrowernumber'};
	$riduedate{0}=3D$iteminformation->{'date_due'};
	$barcodeentrytext.=3D "<input type=3Dhidden name=3Ddd-0 value=3D$iteminforma=
tion->{'date_due'}>\n";
	$barcodeentrytext.=3D "<input type=3Dhidden name=3Dbn-0 value=3D$borrower->{=
'borrowernumber'}>\n";
	my @datearr =3D localtime(time());
	my $todaysdate =3D (1900+$datearr[5]).'-'.sprintf ("%0.2d", ($datearr[4]+1))=
.'-'.
	  sprintf ("%0.2d", $datearr[3]);
	my $itemtable=3D<<"EOF";
<table border=3D0 cellpadding=3D5 cellspacing=3D0 bgcolor=3D#dddddd>
<tr><th bgcolor=3D$headerbackgroundcolor background=3D$backgroundimage><font =
color=3Dblack>Returned Item Information</font></th></tr>
<tr><td>
Title: $iteminformation->{'title'}<br>
<!--Hlt decided they dont want these showing, uncoment the html to make it wo=
rk

Author: $iteminformation->{'author'}<br>
Barcode: <a href=3D/cgi-bin/koha/detail.pl?bib=3D$iteminformation->{'biblionu=
mber'}&type=3Dintra onClick=3D"openWindow(this, 'Item', 480, 640)">$iteminfor=
mation->{'barcode'}</a><br>
Date Due: $iteminformation->{'date_due'}-->
</td></tr>
</table>
EOF
	if ($messages) {
	    my $messagetext=3D'';
	    foreach (@$messages) {
		$messagetext.=3D"$_<p>\n";
	    }
	    print << "EOF";
<table border=3D0 cellpadding=3D5 cellspacing=3D0 bgcolor=3D#dddddd>
<tr><th bgcolor=3D$headerbackgroundcolor $background=3D$backgroundimage><font=
 color=3Dblack>Messages</font></th></tr>
<tr><td>
$messagetext
</td></tr>
</table>
<p>
EOF
        }
	if (($nosuchitem) && ($barcode)) {
	    print << "EOF";
	    <table border=3D0 cellpadding=3D1>
	    <tr>
	    <td valign=3Dtop>
	    $barcodeentrytext
	    </td>
	    <td valign=3Dtop>
	    <table border=3D0 cellpadding=3D5 cellspacing=3D0 bgcolor=3D#dddddd>
	    <tr><th bgcolor=3D$headerbackgroundcolor background=3D$backgroundimage><=
font color=3Dblack>Error</font></th></tr>
	    <tr><td>
	    <table border=3D0 cellpadding=3D5>
	    <tr><td>
	    $barcode is not a valid barcode.
	    </td></tr>
	    </table>
	    </td></tr>
	    </table>
	    </td>
	    </tr>
	    </table>
EOF
	} elsif ($nosuchitem) {
	    print << "EOF";
	    <table border=3D0 cellpadding=3D1>
	    <tr>
	    <td valign=3Dtop>
	    $barcodeentrytext
	    </td>
	    </tr>
	    </table>
EOF
	} else {
	    if ($borrower->{'borrowernumber'}) {
		my ($patrontable, $flaginfotext) =3D patrontable($borrower);
		print << "EOF";
		<table border=3D0 cellpadding=3D5>
		    <tr>
			<td>
			$barcodeentrytext
			</td>
			<td align=3Dcenter valign=3Dtop>
			$itemtable
			</td>
		    </tr>
		    <tr>
			<td valign=3Dtop align=3Dcenter colspan=3D2>
			<table border=3D0>
			<tr><td valign=3Dtop>
			$patrontable
			</td>
			<td valign=3Dtop>
			$flaginfotext
			</td>
			</tr>
			</table>
			</td>
		    </tr>
		</table>
		<br>
EOF
	    } else {
		print << "EOF";
		<table border=3D0 cellpadding=3D5>
		<tr><td>
		$barcodeentrytext
		</td>
		<td>

		<table border=3D0 cellpadding=3D5 cellspacing=3D0 bgcolor=3D#dddddd>
		<tr><th bgcolor=3D$headerbackgroundcolor background=3D$backgroundimage><fon=
t color=3Dblack>Error</font></th></tr>
		<tr><td>
		<table border=3D0 cellpadding=3D5>
		<tr><td>
		$iteminformation->{'title'} by $iteminformation->{'author'} was not loaned =
out.
		</td></tr>
		</table>
		</td></tr>
		</table>
		</td>
		</tr>
		</table>
EOF
	    }
	}
	print << "EOF";
	<p>
	<table border=3D0 cellpadding=3D5 cellspacing=3D0 bgcolor=3D#dddddd>
	<tr><th colspan=3D6 bgcolor=3D$headerbackgroundcolor background=3D$backgroun=
dimage><font color=3Dblack>Returned Items</font></th></tr>
	<tr><th>Due Date</th><th>Bar Code</th><th>Title</th><th>Author</th><th>Type<=
/th><th>Borrower</th></tr>
EOF
	my $color=3D'';
	#set up so only the lat 8 returned items display (make for faster loading pa=
ges)
	my $count=3D0;
	foreach (sort {$a <=3D> $b} keys %returneditems) {
	  if ($count < 8){
	    ($color eq $linecolor1) ? ($color=3D$linecolor2) : ($color=3D$linecolor1=
);
	    my $barcode=3D$returneditems{$_};
	    my $duedate=3D$riduedate{$_};
	    my @datearr =3D localtime(time());
	    ###
	    # convert to nz date format
	    my @tempdate=3Dsplit(/-/,$duedate);
	    $duedate=3D"$tempdate[2]/$tempdate[1]/$tempdate[0]";
	    ####
	    my $todaysdate =3D (1900+$datearr[5]).'-'.sprintf ("%0.2d", ($datearr[4]=
+1)).'-'.sprintf ("%0.2d", $datearr[3]);
	    my $overduetext=3D"$duedate";
	    ($overduetext=3D"<font color=3Dred>$duedate</font>") if ($duedate lt $to=
daysdate);
	    ($duedate) || ($overduetext=3D"<img src=3D/koha/images/blackdot.gif>");
	    my $borrowernumber=3D$riborrowernumber{$_};
	    my ($borrower) =3D getpatroninformation(\%env,$borrowernumber,0);
	    my ($iteminformation) =3D getiteminformation(\%env, 0, $barcode);
	    print "<tr><td bgcolor=3D$color>$overduetext</td><td bgcolor=3D$color al=
ign=3Dcenter><a href=3D/cgi-bin/koha/detail.pl?bib=3D$iteminformation->{'bibl=
ionumber'}&type=3Dintra onClick=3D\"openWindow(this, 'Item', 480, 640)\">$bar=
code</a></td><td bgcolor=3D$color>$iteminformation->{'title'}</td><td bgcolor=
=3D$color>$iteminformation->{'author'}</td><td bgcolor=3D$color align=3Dcente=
r>$iteminformation->{'itemtype'}</td><td bgcolor=3D$color><img src=3D/koha/im=
ages/blackdot.gif><a href=3D/cgi-bin/koha/moremember.pl?bornum=3D$borrower->{=
'borrowernumber'} onClick=3D\"openWindow(this,'Member', 480, 640)\">$borrower=
->{'cardnumber'}</a> $borrower->{'firstname'} $borrower->{'surname'}</td></tr=
>\n";
	  } else {
	    last
	  }
	  $count++;
	}
	print "</table>\n";
    } else {
	print $barcodeentrytext;
    }
    print "</form>\n";
    print "</td></tr></table>\n";
}

sub issues {

    my ($noheader) =3D shift;
    my $print=3D$query->param('print');
    my $borrowernumber=3D$query->param('borrnumber');   =20
    my $barcode=3D$query->param('barcode');
    if ($barcode eq ''){
      $print=3D'yes';    =20
    } elsif ($barcode eq ' '){
      $query->param('barcode','');
      $barcode=3D'';
    }
    if ($print eq 'yes' && $borrowernumber ne ''){
      my ($borrower, $flags) =3D getpatroninformation(\%env,$borrowernumber,0=
);
      $env{'todaysissues'}=3D1;
      my ($borrowerissues) =3D currentissues(\%env, $borrower);
      $env{'nottodaysissues'}=3D1;
      $env{'todaysissues'}=3D0;
      my ($borroweriss2)=3Dcurrentissues(\%env, $borrower);
      $env{'nottodaysissues'}=3D0;
      my $i=3D0;
      my @issues;
      foreach (sort keys %$borrowerissues) {
        $issues[$i]=3D$borrowerissues->{$_};
	my $dd=3D$issues[$i]->{'date_due'};
	#convert to nz style dates
	#this should be set with some kinda config variable=09
	my @tempdate=3Dsplit(/-/,$dd);
	$issues[$i]->{'date_due'}=3D"$tempdate[2]/$tempdate[1]/$tempdate[0]";
	$i++;
      }
      foreach (sort keys %$borroweriss2) {
        $issues[$i]=3D$borroweriss2->{$_};
	my $dd=3D$issues[$i]->{'date_due'};
	#convert to nz style dates
	#this should be set with some kinda config variable=09
	my @tempdate=3Dsplit(/-/,$dd);
	$issues[$i]->{'date_due'}=3D"$tempdate[2]/$tempdate[1]/$tempdate[0]";
	$i++;
      }
      remoteprint(\%env,\@issues,$borrower);
      $query->param('borrnumber','')
    }
    unless ($noheader) {
      print <<EOF
      <p align=3Dright>
      <FONT SIZE=3D2  face=3D"arial, helvetica">
      <a href=3Dcirculationold.pl?borrnumber=3D$borrowernumber&module=3Dissue=
s&branch=3D$branch&printer=3D$printer&print>Next Borrower</a> ||
      <a href=3Dreturns.pl>Returns</a> ||
      <a href=3Dbranchtransfers.pl>Transfers</a></font><p>
       =20
	</p>
<FONT SIZE=3D6><em>Circulation: Issues</em></FONT><br>
EOF
    }
    if (my $borrnumber=3D$query->param('borrnumber')) {
	my ($borrower, $flags) =3D getpatroninformation(\%env,$borrnumber,0);
	my $year=3D$query->param('year');
	my $month=3D$query->param('month');
	my $day=3D$query->param('day');
	if (my $barcode=3D$query->param('barcode')) {
          # decode cuecat
          chomp($barcode);
          @fields =3D split(/\./,$barcode);
          @results =3D map(decode($_), @fields[1..$#fields]);
          if ($#results =3D=3D 2)
          {
      	    $barcode=3D$results[2];
          }
          # end decode
	    my $invalidduedate=3D0;
	    $env{'datedue'}=3D'';
	    if (($year eq 0) && ($month eq 0) && ($year eq 0)) {
		$env{'datedue'}=3D'';
	    } else {
		if (($year eq 0) || ($month eq 0) || ($year eq 0)) {
		    print "Invalid Due Date Specified. Book was not issued.<p>\n";
		    $invalidduedate=3D1;
		} else {
		    if (($day>30) && (($month=3D=3D4) || ($month=3D=3D6) || ($month=3D=3D9)=
 || ($month=3D=3D11))) {
			print "Invalid Due Date Specified. Book was not issued. Only 30 days in $m=
onth month.<p>\n";
			$invalidduedate=3D1;
		    } elsif (($day>29) && ($month=3D=3D2)) {
			print "Invalid Due Date Specified. Book was not issued.  Never that many d=
ays in February!<p>\n";
			$invalidduedate=3D1;
		    } elsif (($month=3D=3D2) && ($day>28) && (($year%4) && ((!($year%100) |=
| ($year%400))))) {
			print "Invalid Due Date Specified. Book was not issued.  $year is not a le=
ap year.<p>\n";
			$invalidduedate=3D1;
		    } else {
			$env{'datedue'}=3D"$year-$month-$day";
		    }
		}
	    }
	    my %responses;
	    foreach (sort $query->param) {
		if ($_ =3D~ /response-(\d*)/) {
		    $responses{$1}=3D$query->param($_);
		}
	    }
	    if (my $qnumber=3D$query->param('questionnumber')) {
		$responses{$qnumber}=3D$query->param('answer');
	    }
	    unless ($invalidduedate) {
	        my @time=3Dlocaltime(time);
		my $date=3D (1900+$time[5])."-".($time[4]+1)."-".$time[3];
		my ($iteminformation, $duedate, $rejected, $question, $questionnumber, $def=
aultanswer, $message) =3D issuebook(\%env, $borrower, $barcode, \%responses,$=
date);
		unless ($iteminformation) {
		    print << "EOF";
		    <table border=3D0 cellpadding=3D5 cellspacing=3D0 bgcolor=3D#dddddd>
		    <tr><th bgcolor=3D$headerbackgroundcolor background=3D$backgroundimage>=
<font color=3Dblack>Error</font></th></tr>
		    <tr><td>
		    <table border=3D0 cellpadding=3D5>
		    <tr><td>
		    $barcode is not a valid barcode.
		    </td></tr>
		    </table>
EOF
		}
		if ($rejected) {
		    if ($rejected =3D=3D -1) {
		    } else {
			print << "EOF"
			<table border=3D0 cellpadding=3D5 cellspacing=3D0 bgcolor=3D#dddddd>
			<tr><th><font color=3Dblack size=3D6>Error Issuing Book</font></th></tr>
			<tr><td><font color=3Dred size=3D6>$rejected</font></td></tr>
			</table>
			<br>
EOF
		    }
		}
		my $responsesform=3D'';
		foreach (keys %responses) {
		    $responsesform.=3D"<input type=3Dhidden name=3Dresponse-$_ value=3D$res=
ponses{$_}>\n";
		}
		if ($question) {
		    my $stickyduedate=3D$query->param('stickyduedate');
		    print << "EOF";
		    <table border=3D0 cellpadding=3D5 cellspacing=3D0 bgcolor=3D#dddddd>
		    <tr><th bgcolor=3D$headerbackgroundcolor background=3D$backgroundimage>=
<font color=3Dblack><b>Issuing Question</b></font></td></tr>
		    <tr><td>
		    <table border=3D0 cellpadding=3D10>
		    <tr><td>
		    Attempting to issue $iteminformation->{'title'} by $iteminformation->{'=
author'} to $borrower->{'firstname'} $borrower->{'surname'}.
		    <p>
		    $question
		    </td></tr>
		    </table>
		    </td></tr>

		    <tr><td align=3Dcenter>
		    <table border=3D0>
		    <tr><td>
		    <form method=3Dget>
		    <input type=3Dhidden name=3Dmodule value=3Dissues>
		    <input type=3Dhidden name=3Dborrnumber value=3D$borrnumber>
		    <input type=3Dhidden name=3Dbarcode value=3D$barcode>
		    <input type=3Dhidden name=3Dquestionnumber value=3D$questionnumber>
		    <input type=3Dhidden name=3Dday value=3D$day>
		    <input type=3Dhidden name=3Dmonth value=3D$month>
		    <input type=3Dhidden name=3Dyear value=3D$year>
		    <input type=3Dhidden name=3Dstickyduedate value=3D$stickyduedate>
		    <input type=3Dhidden name=3Dbranch value=3D$branch>
		    <input type=3Dhidden name=3Dprinter value=3D$printer>
		    $responsesform
		    <input type=3Dhidden name=3Danswer value=3DY>
		    <input type=3Dsubmit value=3DYes>
		    </form>
		    </td>
		    <td>
		    <form method=3Dget>
		    <input type=3Dhidden name=3Dmodule value=3Dissues>
		    <input type=3Dhidden name=3Dborrnumber value=3D$borrnumber>
		    <input type=3Dhidden name=3Dbarcode value=3D$barcode>
		    <input type=3Dhidden name=3Dquestionnumber value=3D$questionnumber>
		    <input type=3Dhidden name=3Dday value=3D$day>
		    <input type=3Dhidden name=3Dmonth value=3D$month>
		    <input type=3Dhidden name=3Dyear value=3D$year>
		    <input type=3Dhidden name=3Dstickyduedate value=3D$stickyduedate>
		    <input type=3Dhidden name=3Dbranch value=3D$branch>
		    <input type=3Dhidden name=3Dprinter value=3D$printer>
		    $responsesform
		    <input type=3Dhidden name=3Danswer value=3DN>
		    <input type=3Dsubmit value=3DNo>
		    </form>
		    </td>
		    </tr>
		    </table>
		    </td></tr>
		    </table>
		    </td></tr>
		    </table>
EOF
		    return;
		}
		if ($message) {
		    print << "EOF";
		    <table border=3D0 cellpadding=3D5 cellspacing=3D0 bgcolor=3D#dddddd>
		    <tr><th bgcolor=3D$headerbackgroundcolor background=3D$backgroundimage>=
<font color=3Dblack>Message</font></th></tr>
		    <tr><td>$message</td></tr>
		    </table>
		    <p>
EOF
		}
	    }
	}
	my $issueid=3D$query->param('issueid');
	($issueid) || ($issueid=3Dint(rand()*1000000000));
	my $flag=3D'';
	my $flagtext=3D'';
	my $flaginfotext=3D'';
	foreach $flag (sort keys %$flags) {
	    if ($flags->{$flag}->{'noissues'}) {
		$flagtext.=3D"<font color=3Dred>$flag</font> ";
	    } else {
		$flagtext.=3D"$flag ";
	    }
	    $flags->{$flag}->{'message'}=3D~s/\n/<br>/g;
	    if ($flags->{$flag}->{'noissues'}) {
		$flaginfotext.=3D"<tr><td bgcolor=3Dred valign=3Dtop><font color=3Dblack><b=
>$flag</b></font></td><td bgcolor=3Dred><font color=3Dblack><b>$flags->{$flag=
}->{'message'}</b></font></td></tr>\n";
	    } else {
		$flaginfotext.=3D"<tr><td valign=3Dtop>$flag</td><td>$flags->{$flag}->{'mes=
sage'}</td></tr>\n";
	    }
	}
	if ($flaginfotext) {
	    $flaginfotext=3D"<table border=3D0 cellpadding=3D5 cellspacing=3D0 bgcol=
or=3D#dddddd><tr><th bgcolor=3D$headerbackgroundcolor background=3D$backgroun=
dimage colspan=3D2><font color=3Dblack>Patron Flags</font></th></tr>$flaginfo=
text</table>\n";
	}
	$env{'nottodaysissues'}=3D1;
	my ($borrowerissues) =3D currentissues(\%env, $borrower);
	$env{'nottodaysissues'}=3D0;
	$env{'todaysissues'}=3D1;
	my ($today) =3D currentissues(\%env, $borrower);
	$env{'todaysissues'}=3D0;
	my $previssues=3D'';
	my @datearr =3D localtime(time());
	my $todaysdate =3D (1900+$datearr[5]).sprintf ("%0.2d", ($datearr[4]+1)).spr=
intf ("%0.2d", $datearr[3]);
	my $color=3D'';
	foreach (sort keys %$borrowerissues) {
	    ($color eq $linecolor1) ? ($color=3D$linecolor2) : ($color=3D$linecolor1=
);
	    my $bookissue=3D$borrowerissues->{$_};
	    my $bgcolor=3D'';
	    my $datedue=3D$bookissue->{'date_due'};
	    my $dd=3D$bookissue->{'date_due'};
	    #convert to nz style dates
	    #this should be set with some kinda config variable
	   =20
	    my @tempdate=3Dsplit(/-/,$dd);
	    $dd=3D"$tempdate[2]/$tempdate[1]/$tempdate[0]";
	   =20
	    #####
	    $datedue=3D~s/-//g;
	    if ($datedue < $todaysdate) {
		$dd=3D"<font color=3Dred>$dd</font>\n";
	    }
            $previssues.=3D"<tr><td bgcolor=3D$color align=3Dcenter>$dd</td><=
td bgcolor=3D$color align=3Dcenter><a href=3D/cgi-bin/koha/detail.pl?bib=3D$b=
ookissue->{'biblionumber'}&type=3Dintra onClick=3D\"openWindow(this, 'Item', =
480, 640)\">$bookissue->{'barcode'}</a></td><td bgcolor=3D$color>$bookissue->=
{'title'}</td><td bgcolor=3D$color>$bookissue->{'author'}</td><td bgcolor=3D$=
color align=3Dcenter>$bookissue->{'dewey'} $bookissue->{'subclass'}</td></tr>=
\n";
	}
	my $todaysissues=3D'';
	$color=3D'';
	foreach (sort keys %$today) {
	    ($color eq $linecolor1) ? ($color=3D$linecolor2) : ($color=3D$linecolor1=
);
	    my $bookissue=3D$today->{$_};
	    $todaysissues.=3D"<tr><td bgcolor=3D$color align=3Dcenter>$bookissue->{'=
date_due'}</td><td bgcolor=3D$color align=3Dcenter><a href=3D/cgi-bin/koha/de=
tail.pl?bib=3D$bookissue->{'biblionumber'}&type=3Dintra onClick=3D\"openWindo=
w(this, 'Item', 480, 640)\">$bookissue->{'barcode'}</a></td><td bgcolor=3D$co=
lor>$bookissue->{'title'}</td><td bgcolor=3D$color>$bookissue->{'author'}</td=
><td bgcolor=3D$color align=3Dcenter>$bookissue->{'dewey'} $bookissue->{'subc=
lass'}</td></tr>\n";
	}
	for ($i=3D1; $i<32; $i++) {
	    my $selected=3D'';
	    if (($query->param('stickyduedate')) && ($day=3D=3D$i)) {
		$selected=3D'selected';
	    }
	    $dayoptions.=3D"<option value=3D$i $selected>$i";
	}
	my $counter=3D1;
	foreach (('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oc=
t', 'Nov', 'Dec')) {
	    my $selected=3D'';
	    if (($query->param('stickyduedate')) && ($month=3D=3D$counter)) {
		$selected=3D'selected';
	    }
	    $monthoptions.=3D"<option value=3D$counter $selected>$_";
	    $counter++;
	}
	for ($i=3D$datearr[5]+1900; $i<$datearr[5]+1905; $i++) {
	    my $selected=3D'';
	    if (($query->param('stickyduedate')) && ($year=3D=3D$i)) {
		$selected=3D'selected';
	    }
	    $yearoptions.=3D"<option value=3D$i $selected>$i";
	}

	my $selected=3D'';
	($query->param('stickyduedate')) && ($selected=3D'checked');
	my ($borrower, $flags) =3D getpatroninformation(\%env,$borrnumber,0);
	my ($patrontable, $flaginfotable) =3D patrontable($borrower);
	print << "EOF";
	$patrontable
	$flaginfotable
	&nbsp; &nbsp;<br> <a href=3Dcirulationold.pl?selectnewbranchprinter=3D1><b>B=
ranch:</b></a> $branch,
	 <a href=3Dcirulationold.pl?selectnewbranchprinter=3D1><b>Printer:</b></a> $=
printer<P>
	 <p>
	<form method=3Dget>
    <table border=3D1 cellpadding=3D5>
    <tr>
	<td align=3Dcenter valign=3Dtop>
	    <table border=3D0 cellspacing=3D0 cellpadding=3D5>
	        <tr><th align=3Dcenter background=3D$backgroundimage><font color=3Db=
lack><b>Enter Book Barcode</b></font></th></tr>
		<tr><td align=3Dcenter>
		<table border=3D0>
		<tr><td>Item Barcode:</td><td><input name=3Dbarcode size=3D10></td><td><inp=
ut type=3Dsubmit value=3DIssue></tr>
		<tr><td colspan=3D3 align=3Dcenter>
		<table border=3D0 cellpadding=3D0 cellspacing=3D0>
		<tr><td>
		<select name=3Dday><option value=3D0>Day$dayoptions</select>
		</td><td>
		<select name=3Dmonth><option value=3D0>Month$monthoptions</select>
		</td><td>
		<select name=3Dyear><option value=3D0>Year$yearoptions</select>
		</td></tr>
		</table>
		<input type=3Dcheckbox name=3Dstickyduedate $selected> Sticky Due Date
		</td></tr>
	      </table>
       	<input type=3Dhidden name=3Dmodule value=3Dissues>
	<input type=3Dhidden name=3Dborrnumber value=3D$borrnumber>
	<input type=3Dhidden name=3Dbranch value=3D$branch>
	<input type=3Dhidden name=3Dprinter value=3D$printer>
=09
EOF
;

  if ($flags->{'CHARGES'}){
            print "<input type=3Dhidden name=3Dcharges value=3Dyes>";
  }
    my $amountold=3D$flags->{'CHARGES'}->{'message'};
  my @temp=3Dsplit(/\$/,$amountold);
  $amountold=3D$temp[1];
  print "<input type=3Dhidden name=3Doldamount value=3D$amountold>";
print <<EOF
</form>
	</td>


    </tr>
    </table>
    </table>
   =20
    <p clear=3Dall>
<!-- issues tables-->
	<table border=3D1 cellpadding=3D5 cellspacing=3D0 width=3D90%>
	<td colspan=3D2 align=3Dcenter>
	<table border=3D0 cellpadding=3D5 cellspacing=3D0 width=3D100% >=20
	    <tr><th colspan=3D5 bgcolor=3D$headerbackgroundcolor background=3D$backg=
roundimage><font color=3Dblack><b>Issues Today</b></font></th></tr>
	    <tr><th>Due Date</th><th>Bar Code</th><th>Title</th><th>Author</th><th>C=
lass</th></tr>
	    $todaysissues
	</table>
	</td>
    </tr>

    <tr>
	<td colspan=3D2 align=3Dcenter>
	<table border=3D0 cellpadding=3D5 cellspacing=3D0 width=3D100%>
	    <tr><th colspan=3D5 bgcolor=3D$headerbackgroundcolor background=3D$backg=
roundimage><font color=3Dblack><b>Previous Issues</b></font></th></tr>
	    <tr><th>Due Date</th><th>Bar Code</th><th>Title</th><th>Author</th><th>C=
lass</th></tr>
	    $previssues
	</table>
	</td>
    </tr>
</table>
</td></tr></table>
<p>
EOF
    } else {
	if (my $findborrower=3D$query->param('findborrower')) {
	    my ($borrowers, $flags) =3D findborrower(\%env, $findborrower);
	    my @borrowers=3D@$borrowers;
	    if ($#borrowers =3D=3D -1) {
		$query->param('findborrower', '');
		print "No borrower matched '$findborrower'<p>\n";
		issues(1);
		return;
	    }
	    if ($#borrowers =3D=3D 0) {
		$query->param('borrnumber', $borrowers[0]->{'borrowernumber'});
		$query->param('barcode',' ');
		issues(1);
		return;
	    } else {
		print "<form method=3Dget>\n";
		print "<input type=3Dhidden name=3Dmodule value=3Dissues>\n";
		print "<input type=3Dhidden name=3Dbranch value=3D$branch>\n";
		print "<input type=3Dhidden name=3Dprinter value=3D$printer>\n";
		print "<input type=3Dhidden name=3Dbarcode value=3D\" \">\n";
		print "<table border=3D0 cellspacing=3D0 cellpadding=3D5 bgcolor=3D#dddddd>=
";
		print "<tr><th bgcolor=3D$headerbackgroundcolor background=3D$backgroundima=
ge><font color=3Dblack><b>Select a borrower</b></font></th></tr>\n";
		print "<tr><td align=3Dcenter>\n";
		print "<select name=3Dborrnumber size=3D7>\n";
		foreach (sort {$a->{'surname'}.$a->{'firstname'} cmp $b->{'surname'}.$b->{'=
firstname'}} @$borrowers) {
		    print "<option value=3D$_->{'borrowernumber'}>$_->{'surname'}, $_->{'fi=
rstname'} ($_->{'cardnumber'})\n";
		}
		print "</select><br>";
		print "<input type=3Dsubmit>\n";
		print "</td></tr></table>\n";
		print "</td></tr></table>\n";
	    }
	} else {
	    print << "EOF";
<form method=3Dget>
<table border=3D0 cellpadding=3D5 cellspacing=3D0 bgcolor=3D#dddddd>
<tr><th bgcolor=3D$headerbackgroundcolor background=3D$backgroundimage><font =
color=3Dblack><b>Enter borrower card number<br> or partial last name</b></fon=
t></td></tr>
<tr><td><input name=3Dfindborrower></td></tr>
</table>
<input type=3Dhidden name=3Dmodule value=3Dissues>
<input type=3Dhidden name=3Dbranch value=3D$branch>
<input type=3Dhidden name=3Dprinter value=3D$printer>
<input type=3Dhidden name=3Dbarcode value=3D" ">
</form>
</td></tr></table>
EOF
	}
    }
}


sub patrontable {
    my ($borrower) =3D @_;
    my $flags=3D$borrower->{'flags'};
    my $flagtext=3D'';
    my $flaginfotable=3D'';
    my $flaginfotext=3D'';
    my $flag;
    foreach $flag (sort keys %$flags) {
	($color eq $linecolor1) ? ($color=3D$linecolor2) : ($color=3D$linecolor1);
	if ($flags->{$flag}->{'noissues'}) {
	    $flagtext.=3D"<font color=3Dred>$flag</font> ";
	} else {
	    $flagtext.=3D"$flag ";
	}
	$flags->{$flag}->{'message'}=3D~s/\n/<br>/g;
	if ($flags->{$flag}->{'noissues'}) {
	    if ($flag eq 'CHARGES') {
		$flaginfotext.=3D"<tr><td valign=3Dtop><font color=3Dred>$flag</font></td><=
td bgcolor=3D$color><b>$flags->{$flag}->{'message'}</b> <a href=3D/cgi-bin/ko=
ha/pay.pl?bornum=3D$borrower->{'borrowernumber'} onClick=3D\"openWindow(this,=
 'Payment', 480,640)\">Payment</a></td></tr>\n";
	    } else {
		$flaginfotext.=3D"<tr><td valign=3Dtop><font color=3Dred>$flag</font></td><=
td bgcolor=3D$color>$flags->{$flag}->{'message'}</td></tr>\n";
	    }
	} else {
	    if ($flag eq 'CHARGES') {
		$flaginfotext.=3D"<tr><td valign=3Dtop>$flag</td><td> $flags->{$flag}->{'me=
ssage'} <a href=3D/cgi-bin/koha/pay.pl?bornum=3D$borrower->{'borrowernumber'}=
 onClick=3D\"openWindow(this, 'Payment', 480,640)\">Payment</a></td></tr>\n";
	    } elsif ($flag eq 'WAITING') {
		my $itemswaiting=3D'';
		my $items=3D$flags->{$flag}->{'itemlist'};
		foreach $item (@$items) {
		    my ($iteminformation) =3D getiteminformation($env, $item->{'itemnumber'=
}, 0);
		    $itemswaiting.=3D"<a href=3D/cgi-bin/koha/detail.pl?bib=3D$iteminformat=
ion->{'biblionumber'}&type=3Dintra onClick=3D\"openWindow(this, 'Item', 480, =
640)\">$iteminformation->{'barcode'}</a> $iteminformation->{'title'} ($branch=
es->{$iteminformation->{'holdingbranch'}}->{'branchname'})<br>\n";
		}
		$flaginfotext.=3D"<tr><td valign=3Dtop>$flag</td><td>$itemswaiting</td></tr=
>\n";
	    } elsif ($flag eq 'ODUES') {
		my $items=3D$flags->{$flag}->{'itemlist'};
		my $itemswaiting=3D"<table border=3D0 cellspacing=3D0 cellpadding=3D2>\n";
		my $currentcolor=3D$color;
		{
		    my $color=3D$currentcolor;
		    foreach $item (@$items) {
			($color eq $linecolor1) ? ($color=3D$linecolor2) : ($color=3D$linecolor1);
			my ($iteminformation) =3D getiteminformation($env, $item->{'itemnumber'}, =
0);
			$itemswaiting.=3D"<tr><td><font color=3Dred>$iteminformation->{'date_due'}=
</font></td><td bgcolor=3D$color><a href=3D/cgi-bin/koha/detail.pl?bib=3D$ite=
minformation->{'biblionumber'}&type=3Dintra onClick=3D\"openWindow(this, 'Ite=
m', 480, 640)\">$iteminformation->{'barcode'}</a></td><td>$iteminformation->{=
'title'}</td></tr>\n";
		    }		   =20
		}
		$itemswaiting.=3D"</table>\n";
		if ($query->param('module') ne 'returns'){
  		  $flaginfotext.=3D"<tr><td valign=3Dtop>$flag</td><td>$flags->{$flag}->{=
'message'}, See below</td></tr>\n";
		} else {
  		  $flaginfotext.=3D"<tr><td valign=3Dtop>$flag</td><td>$flags->{$flag}->{=
'message'}</td></tr>\n";=20
		}
	    } else {
		$flaginfotext.=3D"<tr><td valign=3Dtop>$flag</td><td>$flags->{$flag}->{'mes=
sage'}</td></tr>\n";
	    }
	}
    }
    ($flaginfotext) && ($flaginfotext=3D"<tr><td bgcolor=3D$headerbackgroundc=
olor background=3D$backgroundimage colspan=3D2><b>Flags</b></td></tr>$flaginf=
otext\n");
    $flaginfotext.=3D"</table>";
    my $patrontable=3D << "EOF";
    <table border=3D1
    cellpadding=3D5 cellspacing=3D0 align=3Dright>
    <tr><td bgcolor=3D$headerbackgroundcolor background=3D$backgroundimage co=
lspan=3D2><font color=3Dblack><b>Patron Information</b></font></td></tr>
    <tr><td colspan=3D2>
    <a href=3D/cgi-bin/koha/moremember.pl?bornum=3D$borrower->{'borrowernumbe=
r'} onClick=3D"openWindow(this,'Member', 480, 640)">$borrower->{'cardnumber'}=
</a> $borrower->{'surname'}, $borrower->{'title'} $borrower->{'firstname'}<br>
EOF
    if ($query->param('module') ne 'returns'){=20
       $patrontable.=3D"$borrower->{'streetaddress'} $borrower->{'city'} Cat:
       $borrower->{'categorycode'} ";
     }
    $patrontable.=3D<< "EOF";
   =20
    </td></tr>

EOF
    return($patrontable, $flaginfotext);
}

--- NEW FILE ---
#!/usr/bin/perl

#written 11/3/2002 by Finlay
#script to execute returns of books

use strict;
use CGI;
use C4::Circulation::Circ2;
use C4::Search;
use C4::Output;


my %env;
my $headerbackgroundcolor=3D'#99cc33';
my $circbackgroundcolor=3D'#ffffcc';
my $circbackgroundcolor=3D'white';
my $linecolor1=3D'#ffffcc';
my $linecolor2=3D'white';
my $backgroundimage=3D"/images/background-mem.gif";

my $query=3Dnew CGI;
my $branches =3D getbranches();

my $branch =3D $query->param("branch");
my $printer =3D $query->param("printer");

($branch) || ($branch=3D$query->cookie('branch')) ;
($printer) || ($printer=3D$query->cookie('printer')) ;

#
# Some code to handle the error if there is no branch or printer setting.....
#

$env{'branchcode'}=3D$branch;
$env{'printer'}=3D$printer;
$env{'queue'}=3D$printer;

# Set up the item stack ....
my $ritext =3D '';
my %returneditems;
my %riduedate;
my %riborrowernumber;
foreach ($query->param) {
    (next) unless (/ri-(\d*)/);
    my $counter=3D$1;
    (next) if ($counter>20);
    my $barcode=3D$query->param("ri-$counter");
    my $duedate=3D$query->param("dd-$counter");
    my $borrowernumber=3D$query->param("bn-$counter");
    $counter++;
    # decode cuecat
    $barcode =3D cuecatbarcodedecode($barcode);
    $returneditems{$counter}=3D$barcode;
    $riduedate{$counter}=3D$duedate;
    $riborrowernumber{$counter}=3D$borrowernumber;
    $ritext.=3D"<input type=3Dhidden name=3Dri-$counter value=3D$barcode>\n";
    $ritext.=3D"<input type=3Dhidden name=3Ddd-$counter value=3D$duedate>\n";
    $ritext.=3D"<input type=3Dhidden name=3Dbn-$counter value=3D$borrowernumb=
er>\n";
}

my $iteminformation;
my $borrower;
my $returned =3D 0;
my $messages;
# actually return book (SQL CALL) and prepare item table.....
if (my $barcode =3D $query->param('barcode')) {
    # decode cuecat
    $barcode =3D cuecatbarcodedecode($barcode);
    ($returned, $messages, $iteminformation, $borrower) =3D returnbook2(\%env=
, $barcode);
    if ($returned) {
	$returneditems{0} =3D $barcode;
	$riborrowernumber{0} =3D $borrower->{'borrowernumber'};
	$riduedate{0} =3D $iteminformation->{'date_due'};
	$ritext.=3D "<input type=3Dhidden name=3Dri-0 value=3D$barcode>\n";
	$ritext.=3D "<input type=3Dhidden name=3Ddd-0 value=3D$iteminformation->{'da=
te_due'}>\n";
	$ritext.=3D "<input type=3Dhidden name=3Dbn-0 value=3D$borrower->{'borrowern=
umber'}>\n";
    }
}

#############################################################################=
#####
# HTML code....
# title....
my $title =3D <<"EOF";
<p align=3Dright>
<FONT SIZE=3D2  face=3D"arial, helvetica">
<a href=3Dcirculationold.pl?module=3Dissues&branch=3D$branch&printer=3D$print=
er&print>Next Borrower</a> ||
<a href=3Dreturns.pl>Returns</a> ||
<a href=3Dbranchtransfers.pl>Transfers</a></font></p>
<FONT SIZE=3D6><em>Circulation: Returns</em></FONT>

EOF

my $itemtable;
if ($iteminformation) {
    $itemtable =3D <<"EOF";
<table border=3D1 cellpadding=3D5 cellspacing=3D0>
<tr><th bgcolor=3D$headerbackgroundcolor background=3D$backgroundimage>
<font color=3Dblack>Returned Item Information</font></th></tr>
<tr><td>
Title: $iteminformation->{'title'}<br>
<!--Hlt decided they dont want these showing, uncoment the html to make it wo=
rk

Author: $iteminformation->{'author'}<br>
Barcode: <a href=3D/cgi-bin/koha/detail.pl?bib=3D$iteminformation->{'biblionu=
mber'}
&type=3Dintra onClick=3D"openWindow(this, 'Item', 480, 640)">$iteminformation=
->{'barcode'}</a><br>
Date Due: $iteminformation->{'date_due'}-->
</td></tr>
</table>
<p>
EOF
}

# Barcode entry box, with hidden inputs attached....
my $barcodeentrytext=3D << "EOF";
<form method=3Dpost action=3D/cgi-bin/koha/circ/returns.pl>
<table border=3D1 cellpadding=3D5 cellspacing=3D0 align=3Dleft>
<tr><td colspan=3D2 bgcolor=3D$headerbackgroundcolor align=3Dcenter backgroun=
d=3D$backgroundimage>
<font color=3Dblack><b>Enter Book Barcode</b></font></td></tr>
<tr><td>Item Barcode:</td><td><input name=3Dbarcode size=3D10></td></tr>
</table>
<input type=3Dhidden name=3Dbranch value=3D$branch>
<input type=3Dhidden name=3Dprinter value=3D$printer>
$ritext
</form>
EOF

# collect the messages and put into message table....
my $messagetable;
if ($messages) {
    my $messagetext=3D'';
    foreach (@$messages) {
	$messagetext .=3D "$_<br>";
    }
    $messagetext =3D substr($messagetext, 0, -4);
    if ($messagetext) {
	$messagetable =3D << "EOF";
<table border=3D1 cellpadding=3D5 cellspacing=3D0>
<tr><th bgcolor=3D$headerbackgroundcolor background=3D$backgroundimage><font =
color=3Dblack>Messages</font></th></tr>
<tr><td>
$messagetext
</td></tr>
</table>
<p>
EOF
    }
}

# patrontable ....
my $borrowertable;
if ($borrower) {
    my $patrontable =3D << "EOF";
<table border=3D1 cellpadding=3D5 cellspacing=3D0 align=3Dright>
<tr><td colspan=3D2 bgcolor=3D$headerbackgroundcolor background=3D$background=
image>
<font color=3Dblack><b>Patron Information</b></font></td></tr>
<tr><td colspan=3D2>
<a href=3D/cgi-bin/koha/moremember.pl?bornum=3D$borrower->{'borrowernumber'} =

onClick=3D"openWindow(this,'Member', 480, 640)">$borrower->{'cardnumber'}</a>
$borrower->{'surname'}, $borrower->{'title'} $borrower->{'firstname'}<br>
</td></tr></table>
EOF
    my $flags =3D $borrower->{'flags'};
    my $flaginfotext=3D'';
    my $flag;
    my $color =3D '';
    foreach $flag (sort keys %$flags) {
	($color eq $linecolor1) ? ($color=3D$linecolor2) : ($color=3D$linecolor1);
	$flags->{$flag}->{'message'}=3D~s/\n/<br>/g;
	if ($flags->{$flag}->{'noissues'}) {
	    if ($flag eq 'CHARGES') {
		$flaginfotext.=3D <<"EOF";
<tr><td valign=3Dtop><font color=3Dred>$flag</font></td>
<td bgcolor=3D$color><b>$flags->{$flag}->{'message'}</b>=20
<a href=3D/cgi-bin/koha/pay.pl?bornum=3D$borrower->{'borrowernumber'}=20
onClick=3D\"openWindow(this, 'Payment', 480,640)\">Payment</a></td></tr>
EOF
	    } else {
		$flaginfotext.=3D <<"EOF";
<tr><td valign=3Dtop><font color=3Dred>$flag</font></td>
<td bgcolor=3D$color>$flags->{$flag}->{'message'}</td></tr>
EOF
	    }
	} else {
	    if ($flag eq 'CHARGES') {
		$flaginfotext .=3D << "EOF";
<tr><td valign=3Dtop>$flag</td>
<td> $flags->{$flag}->{'message'} <a href=3D/cgi-bin/koha/pay.pl?bornum=3D$bo=
rrower->{'borrowernumber'}=20
onClick=3D\"openWindow(this, 'Payment', 480,640)\">Payment</a></td></tr>
EOF
	    } elsif ($flag eq 'WAITING') {
		my $itemswaiting=3D'';
		my $items =3D $flags->{$flag}->{'itemlist'};
		foreach my $item (@$items) {
		    my ($iteminformation) =3D getiteminformation(\%env, $item->{'itemnumber=
'}, 0);
		    $itemswaiting .=3D <<"EOF";
<a href=3D/cgi-bin/koha/detail.pl?bib=3D$iteminformation->{'biblionumber'}&ty=
pe=3Dintra=20
onClick=3D\"openWindow(this, 'Item', 480, 640)\">$iteminformation->{'barcode'=
}</a>=20
$iteminformation->{'title'} ($branches->{$iteminformation->{'holdingbranch'}}=
->{'branchname'})<br>
EOF
		}
		$flaginfotext.=3D"<tr><td valign=3Dtop>$flag</td><td>$itemswaiting</td></tr=
>\n";
	    } elsif ($flag eq 'ODUES') {
		my $items =3D $flags->{$flag}->{'itemlist'};
		$flaginfotext .=3D  <<"EOF";
<tr><td bgcolor=3D$color><font color=3Dred>$flag</font></td>
<td bgcolor=3D$color>Patron has Overdue books</td></tr>
EOF
	    } else {
		$flaginfotext .=3D "<tr><td valign=3Dtop>$flag</td><td>$flags->{$flag}->{'m=
essage'}</td></tr>\n";
	    }
	}
    }
    if ($flaginfotext) {
	$flaginfotext =3D << "EOF";
<table border=3D1 cellpadding=3D5 cellspacing=3D0> <tr><td bgcolor=3D$headerb=
ackgroundcolor background=3D$backgroundimage colspan=3D2><b>Flags</b></td></t=
r>
$flaginfotext=20
</table>
EOF
    }
    $borrowertable =3D << "EOF";
<table border=3D0 cellpadding=3D5>
<tr>
<td valign=3Dtop>$patrontable</td>
<td valign=3Dtop>$flaginfotext</td>
</tr>
</table>
EOF
}

# the returned items.....
my $returneditemstable =3D << "EOF";
<br><p>
<table border=3D1 cellpadding=3D5 cellspacing=3D0 align=3Dleft>
<tr><th colspan=3D6 bgcolor=3D$headerbackgroundcolor background=3D$background=
image>
<font color=3Dblack>Returned Items</font></th></tr>
<tr><th>Due Date</th><th>Bar Code</th><th>Title</th><th>Author</th><th>Type</=
th><th>Borrower</th></tr>
EOF

my $color=3D'';
#set up so only the lat 8 returned items display (make for faster loading pag=
es)
my $count=3D0;
foreach (sort {$a <=3D> $b} keys %returneditems) {
    if ($count < 8) {
	($color eq $linecolor1) ? ($color=3D$linecolor2) : ($color=3D$linecolor1);
	my $barcode =3D $returneditems{$_};
	my $duedate =3D $riduedate{$_};
	my @datearr =3D localtime(time());
	###
	# convert to nz date format
	my @tempdate =3D split(/-/,$duedate);
	$duedate =3D "$tempdate[2]/$tempdate[1]/$tempdate[0]";
	####
	my $todaysdate=20
	    =3D (1900+$datearr[5]).'-'.sprintf ("%0.2d", ($datearr[4]+1)).'-'.sprint=
f ("%0.2d", $datearr[3]);
	my $overduetext =3D "$duedate";
	($overduetext=3D"<font color=3Dred>$duedate</font>") if ($duedate lt $todays=
date);
	($duedate) || ($overduetext =3D "<img src=3D/images/blackdot.gif>");
	my $borrowernumber =3D $riborrowernumber{$_};
	my ($borrower) =3D getpatroninformation(\%env,$borrowernumber,0);
	my ($iteminformation) =3D getiteminformation(\%env, 0, $barcode);;
	$returneditemstable .=3D << "EOF";
<tr><td bgcolor=3D$color>$overduetext</td>
<td bgcolor=3D$color align=3Dcenter>
<a href=3D/cgi-bin/koha/detail.pl?bib=3D$iteminformation->{'biblionumber'}&ty=
pe=3Dintra onClick=3D\"openWindow(this, 'Item', 480, 640)\">$barcode</a></td>
<td bgcolor=3D$color>$iteminformation->{'title'}</td>
<td bgcolor=3D$color>$iteminformation->{'author'}</td>
<td bgcolor=3D$color align=3Dcenter>$iteminformation->{'itemtype'}</td>
<td bgcolor=3D$color>
<a href=3D/cgi-bin/koha/moremember.pl?bornum=3D$borrower->{'borrowernumber'} =
onClick=3D\"openWindow(this,'Member', 480, 640)\">$borrower->{'cardnumber'}</=
a> $borrower->{'firstname'} $borrower->{'surname'}</td></tr>
EOF
    } else {
	last;
    }
    $count++;
}
$returneditemstable .=3D "</table>\n";


# actually print the page!


print $query->header();
print startpage();
print startmenu('circulation');

print $title;

# my $flags =3D $borrower->{'flags'};
# foreach my $key (keys %$flags) {
#     print "$key : $flags->{$key} <br> ";
# }

print $barcodeentrytext;

print $messagetable;

if ($returned) {
    print $itemtable;
    print $borrowertable;
}
(print $returneditemstable) if (%returneditems);=20

print endmenu('circulation');
print endpage();

sub cuecatbarcodedecode {
    my ($barcode) =3D @_;
    chomp($barcode);
    my @fields =3D split(/\./,$barcode);
    my @results =3D map(decode($_), @fields[1..$#fields]);
    if ($#results =3D=3D 2){
  	return $results[2];
    } else {
	return $barcode;
    }=20
}=20


Index: branchtransfers.pl
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /cvsroot/koha/koha/circ/branchtransfers.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** branchtransfers.pl	14 Mar 2002 01:51:16 -0000	1.3
--- branchtransfers.pl	2 May 2002 00:06:28 -0000	1.4
***************
*** 7,13 ****
  use CGI;
  use C4::Circulation::Circ2;
- use C4::Search;
  use C4::Output;
 =20
 =20
  my %env;
--- 7,14 ----
  use CGI;
  use C4::Circulation::Circ2;
  use C4::Output;
 =20
+ ###############################################
+ # constants
 =20
  my %env;
***************
*** 19,42 ****
  my $backgroundimage=3D"/images/background-mem.gif";
 =20
  my $query=3Dnew CGI;
- my $branches=3Dgetbranches(\%env);
 =20
  my $tobranchcd=3D$query->param('tobranchcd');
  my $frbranchcd=3D'';
 =20
- $env{'tobranchcd'}=3D$tobranchcd;
-=20
 =20
  my $tobranchoptions;
! foreach (keys %$branches) {
!         (next) unless ($_);
!         (next) if (/^TR$/);
!         my $selected=3D'';
!         ($selected=3D'selected') if ($_ eq $tobranchcd);
!         $tobranchoptions.=3D"<option value=3D$_ $selected>$branches->{$_}->=
{'branchname'}\n";
  }
 =20
  # collect the stack of books already transfered so they can printed...
- my @messages;
  my %transfereditems;
  my $ritext =3D '';
--- 20,44 ----
  my $backgroundimage=3D"/images/background-mem.gif";
 =20
+ my $branches=3Dgetbranches();
+=20
+ ###############################################
+ #  Getting state
+=20
  my $query=3Dnew CGI;
 =20
  my $tobranchcd=3D$query->param('tobranchcd');
  my $frbranchcd=3D'';
 =20
 =20
+ # set up the branchselect options....
  my $tobranchoptions;
! foreach my $br (keys %$branches) {
!     (next) if $branches->{$br}->{'PE'};
!     my $selected=3D'';
!     ($selected=3D'selected') if ($br eq $tobranchcd);
!     $tobranchoptions.=3D"<option value=3D$br $selected>$branches->{$br}->{'=
branchname'}\n";
  }
 =20
  # collect the stack of books already transfered so they can printed...
  my %transfereditems;
  my $ritext =3D '';
***************
*** 58,94 ****
      }
 =20
  #if the barcode has been entered action that and write a message and onto t=
he top of the stack...
  my $iteminformation;
-=20
- my $todaysdate;
  if (my $barcode=3D$query->param('barcode')) {
!     my $iteminformation =3D getiteminformation(\%env,0, $barcode);
!     my $fail=3D0;
!     if (not $iteminformation) {
! 	$fail=3D1;
! 	@messages =3D ("There is no book with barcode: $barcode ", @messages);
      }
!     $frbranchcd =3D $iteminformation->{'holdingbranch'};
!     %env->{'frbranchcd'} =3D $frbranchcd;
!     if ($frbranchcd eq $tobranchcd) {
! 	$fail=3D1;
! 	@messages =3D ("You can't transfer the book to the branch it is already at=
!", @messages);
!     }
! # should add some more tests ... like is the book already out, maybe it can=
t be moved....
!     if (not $fail) {
! 	my ($transfered, $message) =3D transferbook(\%env, $iteminformation, $barc=
ode);
! 	if (not $transfered) {@messages =3D ($message, @messages);}
! 	else {
! 	    $ritext.=3D"<input type=3Dhidden name=3Dbc-0 value=3D$barcode>\n";
! 	    $ritext.=3D"<input type=3Dhidden name=3Dfb-0 value=3D$frbranchcd>\n";
! 	    $ritext.=3D"<input type=3Dhidden name=3Dtb-0 value=3D$tobranchcd>\n";
! 	    $transfereditems{0}=3D$barcode;
! 	    $frbranchcds{0}=3D$frbranchcd;
! 	    $tobranchcds{0}=3D$tobranchcd;
! 	    @messages =3D ("Book: $barcode has been transfered", @messages);
! 	}
      }
  }
 =20
  my $entrytext=3D << "EOF";
  <form method=3Dpost action=3D/cgi-bin/koha/circ/branchtransfers.pl>
--- 60,89 ----
      }
 =20
+ # Warnings etc that get displayed at top of next page....
+ my @messages;
+=20
  #if the barcode has been entered action that and write a message and onto t=
he top of the stack...
  my $iteminformation;
  if (my $barcode=3D$query->param('barcode')) {
!     my $iteminformation =3D getiteminformation(\%env,0 ,$barcode);
!     my ($transfered, $message, $iteminformation) =3D transferbook($tobranch=
cd, $barcode);
!     if (not $transfered) {
! 	push(@messages, $message);
      }
!     else {
! 	my $frbranchcd =3D $iteminformation->{'holdingbranch'};
! 	$ritext.=3D"<input type=3Dhidden name=3Dbc-0 value=3D$barcode>\n";
! 	$ritext.=3D"<input type=3Dhidden name=3Dfb-0 value=3D$frbranchcd>\n";
! 	$ritext.=3D"<input type=3Dhidden name=3Dtb-0 value=3D$tobranchcd>\n";
! 	$transfereditems{0}=3D$barcode;
! 	$frbranchcds{0}=3D$frbranchcd;
! 	$tobranchcds{0}=3D$tobranchcd;
! 	push(@messages, "Book: $barcode has been transfered");
      }
  }
 =20
+ ###########################################################################=
######
+ # Html code....
+=20
  my $entrytext=3D << "EOF";
  <form method=3Dpost action=3D/cgi-bin/koha/circ/branchtransfers.pl>
***************
*** 115,137 ****
      my $messagetext=3D'';
      foreach (@messages) {
! 	$messagetext.=3D"$_<p>\n";
      }
      $messagetable =3D << "EOF";
! <table border=3D0 cellpadding=3D5 cellspacing=3D0 bgcolor=3D'#dddddd'>
! <tr><th bgcolor=3D$headerbackgroundcolor background=3D$backgroundimage><fon=
t color=3Dblack>Messages</font></th></tr>
  <tr><td> $messagetext </td></tr></table>
  EOF
  }
 =20
!=20
 =20
  print $query->header;
  print startpage;
  print startmenu('circulation');
! print "<FONT SIZE=3D6><em>Circulation: Transfers</em></FONT><br>";
!=20
!=20
! print $messagetable if (@messages);
 =20
 =20
  print $entrytext;
--- 110,138 ----
      my $messagetext=3D'';
      foreach (@messages) {
! 	$messagetext.=3D"$_<br>";
      }
+     $messagetext =3D substr($messagetext, 0, -4);
      $messagetable =3D << "EOF";
! <table border=3D1 cellpadding=3D5 cellspacing=3D0 bgcolor=3D'#dddddd'>
! <tr><th bgcolor=3D$headerbackgroundcolor background=3D$backgroundimage><fon=
t>Messages</font></th></tr>
  <tr><td> $messagetext </td></tr></table>
  EOF
  }
 =20
! ###########################################################################=
############
! # Make the page .....
 =20
  print $query->header;
  print startpage;
  print startmenu('circulation');
! print <<"EOF";
! <p align=3Dright>
! <FONT SIZE=3D2  face=3D"arial, helvetica">
! <a href=3Dcirculationold.pl?module=3Dissues>Next Borrower</a> ||
! <a href=3Dreturns.pl>Returns</a> ||
! <a href=3Dbranchtransfers.pl>Transfers</a></font></p><FONT SIZE=3D6><em>Cir=
culation: Transfers</em></FONT><br>
! EOF
 =20
+ print $messagetable;
 =20
  print $entrytext;

Index: circulation.pl
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /cvsroot/koha/koha/circ/circulation.pl,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -r1.23 -r1.24
*** circulation.pl	14 Mar 2002 01:50:17 -0000	1.23
--- circulation.pl	2 May 2002 00:06:28 -0000	1.24
***************
*** 1,4 ****
--- 1,5 ----
  #!/usr/bin/perl
 =20
+ use strict;
  use CGI qw/:standard/;
  use C4::Circulation::Circ2;
***************
*** 8,12 ****
 =20
 =20
[...1030 lines suppressed...]
! <table border=3D1 cellpadding=3D5 cellspacing=3D0>
! <tr><td colspan=3D2 bgcolor=3D$headerbackgroundcolor align=3Dcenter backgro=
und=3D$backgroundimage>
! <font color=3Dblack><b>Please Set Branch and Printer</b></font></td></tr>
! <tr><td>
! $branchform
! </td>
! <td>
! $printerform
! </td></tr>
! </table>
! <input type=3D"submit" value=3D"Change Settings" type=3D"changesettings">
! </form>
!=20
 =20
  EOF
  }
+=20
+ print endmenu('circulation');
+ print endpage();
+=20



--===============4426775210285999015==--