Attachment #89360 for bug #10910

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

Lines 38-43 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/members/deletemem.tt (+3 lines)
38	[%# TODO add "patron does not exist" unless patron %]	38	[%# TODO add "patron does not exist" unless patron %]
39	<div class="dialog alert">	39	<div class="dialog alert">
40	<h3>Are you sure you want to delete the patron [% patron.firstname \| html %] [% patron.surname \| html %]? This cannot be undone.</h3>	40	<h3>Are you sure you want to delete the patron [% patron.firstname \| html %] [% patron.surname \| html %]? This cannot be undone.</h3>
		41	[% IF pending_suggestions > 0 %]
		42	<h3>Note that this patron has [% pending_suggestions %] pending suggestions.</h3>
		43	[% END %]
41	<form action="/cgi-bin/koha/members/deletemem.pl">	44	<form action="/cgi-bin/koha/members/deletemem.pl">
42	<input type="hidden" name="csrf_token" value="[% csrf_token \| html %]" />	45	<input type="hidden" name="csrf_token" value="[% csrf_token \| html %]" />
43	<input type="hidden" name="member" value="[% patron.borrowernumber \| html %]"/>	46	<input type="hidden" name="member" value="[% patron.borrowernumber \| html %]"/>




use C4::Output;
use C4::Auth;
use C4::Members;
use C4::Suggestions qw( SearchSuggestion );
use Koha::Patrons;
use Koha::Token;
use Koha::Patron::Categories;

        $template->param(guarantees => 1);
    }

    # Add warning if patron has pending suggestions
    $template->param(
        pending_suggestions => scalar @{
        C4::Suggestions::SearchSuggestion(
                { suggestedby => $member, STATUS => 'ASKED' }
            )
        }
    );
    # This is silly written but reflect the same conditions as above
    if ( not $countissues > 0 and not $charges and not $is_guarantor ) {
        $template->param(
- 

Return to bug 10910

Lines 28-33 use C4::Context; Link Here

(-)a/members/deletemem.pl (-1 / +9 lines)
28	use C4::Output;	28	use C4::Output;
29	use C4::Auth;	29	use C4::Auth;
30	use C4::Members;	30	use C4::Members;
		31	use C4::Suggestions qw( SearchSuggestion );
31	use Koha::Patrons;	32	use Koha::Patrons;
32	use Koha::Token;	33	use Koha::Token;
33	use Koha::Patron::Categories;	34	use Koha::Patron::Categories;
Lines 100-105 if ( $op eq 'delete_confirm' or $countissues > 0 or $charges or $is_guarantor ) Link Here
100	$template->param(guarantees => 1);	101	$template->param(guarantees => 1);
101	}	102	}
102		103
		104	# Add warning if patron has pending suggestions
		105	$template->param(
		106	pending_suggestions => scalar @{
		107	C4::Suggestions::SearchSuggestion(
		108	{ suggestedby => $member, STATUS => 'ASKED' }
		109	)
		110	}
		111	);
103	# This is silly written but reflect the same conditions as above	112	# This is silly written but reflect the same conditions as above
104	if ( not $countissues > 0 and not $charges and not $is_guarantor ) {	113	if ( not $countissues > 0 and not $charges and not $is_guarantor ) {
105	$template->param(	114	$template->param(
106	-