use ^a notation for modify of MARC subfields

diff --git a/lib/WebPAC/Input.pm b/lib/WebPAC/Input.pm
index 1cab26a..dc33db8 100644 (file)
--- a/lib/WebPAC/Input.pm
+++ b/lib/WebPAC/Input.pm
@@ -297,6 +297,8 @@ sub open {
 
                                return unless ( defined($l) && defined($f_nr) );
 
+                               my $marc_subfields = $l =~ s/\x1F(\w)/\^$1/g; # fix MARC subfiled delimiters to ^
+
                                warn "-=> $f_nr ## |$l|\n" if ($debug);
                                $log->debug("-=> $f_nr ## $l");
 
@@ -324,6 +326,8 @@ sub open {
                                        }
                                }
 
+                               $l =~ s/\^(\w)/\x1F$1/g if $marc_subfields;
+
                                $log->debug("<=- $f_nr ## |$l|");
                                warn "<=- $f_nr ## $l\n" if ($debug);
                                return $l;