|
Lines 10-16
use C4::Context;
Link Here
|
| 10 |
#use MARC::File::XML(BinaryEncoding=>"utf8"); |
10 |
#use MARC::File::XML(BinaryEncoding=>"utf8"); |
| 11 |
#use MARC::File::USMARC; |
11 |
#use MARC::File::USMARC; |
| 12 |
use C4::AuthoritiesMarc; |
12 |
use C4::AuthoritiesMarc; |
| 13 |
use POSIX qw( close localtime sprintf time ); |
13 |
use POSIX; |
| 14 |
#MARC::File::XML::default_record_format("UNIMARCAUTH"); |
14 |
#MARC::File::XML::default_record_format("UNIMARCAUTH"); |
| 15 |
my $dbh = C4::Context->dbh; |
15 |
my $dbh = C4::Context->dbh; |
| 16 |
my $rq= $dbh->prepare(qq| |
16 |
my $rq= $dbh->prepare(qq| |