From 69a3b7e8aecd8bced5cf260e05db1dc5cbb3fe97 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Fri, 28 Feb 2003 16:29:11 +0000
Subject: [PATCH] small bugfix

---
 C4/Input.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C4/Input.pm b/C4/Input.pm
index 0863e924ee..49955f38d4 100644
--- 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;
 	}
 	
-- 
2.39.2