From 67d123d72b4ee74bb8d78490895b1dacb57e6660 Mon Sep 17 00:00:00 2001 From: Owen Leonard Date: Tue, 3 Aug 2010 12:50:13 -0400 Subject: [PATCH] Fix for Bug 5029 - Update patron deletion error page - Styling error message with "dialog alert" class - Adding sidebar patron details to match other patron pages --- .../prog/en/modules/members/deletemem.tmpl | 10 +++++--- members/deletemem.pl | 24 +++++++++++++++++++- 2 files changed, 29 insertions(+), 5 deletions(-) diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/members/deletemem.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/members/deletemem.tmpl index b69fe6c..f0b1d46 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/deletemem.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/members/deletemem.tmpl @@ -12,7 +12,9 @@
-

Cannot Delete Patron

+ +
+

Cannot Delete Patron

  • Patron has item(s) checked out.
  • @@ -22,12 +24,12 @@
  • Patron's record has guaranteed accounts attached.
- +
- +
- + \ No newline at end of file diff --git a/members/deletemem.pl b/members/deletemem.pl index 53297a3..b1ba709 100755 --- a/members/deletemem.pl +++ b/members/deletemem.pl @@ -29,6 +29,7 @@ use C4::Context; use C4::Output; use C4::Auth; use C4::Members; +use C4::Branch; # GetBranches my $input = new CGI; @@ -80,7 +81,28 @@ $sth->execute($member); my $data=$sth->fetchrow_hashref; if ($countissues > 0 or $flags->{'CHARGES'} or $data->{'borrowernumber'}){ # print $input->header; - $template->param(borrowernumber => $member); + + my ($picture, $dberror) = GetPatronImage($bor->{'cardnumber'}); + $template->param( picture => 1 ) if $picture; + + $template->param(borrowernumber => $member, + surname => $bor->{'surname'}, + title => $bor->{'title'}, + cardnumber => $bor->{'cardnumber'}, + firstname => $bor->{'firstname'}, + categorycode => $bor->{'categorycode'}, + category_type => $bor->{'category_type'}, + categoryname => $bor->{'description'}, + address => $bor->{'address'}, + address2 => $bor->{'address2'}, + city => $bor->{'city'}, + zipcode => $bor->{'zipcode'}, + country => $bor->{'country'}, + phone => $bor->{'phone'}, + email => $bor->{'email'}, + branchcode => $bor->{'branchcode'}, + branchname => GetBranchName($bor->{'branchcode'}), + ); if ($countissues >0) { $template->param(ItemsOnIssues => $countissues); } -- 1.7.0.4