[Koha-cvs] CVS: koha/C4 Security.pm,1.5,1.6

[Andrew Arensburger]

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

Modified Files:
	Security.pm 
Log Message:
Added magic RCS comment.
Removed trailing whitespace.


Index: Security.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Security.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** Security.pm	7 Oct 2002 00:50:33 -0000	1.5
--- Security.pm	13 Oct 2002 07:36:59 -0000	1.6
***************
*** 1,4 ****
! package C4::Security; #assumes C4/Security
  
  
  # Copyright 2000-2002 Katipo Communications
--- 1,5 ----
! package C4::Security;
  
+ # $Id$
  
  # Copyright 2000-2002 Katipo Communications
***************
*** 44,48 ****
    $sth->execute;
    while (my $branchrec=$sth->fetchrow_hashref) {
!     my $branchdet = 
       fmtstr($env,$branchrec->{'branchcode'},"L2")." ".$branchrec->{'branchname'};
      push @branches,$branchdet;
--- 45,49 ----
    $sth->execute;
    while (my $branchrec=$sth->fetchrow_hashref) {
!     my $branchdet =
       fmtstr($env,$branchrec->{'branchcode'},"L2")." ".$branchrec->{'branchname'};
      push @branches,$branchdet;
***************
*** 68,72 ****
          $env->{'branchcode'} = $branch;
        }
!      
      } else {
        debug_msg("","not found");
--- 69,73 ----
          $env->{'branchcode'} = $branch;
        }
! 
      } else {
        debug_msg("","not found");
***************
*** 77,85 ****
    &endint();
  }
!   
  sub CheckAccess {
    my ($env)=@_;
    }
-     
- END { }       # module clean-up code here (global destructor)
-     
--- 78,83 ----
    &endint();
  }
! 
  sub CheckAccess {
    my ($env)=@_;
    }