|
Lines 846-852
sub checkauth {
Link Here
|
| 846 |
$session->param('surname'), $session->param('branch'), |
846 |
$session->param('surname'), $session->param('branch'), |
| 847 |
$session->param('branchname'), $session->param('flags'), |
847 |
$session->param('branchname'), $session->param('flags'), |
| 848 |
$session->param('emailaddress'), $session->param('shibboleth'), |
848 |
$session->param('emailaddress'), $session->param('shibboleth'), |
| 849 |
$session->param('desk_id'), $session->param('desk_name') |
849 |
$session->param('desk_id'), $session->param('desk_name'), |
|
|
850 |
$session->param('register_id') |
| 850 |
); |
851 |
); |
| 851 |
C4::Context::set_shelves_userenv( 'bar', $session->param('barshelves') ); |
852 |
C4::Context::set_shelves_userenv( 'bar', $session->param('barshelves') ); |
| 852 |
C4::Context::set_shelves_userenv( 'pub', $session->param('pubshelves') ); |
853 |
C4::Context::set_shelves_userenv( 'pub', $session->param('pubshelves') ); |
|
Lines 1066-1072
sub checkauth {
Link Here
|
| 1066 |
C4::Context->_unset_userenv($sessionID); |
1067 |
C4::Context->_unset_userenv($sessionID); |
| 1067 |
} |
1068 |
} |
| 1068 |
my ( $borrowernumber, $firstname, $surname, $userflags, |
1069 |
my ( $borrowernumber, $firstname, $surname, $userflags, |
| 1069 |
$branchcode, $branchname, $emailaddress, $desk_id, $desk_name ); |
1070 |
$branchcode, $branchname, $emailaddress, $desk_id, |
|
|
1071 |
$desk_name, $register_id ); |
| 1070 |
|
1072 |
|
| 1071 |
if ( $return == 1 ) { |
1073 |
if ( $return == 1 ) { |
| 1072 |
my $select = " |
1074 |
my $select = " |
|
Lines 1115-1120
sub checkauth {
Link Here
|
| 1115 |
my $desk = Koha::Desks->find($desk_id); |
1117 |
my $desk = Koha::Desks->find($desk_id); |
| 1116 |
$desk_name = $desk ? $desk->desk_name : ''; |
1118 |
$desk_name = $desk ? $desk->desk_name : ''; |
| 1117 |
} |
1119 |
} |
|
|
1120 |
if ( $query->param('register_id') ) { |
| 1121 |
$register_id = $query->param('register_id'); |
| 1122 |
} |
| 1118 |
my $branches = { map { $_->branchcode => $_->unblessed } Koha::Libraries->search }; |
1123 |
my $branches = { map { $_->branchcode => $_->unblessed } Koha::Libraries->search }; |
| 1119 |
if ( $type ne 'opac' and C4::Context->boolean_preference('AutoLocation') ) { |
1124 |
if ( $type ne 'opac' and C4::Context->boolean_preference('AutoLocation') ) { |
| 1120 |
|
1125 |
|
|
Lines 1158-1163
sub checkauth {
Link Here
|
| 1158 |
$session->param( 'lasttime', time() ); |
1163 |
$session->param( 'lasttime', time() ); |
| 1159 |
$session->param( 'interface', $type); |
1164 |
$session->param( 'interface', $type); |
| 1160 |
$session->param( 'shibboleth', $shibSuccess ); |
1165 |
$session->param( 'shibboleth', $shibSuccess ); |
|
|
1166 |
$session->param( 'register_id', $register_id ); |
| 1161 |
$debug and printf STDERR "AUTH_4: (%s)\t%s %s - %s\n", map { $session->param($_) } qw(cardnumber firstname surname branch); |
1167 |
$debug and printf STDERR "AUTH_4: (%s)\t%s %s - %s\n", map { $session->param($_) } qw(cardnumber firstname surname branch); |
| 1162 |
} |
1168 |
} |
| 1163 |
$session->param('cas_ticket', $cas_ticket) if $cas_ticket; |
1169 |
$session->param('cas_ticket', $cas_ticket) if $cas_ticket; |
|
Lines 1167-1173
sub checkauth {
Link Here
|
| 1167 |
$session->param('surname'), $session->param('branch'), |
1173 |
$session->param('surname'), $session->param('branch'), |
| 1168 |
$session->param('branchname'), $session->param('flags'), |
1174 |
$session->param('branchname'), $session->param('flags'), |
| 1169 |
$session->param('emailaddress'), $session->param('shibboleth'), |
1175 |
$session->param('emailaddress'), $session->param('shibboleth'), |
| 1170 |
$session->param('desk_id'), $session->param('desk_name') |
1176 |
$session->param('desk_id'), $session->param('desk_name'), |
|
|
1177 |
$session->param('register_id') |
| 1171 |
); |
1178 |
); |
| 1172 |
|
1179 |
|
| 1173 |
} |
1180 |
} |
|
Lines 1445-1451
sub check_api_auth {
Link Here
|
| 1445 |
$session->param('surname'), $session->param('branch'), |
1452 |
$session->param('surname'), $session->param('branch'), |
| 1446 |
$session->param('branchname'), $session->param('flags'), |
1453 |
$session->param('branchname'), $session->param('flags'), |
| 1447 |
$session->param('emailaddress'), $session->param('shibboleth'), |
1454 |
$session->param('emailaddress'), $session->param('shibboleth'), |
| 1448 |
$session->param('desk_id'), $session->param('desk_name') |
1455 |
$session->param('desk_id'), $session->param('desk_name'), |
|
|
1456 |
$session->param('register_id') |
| 1449 |
); |
1457 |
); |
| 1450 |
|
1458 |
|
| 1451 |
my $ip = $session->param('ip'); |
1459 |
my $ip = $session->param('ip'); |
|
Lines 1604-1611
sub check_api_auth {
Link Here
|
| 1604 |
$session->param('number'), $session->param('id'), |
1612 |
$session->param('number'), $session->param('id'), |
| 1605 |
$session->param('cardnumber'), $session->param('firstname'), |
1613 |
$session->param('cardnumber'), $session->param('firstname'), |
| 1606 |
$session->param('surname'), $session->param('branch'), |
1614 |
$session->param('surname'), $session->param('branch'), |
|
|
1615 |
$session->param('branchname'), $session->param('flags'), |
| 1607 |
$session->param('emailaddress'), $session->param('shibboleth'), |
1616 |
$session->param('emailaddress'), $session->param('shibboleth'), |
| 1608 |
$session->param('desk_id'), $session->param('desk_name') |
1617 |
$session->param('desk_id'), $session->param('desk_name'), |
|
|
1618 |
$session->param('register_id') |
| 1609 |
); |
1619 |
); |
| 1610 |
return ( "ok", $cookie, $sessionID ); |
1620 |
return ( "ok", $cookie, $sessionID ); |
| 1611 |
} else { |
1621 |
} else { |
|
Lines 1694-1700
sub check_cookie_auth {
Link Here
|
| 1694 |
$session->param('surname'), $session->param('branch'), |
1704 |
$session->param('surname'), $session->param('branch'), |
| 1695 |
$session->param('branchname'), $session->param('flags'), |
1705 |
$session->param('branchname'), $session->param('flags'), |
| 1696 |
$session->param('emailaddress'), $session->param('shibboleth'), |
1706 |
$session->param('emailaddress'), $session->param('shibboleth'), |
| 1697 |
$session->param('desk_id'), $session->param('desk_name') |
1707 |
$session->param('desk_id'), $session->param('desk_name'), |
|
|
1708 |
$session->param('register_id') |
| 1698 |
); |
1709 |
); |
| 1699 |
|
1710 |
|
| 1700 |
my $ip = $session->param('ip'); |
1711 |
my $ip = $session->param('ip'); |