[Koha-cvs] CVS: koha/acqui.simple marcimport.pl,1.6.2.21,1.6.2.22

[Alan Millar]

Update of /cvsroot/koha/koha/acqui.simple
In directory usw-pr-cvs1:/tmp/cvs-serv17073/acqui.simple

Modified Files:
      Tag: rel-1-2
        marcimport.pl 
Log Message:
Move checkvalidisbn subroutine to Input.pm

Index: marcimport.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/marcimport.pl,v
retrieving revision 1.6.2.21
retrieving revision 1.6.2.22
diff -C2 -r1.6.2.21 -r1.6.2.22
*** marcimport.pl       14 Jun 2002 06:14:06 -0000      1.6.2.21
--- marcimport.pl       14 Jun 2002 06:28:14 -0000      1.6.2.22
***************
*** 18,21 ****
--- 18,22 ----
  use C4::Acquisitions;
  use C4::Output;
+ use C4::Input;
  
  #------------------
***************
*** 1571,1608 ****
  
  #--------------------------------------
- sub checkvalidisbn {
-       use strict;
-       my ($q)address@hidden ;
- 
-       my $isbngood = 0;
- 
-       $q=~s/x$/X/g;           # upshift lower case X
-       $q=~s/[^X\d]//g;
-       $q=~s/X.//g;
-       if (length($q)==10) {
-           my $checksum=substr($q,9,1);
-           my $isbn=substr($q,0,9);
-           my $i;
-           my $c=0;
-           for ($i=0; $i<9; $i++) {
-               my $digit=substr($q,$i,1);
-               $c+=$digit*(10-$i);
-           }
-           $c=int(11-($c/11-int($c/11))*11+.1);
-           ($c==10) && ($c='X');
-           if ($c eq $checksum) {
-               $isbngood=1;
-           } else {
-               $isbngood=0;
-           }
-       } else {
-           $isbngood=0;
-       } # if length good
- 
-       return $isbngood;
- 
- } # sub checkvalidisbn
- 
- #-------------------------
  sub FormatMarcText {
      use strict;
--- 1572,1575 ----