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";