@@ -, +, @@ --- members/messaging.pl | 4 +++- members/readingrec.pl | 4 +++- 2 files changed, 6 insertions(+), 2 deletions(-) --- a/members/messaging.pl +++ a/members/messaging.pl @@ -19,6 +19,8 @@ use strict; +use warnings; + use CGI; use C4::Context; use C4::Auth; @@ -62,7 +64,7 @@ my $branch = C4::Context->userenv->{'branch'}; $template->param( $borrower ); -my $borrower = GetMemberDetails( $borrowernumber ); +$borrower = GetMemberDetails( $borrowernumber ); if ( $borrower->{'category_type'} eq 'C') { --- a/members/readingrec.pl +++ a/members/readingrec.pl @@ -21,6 +21,8 @@ # Suite 330, Boston, MA 02111-1307 USA use strict; +use warnings; + use C4::Auth; use C4::Output; use CGI; @@ -34,7 +36,7 @@ my $input=new CGI; my $borrowernumber=$input->param('borrowernumber'); #get borrower details my $data=GetMember($borrowernumber,'borrowernumber'); -my $order=$input->param('order'); +my $order=$input->param('order') || ''; my $order2=$order; if ($order2 eq ''){ $order2="date_due desc"; --