use Memoize because Memcache::Memoize is slow for me

[koha.git] / admin / aqbudget_owner_search.pl

diff --git a/admin/aqbudget_owner_search.pl b/admin/aqbudget_owner_search.pl
index cd8d46b..5c73e9e 100755 (executable)
--- a/admin/aqbudget_owner_search.pl
+++ b/admin/aqbudget_owner_search.pl
@@ -15,11 +15,12 @@
 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
 #
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA  02111-1307 USA
+# You should have received a copy of the GNU General Public License along
+# with Koha; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 
 use strict;
+#use warnings; FIXME - Bug 2505
 use C4::Auth ;
 use C4::Output;
 use CGI;
@@ -63,17 +64,11 @@ my @resultsdata;
 my $toggle = 0;
 
 if ( $member ) {
-    my $dbh = C4::Context->dbh;
-    my $sth = $dbh->prepare(
-        qq|       SELECT  * from borrowers where surname like ? or firstname like ? or cardnumber like ? |
-    );
-
-    $sth->execute( "$member%", "$member%", "$member%", );
-    my $results = $sth->fetchall_arrayref({});      
+       my $results= Search($member,"surname");
 
     foreach my $res (@$results) {
 
-        my $perms = haspermission( $dbh, $res->{'userid'} );
+        my $perms = haspermission( $res->{'userid'} );
         my $subperms =  get_user_subpermissions  ($res->{'userid'} );
 
 
@@ -86,13 +81,12 @@ if ( $member ) {
 
             $count2++;
             #find out stats
-            my ( $od, $issue, $fines ) = GetMemberIssuesAndFines( $res->{'borrowerid'} );
+#            my ( $od, $issue, $fines ) = GetMemberIssuesAndFines( $res->{'borrowerid'} );
+                       #This looks unused and very unuseful
             my $guarantorinfo = uc( $res->{'surname'} ) . " , " . ucfirst( $res->{'firstname'} );
             my $budget_owner_name = $res->{'firstname'} . ' ' . $res->{'surname'}, my $budget_owner_id = $res->{'borrowernumber'};
 
             my %row = (
-                toggle            => $toggle,
-                count             => 1,
                 borrowernumber    => $res->{'borrowernumber'},
                 cardnumber        => $res->{'cardnumber'},
                 surname           => $res->{'surname'},
@@ -102,11 +96,10 @@ if ( $member ) {
                 guarantorinfo     => $guarantorinfo,
                 budget_owner_id   => $budget_owner_id,
                 budget_owner_name => $budget_owner_name,
-                odissue           => "$od/$issue",
-                fines             => $fines,
+#                odissue           => "$od/$issue",
+#                fines             => $fines,
 #                borrowernotes     => $res->{'borrowernotes'}
             );
-            $toggle = ( $toggle++ % 2 eq 0 ? 1 : 0 );
             push( @resultsdata, \%row );
         }
     }