From 65892ebd1ab911f95c789cac01eb8d20ad2ad2c1 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Mon, 8 Mar 2010 21:14:08 +0000 Subject: [PATCH] fix error in Codabar checkdigit algorithm --- sql/base/base.sql | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/sql/base/base.sql b/sql/base/base.sql index 95255e2..e2e048b 100644 --- a/sql/base/base.sql +++ b/sql/base/base.sql @@ -687,7 +687,7 @@ CREATE OR REPLACE FUNCTION migration_tools.add_codabar_checkdigit (TEXT) RETURNS my @digits = split //, $barcode; my $total = 0; $total += $digits[$_] foreach (1, 3, 5, 7, 9, 11); - $total += (2 * $digits[$_] > 10) ? (2 * $digits[$_] - 9) : (2 * $digits[$_]) foreach (0, 2, 4, 6, 8, 10, 12); + $total += (2 * $digits[$_] >= 10) ? (2 * $digits[$_] - 9) : (2 * $digits[$_]) foreach (0, 2, 4, 6, 8, 10, 12); my $remainder = $total % 10; my $checkdigit = ($remainder == 0) ? $remainder : 10 - $remainder; return $barcode . $checkdigit; -- 1.7.2.5