|
Lines 108-114
sub marc2ris {
Link Here
|
| 108 |
open my $oldout, ">&STDOUT"; |
108 |
open my $oldout, ">&STDOUT"; |
| 109 |
my $outvar; |
109 |
my $outvar; |
| 110 |
close STDOUT; |
110 |
close STDOUT; |
| 111 |
open STDOUT,'>', \$outvar; |
111 |
open STDOUT,'>:encoding(utf8)', \$outvar; |
| 112 |
|
112 |
|
| 113 |
## First we should check the character encoding. This may be |
113 |
## First we should check the character encoding. This may be |
| 114 |
## MARC-8 or UTF-8. The former is indicated by a blank, the latter |
114 |
## MARC-8 or UTF-8. The former is indicated by a blank, the latter |
| 115 |
- |
|
|