[Koha-cvs] CVS: koha/admin branches.pl,1.8,1.9

[David Strainchamps]

Update of /cvsroot/koha/koha/admin
In directory usw-pr-cvs1:/tmp/cvs-serv28884

Modified Files:
	branches.pl 
Log Message:
fix problem that only one branches was on the screenbr


Index: branches.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/branches.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** branches.pl	18 Oct 2002 12:45:41 -0000	1.8
--- branches.pl	9 Nov 2002 17:37:01 -0000	1.9
***************
*** 168,171 ****
--- 168,172 ----
      }
      my $color;
+     my @loop_data =();
      foreach my $branch (@$branchinfo) {
  	($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
***************
*** 184,194 ****
  	}
  	$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'});
      }
  
  }
--- 185,216 ----
  	}
  	$categories = '(no categories set)' unless ($categories);
! 	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);
  
  }