Josef Moravec
4fe300dec1
Changes:
- Replace getting preference ExtendedPatronAttributes by Koha.Preference
in templates
- Add Koha::Patron->attributes for getting patrons extended attributes
- Use this method in circ-menu.inc
- Remove getting attributes from members perl scripts
Test plan:
0) Apply the patch
1) Add some patron attributes type - with free text, authorised value,
limited by libraries...
2) Add some values to this attributes for some patrons
3) Go through as many patron pages as you can and confirm that
attributes are shown at side panel when they shoul and are not shown
when they should not be shown
Signed-off-by: Séverine QUEUNE <severine.queune@bulac.fr>
Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
[EDIT] Removed Koha/Schema/Result/BorrowerAttribute.pm
[EDIT] Added missing semicolon on L114 in Koha/Patron/Attribute.pm
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
113 lines
3.5 KiB
Perl
Executable file
113 lines
3.5 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
#script to set the password, and optionally a userid, for a borrower
|
|
#written 2/5/00
|
|
#by chris@katipo.co.nz
|
|
#converted to using templates 3/16/03 by mwhansen@hmc.edu
|
|
|
|
use Modern::Perl;
|
|
|
|
use C4::Auth;
|
|
use Koha::AuthUtils;
|
|
use C4::Output;
|
|
use C4::Context;
|
|
use C4::Members;
|
|
use C4::Circulation;
|
|
use CGI qw ( -utf8 );
|
|
use Koha::AuthUtils;
|
|
use Koha::Token;
|
|
|
|
use Koha::Patrons;
|
|
use Koha::Patron::Categories;
|
|
|
|
use Try::Tiny;
|
|
|
|
my $input = new CGI;
|
|
|
|
my $theme = $input->param('theme') || "default";
|
|
|
|
# only used if allowthemeoverride is set
|
|
|
|
my ( $template, $loggedinuser, $cookie, $staffflags ) = get_template_and_user(
|
|
{
|
|
template_name => "members/member-password.tt",
|
|
query => $input,
|
|
type => "intranet",
|
|
authnotrequired => 0,
|
|
flagsrequired => { borrowers => 'edit_borrowers' },
|
|
debug => 1,
|
|
}
|
|
);
|
|
|
|
my $patron_id = $input->param('member');
|
|
my $destination = $input->param('destination');
|
|
my $newpassword = $input->param('newpassword');
|
|
my $newpassword2 = $input->param('newpassword2');
|
|
my $new_user_id = $input->param('newuserid');
|
|
|
|
my @errors;
|
|
|
|
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
|
|
my $patron = Koha::Patrons->find( $patron_id );
|
|
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
|
|
|
|
my $category_type = $patron->category->category_type;
|
|
|
|
if ( ( $patron_id ne $loggedinuser ) && ( $category_type eq 'S' ) ) {
|
|
push( @errors, 'NOPERMISSION' )
|
|
unless ( $staffflags->{'superlibrarian'} || $staffflags->{'staffaccess'} );
|
|
|
|
# need superlibrarian for koha-conf.xml fakeuser.
|
|
}
|
|
|
|
push( @errors, 'NOMATCH' ) if ( ( $newpassword && $newpassword2 ) && ( $newpassword ne $newpassword2 ) );
|
|
|
|
if ( $newpassword and not @errors) {
|
|
|
|
output_and_exit( $input, $cookie, $template, 'wrong_csrf_token' )
|
|
unless Koha::Token->new->check_csrf({
|
|
session_id => scalar $input->cookie('CGISESSID'),
|
|
token => scalar $input->param('csrf_token'),
|
|
});
|
|
|
|
try {
|
|
$patron->set_password({ password => $newpassword });
|
|
$patron->userid($new_user_id)->store
|
|
if $new_user_id and $new_user_id ne $patron->userid;
|
|
$template->param( newpassword => $newpassword );
|
|
if ( $destination eq 'circ' ) {
|
|
print $input->redirect("/cgi-bin/koha/circ/circulation.pl?findborrower=" . $patron->cardnumber);
|
|
}
|
|
else {
|
|
print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$patron_id");
|
|
}
|
|
}
|
|
catch {
|
|
if ( $_->isa('Koha::Exceptions::Password::TooShort') ) {
|
|
push @errors, 'ERROR_password_too_short';
|
|
}
|
|
elsif ( $_->isa('Koha::Exceptions::Password::WhitespaceCharacters') ) {
|
|
push @errors, 'ERROR_password_has_whitespaces';
|
|
}
|
|
elsif ( $_->isa('Koha::Exceptions::Password::TooWeak') ) {
|
|
push @errors, 'ERROR_password_too_weak';
|
|
}
|
|
else {
|
|
push( @errors, 'BADUSERID' );
|
|
}
|
|
};
|
|
}
|
|
|
|
$template->param(
|
|
patron => $patron,
|
|
destination => $destination,
|
|
csrf_token => Koha::Token->new->generate_csrf({ session_id => scalar $input->cookie('CGISESSID'), }),
|
|
);
|
|
|
|
if ( scalar(@errors) ) {
|
|
$template->param( errormsg => 1 );
|
|
foreach my $error (@errors) {
|
|
$template->param($error) || $template->param( $error => 1 );
|
|
}
|
|
}
|
|
|
|
output_html_with_http_headers $input, $cookie, $template->output;
|