From 8afe6ff214e88783c1cc17db1cd68ec40ac2f545 Mon Sep 17 00:00:00 2001
From: lavide <lavide>
Date: Sat, 9 Nov 2002 17:37:01 +0000
Subject: [PATCH] fix problem that only one branches was on the screenbr

---
 admin/branches.pl | 34 ++++++++++++++++++++++++++++------
 1 file changed, 28 insertions(+), 6 deletions(-)

diff --git a/admin/branches.pl b/admin/branches.pl
index a0a1b03fe6..e5e9311ea5 100755
--- a/admin/branches.pl
+++ b/admin/branches.pl
@@ -167,6 +167,7 @@ sub branchinfotable {
 	$branchinfo = getbranchinfo();
     }
     my $color;
+    my @loop_data =();
     foreach my $branch (@$branchinfo) {
 	($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
 	my $address = '';
@@ -183,13 +184,34 @@ sub branchinfotable {
 	    $categories .= $catinfo->{'categoryname'}."<br>";
 	}
 	$categories = '(no categories set)' unless ($categories);
-$template->param(color => $color);
-$template->param(branch_name => $branch->{'branchname'});
-$template->param(adress => $address);
-$template->param(categories => $categories);
-$template->param(branch_code => $branch->{'branchcode'});
-$template->param(value => $branch->{'branchcode'});
+	my @colors = ();
+	my @branch_name = ();
+	my @branch_code = ();
+	my @address = ();
+	my @categories = ();
+	my @value = ();
+	my @action =();
+	push(@colors,$color);
+	push(@branch_name,$branch->{'branchname'});
+	push(@branch_code,$branch->{'branchcode'});
+	push(@address,$address);
+	push(@categories,$categories);
+	push(@value,$branch->{'branchcode'});
+	push(@action,"/cgi-bin/koha/admin/branches.pl");
+	while (@colors and @branch_name and @branch_code and @address and @categories and @value and @action) {
+	my %row_data;
+	$row_data{color} = shift @colors;
+	$row_data{branch_name} = shift @branch_name;
+	$row_data{branch_code} = shift @branch_code;
+	$row_data{address} = shift @address;
+	$row_data{categories} = shift @categories;
+	$row_data{value} = shift @value;
+	$row_data{action} = shift @action;
+	push(@loop_data, \%row_data);
+    }
+    
     }
+    $template->param(branches => \@loop_data);
 
 }
 
-- 
2.39.5