From e5ba89b73bbc89b6e9f6536981ed4316a623bf85 Mon Sep 17 00:00:00 2001 From: erickson Date: Tue, 21 Feb 2006 16:06:51 +0000 Subject: [PATCH] modified some of the logging git-svn-id: svn://svn.open-ils.org/ILS/trunk@3146 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Cat.pm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm index 911122ac35..98d0f88119 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm @@ -110,10 +110,7 @@ sub biblio_record_tree_import { return OpenILS::Perm->new("IMPORT_MARC"); } - warn "importing new record " . Dumper($tree) . "\n"; - my $nodeset = $utils->tree2nodeset($tree); - warn "turned into nodeset " . Dumper($nodeset) . "\n"; # copy the doc so that we can mangle the namespace. my $marcxml = OpenILS::Utils::FlatXML->new()->nodeset_to_xml($nodeset); @@ -122,6 +119,9 @@ sub biblio_record_tree_import { $marcxml->documentElement->setNamespace( "http://www.loc.gov/MARC21/slim", "marc", 1 ); my $tcn; + #warn "Importing MARC Doc:\n".$marcxml->toString(1)."\n"; + #warn "Namespace: " . $marcxml->documentElement->firstChild->namespaceURI . "\n"; + #return 1; warn "Starting db session in import\n"; my $session = $apputils->start_db_session(); @@ -209,8 +209,11 @@ sub _tcn_exists { my $recs = $req->gather(1); if($recs and $recs->[0]) { + $logger->debug("_tcn_exists is true for tcn : $tcn"); return 1; } + + $logger->debug("_tcn_exists is false for tcn : $tcn"); return 0; } -- 2.43.2