From 15388338e7c80ad4d84888e14e8af6b843f49f21 Mon Sep 17 00:00:00 2001
From: pate <pate>
Date: Thu, 25 Apr 2002 15:51:33 +0000
Subject: [PATCH] fixed an unitialized variable error in &mktablerow

---
 C4/Output.pm | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

diff --git a/C4/Output.pm b/C4/Output.pm
index 3783eb28a9..fb8a5f030f 100644
--- a/C4/Output.pm
+++ b/C4/Output.pm
@@ -146,18 +146,17 @@ sub mktablerow {
   my $i=0;
   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.=" &nbsp; </td>";
-    } else {
-      $string.="$data[$i]</td>";
-    } 
-    $i++;
+      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.=" &nbsp; </td>";
+      } else {
+	  $string.="$data[$i]</td>";
+      } 
+      $i++;
   }
   $string=$string."</tr>\n";
   return($string);
-- 
2.39.5