From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 13 Nov 2008 18:33:50 +0000 (+0000)
Subject: the subfields, like the datafields, need the appropriate XML namespace
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=19cc94b44da14039e8a2ddddf2669b260d06c046;p=Evergreen.git

the subfields, like the datafields, need the appropriate XML namespace

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
index 425f42753e..87cdd8584e 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
@@ -447,9 +447,9 @@ sub find_free_tcn {
 
 	my $add_039 = 0;
 
-	my $xpath = '//marc:datafield[@tag="039"]/subfield[@code="a"]';
+	my $xpath = '//marc:datafield[@tag="039"]/marc:subfield[@code="a"]';
 	my ($tcn) = $marcxml->documentElement->findvalue($xpath) =~ /(\w+)\s*$/o;
-	$xpath = '//marc:datafield[@tag="039"]/subfield[@code="b"]';
+	$xpath = '//marc:datafield[@tag="039"]/marc:subfield[@code="b"]';
 	my $tcn_source = $marcxml->documentElement->findvalue($xpath) || "System Local";
 
 	if(_tcn_exists($editor, $tcn, $tcn_source, $existing_rec)) {
@@ -460,14 +460,14 @@ sub find_free_tcn {
 
 
 	if(!$tcn) {
-		$xpath = '//marc:datafield[@tag="020"]/subfield[@code="a"]';
+		$xpath = '//marc:datafield[@tag="020"]/marc:subfield[@code="a"]';
 		($tcn) = $marcxml->documentElement->findvalue($xpath) =~ /(\w+)\s*$/o;
 		$tcn_source = "ISBN";
 		if(_tcn_exists($editor, $tcn, $tcn_source, $existing_rec)) {$tcn = undef;}
 	}
 
 	if(!$tcn) { 
-		$xpath = '//marc:datafield[@tag="022"]/subfield[@code="a"]';
+		$xpath = '//marc:datafield[@tag="022"]/marc:subfield[@code="a"]';
 		($tcn) = $marcxml->documentElement->findvalue($xpath) =~ /(\w+)\s*$/o;
 		$tcn_source = "ISSN";
 		if(_tcn_exists($editor, $tcn, $tcn_source, $existing_rec)) {$tcn = undef;}
@@ -481,7 +481,7 @@ sub find_free_tcn {
 	}
 
 	if(!$tcn) {
-		$xpath = '//marc:datafield[@tag="035"]/subfield[@code="a"]';
+		$xpath = '//marc:datafield[@tag="035"]/marc:subfield[@code="a"]';
 		($tcn) = $marcxml->documentElement->findvalue($xpath) =~ /(\w+)\s*$/o;
 		$tcn_source = "System Legacy";
 		if(_tcn_exists($editor, $tcn, $tcn_source, $existing_rec)) {$tcn = undef;}