small bugfix

diff --git a/C4/Input.pm b/C4/Input.pm
index 0863e92..49955f3 100644 (file)
--- a/C4/Input.pm
+++ b/C4/Input.pm
@@ -127,7 +127,7 @@ sub checkvalidisbn {
         $q=~s/X.//g;
         
        #return 0 if $q is not ten digits long
-       if ($length($q)!=10) {
+       if (length($q)!=10) {
                return 0;
        }