[open-ils-commits] r16923 - trunk/Open-ILS/src/perlmods/OpenILS/Application (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2010-07-13 16:12:14 -0400 (Tue, 13 Jul 2010)
New Revision: 16923

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
Log:
Relax bib type parsing a little and allow spaces (like the comments promised)

Also fix a few drive-by typos


Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm	2010-07-13 20:10:37 UTC (rev 16922)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm	2010-07-13 20:12:14 UTC (rev 16923)
@@ -273,7 +273,7 @@
     my $r = -1;
     while (try { $r = $batch->next } otherwise { $r = -1 }) {
         if ($r == -1) {
-            $logger->warn("Proccessing of record $count in set $filename failed.  Skipping this record");
+            $logger->warn("Processing of record $count in set $filename failed.  Skipping this record");
             $count++;
         }
 
@@ -291,9 +291,9 @@
             # Check the leader to ensure we've got something resembling the expected
             # Allow spaces to give records the benefit of the doubt
             my $ldr_type = substr($r->leader(), 6, 1);
-            if ($type eq 'bib' && ($record_types{$ldr_type}) eq 'bib') {
+            if ($type eq 'bib' && ($record_types{$ldr_type}) eq 'bib' || $ldr_type eq ' ') {
                 $qrec = _add_bib_rec( $e, $xml, $queue_id, $purpose, $bib_source ) or return $e->die_event;
-            } elsif ($type eq 'auth' && ($record_types{$ldr_type}) eq 'auth') {
+            } elsif ($type eq 'auth' && ($record_types{$ldr_type}) eq 'auth' || $ldr_type eq ' ') {
                 $qrec = _add_auth_rec( $e, $xml, $queue_id, $purpose ) or return $e->die_event;
             } else {
                 # I don't know how to handle this type; rock on
@@ -727,7 +727,7 @@
 
             if(!$imported) {
             
-                # No overlay / merge occured.  Do a traditional record import by creating a new record
+                # No overlay / merge occurred.  Do a traditional record import by creating a new record
             
                 if($type eq 'bib') {
                     $record = OpenILS::Application::Cat::BibCommon->biblio_record_xml_import($e, $rec->marc); #$rec->bib_source
@@ -747,7 +747,7 @@
 
                 } else {
 
-                    $logger->info("vl: successfully importid new $type record");
+                    $logger->info("vl: successfully imported new $type record");
                     $rec->imported_as($record->id);
                     $rec->import_time('now');