adding some debuging that seems to magically fix the problem

git-svn-id: svn://svn.open-ils.org/ILS/trunk@1253 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/WORM.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/WORM.pm
index ddd84d5..00e0318 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/WORM.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/WORM.pm
@@ -277,6 +277,7 @@ sub wormize {
        my ($outer_xact) = $in_xact->run;
        try {
                unless ($outer_xact) {
+                       $log->debug("WoRM isn't inside a transaction, starting one now.", INFO);
                        my ($r) = $begin->run($client);
                        unless (defined $r and $r) {
                                $rollback->run;
@@ -309,9 +310,12 @@ sub wormize {
                $entry->fingerprint( fingerprint_mods( $mods ) );
                push @entry_list, $entry;
 
+               $log->debug("Fingerprint for Record Entry ".$docid." is [".$entry->fingerprint."]", INFO);
+
                unless ($no_map) {
                        my ($mr) = $mr_lookup->run( $entry->fingerprint );
                        if (!@$mr) {
+                               $log->debug("No metarecord found for fingerprint [".$entry->fingerprint."]; Creating a new one", INFO);
                                $mr = new Fieldmapper::metabib::metarecord;
                                $mr->fingerprint( $entry->fingerprint );
                                $mr->master_record( $entry->id );
@@ -321,7 +325,7 @@ sub wormize {
                                        throw OpenSRF::EX::PANIC ("Couldn't run open-ils.storage.direct.metabib.metarecord.create!")
                                }
                        } else {
-                               $mr = $$mr[0];
+                               $log->debug("Retrieved metarecord, id is ".$mr->id, INFO);
                                $mr->mods('');
                                push @mr_list, $mr;
                        }
@@ -417,6 +421,7 @@ sub wormize {
        }
 
        unless ($outer_xact) {
+               $log->debug("Commiting transaction started by the WoRM.", INFO);
                my ($c) = $commit->run;
                unless (defined $c and $c) {
                        $rollback->run;