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

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_2_4@11162 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 425f427..87cdd85 100644 (file)
--- 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;}