View | Details | Raw Unified | Return to bug 2505
Collapse All | Expand All

(-)a/members/members-home.pl (+2 lines)
Lines 16-21 Link Here
16
# Suite 330, Boston, MA  02111-1307 USA
16
# Suite 330, Boston, MA  02111-1307 USA
17
17
18
use strict;
18
use strict;
19
use warnings;
20
19
use CGI;
21
use CGI;
20
use C4::Auth;
22
use C4::Auth;
21
use C4::Output;
23
use C4::Output;
(-)a/members/setstatus.pl (-3 / +3 lines)
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
- 

Return to bug 2505