Lines 25-31
BEGIN {
Link Here
|
25 |
require CGI::Carp; |
25 |
require CGI::Carp; |
26 |
# FIXME for future reference, CGI::Carp doc says |
26 |
# FIXME for future reference, CGI::Carp doc says |
27 |
# "Note that fatalsToBrowser does not work with mod_perl version 2.0 and higher." |
27 |
# "Note that fatalsToBrowser does not work with mod_perl version 2.0 and higher." |
28 |
import CGI::Carp qw(fatalsToBrowser); |
28 |
import CGI::Carp qw(fatalsToBrowser carp); |
29 |
sub handle_errors { |
29 |
sub handle_errors { |
30 |
my $msg = shift; |
30 |
my $msg = shift; |
31 |
my $debug_level; |
31 |
my $debug_level; |
Lines 1228-1233
sub tz {
Link Here
|
1228 |
} |
1228 |
} |
1229 |
|
1229 |
|
1230 |
|
1230 |
|
|
|
1231 |
=head2 IsSuperLibrarian |
1232 |
|
1233 |
C4::Context->IsSuperlibrarian(); |
1234 |
|
1235 |
=cut |
1236 |
|
1237 |
sub IsSuperLibrarian { |
1238 |
if ( C4::Context->userenv ) { |
1239 |
return C4::Context->userenv->{flags} % 2 == 1; |
1240 |
} |
1241 |
else { |
1242 |
carp("C4::Context->userenv not defined!"); |
1243 |
} |
1244 |
} |
1231 |
|
1245 |
|
1232 |
1; |
1246 |
1; |
1233 |
__END__ |
1247 |
__END__ |
1234 |
- |
|
|