[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) {