Attachment #144828 for bug #32373

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




use Koha::CsvProfiles;
use Koha::Patrons;
use Koha::Patron::Debarments qw( GetDebarments );
use Koha::DateUtils qw( dt_from_string format_sqldatetime );
use Koha::Patron::Restriction::Types;
use Koha::Plugins;
use Koha::Database;

        finetotal    => $balance,
    );

    my $debarrment = @{ GetDebarments( { borrowernumber => $borrowernumber } ) }[0] || undef;
    my $dateformatted = format_sqldatetime( $debarrment->{created} ) if $debarrment;
    my $debarrmentdate = substr($dateformatted, 0, 10) if $debarrment;

    if ( $patron and $patron->is_debarred ) {
        $template->param(
            'userdebarred'    => $patron->debarred,
            'debarredcomment' => $patron->debarredcomment,
            'debarredsince' => $debarrmentdate
        );

        if ( $patron->debarred ne "9999-12-31" ) {

Lines 58-64 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/patron_messages.inc (-1 / +1 lines)
58		58
59	[% IF ( userdebarred ) %]	59	[% IF ( userdebarred ) %]
60	<li class="userdebarred blocker">	60	<li class="userdebarred blocker">
61	<span class="circ-hlt"> Restricted:</span> Patron's account is restricted	61	<span class="circ-hlt"> Restricted since [% debarredsince %]:</span> Patron's account is restricted
62		62
63	[% IF ( userdebarreddate ) %]	63	[% IF ( userdebarreddate ) %]
64	until [% userdebarreddate \| $KohaDates %]	64	until [% userdebarreddate \| $KohaDates %]

Lines 45-50 use Koha::Patrons; Link Here

(-)a/members/moremember.pl (-2 / +6 lines)
45	use Koha::Patron::Files;	45	use Koha::Patron::Files;
46	use Koha::Token;	46	use Koha::Token;
47	use Koha::Checkouts;	47	use Koha::Checkouts;
		48	use Koha::DateUtils qw( format_sqldatetime );
48		49
49	my $input = CGI->new;	50	my $input = CGI->new;
50		51
Lines 85-94 $template->param( Link Here
85	);	86	);
86		87
87	if ( $patron->is_debarred ) {	88	if ( $patron->is_debarred ) {
		89	my $debarrment = @{ GetDebarments( { borrowernumber => $borrowernumber } ) }[0] \|\| undef;
		90	my $dateformatted = format_sqldatetime( $debarrment->{created} );
		91	my $debarrmentdate = substr($dateformatted, 0, 10);
88	$template->param(	92	$template->param(
89	'debarments' => scalar GetDebarments({ borrowernumber => $borrowernumber }),	93	'debarments' => scalar $debarrment,
90	'userdebarred' => $patron->debarred,	94	'userdebarred' => $patron->debarred,
91	'debarredcomment' => $patron->debarredcomment,	95	'debarredcomment' => $patron->debarredcomment,
		96	'debarredsince' => $debarrmentdate
92	);	97	);
93		98
94	if ( $patron->debarred ne "9999-12-31" ) {	99	if ( $patron->debarred ne "9999-12-31" ) {
95	-

Return to bug 32373

Lines 45-51 use Koha::AuthorisedValues; Link Here

(-)a/circ/circulation.pl (-1 / +6 lines)
45	use Koha::CsvProfiles;	45	use Koha::CsvProfiles;
46	use Koha::Patrons;	46	use Koha::Patrons;
47	use Koha::Patron::Debarments qw( GetDebarments );	47	use Koha::Patron::Debarments qw( GetDebarments );
48	use Koha::DateUtils qw( dt_from_string );	48	use Koha::DateUtils qw( dt_from_string format_sqldatetime );
49	use Koha::Patron::Restriction::Types;	49	use Koha::Patron::Restriction::Types;
50	use Koha::Plugins;	50	use Koha::Plugins;
51	use Koha::Database;	51	use Koha::Database;
Lines 265-274 if ($patron) { Link Here
265	finetotal => $balance,	265	finetotal => $balance,
266	);	266	);
267		267
		268	my $debarrment = @{ GetDebarments( { borrowernumber => $borrowernumber } ) }[0] \|\| undef;
		269	my $dateformatted = format_sqldatetime( $debarrment->{created} ) if $debarrment;
		270	my $debarrmentdate = substr($dateformatted, 0, 10) if $debarrment;
		271
268	if ( $patron and $patron->is_debarred ) {	272	if ( $patron and $patron->is_debarred ) {
269	$template->param(	273	$template->param(
270	'userdebarred' => $patron->debarred,	274	'userdebarred' => $patron->debarred,
271	'debarredcomment' => $patron->debarredcomment,	275	'debarredcomment' => $patron->debarredcomment,
		276	'debarredsince' => $debarrmentdate
272	);	277	);
273		278
274	if ( $patron->debarred ne "9999-12-31" ) {	279	if ( $patron->debarred ne "9999-12-31" ) {