From e90baa1c7291fb5847ea16bfd449f90e795da710 Mon Sep 17 00:00:00 2001
From: tonnesen <tonnesen>
Date: Fri, 5 Jul 2002 04:45:13 +0000
Subject: [PATCH] Fixed logic bug in checkvalidisbn routine

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

diff --git a/C4/Input.pm b/C4/Input.pm
index aa908a953f..f70279e366 100644
--- a/C4/Input.pm
+++ b/C4/Input.pm
@@ -72,7 +72,7 @@ sub checkvalidisbn {
             my $c=0;
             for ($i=0; $i<9; $i++) { 
                 my $digit=substr($q,$i,1);
-                $c+=$digit*(10-$i);
+                $c+=$digit*($i+1);
             }
 	    $c=$c%11;  # % is the modulus function
             ($c==10) && ($c='X');