r1491@llin: dpavlin | 2007-11-02 15:59:31 +0100

 example usage

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@974 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/conf/normalize/webpacus-unimarc.pl b/conf/normalize/webpacus-unimarc.pl
index 9161745..54d629d 100644 (file)
--- a/conf/normalize/webpacus-unimarc.pl
+++ b/conf/normalize/webpacus-unimarc.pl
@@ -1,8 +1,14 @@
 
-use WebPAC::Normalize::ISBN;
-
 search_display('ISBN',
-       rec('10')
+       isbn_13( 
+               rec('10') 
+       )
+);
+
+warn "### isbn_13 = ",dump(
+       isbn_13(
+               rec('10')
+       )
 );
 
 search_display('ISSN',

diff --git a/conf/normalize/webpacus.pl b/conf/normalize/webpacus.pl
index 1bd0b88..2893916 100644 (file)
--- a/conf/normalize/webpacus.pl
+++ b/conf/normalize/webpacus.pl
@@ -4,6 +4,12 @@ search_display('ISBN',
        )
 );
 
+warn "### isbn_13 = ",dump(
+       isbn_13(
+               rec('020','a')
+       )
+);
+
 search_display('ISBN_incorrect',
        rec('010','z')
 );