[Koha-devel] CVS: koha/C4 Output.pm,1.6.2.1,1.6.2.2
Pat Eyler
pate at users.sourceforge.net
Thu Apr 25 08:52:10 CEST 2002
Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv11670
Modified Files:
Tag: rel-1-2
Output.pm
Log Message:
fixed an unitialized variable error in &mktablerow
Index: Output.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Output.pm,v
retrieving revision 1.6.2.1
retrieving revision 1.6.2.2
diff -C2 -r1.6.2.1 -r1.6.2.2
*** Output.pm 25 Apr 2002 14:50:16 -0000 1.6.2.1
--- Output.pm 25 Apr 2002 15:51:33 -0000 1.6.2.2
***************
*** 147,162 ****
my $string="<tr valign=top bgcolor=$colour>";
while ($i <$cols){
! if ($data[$cols] ne ''){
! #check for backgroundimage
! $string.="<td background=\"$data[$cols]\">";
! } else {
! $string.="<td>";
! }
! if ($data[$i] eq "") {
! $string.=" </td>";
! } else {
! $string.="$data[$i]</td>";
! }
! $i++;
}
$string=$string."</tr>\n";
--- 147,161 ----
my $string="<tr valign=top bgcolor=$colour>";
while ($i <$cols){
! if (defined $data[$cols]) { # if there is a background image
! $string.="<td background=\"$data[$cols]\">";
! } else { # if there's no background image
! $string.="<td>";
! }
! if ($data[$i] eq "") {
! $string.=" </td>";
! } else {
! $string.="$data[$i]</td>";
! }
! $i++;
}
$string=$string."</tr>\n";
More information about the Koha-devel
mailing list