[Koha-cvs] CVS: koha/opac opac-reserve.pl,1.22.2.2,1.22.2.3

[Joshua Ferraro]

Update of /cvsroot/koha/koha/opac
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4889

Modified Files:
      Tag: rel_2_2
	opac-reserve.pl 
Log Message:
Instead of using CGI::scrolling_list, moved the list of branches and
branchcodes into a TMPL_LOOP (the same one actually); gives the template
designer more flexiblity with how to display the list, etc.


Index: opac-reserve.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-reserve.pl,v
retrieving revision 1.22.2.2
retrieving revision 1.22.2.3
diff -C2 -r1.22.2.2 -r1.22.2.3
*** opac-reserve.pl	25 Mar 2005 17:04:27 -0000	1.22.2.2
--- opac-reserve.pl	6 Jul 2005 19:54:44 -0000	1.22.2.3
***************
*** 66,81 ****
  my %select_branches;
  
  foreach my $branch (keys %$branches) {
  	if ($branch) {
! 		push @select_branch, $branch;
! 		$select_branches{$branch} = $branches->{$branch}->{'branchname'};
  	}
  }
! my $CGIbranch=CGI::scrolling_list( -name     => 'branch',
! 			-values   => \@select_branch,
! 			-labels   => \%select_branches,
! 			-size     => 1,
! 			-multiple => 0 );
! $template->param( CGIbranch => $CGIbranch);
  
  #### THIS IS A BIT OF A HACK BECAUSE THE BIBLIOITEMS DATA IS A LITTLE MESSED UP!
--- 66,83 ----
  my %select_branches;
  
+ my @CGIbranchlooparray;
+ 
  foreach my $branch (keys %$branches) {
  	if ($branch) {
! 
! 		my %line;
! 		$line{branch} = $branches->{$branch}->{'branchname'};
! 		warn "here's  a branch:".$line{branch};
! 		$line{value} = $branch;
! 		push @CGIbranchlooparray, \%line;
  	}
  }
! my $CGIbranchloop = \@CGIbranchlooparray;
! $template->param( CGIbranch => $CGIbranchloop);
  
  #### THIS IS A BIT OF A HACK BECAUSE THE BIBLIOITEMS DATA IS A LITTLE MESSED UP!