MT 2050, Follow-up, Fast Cataloging

[koha.git] / cataloguing / value_builder / unimarc_field_010.pl

diff --git a/cataloguing/value_builder/unimarc_field_010.pl b/cataloguing/value_builder/unimarc_field_010.pl
index 11a4ba5..2e91631 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_010.pl
+++ b/cataloguing/value_builder/unimarc_field_010.pl
@@ -82,29 +82,37 @@ sub plugin {
                                     query => $input,
                                     type => "intranet",
                                     authnotrequired => 0,
-                                    flagsrequired => {editcatalogue => 1},
+                                    flagsrequired => {editcatalogue => '*'},
                                     debug => 1,
                                     });
 
 
     my $dbh = C4::Context->dbh;
     my $len = 0;
-    my $sth = $dbh->prepare('SELECT publishercode FROM biblioitems WHERE isbn LIKE ? LIMIT 1');
+    my $sth = $dbh->prepare('SELECT publishercode FROM biblioitems WHERE isbn LIKE ? OR isbn LIKE ? LIMIT 1');
     
+    $isbn =~ s/-//g;
+    warn $isbn;
     if (length ($isbn) == 13){
-        $isbn = substr(3, length($isbn));
+        $isbn = substr($isbn, 3, length($isbn)-3);
     }
+    
+    if(length($isbn) <= 10){
 
-    if(length($isbn) <=10){
         $len = 5;
-        $len = 1 if ( substr( $isbn, 0, 1 ) <= 7 );
-        $len = 2 if ( substr( $isbn, 0, 2 ) <= 94 );
-        $len = 3 if ( substr( $isbn, 0, 3 ) <= 995 );
-        $len = 4 if ( substr( $isbn, 0, 4 ) <= 9989 );
+        if ( substr( $isbn, 0, 1 ) <= 7 ){
+            $len = 1;
+        }elsif ( substr( $isbn, 0, 2 ) <= 94 ){
+            $len = 2;
+        }elsif ( substr( $isbn, 0, 3 ) <= 995 ){
+            $len = 3;
+        }elsif ( substr( $isbn, 0, 4 ) <= 9989 ){
+            $len = 4 ;
+        }
 
         my $x = substr( $isbn, $len );
-        my $seg2;
- 
+        my $seg2 = "";
+        
         if ( substr( $x, 0, 2 ) <= 19 ) {    
             $seg2 = substr( $x, 0, 2 );
         }
@@ -127,10 +135,14 @@ sub plugin {
         while($len--){
             $seg2 = "_".$seg2;
         }
-    
-        $seg2 .= "%";
-        warn $seg2;
-        $sth->execute($seg2);
+        
+        $len = 10 -length($seg2);
+        
+        while($len--){
+            $seg2 .= "_";
+        }
+
+        $sth->execute($seg2, "978$seg2");
     }
     
     if( (my $publishercode) = $sth->fetchrow )