##################################################################################
# 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;
branchname => $branches->{$branch}->{'branchname'},
printername => $printers->{$printer}->{'printername'},
allowborrow =>$allowborrow,
-
#question form
question => $question,
title => $iteminformation->{'title'},
monthoptions => $monthoptions,
yearoptions => $yearoptions,
stickyduedate => $stickyduedate,
- responseform => $responsesform,
rejected => $rejected,
message => $message,
CGIselectborrower => $CGIselectborrower,
-
amountold => $amountold,
todayissues => \@realtodayissues,
- previssues => \@realprevissues
+ previssues => \@realprevissues,
+ responseloop => \@responsearray
);
if ($branchcookie) {
<input type=hidden name=stickyduedate value=<TMPL_VAR name="stickyduedate">>
<input type=hidden name=branch value=<TMPL_VAR name="branch">>
<input type=hidden name=printer value=<TMPL_VAR name="printer">>
- <TMPL_VAR name="responsesform">
+ <TMPL_LOOP NAME="responseloop">
+ <input type=hidden name="<TMPL_VAR="name">" value="<TMPL_VAR NAME="value">">
+ </TMPL_LOOP>
<input type=hidden name=answer value=Y>
<input type=submit value=Yes>
</form>
<input type=hidden name=stickyduedate value=<TMPL_VAR name="stickyduedate">>
<input type=hidden name=branch value=<TMPL_VAR name="branch">>
<input type=hidden name=printer value=<TMPL_VAR name="printer">>
- <TMPL_VAR name="responsesform">
+ <TMPL_LOOP NAME="responseloop">
+ <input type=hidden name="<TMPL_VAR="name">" value="<TMPL_VAR NAME="value">">
+ </TMPL_LOOP>
<input type=hidden name=answer value=N>
<input type=submit value=No>
</form>