Attachment #144907 for bug #31095

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

Lines 713-719 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/members/moremember.tt (-2 / +2 lines)
713	[% END %]	713	[% END %]
714		714
715	<li role="presentation">	715	<li role="presentation">
716	<a id="debarments-tab-link" href="#reldebarments" aria-controls="reldebarments" role="tab" data-toggle="tab">Restrictions ([% debarments.size \|\| 0 \| html %])</a>	716	<a id="debarments-tab-link" href="#reldebarments" aria-controls="reldebarments" role="tab" data-toggle="tab">Restrictions ([% patron.restrictions.count \| html %])</a>
717	</li>	717	</li>
718		718
719	[% SET enrollments = patron.get_club_enrollments %]	719	[% SET enrollments = patron.get_club_enrollments %]
Lines 748-754 Link Here
748	</div>	748	</div>
749	[% END %]	749	[% END %]
750		750
751	[% INCLUDE borrower_debarments.inc %]	751	[% INCLUDE 'patron-restrictions-tab.inc' %]
752		752
753	[% IF ( CAN_user_circulate_circulate_remaining_permissions ) %]	753	[% IF ( CAN_user_circulate_circulate_remaining_permissions ) %]
754	<div id="reserves" role="tabpanel" class="tab-pane">	754	<div id="reserves" role="tabpanel" class="tab-pane">




use List::MoreUtils qw( uniq );
use Scalar::Util qw( looks_like_number );
use Koha::Patron::Attribute::Types;
use Koha::Patron::Debarments qw( GetDebarments );
use Koha::Patron::Restriction::Types;
use Koha::Patron::Messages;
use Koha::CsvProfiles;

}

$template->param(
    restriction_types => scalar Koha::Patron::Restriction::Types->search()
);

if ( $patron->is_debarred ) {
    $template->param(
        'debarments'      => scalar GetDebarments({ borrowernumber => $borrowernumber }),
        'userdebarred'    => $patron->debarred,
        'debarredcomment' => $patron->debarredcomment,
    );

    relatives_borrowernumbers => \@relatives,
    logged_in_user => $logged_in_user,
    files => Koha::Patron::Files->new( borrowernumber => $borrowernumber ) ->GetFilesInfo(),
    #debarments                => scalar GetDebarments({ borrowernumber => $borrowernumber }),
    has_modifications         => $has_modifications,
);

- 

Return to bug 31095

Lines 36-42 use C4::Form::MessagingPreferences; Link Here

(-)a/members/moremember.pl (-5 / +1 lines)
36	use List::MoreUtils qw( uniq );	36	use List::MoreUtils qw( uniq );
37	use Scalar::Util qw( looks_like_number );	37	use Scalar::Util qw( looks_like_number );
38	use Koha::Patron::Attribute::Types;	38	use Koha::Patron::Attribute::Types;
39	use Koha::Patron::Debarments qw( GetDebarments );
40	use Koha::Patron::Restriction::Types;	39	use Koha::Patron::Restriction::Types;
41	use Koha::Patron::Messages;	40	use Koha::Patron::Messages;
42	use Koha::CsvProfiles;	41	use Koha::CsvProfiles;
Lines 81-92 for (qw(gonenoaddress lost borrowernotes is_debarred)) { Link Here
81	}	80	}
82		81
83	$template->param(	82	$template->param(
84	restriction_types => scalar Koha::Patron::Restriction::Types->keyed_on_code()	83	restriction_types => scalar Koha::Patron::Restriction::Types->search()
85	);	84	);
86		85
87	if ( $patron->is_debarred ) {	86	if ( $patron->is_debarred ) {
88	$template->param(	87	$template->param(
89	'debarments' => scalar GetDebarments({ borrowernumber => $borrowernumber }),
90	'userdebarred' => $patron->debarred,	88	'userdebarred' => $patron->debarred,
91	'debarredcomment' => $patron->debarredcomment,	89	'debarredcomment' => $patron->debarredcomment,
92	);	90	);
Lines 281-287 $template->param( Link Here
281	relatives_borrowernumbers => \@relatives,	279	relatives_borrowernumbers => \@relatives,
282	logged_in_user => $logged_in_user,	280	logged_in_user => $logged_in_user,
283	files => Koha::Patron::Files->new( borrowernumber => $borrowernumber ) ->GetFilesInfo(),	281	files => Koha::Patron::Files->new( borrowernumber => $borrowernumber ) ->GetFilesInfo(),
284	#debarments => scalar GetDebarments({ borrowernumber => $borrowernumber }),
285	has_modifications => $has_modifications,	282	has_modifications => $has_modifications,
286	);	283	);
287		284
288	-