[open-ils-commits] r19700 - trunk/Open-ILS/src/perlmods/lib/OpenILS/Application (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2011-03-11 15:20:43 -0500 (Fri, 11 Mar 2011)
New Revision: 19700

Modified:
   trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm
Log:
use the existing util method for mvr-izing, since it handles some additional important steps (e.g. capturing doc_id)

Modified: trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm	2011-03-11 16:46:15 UTC (rev 19699)
+++ trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm	2011-03-11 20:20:43 UTC (rev 19700)
@@ -1795,10 +1795,8 @@
         $mods->author($copy->dummy_author);
 
     } else {
-		my $u = OpenILS::Utils::ModsParser->new();
-		$u->start_mods_batch($circ->target_copy->call_number->record->marc);
-		$mods = $u->finish_mods_batch();
-	}
+        $mods = $U->record_to_mvr($circ->target_copy->call_number->record);
+    }
 
     # more de-fleshiing
     $circ->target_copy($circ->target_copy->id);