|
Lines 30-35
use Koha::Patrons;
Link Here
|
| 30 |
use Try::Tiny qw( catch try ); |
30 |
use Try::Tiny qw( catch try ); |
| 31 |
|
31 |
|
| 32 |
my $query = CGI->new; |
32 |
my $query = CGI->new; |
|
|
33 |
my $op = $query->param('op') || q{}; |
| 33 |
|
34 |
|
| 34 |
my ( $template, $borrowernumber, $cookie ) = get_template_and_user( |
35 |
my ( $template, $borrowernumber, $cookie ) = get_template_and_user( |
| 35 |
{ |
36 |
{ |
|
Lines 45-50
if ( $patron->category->effective_change_password ) {
Link Here
|
| 45 |
&& $query->param('Newkey') |
46 |
&& $query->param('Newkey') |
| 46 |
&& $query->param('Confirm') ) |
47 |
&& $query->param('Confirm') ) |
| 47 |
{ |
48 |
{ |
|
|
49 |
die "op must be set" unless $op eq 'change_password'; |
| 48 |
my $error; |
50 |
my $error; |
| 49 |
my $new_password = $query->param('Newkey'); |
51 |
my $new_password = $query->param('Newkey'); |
| 50 |
my $confirm_password = $query->param('Confirm'); |
52 |
my $confirm_password = $query->param('Confirm'); |
| 51 |
- |
|
|