c631fa0924
This patch adds: - a new DB field items.new. - a new page to configure this new status (tools/toggle_new_status.pl). - a new cronjob script (misc/cronjobs/automatic_item_modification_by_age.pl was misc/cronjob/toggle_new_status.pl) Why this status is useful for some libraries ? The use cases are: - to know easily what are the new items (with a simple sql query). - to display an icon in the search results. - issuing rules can be adapt for new items. Automatically (using the cronjob script), the status change (depending the configuration) and the item can be issued, for example. - a RSS/Atom feeds can be created on these new items. Test plan: - log in with a librarian having the tools > items_batchmod permission. - navigate to Home > Tools > Automatic item modifications by age (was: Toggle new status) - click on the edit button - there are 3 "blocks": * duration: the duration during an item is considered as new. * conditions: the status will change only if the conditions are meet. * substitutions: if there is no substitution, no action will be done. You can add some change to apply to the matching items. E.g. ccode=3 new='' If the value is an empty string (in other words, the input does not contain anything), the field will be deleted. You can create as many rules as you want. - test the interface : add/remove rule, conditions, substitutions, submit the form, edit, etc. (There is a looot of JS everywhere, so certainly a looot of bugs...). - when you have your rules defined, you can now launch the cronjob script without any parameter. A report will be displayed with the matching itemnumber and the substitutions to apply. Verify results are consistent. - launch the script with the -c argument and verify values have been modified depending the substitution rules. Signed-off-by: juliette et remy <juliette.levast@iepg.fr> Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> Bug 11023: Add the ability to specify fields from biblioitems table. Test plan: Same as before but try with fields from the biblioitems table. Signed-off-by: juliette et remy <juliette.levast@iepg.fr> Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> Bug 11023: Add UT for C4::Items::ToggleNewStatus Test plan: prove t/db_dependent/Items/ToggleNewStatus.t Signed-off-by: juliette et remy <juliette.levast@iepg.fr> Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> Bug 11023: FIX - condition on biblioitems table does not work If a rule contains a condition on the biblioitems table, the match won't work. This patch fixes this issue. Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> Bug 11023: Use DBIx-Class to retrieve column names Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> Bug 11023: Don't use the biblioitems fields for the subtitution It's dangerous to allow a change on the biblioitems fields with this feature. Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> Bug 11023: Rename the duration parameter with 'age' Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> Bug 11023: The age parameter should be a number The template should check if the age parameter is correctly filled (should be a number). Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> Bug 11023: Change the name of the feature Originaly this feature only permits to update the "new" field. Now all item fields can be updated. The name of the feature is now "Automatic item modifications by age". Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> Bug 11023 [QA Followup] * Update DB version * Fix capitalization error * Rename misc/cronjobs/toggle_new_status.pl to misc/cronjobs/automatic_item_modification_by_age.pl Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> Bug 11023 [QA Followup] - Complete the renaming of "toggle new status" to "automatic item modification by age" Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> Signed-off-by: Brendan A Gallagher <brendan@bywatersolutions.com>
106 lines
2.4 KiB
Perl
Executable file
106 lines
2.4 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
use Modern::Perl;
|
|
|
|
use Getopt::Long;
|
|
use Pod::Usage;
|
|
use JSON;
|
|
|
|
use C4::Context;
|
|
use C4::Items;
|
|
|
|
# Getting options
|
|
my ( $verbose, $help, $confirm );
|
|
my $result = GetOptions(
|
|
'h|help' => \$help,
|
|
'v|verbose' => \$verbose,
|
|
'c|confirm' => \$confirm,
|
|
);
|
|
|
|
pod2usage(1) if $help;
|
|
$verbose = 1 unless $confirm;
|
|
|
|
# Load configuration from the syspref
|
|
my $syspref_content = C4::Context->preference('automatic_item_modification_by_age_configuration');
|
|
my $rules = eval { JSON::from_json( $syspref_content ) };
|
|
pod2usage({ -message => "Unable to load the configuration : $@", -exitval => 1 })
|
|
if $@;
|
|
|
|
my $report = C4::Items::ToggleNewStatus( { rules => $rules, report_only => not $confirm } );
|
|
|
|
if ( $verbose ) {
|
|
if ( $report ) {
|
|
say "Item to modify:";
|
|
while ( my ( $itemnumber, $substitutions ) = each %$report ) {
|
|
for my $substitution ( @$substitutions ) {
|
|
if ( defined $substitution->{value} and $substitution->{value} ne q|| ) {
|
|
say "\titemnumber $itemnumber: $substitution->{field}=$substitution->{value}";
|
|
} else {
|
|
say "\titemnumber $itemnumber: field $substitution->{field} to delete";
|
|
}
|
|
}
|
|
}
|
|
} else {
|
|
say "There is no item to modify";
|
|
}
|
|
}
|
|
|
|
exit(0);
|
|
|
|
__END__
|
|
|
|
=head1 NAME
|
|
|
|
automatic_item_modification_by_age.pl
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
./automatic_item_modification_by_age.pl -h
|
|
|
|
Toggle recent acquisitions status.
|
|
Use this script to delete "new" status for items.
|
|
|
|
=head1 OPTIONS
|
|
|
|
=over 8
|
|
|
|
=item B<-h|--help>
|
|
|
|
Prints this help message.
|
|
|
|
=item B<-v|--verbose>
|
|
|
|
Set the verbose flag.
|
|
|
|
=item B<-c|--confirm>
|
|
|
|
The script will modify the items.
|
|
|
|
=back
|
|
|
|
=head1 AUTHOR
|
|
|
|
Jonathan Druart <jonathan.druart@biblibre.com>
|
|
|
|
=head1 COPYRIGHT
|
|
|
|
Copyright 2013 BibLibre
|
|
|
|
=head1 LICENSE
|
|
|
|
This file is part of Koha.
|
|
|
|
Koha is free software; you can redistribute it and/or modify it
|
|
under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
Koha is distributed in the hope that it will be useful, but
|
|
WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with Koha; if not, see <http://www.gnu.org/licenses>.
|
|
|
|
=cut
|