Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

optimisation + encoding set.

Browse source 
FIXME : unimarc hard coded.
This commit is contained in:
toins 2007-07-12 15:33:31 +00:00
parent 0bc3591452
commit cc7c0c66fb
1 changed files with 13 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
misc/bulkupdate.pl
View file

@ -109,20 +109,24 @@ if(not $no_marcxml){
my $marcxml = $data->[1];
eval{
my $record = MARC::Record->new_from_xml($marcxml);
my $record = MARC::Record->new_from_xml($marcxml,'UTF-8','UNIMARC');
my @field = $record->field('010');
my $flag = 0;
foreach my $field (@field){
my $subfield = $field->subfield('a');
if($subfield){
my $isbn = $subfield;
$isbn =~ s/-//g;
$field->update('a' => $isbn);
$flag = 1;
}
}
if($flag){
$marcxml = $record->as_xml;
# Update
my $sth = $dbh->prepare($update_marcxml);
$sth->execute($marcxml,$biblioitemnumber);
}
};
if($@){
print "\n /!\\ pb getting $biblioitemnumber : $@";