Lines 1212-1219
sub checkauth {
Link Here
|
1212 |
my @inputs = (); |
1212 |
my @inputs = (); |
1213 |
foreach my $name ( param $query) { |
1213 |
foreach my $name ( param $query) { |
1214 |
(next) if ( $name eq 'userid' || $name eq 'password' || $name eq 'ticket' ); |
1214 |
(next) if ( $name eq 'userid' || $name eq 'password' || $name eq 'ticket' ); |
1215 |
my $value = $query->param($name); |
1215 |
my @value = $query->multi_param($name); |
1216 |
push @inputs, { name => $name, value => $value }; |
1216 |
push @inputs, { name => $name, value => $_ } for @value; |
1217 |
} |
1217 |
} |
1218 |
|
1218 |
|
1219 |
my $patron = Koha::Patrons->find({ userid => $q_userid }); # Not necessary logged in! |
1219 |
my $patron = Koha::Patrons->find({ userid => $q_userid }); # Not necessary logged in! |
1220 |
- |
|
|