Lines 23-28
Link Here
|
23 |
# Suite 330, Boston, MA 02111-1307 USA |
23 |
# Suite 330, Boston, MA 02111-1307 USA |
24 |
|
24 |
|
25 |
use strict; |
25 |
use strict; |
|
|
26 |
use warnings; |
26 |
|
27 |
|
27 |
use CGI; |
28 |
use CGI; |
28 |
use C4::Context; |
29 |
use C4::Context; |
Lines 36-46
my $flagsrequired;
Link Here
|
36 |
$flagsrequired->{borrowers}=1; |
37 |
$flagsrequired->{borrowers}=1; |
37 |
my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired); |
38 |
my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired); |
38 |
|
39 |
|
39 |
my $destination = $input->param("destination"); |
40 |
my $destination = $input->param("destination") || ''; |
40 |
my $cardnumber = $input->param("cardnumber"); |
41 |
my $cardnumber = $input->param("cardnumber"); |
41 |
my $borrowernumber=$input->param('borrowernumber'); |
42 |
my $borrowernumber=$input->param('borrowernumber'); |
42 |
my $status = $input->param('status'); |
43 |
my $status = $input->param('status'); |
43 |
my $reregistration = $input->param('reregistration'); |
44 |
my $reregistration = $input->param('reregistration') || ''; |
44 |
|
45 |
|
45 |
my $dbh = C4::Context->dbh; |
46 |
my $dbh = C4::Context->dbh; |
46 |
my $dateexpiry; |
47 |
my $dateexpiry; |
47 |
- |
|
|