use DateTime;
use C4::Context;
-use Koha::SimpleMARC;
-
-use vars qw($VERSION @ISA @EXPORT);
-
-use constant DEBUG => 0;
+use Koha::SimpleMARC qw(
+ add_field
+ copy_and_replace_field
+ copy_field
+ delete_field
+ field_equals
+ field_exists
+ move_field
+ update_field
+);
+use Koha::MoreUtils;
+use Koha::DateUtils qw( dt_from_string );
+
+use vars qw(@ISA @EXPORT);
BEGIN {
- $VERSION = 1.00; # set the version for version checking
- @ISA = qw(Exporter);
+ @ISA = qw(Exporter);
@EXPORT = qw(
- &GetModificationTemplates
- &AddModificationTemplate
- &DelModificationTemplate
+ GetModificationTemplates
+ AddModificationTemplate
+ DelModificationTemplate
- &GetModificationTemplateAction
- &GetModificationTemplateActions
+ GetModificationTemplateAction
+ GetModificationTemplateActions
- &AddModificationTemplateAction
- &ModModificationTemplateAction
- &DelModificationTemplateAction
- &MoveModificationTemplateAction
+ AddModificationTemplateAction
+ ModModificationTemplateAction
+ DelModificationTemplateAction
+ MoveModificationTemplateAction
- &ModifyRecordsWithTemplate
- &ModifyRecordWithTemplate
+ ModifyRecordsWithTemplate
+ ModifyRecordWithTemplate
);
}
=head2 GetModificationTemplates
- my @templates = GetModificationTemplates( [ $template_id ] );
+ my @templates = GetModificationTemplates( $template_id );
+
+ Passing optional $template_id marks it as the selected template.
- Passing a $template_id will mark the given id as the selected template.
=cut
sub GetModificationTemplates {
my ( $template_id ) = @_;
- warn("C4::MarcModificationTemplates::GetModificationTemplates( $template_id )") if DEBUG;
my $dbh = C4::Context->dbh;
- my $sth = $dbh->prepare("SELECT * FROM marc_modification_templates");
+ my $sth = $dbh->prepare("SELECT * FROM marc_modification_templates ORDER BY name");
$sth->execute();
my @templates;
while ( my $template = $sth->fetchrow_hashref() ) {
- $template->{'selected'} = 1 if ( $template->{'template_id'} eq $template_id );
+ $template->{'selected'} = 1
+ if $template_id && $template->{'template_id'} eq $template_id;
push( @templates, $template );
}
sub GetModificationTemplateActions {
my ( $template_id ) = @_;
- warn( "C4::MarcModificationTemplates::GetModificationTemplateActions( $template_id )" ) if DEBUG;
-
my $dbh = C4::Context->dbh;
my $sth = $dbh->prepare("SELECT * FROM marc_modification_template_actions WHERE template_id = ? ORDER BY ordering");
$sth->execute( $template_id );
push( @actions, $action );
}
- warn( Data::Dumper::Dumper( @actions ) ) if DEBUG > 4;
-
return @actions;
}
$description
) = @_;
- warn( "C4::MarcModificationTemplates::AddModificationTemplateAction( $template_id, $action,
- $field_number, $from_field, $from_subfield, $field_value, $to_field, $to_subfield,
- $to_regex_search, $to_regex_replace, $to_regex_modifiers, $conditional, $conditional_field, $conditional_subfield, $conditional_comparison,
- $conditional_value, $conditional_regex, $description )" ) if DEBUG;
-
+ $conditional ||= undef;
+ $conditional_comparison ||= undef;
$conditional_regex ||= '0';
my $dbh = C4::Context->dbh;
) = @_;
my $dbh = C4::Context->dbh;
+ $conditional ||= undef;
+ $conditional_comparison ||= undef;
+ $conditional_regex ||= '0';
my $query = "
UPDATE marc_modification_template_actions SET
sub ModifyRecordsWithTemplate {
my ( $template_id, $batch ) = @_;
- warn( "C4::MarcModificationTemplates::ModifyRecordsWithTemplate( $template_id, $batch )" ) if DEBUG;
while ( my $record = $batch->next() ) {
ModifyRecordWithTemplate( $template_id, $record );
sub ModifyRecordWithTemplate {
my ( $template_id, $record ) = @_;
- warn( "C4::MarcModificationTemplates::ModifyRecordWithTemplate( $template_id, $record )" ) if DEBUG;
- warn( "Unmodified Record:\n" . $record->as_formatted() ) if DEBUG >= 10;
- my $current_date = DateTime->now()->ymd();
- my $branchcode = C4::Context->userenv->{branch};
+ my $current_date = dt_from_string()->ymd();
+ my $branchcode = '';
+ $branchcode = C4::Context->userenv->{branch} if C4::Context->userenv;
my @actions = GetModificationTemplateActions( $template_id );
foreach my $a ( @actions ) {
my $action = $a->{'action'};
- my $field_number = $a->{'field_number'};
+ my $field_number = $a->{'field_number'} // 1;
my $from_field = $a->{'from_field'};
my $from_subfield = $a->{'from_subfield'};
my $field_value = $a->{'field_value'};
$field_value =~ s/__BRANCHCODE__/$branchcode/g;
}
- my @params = ( $record, $from_field, $from_subfield );
- if ( $action eq 'update_field' ) {
- push @params,
- ( $field_value
- ? ( undef, $field_value )
- : ()
- );
- } else {
- push @params,
- ( $field_value
- ? $field_value
- : ()
- );
- }
- push @params, (
- ( ( not $field_value and $to_field )
- ? ( $to_field, $to_subfield, { search => $to_regex_search, replace => $to_regex_replace, modifiers => $to_regex_modifiers} )
- : () ),
- ( $field_number
- ? $field_number
- : () )
- );
-
my $do = 1;
+ my $field_numbers = [];
if ( $conditional ) {
- for ( $conditional_comparison ) {
- when ( /^exists$/ ) {
- my $exists = field_exists( $record, $conditional_field, $conditional_subfield );
- $do = $conditional eq 'if'
- ? $exists
- : not $exists;
- }
- when ( /^not_exists$/ ) {
- my $exists = field_exists( $record, $conditional_field, $conditional_subfield );
- $do = $conditional eq 'if'
- ? not $exists
- : $exists;
- }
- when ( /^equals$/ ) {
- my $equals = field_equals( $record, $conditional_value, $conditional_field, $conditional_subfield, $conditional_regex );
+ if ( $conditional_comparison eq 'exists' ) {
+ $field_numbers = field_exists({
+ record => $record,
+ field => $conditional_field,
+ subfield => $conditional_subfield,
+ });
+ $do = $conditional eq 'if'
+ ? @$field_numbers
+ : not @$field_numbers;
+ }
+ elsif ( $conditional_comparison eq 'not_exists' ) {
+ $field_numbers = field_exists({
+ record => $record,
+ field => $conditional_field,
+ subfield => $conditional_subfield
+ });
+ $do = $conditional eq 'if'
+ ? not @$field_numbers
+ : @$field_numbers;
+ }
+ elsif ( $conditional_comparison eq 'equals' ) {
+ $field_numbers = field_equals({
+ record => $record,
+ value => $conditional_value,
+ field => $conditional_field,
+ subfield => $conditional_subfield,
+ is_regex => $conditional_regex,
+ });
+ $do = $conditional eq 'if'
+ ? @$field_numbers
+ : not @$field_numbers;
+ }
+ elsif ( $conditional_comparison eq 'not_equals' ) {
+ $field_numbers = field_equals({
+ record => $record,
+ value => $conditional_value,
+ field => $conditional_field,
+ subfield => $conditional_subfield,
+ is_regex => $conditional_regex,
+ });
+ my $all_fields = [
+ 1 .. scalar @{
+ field_exists(
+ {
+ record => $record,
+ field => $conditional_field,
+ subfield => $conditional_subfield
+ }
+ )
+ }
+ ];
+ $field_numbers = [Koha::MoreUtils::singleton ( @$field_numbers, @$all_fields ) ];
+ if ( $from_field == $conditional_field ){
$do = $conditional eq 'if'
- ? $equals
- : not $equals;
- }
- when ( /^not_equals$/ ) {
- my $equals = field_equals( $record, $conditional_value, $conditional_field, $conditional_subfield, $conditional_regex );
+ ? @$field_numbers
+ : not @$field_numbers;
+ } else {
$do = $conditional eq 'if'
- ? not $equals
- : $equals;
+ ? not @$field_numbers
+ : @$field_numbers;
}
}
}
if ( $do ) {
- for ( $action ) {
- when ( /^copy_field$/ ) {
- copy_field( @params );
- }
- when ( /^update_field$/ ) {
- update_field( @params );
- }
- when ( /^move_field$/ ) {
- move_field( @params );
+
+ # field_number == 0 if all field need to be updated
+ # or 1 if only the first field need to be updated
+
+ # A condition has been given
+ if ( @$field_numbers > 0 ) {
+ if ( $field_number == 1 ) {
+ # We want only the first
+ if ( $from_field == $conditional_field ){
+ # want first field matching condition
+ $field_numbers = [ $field_numbers->[0] ];
+ } else {
+ # condition doesn't match, so just want first occurrence of from field
+ $field_numbers = [ 1 ];
+ }
+ } else {
+ unless ( $from_field == $conditional_field ){
+ # condition doesn't match from fields so need all occurrences of from fields for action
+ $field_numbers = field_exists({
+ record => $record,
+ field => $from_field,
+ subfield => $from_subfield,
+ });
+ }
}
- when ( /^delete_field$/ ) {
- delete_field( @params );
+ }
+ # There was no condition
+ else {
+ if ( $field_number == 1 ) {
+ # We want to process the first field
+ $field_numbers = [ 1 ];
}
}
- }
- warn( $record->as_formatted() ) if DEBUG >= 10;
+ if ( $action eq 'copy_field' ) {
+ copy_field({
+ record => $record,
+ from_field => $from_field,
+ from_subfield => $from_subfield,
+ to_field => $to_field,
+ to_subfield => $to_subfield,
+ regex => {
+ search => $to_regex_search,
+ replace => $to_regex_replace,
+ modifiers => $to_regex_modifiers
+ },
+ field_numbers => $field_numbers,
+ });
+ }
+ elsif ( $action eq 'copy_and_replace_field' ) {
+ copy_and_replace_field({
+ record => $record,
+ from_field => $from_field,
+ from_subfield => $from_subfield,
+ to_field => $to_field,
+ to_subfield => $to_subfield,
+ regex => {
+ search => $to_regex_search,
+ replace => $to_regex_replace,
+ modifiers => $to_regex_modifiers
+ },
+ field_numbers => $field_numbers,
+ });
+ }
+ elsif ( $action eq 'add_field' ) {
+ add_field({
+ record => $record,
+ field => $from_field,
+ subfield => $from_subfield,
+ values => [ $field_value ],
+ field_numbers => $field_numbers,
+ });
+ }
+ elsif ( $action eq 'update_field' ) {
+ update_field({
+ record => $record,
+ field => $from_field,
+ subfield => $from_subfield,
+ values => [ $field_value ],
+ field_numbers => $field_numbers,
+ });
+ }
+ elsif ( $action eq 'move_field' ) {
+ move_field({
+ record => $record,
+ from_field => $from_field,
+ from_subfield => $from_subfield,
+ to_field => $to_field,
+ to_subfield => $to_subfield,
+ regex => {
+ search => $to_regex_search,
+ replace => $to_regex_replace,
+ modifiers => $to_regex_modifiers
+ },
+ field_numbers => $field_numbers,
+ });
+ }
+ elsif ( $action eq 'delete_field' ) {
+ delete_field({
+ record => $record,
+ field => $from_field,
+ subfield => $from_subfield,
+ field_numbers => $field_numbers,
+ });
+ }
+ }
}
+
+ return;
}
1;
__END__