Name

isbn — string is a valid ISBN-10/ISBN-13 code

DESCRIPTION

Verification of the form field value succeeds if the passed value is a valid ISBN-10/ISBN-13 code.

The check can be advised to only accept ISBN-10 resp. ISBN-13 code.

EXAMPLES

Example: Verifying ISBN code

FORM_FIELD_NAME=isbn "Not a valid ISBN code"

Example: Verifying ISBN-13 code

FORM_FIELD_NAME=isbn 13 "Not a valid ISBN-13 code"

Example: Verifying ISBN-10 code

FORM_FIELD_NAME=isbn 10 "Not a valid ISBN-10 code"

NOTES

AVAILABILITY

isbn is available in Interchange versions:

4.6.0-5.9.0 (git-head)

SOURCE

Interchange 5.9.0:

Source: code/OrderCheck/isbn.oc
Lines: 71


# Copyright 2008,2009 Interchange Development Group
# 
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.  See the LICENSE file for details.

CodeDef isbn OrderCheck 1
CodeDef isbn Description ISBN-10/ISBN-13 check digit verification
CodeDef isbn Routine <<EOR
sub {
my($ref, $var, $val, $msg) = @_;
my($len);

if ($msg =~ s/^\s*(10|13)\s*//) {
  $len = $1;
}

$val =~ s/[^\dXx]//g;  # weed out non-digits
if ($val) {
  my @digits = split("", $val);
  my $sum = 0;
  my $check_digit = 0;
  my $modulo;

  if (@digits == 10 ) {
    # ISBN-10 number
    if ($len == 13) {
      return (0, $var, errmsg("'%s' not a valid isbn-13 number", $val));
    }
    for(my $i=10; $i > 0; $i--) {
        my $d = $digits[10 - $i];
      if ($d =~ /[Xx]/) {
        if ($i == 1) {
          $d = 10;
        }
        else {
          return (undef, $var, errmsg("'%s' not a valid isbn number", $val));
            }
      }
      $sum += $d * $i;
    }
    return ( $sum%11 ? 0 : 1, $var, '' );
  } elsif (@digits == 13) {
    # ISBN-13/EAN number
    if ($len == 10) {
      return (0, $var, errmsg("'%s' not a valid isbn-10 number", $val));
    }
    for (my $i = 0; $i < 12; $i++) {
      if ($i % 2) {
        $sum += 3 * $digits[$i];
      } 
      else {
        $sum += $digits[$i];
      }
    }
    
    if ($modulo = $sum % 10) {
                  $check_digit = 10 - $modulo;
          }

    if (pop(@digits) == $check_digit) {
      # verification successful
      return (1, $var, '');
    }
  }
}

return (undef, $var, errmsg("'%s' not a valid isbn number", $val));
}
EOR

AUTHORS

Interchange Development Group

SEE ALSO

DocBook! Interchange!