use DateTime;
use C4::Context;
-use Koha::SimpleMARC;
+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);
-use constant DEBUG => 0;
-
BEGIN {
- @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
);
}
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 ORDER BY name");
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';
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 $current_date = dt_from_string()->ymd();
my $branchcode = '';
$branchcode = C4::Context->userenv->{branch} if C4::Context->userenv;
});
}
}
-
- warn( $record->as_formatted() ) if DEBUG >= 10;
}
return;