[Koha-cvs] CVS: koha/circ branchtransfers.pl,1.12,1.13

[Andrew Arensburger]

Update of /cvsroot/koha/koha/circ
In directory usw-pr-cvs1:/tmp/cvs-serv32678

Modified Files:
        branchtransfers.pl 
Log Message:
(bug fix?) What looks like possibly a line left over from debugging
was giving me an empty branch list, so transfers didn't work.


Index: branchtransfers.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/branchtransfers.pl,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -r1.12 -r1.13
*** branchtransfers.pl  14 Aug 2002 18:12:53 -0000      1.12
--- branchtransfers.pl  9 Oct 2002 14:28:51 -0000       1.13
***************
*** 65,69 ****
  my $tobranchoptions;
  foreach my $br (keys %$branches) {
!     (next) unless $branches->{$br}->{'CU'};
      my $selected='';
      ($selected='selected') if ($br eq $tobranchcd);
--- 65,72 ----
  my $tobranchoptions;
  foreach my $br (keys %$branches) {
! # FIXME - Dunno what this line was supposed to do, but "CU" never
! # appears anywhere else, so this was preventing this code from
! # working, by creating an empty <select> block later on.
! #    (next) unless $branches->{$br}->{'CU'};
      my $selected='';
      ($selected='selected') if ($br eq $tobranchcd);