##################################################################################
# HTML code....
-my $responsesform = '';
+my %responseform;
+my @responsearray;
foreach (keys %responses) {
- $responsesform.="<input type=hidden name=response-$_ value=$responses{$_}>\n";
+# $responsesform.="<input type=hidden name=response-$_ value=$responses{$_}>\n";
+ $responseform{'name'}=$_;
+ $responseform{'value'}=$responses{$_};
+ push @responsearray,\%responseform;
}
my $questionform;
my $stickyduedate;
# Barcode entry box, with hidden inputs attached....
+
+# FIXME - How can we move this HTML into the template? Can we create
+# arrays of the months, dates, etc and use <TMPL_LOOP> in the template to
+# output the data that's getting built here?
my $counter = 1;
my $dayoptions = '';
my $monthoptions = '';
my $datedue = $book->{'date_due'};
$dd=format_date($dd);
$datedue=~s/-//g;
+# FIXME - Instead of declaring the font color here, can we set a variable
+# that says 'overdue'? Then the template can check for it: <TMPL_IF
+# NAME="overdue"><font color="red"></TMPL_IF>
if ($datedue < $todaysdate) {
$dd="<font color=red>$dd</font>\n";
}
($tcolor eq $linecolor1) ? ($tcolor=$linecolor2) : ($tcolor=$linecolor1);
$book->{'dd'}=$dd;
$book->{'tcolor'}=$tcolor;
+ if ($book->{'author'} eq ''){
+ $book->{'author'}=' ';
+ }
push @realtodayissues,$book;
}
my $pcolor = '';
$datedue=~s/-//g;
if ($datedue < $todaysdate) {
+# FIXME - See line 233 above regarding overdues
$dd="<font color=red>$dd</font>\n";
}
($pcolor eq $linecolor1) ? ($pcolor=$linecolor2) : ($pcolor=$linecolor1);
$book->{'dd'}=$dd;
- $book->{'tcolor'}=$pcolor;
+ $book->{'tcolor'}=$pcolor;
+ if ($book->{'author'} eq ''){
+ $book->{'author'}=' ';
+ }
push @realprevissues,$book
}
}
branchname => $branches->{$branch}->{'branchname'},
printername => $printers->{$printer}->{'printername'},
allowborrow =>$allowborrow,
-
#question form
question => $question,
title => $iteminformation->{'title'},
author => $iteminformation->{'author'},
firstname => $borrower->{'firstname'},
surname => $borrower->{'surname'},
+ categorycode => $borrower->{'categorycode'},
+ streetaddress => $borrower->{'streetaddress'},
+ city => $borrower->{'city'},
+ phone => $borrower->{'phone'},
+ cardnumber => $borrower->{'cardnumber'},
question => $question,
barcode => $barcode,
questionnumber => $questionnumber,
monthoptions => $monthoptions,
yearoptions => $yearoptions,
stickyduedate => $stickyduedate,
- responseform => $responsesform,
rejected => $rejected,
message => $message,
CGIselectborrower => $CGIselectborrower,
-
- patrontable => $patrontable,
- flaginfotable => $flaginfotable,
- CHARGES => $flags->{'CHARGES'},
amountold => $amountold,
- todayissues => \@realtodayissues,
- previssues => \@realprevissues
+ todayissues => \@realtodayissues,
+ previssues => \@realprevissues,
+ responseloop => \@responsearray,
+ month=>$month,
+ day=>$day,
+ year=>$year
+
);
if ($branchcookie) {
if (($year eq 0) && ($month eq 0) && ($year eq 0)) {
$env{'datedue'}='';
} else {
+
+# FIXME - Can we set two flags here, one that says 'invalidduedate', so that
+# the template can check for it, and then one for a particular message?
+# Ex: <TMPL_IF NAME="invalidduedate"> <TMPL_IF NAME="daysinFeb">
+# Invalid Due Date Specified. Book was not issued. Never that many days
+# in February! </TMPL_IF> </TMPL_IF>
+
if (($year eq 0) || ($month eq 0) || ($year eq 0)) {
$invalidduedate="Invalid Due Date Specified. Book was not issued.<p>\n";
} else {
my ($borrower) = @_;
my $flags = $borrower->{'flags'};
my $flaginfotable='';
- my $flaginfotext='';
+ my $flaginfotext;
+ #my $flaginfotext='';
my $flag;
my $color='';
foreach $flag (sort keys %$flags) {
+ warn $flag;
+# my @itemswaiting='';
($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
$flags->{$flag}->{'message'}=~s/\n/<br>/g;
if ($flags->{$flag}->{'noissues'}) {
- if ($flag eq 'CHARGES') {
- $flaginfotext.="<tr><td valign=top><font color=red>$flag</font></td><td bgcolor=$color><b>$flags->{$flag}->{'message'}</b> <a href=/cgi-bin/koha/pay.pl?bornum=$borrower->{'borrowernumber'} onClick=\"openWindow(this, 'Payment', 480,640)\">Payment</a></td></tr>\n";
- } else {
- $flaginfotext.="<tr><td valign=top><font color=red>$flag</font></td><td bgcolor=$color>$flags->{$flag}->{'message'}</td></tr>\n";
- }
+ $template->param(
+ noissues => 'true',
+ color => $color,
+ );
+ if ($flag eq 'GNA'){
+ $template->param(
+ gna => 'true'
+ );
+ }
+ if ($flag eq 'LOST'){
+ $template->param(
+ lost => 'true'
+ );
+ }
+ if ($flag eq 'DBARRED'){
+ $template->param(
+ dbarred => 'true'
+ );
+ }
+ if ($flag eq 'CHARGES') {
+ $template->param(
+ charges => 'true',
+ chargesmsg => $flags->{'CHARGES'}->{'message'}
+ );
+ }
} else {
- if ($flag eq 'CHARGES') {
- $flaginfotext.="<tr><td valign=top>$flag</td><td> $flags->{$flag}->{'message'} <a href=/cgi-bin/koha/pay.pl?bornum=$borrower->{'borrowernumber'} onClick=\"openWindow(this, 'Payment', 480,640)\">Payment</a></td></tr>\n";
- } elsif ($flag eq 'WAITING') {
- my $itemswaiting='';
- my $items=$flags->{$flag}->{'itemlist'};
- foreach my $item (@$items) {
- my ($iteminformation) = getiteminformation(\%env, $item->{'itemnumber'}, 0);
- $itemswaiting.="<a href=/cgi-bin/koha/detail.pl?bib=$iteminformation->{'biblionumber'}&type=intra onClick=\"openWindow(this, 'Item', 480, 640)\">$iteminformation->{'barcode'}</a> $iteminformation->{'title'} ($branches->{$iteminformation->{'holdingbranch'}}->{'branchname'})<br>\n";
+ if ($flag eq 'CHARGES') {
+ $template->param(
+ charges => 'true',
+ chargesmsg => $flags->{'CHARGES'}->{'message'}
+ );
}
- $flaginfotext.="<tr><td valign=top>$flag</td><td>$itemswaiting</td></tr>\n";
- } elsif ($flag eq 'ODUES') {
- my $items=$flags->{$flag}->{'itemlist'};
- my $itemswaiting="<table border=1 cellspacing=0 cellpadding=2>\n";
- my $currentcolor=$color;
- {
- my $color=$currentcolor;
- foreach my $item (@$items) {
- ($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
+ if ($flag eq 'WAITING') {
+ my $items=$flags->{$flag}->{'itemlist'};
+ my @itemswaiting;
+ foreach my $item (@$items) {
my ($iteminformation) = getiteminformation(\%env, $item->{'itemnumber'}, 0);
- $itemswaiting.="<tr><td><font color=red>$iteminformation->{'date_due'}</font></td><td bgcolor=$color><a href=/cgi-bin/koha/detail.pl?bib=$iteminformation->{'biblionumber'}&type=intra onClick=\"openWindow(this, 'Item', 480, 640)\">$iteminformation->{'barcode'}</a></td><td>$iteminformation->{'title'}</td></tr>\n";
- }
+ $iteminformation->{'branchname'} = $branches->{$iteminformation->{'holdingbranch'}}->{'branchname'};
+ push @itemswaiting, $iteminformation;
+ }
+ $template->param(
+ waiting => 'true',
+ waitingmsg => $flags->{'WAITING'}->{'message'},
+ itemswaiting => \@itemswaiting,
+ );
}
- $itemswaiting.="</table>\n";
- if ($query->param('module') ne 'returns'){
- $flaginfotext.="<tr><td valign=top>$flag</td><td>$flags->{$flag}->{'message'}, See below</td></tr>\n";
- } else {
- $flaginfotext.="<tr><td valign=top>$flag</td><td>$flags->{$flag}->{'message'}</td></tr>\n";
+ if ($flag eq 'ODUES') {
+ $template->param(
+ odues => 'true',
+ oduesmsg => $flags->{'ODUES'}->{'message'}
+ );
+
+ my $items=$flags->{$flag}->{'itemlist'};
+ my $currentcolor=$color;
+ {
+ my $color=$currentcolor;
+ my @itemswaiting;
+ foreach my $item (@$items) {
+ ($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
+ my ($iteminformation) = getiteminformation(\%env, $item->{'itemnumber'}, 0);
+ push @itemswaiting, $iteminformation;
+ }
+ }
+ if ($query->param('module') ne 'returns'){
+ $template->param( nonreturns => 'true' );
+ }
+ }
+ if ($flag eq 'NOTES') {
+ $template->param(
+ notes => 'true',
+ notesmsg => $flags->{'NOTES'}->{'message'}
+ );
}
- } else {
- $flaginfotext.="<tr><td valign=top>$flag</td><td>$flags->{$flag}->{'message'}</td></tr>\n";
- }
}
}
- ($flaginfotext) && ($flaginfotext="<tr><td colspan=2><b>Flags</b></td></tr>$flaginfotext\n");
- $flaginfotext.="</table>";
- my $patrontable= << "EOF";
-<br><p>
- <table border=1 cellpadding=5 cellspacing=0 align=right>
- <tr><td colspan=2><font color=black><b>Patron Information</b></font></td></tr>
- <tr><td colspan=2>
- <a href=/cgi-bin/koha/moremember.pl?bornum=$borrower->{'borrowernumber'} onClick="openWindow(this,'Member', 480, 640)">$borrower->{'cardnumber'}</a> $borrower->{'surname'}, $borrower->{'title'} $borrower->{'firstname'}<br>$borrower->{'streetaddress'} $borrower->{'city'} Cat: $borrower->{'categorycode'} </td></tr>
-EOF
return($patrontable, $flaginfotext);
}