Lines 1070-1076
sub checkauth {
Link Here
|
1070 |
C4::Context->_unset_userenv($sessionID); |
1070 |
C4::Context->_unset_userenv($sessionID); |
1071 |
} |
1071 |
} |
1072 |
my ( $borrowernumber, $firstname, $surname, $userflags, |
1072 |
my ( $borrowernumber, $firstname, $surname, $userflags, |
1073 |
$branchcode, $branchname, $emailaddress ); |
1073 |
$branchcode, $branchname, $emailaddress, $desk_id, $desk_name ); |
1074 |
|
1074 |
|
1075 |
if ( $return == 1 ) { |
1075 |
if ( $return == 1 ) { |
1076 |
my $select = " |
1076 |
my $select = " |
Lines 1114-1119
sub checkauth {
Link Here
|
1114 |
my $library = Koha::Libraries->find($branchcode); |
1114 |
my $library = Koha::Libraries->find($branchcode); |
1115 |
$branchname = $library? $library->branchname: ''; |
1115 |
$branchname = $library? $library->branchname: ''; |
1116 |
} |
1116 |
} |
|
|
1117 |
if ( $query->param('desk_id') ) { |
1118 |
$desk_id = $query->param('desk_id'); |
1119 |
my $desk = Koha::Desks->find($desk_id); |
1120 |
$desk_name = $desk ? $desk->desk_name : ''; |
1121 |
} |
1117 |
my $branches = { map { $_->branchcode => $_->unblessed } Koha::Libraries->search }; |
1122 |
my $branches = { map { $_->branchcode => $_->unblessed } Koha::Libraries->search }; |
1118 |
if ( $type ne 'opac' and C4::Context->boolean_preference('AutoLocation') ) { |
1123 |
if ( $type ne 'opac' and C4::Context->boolean_preference('AutoLocation') ) { |
1119 |
|
1124 |
|
Lines 1149-1154
sub checkauth {
Link Here
|
1149 |
$session->param( 'surname', $surname ); |
1154 |
$session->param( 'surname', $surname ); |
1150 |
$session->param( 'branch', $branchcode ); |
1155 |
$session->param( 'branch', $branchcode ); |
1151 |
$session->param( 'branchname', $branchname ); |
1156 |
$session->param( 'branchname', $branchname ); |
|
|
1157 |
$session->param( 'desk_id', $desk_id); |
1158 |
$session->param( 'desk_name', $desk_name); |
1152 |
$session->param( 'flags', $userflags ); |
1159 |
$session->param( 'flags', $userflags ); |
1153 |
$session->param( 'emailaddress', $emailaddress ); |
1160 |
$session->param( 'emailaddress', $emailaddress ); |
1154 |
$session->param( 'ip', $session->remote_addr() ); |
1161 |
$session->param( 'ip', $session->remote_addr() ); |
Lines 1164-1170
sub checkauth {
Link Here
|
1164 |
$session->param('surname'), $session->param('branch'), |
1171 |
$session->param('surname'), $session->param('branch'), |
1165 |
$session->param('branchname'), $session->param('flags'), |
1172 |
$session->param('branchname'), $session->param('flags'), |
1166 |
$session->param('emailaddress'), $session->param('shibboleth'), |
1173 |
$session->param('emailaddress'), $session->param('shibboleth'), |
1167 |
$session->param('desk_id'), $session->param('desk_name') |
1174 |
$session->param('desk_id'), $session->param('desk_name') |
1168 |
); |
1175 |
); |
1169 |
|
1176 |
|
1170 |
} |
1177 |
} |