Lines 93-99
use C4::Charset qw(
Link Here
|
93 |
nsb_clean |
93 |
nsb_clean |
94 |
SetMarcUnicodeFlag |
94 |
SetMarcUnicodeFlag |
95 |
SetUTF8Flag |
95 |
SetUTF8Flag |
96 |
StripNonXmlChars |
|
|
97 |
); |
96 |
); |
98 |
use C4::Languages; |
97 |
use C4::Languages; |
99 |
use C4::Linker; |
98 |
use C4::Linker; |
Lines 2248-2254
sub TransformHtmlToMarc {
Link Here
|
2248 |
; |
2247 |
; |
2249 |
# between 001 and 009 (included) |
2248 |
# between 001 and 009 (included) |
2250 |
} elsif ( $fval ne '' ) { |
2249 |
} elsif ( $fval ne '' ) { |
2251 |
$fval = StripNonXmlChars($fval); #Strip out any non-XML characters like control characters |
|
|
2252 |
$newfield = MARC::Field->new( $tag, $fval, ); |
2250 |
$newfield = MARC::Field->new( $tag, $fval, ); |
2253 |
} |
2251 |
} |
2254 |
|
2252 |
|
Lines 2270-2276
sub TransformHtmlToMarc {
Link Here
|
2270 |
$newfield->add_subfields( $fkey => $fval); |
2268 |
$newfield->add_subfields( $fkey => $fval); |
2271 |
} |
2269 |
} |
2272 |
elsif($fval ne '') { |
2270 |
elsif($fval ne '') { |
2273 |
$fval = StripNonXmlChars($fval); #Strip out any non-XML characters like control characters |
|
|
2274 |
$newfield = MARC::Field->new( $tag, $ind1, $ind2, $fkey => $fval ); |
2271 |
$newfield = MARC::Field->new( $tag, $ind1, $ind2, $fkey => $fval ); |
2275 |
} |
2272 |
} |
2276 |
$j += 2; |
2273 |
$j += 2; |