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

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/members/moremember.tt (+4 lines)
Lines 54-59 Link Here
54 
                                <h3>Unable to delete patrons from other libraries with current settings</h3>
 54 
                                <h3>Unable to delete patrons from other libraries with current settings</h3>
55 
                                <p>Insufficient privileges.</p>
 55 
                                <p>Insufficient privileges.</p>
56 
                            [% END %]
 56 
                            [% END %]
57 
                            [% IF ( error == 'CANT_DELETE_ANONYMOUS_PATRON' ) %]
58 
                                <h3>Unable to delete patron that is set as AnonymousPatron</h3>
59 
                                <p>This patron cannot be deleted while set as AnonymousPatron in the system preferences.</p>
60 
                            [% END %]
57 
                            [% IF ( error == 'CANT_DELETE' ) %]
 61 
                            [% IF ( error == 'CANT_DELETE' ) %]
58 
                                <h3>Unable to delete patron</h3>
 62 
                                <h3>Unable to delete patron</h3>
59 
                                <p>Insufficient privileges.</p>
 63 
                                <p>Insufficient privileges.</p>
(-)a/members/deletemem.pl (-1 / +7 lines)
Lines 82-87 if (C4::Context->preference("IndependentBranches")) { Link Here
82 
    }
 82 
    }
83 
}
 83 
}
84 

          84
          

        

            

              
              
              85
              
if ( my $anonymous_patron = C4::Context->preference("AnonymousPatron") ) {

            

            

              86
              
    if ( $patron->id eq $anonymous_patron ) {

            

            

              87
              
        print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE_ANONYMOUS_PATRON");

            

            

              88
              
        exit 0;    # Exit without error

            

            

              89
              
    }

            

            

              90
              
}

            

            

              91
              

            

        

          85
          
my $op = $input->param('op') || 'delete_confirm';

          92
          
my $op = $input->param('op') || 'delete_confirm';

        

        

          86
          
my $dbh = C4::Context->dbh;

          93
          
my $dbh = C4::Context->dbh;

        

        

          87
          
my $is_guarantor = $dbh->selectrow_array("SELECT COUNT(*) FROM borrowers WHERE guarantorid=?", undef, $member);

          94
          
my $is_guarantor = $dbh->selectrow_array("SELECT COUNT(*) FROM borrowers WHERE guarantorid=?", undef, $member);

        

            

              88
              
- 

              
              
            






  

  Return to bug 14708