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

Bug 8844: UNIMARC_sync_date_created_with_marc_biblio.pl creates a modification log

Browse source 
Signed-off by : Mathieu Saby <mathieu.saby@univ-rennes2.fr>

Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>
This commit is contained in:
Fridolyn SOMERS 2012-09-28 18:43:50 +02:00 committed by Jared Camins-Esakov
parent d44b552b3f
commit 724bb2c846
1 changed files with 196 additions and 38 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

234
misc/maintenance/UNIMARC_sync_date_created_with_marc_biblio.pl
View file

@ -2,7 +2,7 @@
#
# This script should be used only with UNIMARC flavour
# It is designed to report some missing information from biblio
# table into marc data
# table into marc data
#
use strict;
use warnings;
@ -13,63 +13,221 @@ BEGIN {
}
use C4::Biblio;
use Getopt::Long;
sub _read_marc_code {
my $input = shift;
my ( $field, $subfield );
if ( $input =~ /^(\d{3})$/ ) {
$field = $1;
}
elsif ( $input =~ /^(\d{3})(\w)$/ ) {
$field = $1;
$subfield = $2;
}
return ( $field, $subfield );
}
my ( $run, $help, $verbose, $where, $date_created_marc, $date_modified_marc );
GetOptions(
'help|h' => \$help,
'verbose|v' => \$verbose,
'run' => \$run,
'where:s' => \$where,
'date-created-marc|c:s' => \$date_created_marc,
'date-modified-marc|m:s' => \$date_modified_marc,
);
my $debug = $ENV{DEBUG};
$verbose = 1 if $debug;
# display help ?
if ($help) {
print_usage();
exit 0;
}
$verbose and print "================================\n";
# date created MARC field/subfield
$date_created_marc = '099c' unless $date_created_marc;
my ( $c_field, $c_subfield ) = _read_marc_code($date_created_marc);
die "date-created-marc '$date_created_marc' is not correct." unless $c_field;
if ($verbose) {
print "Date created on $c_field";
print $c_subfield if defined $c_subfield; # use of defined to allow 0
print "\n";
}
# date last modified MARC field/subfield
$date_modified_marc = '099d' unless $date_modified_marc;
my ( $m_field, $m_subfield ) = _read_marc_code($date_modified_marc);
die "date-modified-marc '$date_modified_marc' is not correct." unless $m_field;
die
"When date-created-marc and date-modified-marc are on same field, they should have distinct subfields"
if ( $c_field eq $m_field )
&& ( !defined $c_subfield
|| !defined $m_subfield
|| $c_subfield eq $m_subfield );
if ($verbose) {
print "Date last modified on $m_field";
print $m_subfield if defined $m_subfield; # use of defined to allow 0
print "\n";
}
my $dbh;
my $sth_prepared;
sub updateMarc {
my $id = shift;
my $dbh = C4::Context->dbh;
my $field;
my $id = shift;
my $biblio = GetMarcBiblio($id);
return unless $biblio;
if(!$biblio->field('099'))
{
$field = new MARC::Field('099','','',
'c' => '',
'd'=>'');
$biblio->add_fields($field);
unless ($biblio) {
$debug and warn '[ERROR] GetMarcBiblio did not return any biblio.';
return;
}
$field = $biblio->field('099');
my $c_marc_field = $biblio->field($c_field);
my $m_marc_field = $biblio->field($m_field);
my $sth = $dbh->prepare("SELECT DATE_FORMAT(datecreated,'%Y-%m-%d') as datecreated,
DATE_FORMAT(timestamp,'%Y-%m-%d') as timestamp,
frameworkcode
FROM biblio
WHERE biblionumber = ?");
$sth->execute($id);
(my $bibliorow = $sth->fetchrow_hashref);
my $c_marc_value;
if ($c_marc_field) {
$c_marc_value =
defined $c_subfield
? $c_marc_field->subfield($c_subfield)
: $c_marc_field->data();
}
$c_marc_value = '' unless defined $c_marc_value;
my $m_marc_value;
if ($m_marc_field) {
$m_marc_value =
defined $m_subfield
? $m_marc_field->subfield($m_subfield)
: $m_marc_field->data();
}
$m_marc_value ||= '';
$sth_prepared = $dbh->prepare(
q{
SELECT
DATE_FORMAT(datecreated,'%Y-%m-%d') AS datecreatediso,
DATE_FORMAT(timestamp,'%Y-%m-%d') AS datemodifiediso,
frameworkcode
FROM biblio
WHERE biblionumber = ?
}
) unless $sth_prepared;
$sth_prepared->execute($id);
my $bibliorow = $sth_prepared->fetchrow_hashref;
my $frameworkcode = $bibliorow->{'frameworkcode'};
my $c_db_value = $bibliorow->{'datecreatediso'} || '';
my $m_db_value = $bibliorow->{'datemodifiediso'} || '';
$field->update( 'c' => $bibliorow->{'datecreated'},
'd' => $bibliorow->{'timestamp'}
);
# do nothing if already sync
return if ( $c_marc_value eq $c_db_value && $m_marc_value eq $m_db_value );
if(&ModBiblio($biblio, $id, $frameworkcode))
{
print "\r$id";
}
# do apply to database ?
return 1 unless $run;
# update MARC record
# date created field
unless ($c_marc_field) {
$biblio->add_fields( new MARC::Field( $c_field, '', '' ) );
$debug and warn "[WARN] $c_field did not exist.";
$c_marc_field = $biblio->field($c_field);
# when on same field
if ( $m_field eq $c_field ) {
$m_marc_field = $c_marc_field;
}
}
if ( defined $c_subfield ) {
$c_marc_field->update( $c_subfield, $c_db_value );
}
else {
$c_marc_field->update($c_db_value);
}
# date last modified field
unless ($m_marc_field) {
$biblio->add_fields( new MARC::Field( $m_field, '', '' ) );
$debug and warn "[WARN] $m_field did not exist.";
$m_marc_field = $biblio->field($m_field);
}
if ( defined $m_subfield ) {
$m_marc_field->update( $m_subfield, $m_db_value );
}
else {
$m_marc_field->update($m_db_value);
}
# apply to databse
if ( &ModBiblio( $biblio, $id, $frameworkcode ) ) {
return 1;
}
$debug and warn '[ERROR] ModBiblio failed.';
return;
}
sub process {
my $dbh = C4::Context->dbh;
$dbh = C4::Context->dbh;
my $mod_count = 0;
my $sth = $dbh->prepare("SELECT biblionumber FROM biblio");
my $query = q{
SELECT biblionumber
FROM biblio
JOIN biblioitems USING (biblionumber)
};
$query .= qq{ WHERE $where} if $where;
my $sth = $dbh->prepare($query);
$sth->execute();
while(my $biblios = $sth->fetchrow_hashref)
{
updateMarc($biblios->{'biblionumber'});
print ".";
$verbose and print "Number of concerned biblios: " . $sth->rows . "\n";
while ( my $biblios = $sth->fetchrow_hashref ) {
$verbose and print 'Bib ' . $biblios->{'biblionumber'} . ':';
my $ret = updateMarc( $biblios->{'biblionumber'} );
if ($ret) {
$verbose and print 'modified';
$mod_count++;
}
$verbose and print "\n";
}
$verbose and print "Number of modified biblios: " . $mod_count . "\n";
}
if (lc(C4::Context->preference('marcflavour')) eq "unimarc"){
process();
}
else {
print "this script is UNIMARC only and should be used only on unimarc databases\n";
if ( lc( C4::Context->preference('marcflavour') ) eq "unimarc" ) {
$verbose
and !$run
and print "*** Not in run mode, modifications will not be applyed ***\n";
$verbose and print "================================\n";
process();
}
else {
print
"This script is UNIMARC only and should be used only on UNIMARC databases\n";
}
sub print_usage {
print <<_USAGE_;
Synchronizes date created and date last modified from biblio table to MARC data.
Does not update biblio if dates are already synchronized.
UNIMARC specific.
Parameters:
--help or -h show this message
--verbose or -v verbose logging
--run run the command else modifications will not be applyed to database
--where (optional) use this to limit execution to some biblios :
write a SQL where clause using biblio and/or biblioitems fields
--date-created-marc or c (optional) date created MARC field and optional subfield,
099c by default
--date-modified-marc or m (optional) date last modified MARC field and optional subfield,
099d by default
_USAGE_
}