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| |