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

22
misc/bulkupdate.pl
View file

@ -35,8 +35,8 @@ my ( $no_marcxml, $no_isbn, $help) = (0,0,0);
GetOptions(
'noisbn' => \$no_isbn,
'noxml' => \$no_marcxml,
'h' => \$help,
'help' => \$help,
'h' => \$help,
'help' => \$help,
);
@ -102,30 +102,34 @@ if(not $no_marcxml){
while (my $data = $sth->fetchrow_arrayref){
my $biblioitemnumber = $data->[0];
my $biblioitemnumber = $data->[0];
print "\rremoving '-' on marcxml for biblioitemnumber $biblioitemnumber";
# suppression des tirets de l'isbn dans la notice
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;
}
}
$marcxml = $record->as_xml;
# Update
my $sth = $dbh->prepare($update_marcxml);
$sth->execute($marcxml,$biblioitemnumber);
if($flag){
$marcxml = $record->as_xml;
# Update
my $sth = $dbh->prepare($update_marcxml);
$sth->execute($marcxml,$biblioitemnumber);
}
};
if($@){
print "\n /!\\ pb getting $biblioitemnumber : $@";
}
}
}
}