Lines 1229-1236
sub checkauth {
Link Here
|
1229 |
my @inputs = (); |
1229 |
my @inputs = (); |
1230 |
foreach my $name ( param $query) { |
1230 |
foreach my $name ( param $query) { |
1231 |
(next) if ( $name eq 'userid' || $name eq 'password' || $name eq 'ticket' ); |
1231 |
(next) if ( $name eq 'userid' || $name eq 'password' || $name eq 'ticket' ); |
1232 |
my $value = $query->param($name); |
1232 |
my @value = $query->multi_param($name); |
1233 |
push @inputs, { name => $name, value => $value }; |
1233 |
push @inputs, { name => $name, value => $_ } for @value; |
1234 |
} |
1234 |
} |
1235 |
|
1235 |
|
1236 |
my $patron = Koha::Patrons->find({ userid => $q_userid }); # Not necessary logged in! |
1236 |
my $patron = Koha::Patrons->find({ userid => $q_userid }); # Not necessary logged in! |
1237 |
- |
|
|