Bug 2617: Add strict (and warnings), partial fix.

[koha.git] / C4 / Bookfund.pm

diff --git a/C4/Bookfund.pm b/C4/Bookfund.pm
index 7c00067..b794aae 100644 (file)
--- a/C4/Bookfund.pm
+++ b/C4/Bookfund.pm
@@ -315,11 +315,13 @@ sub NewBookFund{
 
 =head3 ModBookFund
 
-&ModBookFund($bookfundname,$bookfundid,$current_branch, $branchcode) =
-this function update the bookfundname and the branchcode on aqbookfund table on database.
+&ModBookFund($bookfundname,$bookfundid,$current_branch, $branchcode)
+
+This function updates the bookfundname and the branchcode in the aqbookfund table.
 
 =cut
 
+# FIXME: use placeholders,  ->prepare(), ->execute()
 
 sub ModBookFund {
     my ($bookfundname,$bookfundid,$current_branch, $branchcode) = @_;
@@ -349,8 +351,6 @@ sub ModBookFund {
     }
 }
 
-
-
 #-------------------------------------------------------------#
 
 =head3 SearchBookFund