|
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 |
- |
|
|