Bug Fixing : Bullet Proofing

Some functions lack testing befor using empty references

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>

diff --git a/opac/opac-main.pl b/opac/opac-main.pl
index 99f672c..7535d67 100755 (executable)
--- a/opac/opac-main.pl
+++ b/opac/opac-main.pl
@@ -43,7 +43,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 007e57b..ffe4e27 100755 (executable)
--- a/opac/opac-user.pl
+++ b/opac/opac-user.pl
@@ -98,7 +98,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;