Attachment #105303 for bug #20057

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

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/AutoApprovePatronProfileSettings.sql (+2 lines)
	1	INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type`) VALUES
	2	('AutoApprovePatronProfileSettings', '0', '', 'Automatically approve Patron profile changes.', 'YesNo');

Lines 73-78 Patrons: Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/patrons.pref (+6 lines)
73	- track last patron activity.	73	- track last patron activity.
74	- Every time a patron will connect, the borrowers.lastseen will be updated with the current time.	74	- Every time a patron will connect, the borrowers.lastseen will be updated with the current time.
75	-	75	-
		76	- pref: AutoApprovePatronProfileSettings
		77	choices:
		78	yes: Enable
		79	no: Disable
		80	- "Automatically approve Patron profile changes."
		81	-
76	- pref: ProtectSuperlibrarianPrivileges	82	- pref: ProtectSuperlibrarianPrivileges
77	choices:	83	choices:
78	yes: Allow only superlibrarians	84	yes: Allow only superlibrarians





use C4::Auth;
use C4::Output;
use C4::Context;
use C4::Members;
use C4::Form::MessagingPreferences;
use Koha::AuthUtils;

            Koha::Patron::Modifications->search({ borrowernumber => $borrowernumber })->delete;

            my $m = Koha::Patron::Modification->new( \%borrower_changes )->store();
            #Automatically approve patron profile changes if set in syspref

            if (C4::Context->preference('AutoApprovePatronProfileSettings')) {
                # Need to get the object from database, otherwise it is not complete enough to allow deletion
                # when approval has been performed.
                my $tmp_m = Koha::Patron::Modifications->find({borrowernumber => $borrowernumber});
                $tmp_m->approve() if $tmp_m;
            }

            my $patron = Koha::Patrons->find( $borrowernumber );
            $template->param( borrower => $patron->unblessed );
- 

Return to bug 20057

Lines 25-30 use String::Random qw( random_string ); Link Here

(-)a/opac/opac-memberentry.pl (-1 / +9 lines)
25		25
26	use C4::Auth;	26	use C4::Auth;
27	use C4::Output;	27	use C4::Output;
		28	use C4::Context;
28	use C4::Members;	29	use C4::Members;
29	use C4::Form::MessagingPreferences;	30	use C4::Form::MessagingPreferences;
30	use Koha::AuthUtils;	31	use Koha::AuthUtils;
Lines 299-304 elsif ( $action eq 'update' ) { Link Here
299	Koha::Patron::Modifications->search({ borrowernumber => $borrowernumber })->delete;	300	Koha::Patron::Modifications->search({ borrowernumber => $borrowernumber })->delete;
300		301
301	my $m = Koha::Patron::Modification->new( \%borrower_changes )->store();	302	my $m = Koha::Patron::Modification->new( \%borrower_changes )->store();
		303	#Automatically approve patron profile changes if set in syspref
		304
		305	if (C4::Context->preference('AutoApprovePatronProfileSettings')) {
		306	# Need to get the object from database, otherwise it is not complete enough to allow deletion
		307	# when approval has been performed.
		308	my $tmp_m = Koha::Patron::Modifications->find({borrowernumber => $borrowernumber});
		309	$tmp_m->approve() if $tmp_m;
		310	}
302		311
303	my $patron = Koha::Patrons->find( $borrowernumber );	312	my $patron = Koha::Patrons->find( $borrowernumber );
304	$template->param( borrower => $patron->unblessed );	313	$template->param( borrower => $patron->unblessed );
305	-