Lines 27-32
by oleonard@athenscounty.lib.oh.us
Link Here
|
27 |
=cut |
27 |
=cut |
28 |
|
28 |
|
29 |
use strict; |
29 |
use strict; |
|
|
30 |
use warnings; |
30 |
|
31 |
|
31 |
use CGI; |
32 |
use CGI; |
32 |
use C4::Context; |
33 |
use C4::Context; |
Lines 39-45
$flagsrequired->{borrowers} = 1;
Link Here
|
39 |
my ( $loggedinuser, $cookie, $sessionID ) = |
40 |
my ( $loggedinuser, $cookie, $sessionID ) = |
40 |
checkauth( $input, 0, $flagsrequired ); |
41 |
checkauth( $input, 0, $flagsrequired ); |
41 |
|
42 |
|
42 |
my $destination = $input->param("destination"); |
43 |
my $destination = $input->param("destination") || ''; |
43 |
my $cardnumber = $input->param("cardnumber"); |
44 |
my $cardnumber = $input->param("cardnumber"); |
44 |
my $borrowernumber = $input->param('borrowernumber'); |
45 |
my $borrowernumber = $input->param('borrowernumber'); |
45 |
my $status = $input->param('status'); |
46 |
my $status = $input->param('status'); |
46 |
- |
|
|