|
Lines 848-855
sub checkauth {
Link Here
|
| 848 |
$session->param('cardnumber'), $session->param('firstname'), |
848 |
$session->param('cardnumber'), $session->param('firstname'), |
| 849 |
$session->param('surname'), $session->param('branch'), |
849 |
$session->param('surname'), $session->param('branch'), |
| 850 |
$session->param('branchname'), $session->param('flags'), |
850 |
$session->param('branchname'), $session->param('flags'), |
| 851 |
$session->param('emailaddress'), |
851 |
$session->param('emailaddress'), $session->param('shibboleth'), |
| 852 |
$session->param('shibboleth') |
852 |
$session->param('register_id') |
| 853 |
); |
853 |
); |
| 854 |
C4::Context::set_shelves_userenv( 'bar', $session->param('barshelves') ); |
854 |
C4::Context::set_shelves_userenv( 'bar', $session->param('barshelves') ); |
| 855 |
C4::Context::set_shelves_userenv( 'pub', $session->param('pubshelves') ); |
855 |
C4::Context::set_shelves_userenv( 'pub', $session->param('pubshelves') ); |
|
Lines 1069-1075
sub checkauth {
Link Here
|
| 1069 |
C4::Context->_unset_userenv($sessionID); |
1069 |
C4::Context->_unset_userenv($sessionID); |
| 1070 |
} |
1070 |
} |
| 1071 |
my ( $borrowernumber, $firstname, $surname, $userflags, |
1071 |
my ( $borrowernumber, $firstname, $surname, $userflags, |
| 1072 |
$branchcode, $branchname, $emailaddress ); |
1072 |
$branchcode, $branchname, $emailaddress, $register_id ); |
| 1073 |
|
1073 |
|
| 1074 |
if ( $return == 1 ) { |
1074 |
if ( $return == 1 ) { |
| 1075 |
my $select = " |
1075 |
my $select = " |
|
Lines 1113-1118
sub checkauth {
Link Here
|
| 1113 |
my $library = Koha::Libraries->find($branchcode); |
1113 |
my $library = Koha::Libraries->find($branchcode); |
| 1114 |
$branchname = $library? $library->branchname: ''; |
1114 |
$branchname = $library? $library->branchname: ''; |
| 1115 |
} |
1115 |
} |
|
|
1116 |
if ( $query->param('register_id') ) { |
| 1117 |
$register_id = $query->param('register_id'); |
| 1118 |
} |
| 1116 |
my $branches = { map { $_->branchcode => $_->unblessed } Koha::Libraries->search }; |
1119 |
my $branches = { map { $_->branchcode => $_->unblessed } Koha::Libraries->search }; |
| 1117 |
if ( $type ne 'opac' and C4::Context->boolean_preference('AutoLocation') ) { |
1120 |
if ( $type ne 'opac' and C4::Context->boolean_preference('AutoLocation') ) { |
| 1118 |
|
1121 |
|
|
Lines 1154-1159
sub checkauth {
Link Here
|
| 1154 |
$session->param( 'lasttime', time() ); |
1157 |
$session->param( 'lasttime', time() ); |
| 1155 |
$session->param( 'interface', $type); |
1158 |
$session->param( 'interface', $type); |
| 1156 |
$session->param( 'shibboleth', $shibSuccess ); |
1159 |
$session->param( 'shibboleth', $shibSuccess ); |
|
|
1160 |
$session->param( 'register_id', $register_id ); |
| 1157 |
$debug and printf STDERR "AUTH_4: (%s)\t%s %s - %s\n", map { $session->param($_) } qw(cardnumber firstname surname branch); |
1161 |
$debug and printf STDERR "AUTH_4: (%s)\t%s %s - %s\n", map { $session->param($_) } qw(cardnumber firstname surname branch); |
| 1158 |
} |
1162 |
} |
| 1159 |
$session->param('cas_ticket', $cas_ticket) if $cas_ticket; |
1163 |
$session->param('cas_ticket', $cas_ticket) if $cas_ticket; |
|
Lines 1162-1168
sub checkauth {
Link Here
|
| 1162 |
$session->param('cardnumber'), $session->param('firstname'), |
1166 |
$session->param('cardnumber'), $session->param('firstname'), |
| 1163 |
$session->param('surname'), $session->param('branch'), |
1167 |
$session->param('surname'), $session->param('branch'), |
| 1164 |
$session->param('branchname'), $session->param('flags'), |
1168 |
$session->param('branchname'), $session->param('flags'), |
| 1165 |
$session->param('emailaddress'), $session->param('shibboleth') |
1169 |
$session->param('emailaddress'), $session->param('shibboleth'), |
|
|
1170 |
$session->param('register_id') |
| 1166 |
); |
1171 |
); |
| 1167 |
|
1172 |
|
| 1168 |
} |
1173 |
} |
|
Lines 1440-1446
sub check_api_auth {
Link Here
|
| 1440 |
$session->param('cardnumber'), $session->param('firstname'), |
1445 |
$session->param('cardnumber'), $session->param('firstname'), |
| 1441 |
$session->param('surname'), $session->param('branch'), |
1446 |
$session->param('surname'), $session->param('branch'), |
| 1442 |
$session->param('branchname'), $session->param('flags'), |
1447 |
$session->param('branchname'), $session->param('flags'), |
| 1443 |
$session->param('emailaddress') |
1448 |
$session->param('emailaddress'), $session->param('shibboleth'), |
|
|
1449 |
$session->param('register_id') |
| 1444 |
); |
1450 |
); |
| 1445 |
|
1451 |
|
| 1446 |
my $ip = $session->param('ip'); |
1452 |
my $ip = $session->param('ip'); |
|
Lines 1600-1606
sub check_api_auth {
Link Here
|
| 1600 |
$session->param('cardnumber'), $session->param('firstname'), |
1606 |
$session->param('cardnumber'), $session->param('firstname'), |
| 1601 |
$session->param('surname'), $session->param('branch'), |
1607 |
$session->param('surname'), $session->param('branch'), |
| 1602 |
$session->param('branchname'), $session->param('flags'), |
1608 |
$session->param('branchname'), $session->param('flags'), |
| 1603 |
$session->param('emailaddress') |
1609 |
$session->param('emailaddress'), $session->param('shibboleth'), |
|
|
1610 |
$session->param('register_id') |
| 1604 |
); |
1611 |
); |
| 1605 |
return ( "ok", $cookie, $sessionID ); |
1612 |
return ( "ok", $cookie, $sessionID ); |
| 1606 |
} else { |
1613 |
} else { |
|
Lines 1688-1694
sub check_cookie_auth {
Link Here
|
| 1688 |
$session->param('cardnumber'), $session->param('firstname'), |
1695 |
$session->param('cardnumber'), $session->param('firstname'), |
| 1689 |
$session->param('surname'), $session->param('branch'), |
1696 |
$session->param('surname'), $session->param('branch'), |
| 1690 |
$session->param('branchname'), $session->param('flags'), |
1697 |
$session->param('branchname'), $session->param('flags'), |
| 1691 |
$session->param('emailaddress') |
1698 |
$session->param('emailaddress'), $session->param('shibboleth'), |
|
|
1699 |
$session->param('register_id') |
| 1692 |
); |
1700 |
); |
| 1693 |
|
1701 |
|
| 1694 |
my $ip = $session->param('ip'); |
1702 |
my $ip = $session->param('ip'); |