From: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
Date: Thu, 9 Apr 2009 13:11:04 +0000 (+0200)
Subject: Bug Fixing : Bullet Proofing
X-Git-Tag: n_acq_a_porter~14
X-Git-Url: http://git.rot13.org/?p=koha.git;a=commitdiff_plain;h=ac4f18794fab1db341a5f3b6cbb292e4f6974eab

Bug Fixing : Bullet Proofing

Some functions lack testing befor using empty references
---

diff --git a/opac/opac-main.pl b/opac/opac-main.pl
index 9b573b65cf..ec2be65d4e 100755
--- a/opac/opac-main.pl
+++ b/opac/opac-main.pl
@@ -44,7 +44,7 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
 my $borrower = GetMember( $borrowernumber, 'borrowernumber' );
 $template->param(
     textmessaging        => $borrower->{textmessaging},
-);
+) if (ref($borrower) eq "HASH");
 
 # display news
 # use cookie setting for language, bug default to syspref if it's not set
diff --git a/opac/opac-user.pl b/opac/opac-user.pl
index 708ba7f1d4..2985ae32c6 100755
--- a/opac/opac-user.pl
+++ b/opac/opac-user.pl
@@ -91,7 +91,7 @@ $template->param(   BORROWER_INFO  => \@bordat,
 
 #get issued items ....
 my ($issues) = GetPendingIssues($borrowernumber);
-my @issue_list = sort { $b->{'date_due'} cmp $a->{'date_due'} } @$issues;
+my @issue_list = sort { $b->{'date_due'} cmp $a->{'date_due'} } @$issues if ($issues);
 
 my $count          = 0;
 my $toggle = 0;