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 9b573b6..ec2be65 100755 (executable)
--- 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 708ba7f..2985ae3 100755 (executable)
--- 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;