Switched button-add-member to button-add-new in /admin/ scripts.

[koha.git] / admin / aqbudget.pl

diff --git a/admin/aqbudget.pl b/admin/aqbudget.pl
index 8a9bc11..6e5ecc4 100755 (executable)
--- a/admin/aqbudget.pl
+++ b/admin/aqbudget.pl
@@ -67,7 +67,9 @@ if ($op eq 'add_form') {
        my $data;
        if ($bookfundid) {
                my $dbh = &C4Connect;
-               my $sth=$dbh->prepare("select bookfundid,startdate,enddate,budgetamount,bookfundname from aqbudget,aqbookfund where aqbudget.bookfundid=aqbookfund.bookfundid and bookfundid='$bookfundid'");
+               my $query="select aqbookfund.bookfundid,startdate,enddate,budgetamount,bookfundname from aqbudget,aqbookfund where aqbudget.bookfundid=aqbookfund.bookfundid and aqbookfund.bookfundid='$bookfundid'";
+#              print $query;
+               my $sth=$dbh->prepare($query);
                $sth->execute;
                $data=$sth->fetchrow_hashref;
                $sth->finish;
@@ -139,6 +141,7 @@ printend
        print "<table>";
        if ($bookfundid) {
                print "<tr><td>Book fund</td><td><input type=hidden name=bookfundid value=$bookfundid>$bookfundid</td></tr>";
+               print "<tr><td>Book fund</td><td>$data->{'bookfundname'}</td></tr>";
        } else {
                print "<tr><td>Book fund</td><td><input type=text name=bookfundid size=5 maxlength=5 onBlur=toUC(this)></td></tr>";
        }
@@ -253,7 +256,7 @@ printend
                my $nextpage =$offset+$pagesize;
                print mklink("$script_name?offset=".$nextpage,'Next &gt;&gt;');
        }
-       print "<br><input type=image src=\"/images/button-add-member.gif\"  WIDTH=188  HEIGHT=44  ALT=\"Add budget\" BORDER=0 ></a><br>";
+       print "<br><input type=image src=\"/images/button-add-new.gif\"  WIDTH=188  HEIGHT=44  ALT=\"Add budget\" BORDER=0 ></a><br>";
        print "</form>";
 } #---- END $OP eq DEFAULT
 print endmenu('admin');