[Koha-cvs] CVS: koha/circ returns.pl,1.13.2.5,1.13.2.6 selectbranchprinter.pl,1.3.2.3,1.3.2.4

[Steve Tonnesen]

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

Modified Files:
      Tag: rel-1-2
	returns.pl selectbranchprinter.pl 
Log Message:
Bug fixes... some found through new catalog.t test!


Index: returns.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/returns.pl,v
retrieving revision 1.13.2.5
retrieving revision 1.13.2.6
diff -C2 -r1.13.2.5 -r1.13.2.6
*** returns.pl	23 Oct 2002 20:27:52 -0000	1.13.2.5
--- returns.pl	29 Oct 2002 16:48:52 -0000	1.13.2.6
***************
*** 50,56 ****
  ($printer) || ($printer=$query->cookie('printer')) ;
  
! ($branches->{$branch}) || ($branch=(keys %$branches)[0]);
! ($printers->{$printer}) || ($printer=(keys %$printers)[0]);
! 
  
  #
--- 50,55 ----
  ($printer) || ($printer=$query->cookie('printer')) ;
  
! ($branch) || ($branch=(keys %$branches)[0]);
! ($printer) || ($printer=(keys %$printers)[0]);
  
  #

Index: selectbranchprinter.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/selectbranchprinter.pl,v
retrieving revision 1.3.2.3
retrieving revision 1.3.2.4
diff -C2 -r1.3.2.3 -r1.3.2.4
*** selectbranchprinter.pl	24 Oct 2002 18:20:31 -0000	1.3.2.3
--- selectbranchprinter.pl	29 Oct 2002 16:48:52 -0000	1.3.2.4
***************
*** 50,55 ****
  ($printer) || ($printer=$query->cookie('printer'));
  
! ($branches->{$branch}) || ($branch=(keys %$branches)[0]);
! ($printers->{$printer}) || ($printer=(keys %$printers)[0]);
  
  
--- 50,55 ----
  ($printer) || ($printer=$query->cookie('printer'));
  
! ($branch) || ($branch=(keys %$branches)[0]);
! ($printer) || ($printer=(keys %$printers)[0]);