|
Lines 976-982
sub checkauth {
Link Here
|
| 976 |
} |
976 |
} |
| 977 |
} |
977 |
} |
| 978 |
|
978 |
|
| 979 |
# $return: 1 = valid user, 2 = superlibrarian |
979 |
# $return: 1 = valid user, 2 = DB user |
| 980 |
if ($return) { |
980 |
if ($return) { |
| 981 |
|
981 |
|
| 982 |
#_session_log(sprintf "%20s from %16s logged in at %30s.\n", $userid,$ENV{'REMOTE_ADDR'},(strftime '%c', localtime)); |
982 |
#_session_log(sprintf "%20s from %16s logged in at %30s.\n", $userid,$ENV{'REMOTE_ADDR'},(strftime '%c', localtime)); |
|
Lines 1073-1079
sub checkauth {
Link Here
|
| 1073 |
} |
1073 |
} |
| 1074 |
elsif ( $return == 2 ) { |
1074 |
elsif ( $return == 2 ) { |
| 1075 |
|
1075 |
|
| 1076 |
#We suppose the user is the superlibrarian |
1076 |
# It's the DB user, again! |
|
|
1077 |
# He won't be able to do something interesting |
| 1077 |
$borrowernumber = 0; |
1078 |
$borrowernumber = 0; |
| 1078 |
$session->param( 'number', 0 ); |
1079 |
$session->param( 'number', 0 ); |
| 1079 |
$session->param( 'id', C4::Context->config('user') ); |
1080 |
$session->param( 'id', C4::Context->config('user') ); |
|
Lines 1082-1088
sub checkauth {
Link Here
|
| 1082 |
$session->param( 'surname', C4::Context->config('user') ); |
1083 |
$session->param( 'surname', C4::Context->config('user') ); |
| 1083 |
$session->param( 'branch', 'NO_LIBRARY_SET' ); |
1084 |
$session->param( 'branch', 'NO_LIBRARY_SET' ); |
| 1084 |
$session->param( 'branchname', 'NO_LIBRARY_SET' ); |
1085 |
$session->param( 'branchname', 'NO_LIBRARY_SET' ); |
| 1085 |
$session->param( 'flags', 1 ); |
1086 |
$session->param( 'flags', 0 ); |
| 1086 |
$session->param( 'emailaddress', C4::Context->preference('KohaAdminEmailAddress') ); |
1087 |
$session->param( 'emailaddress', C4::Context->preference('KohaAdminEmailAddress') ); |
| 1087 |
$session->param( 'ip', $session->remote_addr() ); |
1088 |
$session->param( 'ip', $session->remote_addr() ); |
| 1088 |
$session->param( 'lasttime', time() ); |
1089 |
$session->param( 'lasttime', time() ); |
|
Lines 1203-1208
sub checkauth {
Link Here
|
| 1203 |
PatronSelfRegistrationDefaultCategory => C4::Context->preference("PatronSelfRegistrationDefaultCategory"), |
1204 |
PatronSelfRegistrationDefaultCategory => C4::Context->preference("PatronSelfRegistrationDefaultCategory"), |
| 1204 |
persona => C4::Context->preference("Persona"), |
1205 |
persona => C4::Context->preference("Persona"), |
| 1205 |
opac_css_override => $ENV{'OPAC_CSS_OVERRIDE'}, |
1206 |
opac_css_override => $ENV{'OPAC_CSS_OVERRIDE'}, |
|
|
1207 |
user_added => $query->param('user_added'), |
| 1206 |
); |
1208 |
); |
| 1207 |
|
1209 |
|
| 1208 |
$template->param( OpacPublic => C4::Context->preference("OpacPublic") ); |
1210 |
$template->param( OpacPublic => C4::Context->preference("OpacPublic") ); |
|
Lines 1499-1505
sub check_api_auth {
Link Here
|
| 1499 |
$session->param( 'lasttime', time() ); |
1501 |
$session->param( 'lasttime', time() ); |
| 1500 |
} elsif ( $return == 2 ) { |
1502 |
} elsif ( $return == 2 ) { |
| 1501 |
|
1503 |
|
| 1502 |
#We suppose the user is the superlibrarian |
1504 |
# It's the DB user, again! |
|
|
1505 |
# He won't be able to do something interesting |
| 1503 |
$session->param( 'number', 0 ); |
1506 |
$session->param( 'number', 0 ); |
| 1504 |
$session->param( 'id', C4::Context->config('user') ); |
1507 |
$session->param( 'id', C4::Context->config('user') ); |
| 1505 |
$session->param( 'cardnumber', C4::Context->config('user') ); |
1508 |
$session->param( 'cardnumber', C4::Context->config('user') ); |
|
Lines 1507-1513
sub check_api_auth {
Link Here
|
| 1507 |
$session->param( 'surname', C4::Context->config('user') ); |
1510 |
$session->param( 'surname', C4::Context->config('user') ); |
| 1508 |
$session->param( 'branch', 'NO_LIBRARY_SET' ); |
1511 |
$session->param( 'branch', 'NO_LIBRARY_SET' ); |
| 1509 |
$session->param( 'branchname', 'NO_LIBRARY_SET' ); |
1512 |
$session->param( 'branchname', 'NO_LIBRARY_SET' ); |
| 1510 |
$session->param( 'flags', 1 ); |
1513 |
$session->param( 'flags', 0 ); |
| 1511 |
$session->param( 'emailaddress', C4::Context->preference('KohaAdminEmailAddress') ); |
1514 |
$session->param( 'emailaddress', C4::Context->preference('KohaAdminEmailAddress') ); |
| 1512 |
$session->param( 'ip', $session->remote_addr() ); |
1515 |
$session->param( 'ip', $session->remote_addr() ); |
| 1513 |
$session->param( 'lasttime', time() ); |
1516 |
$session->param( 'lasttime', time() ); |
|
Lines 1934-1942
sub haspermission {
Link Here
|
| 1934 |
my $row = $sth->fetchrow(); |
1937 |
my $row = $sth->fetchrow(); |
| 1935 |
my $flags = getuserflags( $row, $userid ); |
1938 |
my $flags = getuserflags( $row, $userid ); |
| 1936 |
if ( $userid eq C4::Context->config('user') ) { |
1939 |
if ( $userid eq C4::Context->config('user') ) { |
| 1937 |
|
1940 |
# DB User Account from /etc/koha.conf |
| 1938 |
# Super User Account from /etc/koha.conf |
1941 |
if ( $flagsrequired->{DB_user} == 1 ) { |
| 1939 |
$flags->{'superlibrarian'} = 1; |
1942 |
$flags->{DB_user} = 1; |
|
|
1943 |
return $flags; |
| 1944 |
} |
| 1945 |
return 0; |
| 1940 |
} |
1946 |
} |
| 1941 |
elsif ( $userid eq 'demo' && C4::Context->config('demo') ) { |
1947 |
elsif ( $userid eq 'demo' && C4::Context->config('demo') ) { |
| 1942 |
|
1948 |
|