Revert "Bug 18179: Update existing calls"

This reverts commit 2a2b9739117e74232c9a7abde516b1c436d4bad3.

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>

diff --git a/members/memberentry.pl b/members/memberentry.pl
index c13faa5..768b163 100755 (executable)
--- a/members/memberentry.pl
+++ b/members/memberentry.pl
@@ -753,7 +753,7 @@ $template->param( csrf_token =>
 
 # HouseboundModule data
 $template->param(
-    housebound_role  => scalar Koha::Patron::HouseboundRoles->find($borrowernumber),
+    housebound_role  => Koha::Patron::HouseboundRoles->find($borrowernumber),
 );
 
 if(defined($data{'flags'})){

diff --git a/members/moremember.pl b/members/moremember.pl
index 20044a6..2ab8174 100755 (executable)
--- a/members/moremember.pl
+++ b/members/moremember.pl
@@ -347,7 +347,7 @@ $template->param(
     is_child        => ($category_type eq 'C'),
     samebranch      => $samebranch,
     quickslip       => $quickslip,
-    housebound_role => scalar $patron->housebound_role,
+    housebound_role => $patron->housebound_role,
     privacy_guarantor_checkouts => $data->{'privacy_guarantor_checkouts'},
     AutoResumeSuspendedHolds => C4::Context->preference('AutoResumeSuspendedHolds'),
     SuspendHoldsIntranet => C4::Context->preference('SuspendHoldsIntranet'),

diff --git a/members/pay.pl b/members/pay.pl
index 3400ee0..2e25eef 100755 (executable)
--- a/members/pay.pl
+++ b/members/pay.pl
@@ -94,7 +94,7 @@ if ($writeoff_all) {
     Koha::Account->new( { patron_id => $borrowernumber } )->pay(
         {
             amount     => $amount,
-            lines      => [ scalar Koha::Account::Lines->find($accountlines_id) ],
+            lines      => [Koha::Account::Lines->find($accountlines_id)],
             type       => 'writeoff',
             note       => $payment_note,
             library_id => $branch,
@@ -208,7 +208,7 @@ sub writeoff_all {
             Koha::Account->new( { patron_id => $borrowernumber } )->pay(
                 {
                     amount => $amount,
-                    lines  => [ scalar Koha::Account::Lines->find($accountlines_id) ],
+                    lines  => [ Koha::Account::Lines->find($accountlines_id) ],
                     type   => 'writeoff',
                     note   => $payment_note,
                     library_id => $branch,

diff --git a/opac/opac-user.pl b/opac/opac-user.pl
index b8714b1..6ae7b9a 100755 (executable)
--- a/opac/opac-user.pl
+++ b/opac/opac-user.pl
@@ -343,7 +343,7 @@ if (   C4::Context->preference('AllowPatronToSetCheckoutsVisibilityForGuarantor'
 }
 
 $template->param(
-    borrower                 => scalar Koha::Patrons->find($borrowernumber),
+    borrower                 => Koha::Patrons->find($borrowernumber),
     patron_messages          => $patron_messages,
     opacnote                 => $borr->{opacnote},
     patronupdate             => $patronupdate,