[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Security.pm,1.5,1.6
From: |
Andrew Arensburger |
Subject: |
[Koha-cvs] CVS: koha/C4 Security.pm,1.5,1.6 |
Date: |
Sun, 13 Oct 2002 00:37:01 -0700 |
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)address@hidden;
}
-
- END { } # module clean-up code here (global destructor)
-
--- 78,83 ----
&endint();
}
!
sub CheckAccess {
my ($env)address@hidden;
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Security.pm,1.5,1.6,
Andrew Arensburger <=