|
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 |
- |
|
|