|
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 2268-2274
sub TransformHtmlToMarc {
Link Here
|
| 2268 |
; |
2267 |
; |
| 2269 |
# between 001 and 009 (included) |
2268 |
# between 001 and 009 (included) |
| 2270 |
} elsif ( $fval ne '' ) { |
2269 |
} elsif ( $fval ne '' ) { |
| 2271 |
$fval = StripNonXmlChars($fval); #Strip out any non-XML characters like control characters |
|
|
| 2272 |
$newfield = MARC::Field->new( $tag, $fval, ); |
2270 |
$newfield = MARC::Field->new( $tag, $fval, ); |
| 2273 |
} |
2271 |
} |
| 2274 |
|
2272 |
|
|
Lines 2290-2296
sub TransformHtmlToMarc {
Link Here
|
| 2290 |
$newfield->add_subfields( $fkey => $fval); |
2288 |
$newfield->add_subfields( $fkey => $fval); |
| 2291 |
} |
2289 |
} |
| 2292 |
elsif($fval ne '') { |
2290 |
elsif($fval ne '') { |
| 2293 |
$fval = StripNonXmlChars($fval); #Strip out any non-XML characters like control characters |
|
|
| 2294 |
$newfield = MARC::Field->new( $tag, $ind1, $ind2, $fkey => $fval ); |
2291 |
$newfield = MARC::Field->new( $tag, $ind1, $ind2, $fkey => $fval ); |
| 2295 |
} |
2292 |
} |
| 2296 |
$j += 2; |
2293 |
$j += 2; |