synch'ing 2.2 and head

[koha.git] / C4 / Input.pm

diff --git a/C4/Input.pm b/C4/Input.pm
index 430a276..5bf6dfb 100644 (file)
--- a/C4/Input.pm
+++ b/C4/Input.pm
@@ -179,11 +179,14 @@ sub checkvalidisbn {
 Returns the scrolling list with name $input_name, built on authorised Values named $name.
 Returns NULL if no authorised values found
 
+=item buildCGISort
+
+  $CGIScrollingList = &BuildCGISort($name string, $input_name string);
+
+Returns the scrolling list with name $input_name, built on authorised Values named $name.
+Returns NULL if no authorised values found
+
 =cut
-#'
-#--------------------------------------
-# Determine if a number is a valid ISBN number, according to length
-#   of 10 digits and valid checksum
 sub buildCGIsort {
     use strict;
        my ($name,$input_name,$data) = @_;
@@ -207,7 +210,8 @@ sub buildCGIsort {
                                        -default=> $data,
                                        -size => 1,
                                        -multiple => 0);
-       } 
+       }
+       $sth->finish; 
        return $CGISort;
 }
 END { }       # module clean-up code here (global destructor)