Removing fines getting from user search on budgets administration

diff --git a/admin/aqbudget_owner_search.pl b/admin/aqbudget_owner_search.pl
index 1935a6c..a8f9405 100755 (executable)
--- a/admin/aqbudget_owner_search.pl
+++ b/admin/aqbudget_owner_search.pl
@@ -63,13 +63,7 @@ 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= SearchMember($member,"surname",undef,undef,undef);
 
     foreach my $res (@$results) {
 
@@ -86,13 +80,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 +95,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 );
         }
     }

diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/aqbudgets.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/aqbudgets.tmpl
index 661ff4c..6ddbf8d 100644 (file)
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/aqbudgets.tmpl
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/aqbudgets.tmpl
@@ -290,9 +290,7 @@
     <select name="budget_branchcode">
     <option value=""></option>
     <!-- TMPL_LOOP name="branchloop_select" -->
-        <option value="<!-- TMPL_VAR name="value" -->"
-        <!-- TMPL_IF name="selected" -->selected<!-- /TMPL_IF --> >
-        <!-- TMPL_VAR name="branchname" --></option>
+        <!-- TMPL_IF name="selected" --> <option value="<!-- TMPL_VAR name="value" -->" > <!--TMPL_ELSE--> <option value="<!-- TMPL_VAR name="value" -->" selected="selected"> <!-- /TMPL_IF --> <!-- TMPL_VAR name="branchname" --></option>
     <!-- /TMPL_LOOP -->
     </select>
     </li>
@@ -349,7 +347,7 @@
     </fieldset>
 
     <fieldset class="action">
-        <input type="button" value="Submit" onclick="Check(this.form)" /> <a class="cancel" href="/cgi-bin/koha/admin/aqbudgets.pl">Cancel</a>
+        <input type="button" value="Submit"  /> <a class="cancel" href="/cgi-bin/koha/admin/aqbudgets.pl">Cancel</a>
         <input type="hidden" name="budget_period_id" value="<!-- TMPL_VAR name='budget_period_id' -->" />
     </fieldset>
 </form>