[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   => address@hidden,
!                       -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 = address@hidden;
! $template->param( CGIbranch => $CGIbranchloop);
  
  #### THIS IS A BIT OF A HACK BECAUSE THE BIBLIOITEMS DATA IS A LITTLE MESSED 
UP!