[Koha-cvs] CVS: koha request.pl,1.7,1.8

[Finlay Thompson]

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

Modified Files:
	request.pl 
Log Message:

I have changed the branch options to only include the Issueing branches. Also if no branch is set it Defaults to Levin.



Index: request.pl
===================================================================
RCS file: /cvsroot/koha/koha/request.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** request.pl	31 Jul 2002 04:27:57 -0000	1.7
--- request.pl	9 Aug 2002 04:33:01 -0000	1.8
***************
*** 35,41 ****
  # get branch information
  my $branch = $input->cookie('branch');
  my $branches = getbranches();
- 
- 
  my $branchoptions = branchoptions($branch);
  
--- 35,40 ----
  # get branch information
  my $branch = $input->cookie('branch');
+ ($branch) || ($branch = 'L');
  my $branches = getbranches();
  my $branchoptions = branchoptions($branch);
  
***************
*** 155,159 ****
      my $out = "";
      foreach my $br (keys %$branches) {
! 	(next) unless $branches->{$br}->{'CU'};
  	my $selected = "";
  	if ($br eq $selbr) {
--- 154,158 ----
      my $out = "";
      foreach my $br (keys %$branches) {
! 	(next) unless $branches->{$br}->{'IS'};
  	my $selected = "";
  	if ($br eq $selbr) {