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, $staffflags)
23 = get_template_and_user
({template_name
=> "members/member-password.tmpl",
27 flagsrequired
=> {borrowers
=> 1},
32 $flagsrequired->{borrowers
}=1;
34 #my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
36 my $member=$input->param('member');
37 my $cardnumber = $input->param('cardnumber');
38 my $destination = $input->param('destination');
40 my ($bor)=GetMember
($member);
41 if(( $member ne $loggedinuser ) && ($bor->{'category_type'} eq 'S' ) ) {
42 $errormsg = 'NOPERMISSION' unless($staffflags->{'superlibrarian'} || $staffflags->{'staffaccess'} );
43 # need superlibrarian for koha-conf.xml fakeuser.
45 my $newpassword = $input->param('newpassword');
46 my $minpw = C4
::Context
->preference('minPasswordLength');
47 $errormsg = 'SHORTPASSWORD' if( $newpassword && $minpw & (length($newpassword) < $minpw ) );
49 if ( $newpassword && ! $errormsg ) {
50 my $digest=md5_base64
($input->param('newpassword'));
51 my $uid = $input->param('newuserid');
52 my $dbh=C4
::Context
->dbh;
53 if (changepassword
($uid,$member,$digest)) {
54 $template->param(newpassword
=> $newpassword);
55 if ($destination eq 'circ') {
56 print $input->redirect("/cgi-bin/koha/circ/circulation.pl?findborrower=$cardnumber");
58 print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member");
61 $errormsg = 'BADUSERID';
62 $template->param(othernames
=> $bor->{'othernames'},
63 surname
=> $bor->{'surname'},
64 firstname
=> $bor->{'firstname'},
65 userid
=> $bor->{'userid'},
66 defaultnewpassword
=> $newpassword
70 my $userid = $bor->{'userid'};
72 my $chars='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789';
73 my $length=int(rand(2))+4;
74 my $defaultnewpassword='';
75 for (my $i=0; $i<$length; $i++) {
76 $defaultnewpassword.=substr($chars, int(rand(length($chars))),1);
79 my $borrowercategory = GetBorrowercategory
( $bor->{'categorycode'} );
80 my $category_type = $borrowercategory->{'category_type'};
81 ( $template->param( adultborrower
=> 1 ) ) if ( $category_type eq 'A' );
82 my ($picture, $dberror) = GetPatronImage
($bor->{'cardnumber'});
83 $template->param( picture
=> 1 ) if $picture;
85 $template->param( othernames
=> $bor->{'othernames'},
86 surname
=> $bor->{'surname'},
87 firstname
=> $bor->{'firstname'},
88 borrowernumber
=> $bor->{'borrowernumber'},
89 cardnumber
=> $bor->{'cardnumber'},
90 categorycode
=> $bor->{'categorycode'},
91 category_type
=> $bor->{'category_type'},
92 category_description
=> $bor->{'description'},
93 address
=> $bor->{'address'},
94 address2
=> $bor->{'address2'},
95 city
=> $bor->{'city'},
96 zipcode
=> $bor->{'zipcode'},
97 phone
=> $bor->{'phone'},
98 email
=> $bor->{'email'},
99 branchcode
=> $bor->{'branchcode'},
100 userid
=> $bor->{'userid'},
101 destination
=> $destination,
102 defaultnewpassword
=> $defaultnewpassword
108 $template->param( member
=> $member,
109 errormsg
=> $errormsg,
111 minPasswordLength
=> $minpw );
113 output_html_with_http_headers
$input, $cookie, $template->output;