View | Details | Raw Unified | Return to bug 10277
Collapse All | Expand All

(-)a/C4/Context.pm (-2 / +15 lines)
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
- 

Return to bug 10277