2 #script to set the password, and optionally a userid, for a borrower
5 #converted to using templates 3/16/03 by mwhansen@hmc.edu
15 use Digest
::MD5
qw(md5_base64);
19 my $theme = $input->param('theme') || "default";
20 # only used if allowthemeoverride is set
22 my ($template, $loggedinuser, $cookie)
23 = get_template_and_user
({template_name
=> "members/member-password.tmpl",
27 flagsrequired
=> {borrowers
=> 1},
32 $flagsrequired->{borrowers
}=1;
33 my ($loggedinuser, $cookie, $sessionID) = checkauth
($input, 0, $flagsrequired);
35 my $member=$input->param('member');
36 my $cardnumber = $input->param('cardnumber');
37 my $destination = $input->param('destination');
40 $member2{'borrowernumber'}=$member;
41 # my $issues=GetBorrowerIssues(\%member2);
43 # foreach (sort keys %$issues) {
47 my ($bor,$flags)=GetMemberDetails
( $member,'');
48 my $newpassword = $input->param('newpassword');
51 my $digest=md5_base64
($input->param('newpassword'));
52 my $uid = $input->param('newuserid');
53 my $dbh=C4
::Context
->dbh;
55 if (changepassword
($uid,$member,$digest)) {
56 $template->param(newpassword
=> $newpassword);
57 if ($destination eq 'circ') {
58 print $input->redirect("/cgi-bin/koha/circ/circulation.pl?findborrower=$cardnumber");
61 print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member");
65 $template->param(othernames
=> $bor->{'othernames'},
66 surname
=> $bor->{'surname'},
67 firstname
=> $bor->{'firstname'},
68 userid
=> $bor->{'userid'},
69 defaultnewpassword
=> $newpassword );
72 my $userid = $bor->{'userid'};
74 my $chars='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789';
75 my $length=int(rand(2))+4;
76 my $defaultnewpassword='';
77 for (my $i=0; $i<$length; $i++) {
78 $defaultnewpassword.=substr($chars, int(rand(length($chars))),1);
80 $template->param( othernames
=> $bor->{'othernames'},
81 surname
=> $bor->{'surname'},
82 firstname
=> $bor->{'firstname'},
83 borrowernumber
=> $bor->{'borrowernumber'},
84 cardnumber
=> $bor->{'cardnumber'},
85 categorycode
=> $bor->{'categorycode'},
86 category_type
=> $bor->{'category_type'},
87 category_description
=> $bor->{'description'},
88 address
=> $bor->{'address'},
89 address2
=> $bor->{'address2'},
90 city
=> $bor->{'city'},
91 zipcode
=> $bor->{'zipcode'},
92 phone
=> $bor->{'phone'},
93 email
=> $bor->{'email'},
94 branchcode
=> $bor->{'branchcode'},
95 userid
=> $bor->{'userid'},
96 destination
=> $destination,
97 defaultnewpassword
=> $defaultnewpassword
103 $template->param( member
=> $member);
105 output_html_with_http_headers
$input, $cookie, $template->output;