Lines 92-98
use C4::Charset qw(
Link Here
|
92 |
nsb_clean |
92 |
nsb_clean |
93 |
SetMarcUnicodeFlag |
93 |
SetMarcUnicodeFlag |
94 |
SetUTF8Flag |
94 |
SetUTF8Flag |
95 |
StripNonXmlChars |
|
|
96 |
); |
95 |
); |
97 |
use C4::Languages; |
96 |
use C4::Languages; |
98 |
use C4::Linker; |
97 |
use C4::Linker; |
Lines 2261-2267
sub TransformHtmlToMarc {
Link Here
|
2261 |
; |
2260 |
; |
2262 |
# between 001 and 009 (included) |
2261 |
# between 001 and 009 (included) |
2263 |
} elsif ( $fval ne '' ) { |
2262 |
} elsif ( $fval ne '' ) { |
2264 |
$fval = StripNonXmlChars($fval); #Strip out any non-XML characters like control characters |
|
|
2265 |
$newfield = MARC::Field->new( $tag, $fval, ); |
2263 |
$newfield = MARC::Field->new( $tag, $fval, ); |
2266 |
} |
2264 |
} |
2267 |
|
2265 |
|
Lines 2283-2289
sub TransformHtmlToMarc {
Link Here
|
2283 |
$newfield->add_subfields( $fkey => $fval); |
2281 |
$newfield->add_subfields( $fkey => $fval); |
2284 |
} |
2282 |
} |
2285 |
elsif($fval ne '') { |
2283 |
elsif($fval ne '') { |
2286 |
$fval = StripNonXmlChars($fval); #Strip out any non-XML characters like control characters |
|
|
2287 |
$newfield = MARC::Field->new( $tag, $ind1, $ind2, $fkey => $fval ); |
2284 |
$newfield = MARC::Field->new( $tag, $ind1, $ind2, $fkey => $fval ); |
2288 |
} |
2285 |
} |
2289 |
$j += 2; |
2286 |
$j += 2; |