From 116b1b092315291bbc25d18a04d6300498602d8d Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 27 Feb 2023 21:47:59 +0100 Subject: [PATCH] Bug 31383: Create a parent-child DB relation for additional content In the design of additional contents the idea of a parent-child relation is implicitly present. You have a default page and translations. But we do this in one table coming from the old news items. Several reports show that we would be better off creating a parent table listing the main news items, CMS pages or HTML content. And a child table containing the title, content and lang. Note that this first step is a prelimenary step to clean this area and make it more robust and extensible. More enhancements to come. What is this patchset doing? * DB changes - Rename additional_contents.idnew with id - Create a new table additional_contents_localizations(id, additional_content_id, title, content, lang) that will contain the translated contents - Move the content to this new table - Remove title, content and lang columns from additional_contents - Replace the notice templates that are using ''" (should only be ISSUESLIP) and remove support for this syntax. Also add a warning in case other occurrences of uses of the old syntax exist. * CRUD - We add a new Koha::AdditionalContentsLocalization[s] couple, and move some logic from Koha::AdditionalContent[s] to there. Note that, to prevent too much drastic changes in notice templates, and to make them easy to use, the different attributes of the content object is accessible from the translated content object (ie. Koha::AdditionalContentsLocatlization->library is available and return $self->additional_content->library). I think it's an elegant way to keep things simple. - No changes expected for "NewsLog" logging - Little behaviour changes for pages, see tools/page.pl changes. We are now passing the id of the content, and the desired language, instead of the mix of "page_id" or code and lang. Note that here we certainly need to rename "language" query param to not change the full interface language. Test plan: 0. Preparation steps, use master a. Create notice templates that are using "<< additional_contents.code >>". This won't be replaced, but we want the update process to alert us. b. Create several news, additional contents, pages. Some with translated contents, some without. c. Make sure ISSUESLIP has the "" section. If you are using the sample data there is nothing to do here d. Turn on NewsLogs 1. Apply the patches, restart_all, updatedatabase => Confirm that the new table is created and filled with the contents you had prior to the update => Confirm that additional_contents_localizations.updated_on has been kept to the previous values => Confirm that ISSUESLIP has been replaced properly => Confirm that you get a warning about the additional_contents 2. Create, update, delete news, html customs, pages => Confirm that the additional_contents_localizations.updated_on is only adjusted when required => Confirm that the logs are correctly created when NewsLogs is on 3. Check some items out, generate a slip => Confirm that the news are displayed at the bottom of the slip, and that the publication date is correctly formatted 4. Have several HTML customizations (like OpacNav, opacheader), in translated in different languages => Confirm that the default values is displayed when you are using the interface in a language without translation => Confirm that the translated version is picked when it exists Notes for QA: * I am not sure we really need the alert during the update DB process about the additional_contents leftover. We should not have them outside of ISSUESLIP. Shouldn't it hurt? * There is something ugly in sample_news.yml, the id is hardcoded. But how do we prevent that and keep translatability? Sponsored-by: Rijksmuseum, Netherlands Signed-off-by: Marcel de Rooy Signed-off-by: Martin Renvoize --- C4/Letters.pm | 10 +- C4/Members.pm | 24 +- Koha/AdditionalContent.pm | 64 +++++- Koha/AdditionalContents.pm | 61 ++--- Koha/AdditionalContentsLocalization.pm | 217 ++++++++++++++++++ Koha/AdditionalContentsLocalizations.pm | 52 +++++ .../prog/en/modules/intranet-main.tt | 6 +- .../en/modules/tools/additional-contents.tt | 37 +-- .../prog/en/modules/tools/page.tt | 2 +- .../bootstrap/en/modules/opac-main.tt | 2 +- .../bootstrap/en/modules/opac-news-rss.tt | 2 +- .../bootstrap/en/modules/opac-page.tt | 4 +- opac/opac-main.pl | 1 - opac/opac-page.pl | 20 +- tools/additional-contents.pl | 205 ++++++++--------- tools/page.pl | 24 +- 16 files changed, 517 insertions(+), 214 deletions(-) create mode 100644 Koha/AdditionalContentsLocalization.pm create mode 100644 Koha/AdditionalContentsLocalizations.pm diff --git a/C4/Letters.pm b/C4/Letters.pm index b2ad4c2d1d2..6d207d97daf 100644 --- a/C4/Letters.pm +++ b/C4/Letters.pm @@ -762,7 +762,7 @@ sub _parseletter_sth { ($table eq 'subscription') ? "SELECT * FROM $table WHERE subscriptionid = ?" : ($table eq 'serial') ? "SELECT * FROM $table WHERE serialid = ?" : ($table eq 'problem_reports') ? "SELECT * FROM $table WHERE reportid = ?" : - ($table eq 'additional_contents' || $table eq 'opac_news') ? "SELECT * FROM additional_contents WHERE idnew = ?" : + ($table eq 'additional_contents' || $table eq 'opac_news') ? "SELECT * FROM additional_contents_localizations WHERE id = ?" : ($table eq 'recalls') ? "SELECT * FROM $table WHERE recall_id = ?" : undef ; unless ($query) { @@ -1733,16 +1733,16 @@ sub _get_tt_params { pk => 'itemnumber', }, additional_contents => { - module => 'Koha::AdditionalContents', + module => 'Koha::AdditionalContentsLocalizations', singular => 'additional_content', plural => 'additional_contents', - pk => 'idnew', + pk => 'id', }, opac_news => { - module => 'Koha::AdditionalContents', + module => 'Koha::AdditionalContentsLocalizations', singular => 'news', plural => 'news', - pk => 'idnew', + pk => 'id', }, aqorders => { module => 'Koha::Acquisition::Orders', diff --git a/C4/Members.pm b/C4/Members.pm index 919f6c38908..3db8c7fa9c8 100644 --- a/C4/Members.pm +++ b/C4/Members.pm @@ -516,40 +516,24 @@ sub IssueSlip { issues => $all, }; } - my $news = Koha::AdditionalContents->search_for_display( + my @news_ids = Koha::AdditionalContents->search_for_display( { category => 'news', location => 'slip', lang => $patron->lang, library_id => $branch, } - ); - my @news; - while ( my $n = $news->next ) { - my $all = $n->unblessed_all_relateds; - - # FIXME We keep newdate and timestamp for backward compatibility (from GetNewsToDisplay) - # But we should remove them and adjust the existing templates in a db rev - # FIXME This must be formatted in the notice template - my $published_on_dt = output_pref({ dt => dt_from_string( $all->{published_on} ), dateonly => 1 }); - $all->{newdate} = $published_on_dt; - $all->{timestamp} = $published_on_dt; - - push @news, { - additional_contents => $all, - }; - } + )->get_column('id'); $letter_code = 'ISSUESLIP'; %repeat = ( checkedout => \@checkouts, overdue => \@overdues, - news => \@news, ); %loops = ( issues => [ map { $_->{issues}{itemnumber} } @checkouts ], overdues => [ map { $_->{issues}{itemnumber} } @overdues ], - opac_news => [ map { $_->{additional_contents}{idnew} } @news ], - additional_contents => [ map { $_->{additional_contents}{idnew} } @news ], + opac_news => \@news_ids, + additional_contents => \@news_ids, ); } diff --git a/Koha/AdditionalContent.pm b/Koha/AdditionalContent.pm index c0c321458f3..3aca46ad875 100644 --- a/Koha/AdditionalContent.pm +++ b/Koha/AdditionalContent.pm @@ -19,11 +19,11 @@ package Koha::AdditionalContent; use Modern::Perl; - use Koha::Database; use Koha::DateUtils qw( dt_from_string ); use Koha::Libraries; use Koha::Patrons; +use Koha::AdditionalContentsLocalizations; use base qw(Koha::Object); @@ -61,7 +61,7 @@ Returns 1 if the additional content is expired or 0; =cut sub is_expired { - my ( $self ) = @_; + my ($self) = @_; return 0 unless $self->expirationdate; return 1 if dt_from_string( $self->expirationdate ) < dt_from_string->truncate( to => 'day' ); @@ -77,13 +77,69 @@ Returns Koha::Library object or undef =cut sub library { - my ( $self ) = @_; + my ($self) = @_; my $library_rs = $self->_result->branchcode; return unless $library_rs; - return Koha::Library->_new_from_dbic( $library_rs ); + return Koha::Library->_new_from_dbic($library_rs); +} + +=head3 translated_contents + +my $translated_contents = $additional_content->translated_contents; +$additional_content->translated_contents(\@contents) + +=cut + +sub translated_contents { + my ( $self, $localizations ) = @_; + if ($localizations) { + my $schema = $self->_result->result_source->schema; + $schema->txn_do( + sub { + $self->translated_contents->delete; + + for my $localization (@$localizations) { + $self->_result->add_to_additional_contents_localizations($localization); + } + } + ); + } + + my $rs = $self->_result->additional_contents_localizations; + return Koha::AdditionalContentsLocalizations->_new_from_dbic($rs); } +=head3 default_localization + +my $default_content = $additional_content->default_localization; + +Return the default content. + +=cut + +sub default_localization { + my ($self) = @_; + my $rs = $self->_result->additional_contents_localizations->find( { lang => 'default' } ); + return Koha::AdditionalContentsLocalization->_new_from_dbic($rs); +} + +=head3 translated_content + +my $translated_content = $additional_content->translated_content($lang); + +Return the translated content for a given language. The default is returned if none exist. + +=cut + +sub translated_content { + my ( $self, $lang ) = @_; + my $content = $self->translated_contents->search( + { lang => [ 'default', ( $lang ? $lang : () ) ] }, + { ( $lang ? ( order_by => \[ "field(lang, '" . $lang . "', 'default')" ] ) : () ) } + )->next; + return $content; +} =head3 _type diff --git a/Koha/AdditionalContents.pm b/Koha/AdditionalContents.pm index 430ff539346..cd3b00b8968 100644 --- a/Koha/AdditionalContents.pm +++ b/Koha/AdditionalContents.pm @@ -19,9 +19,12 @@ package Koha::AdditionalContents; use Modern::Perl; +use Array::Utils qw( array_minus ); + use Koha::Database; use Koha::Exceptions; use Koha::AdditionalContent; +use Koha::AdditionalContentsLocalizations; use base qw(Koha::Objects); @@ -72,44 +75,42 @@ sub search_for_display { my ( $self, $params ) = @_; my $search_params; - $search_params->{location} = $params->{location}; - $search_params->{branchcode} = $params->{library_id} ? [ $params->{library_id}, undef ] : undef; + $search_params->{location} = $params->{location}; + $search_params->{branchcode} = $params->{library_id} ? [ $params->{library_id}, undef ] : undef; $search_params->{published_on} = { '<=' => \'CAST(NOW() AS DATE)' }; - $search_params->{-or} = [ expirationdate => { '>=' => \'CAST(NOW() AS DATE)' }, - expirationdate => undef ]; + $search_params->{-or} = [ + expirationdate => { '>=' => \'CAST(NOW() AS DATE)' }, + expirationdate => undef + ]; $search_params->{category} = $params->{category} if $params->{category}; + my $contents = $self->SUPER::search( $search_params, { order_by => 'number' } ); + if ( $params->{lang} ) { - # FIXME I am failing to translate the following query - # SELECT a1.category, a1.code, COALESCE(a2.title, a1.title) - # FROM additional_contents a1 - # LEFT JOIN additional_contents a2 on a1.code=a2.code AND a2.lang="es-ES" - # WHERE a1.lang = 'default'; - - # So we are retrieving the code with a translated content, then the other ones - my $translated_contents = - $self->SUPER::search( { %$search_params, lang => $params->{lang} } ); - my $default_contents = $self->SUPER::search( + my $translated_contents = Koha::AdditionalContentsLocalizations->search( { - %$search_params, - lang => 'default', - code => - { '-not_in' => [ $translated_contents->get_column('code') ] } + additional_content_id => [$contents->get_column('id')], + lang => $params->{lang}, } ); - - return $self->SUPER::search( + my @all_content_id = $contents->get_column('id'); + my @translated_content_id = $translated_contents->get_column('additional_content_id'); + my $default_contents = Koha::AdditionalContentsLocalizations->search( + { + additional_content_id => [array_minus(@all_content_id, @translated_content_id)], + lang => 'default', + } + ); + return Koha::AdditionalContentsLocalizations->search( { - idnew => [ - $translated_contents->get_column('idnew'), - $default_contents->get_column('idnew') + id => [ + $translated_contents->get_column('id'), + $default_contents->get_column('id'), ] }, - { order_by => 'number' } ); } - - return $self->SUPER::search({%$search_params, lang => 'default'}, { order_by => 'number'}); + return $contents->search( { lang => 'default' }, { order_by => 'number' } )->translated_contents; } =head3 find_best_match @@ -129,13 +130,17 @@ sub find_best_match { my $library_id = $params->{library_id}; my $lang = $params->{lang}; - my $rs = $self->SUPER::search({ + my $contents = $self->SUPER::search({ category => $params->{category}, location => $params->{location}, - lang => [ $lang, 'default' ], branchcode => [ $library_id, undef ], }); + my $rs = Koha::AdditionalContentsLocalizations->search({ + additional_content_id => [ $contents->get_column('id') ], + lang => [ $lang, 'default' ], + }); + # Pick the best my ( $alt1, $alt2, $alt3 ); while( my $rec = $rs->next ) { diff --git a/Koha/AdditionalContentsLocalization.pm b/Koha/AdditionalContentsLocalization.pm new file mode 100644 index 00000000000..82bd961c2ac --- /dev/null +++ b/Koha/AdditionalContentsLocalization.pm @@ -0,0 +1,217 @@ +package Koha::AdditionalContentsLocalization; + +# 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 . + +use Modern::Perl; + +use Koha::Database; +use Koha::AdditionalContents; + +use base qw(Koha::Object); + +=head1 NAME + +Koha::AdditionalContentsLocalization - Koha Additional content localization object class + +=head1 API + +=head2 Class Methods + +=cut + +=head3 additional_content + + $c->additional_content; + +Return the Koha::AdditionalContent for this translated content. + +=cut + +sub additional_content { + my ( $self ) = @_; + my $rs = $self->_result->additional_content; + return Koha::AdditionalContent->_new_from_dbic($rs); +} + +=head3 author + + $c->author; + +Return the author of the content + +=cut + +sub author { + my ( $self, @params ) = @_; + return $self->additional_content->author(@params); +} + +=head3 is_expired + + $c->is_expired; + +Return $content->is_expired + +=cut + +sub is_expired { + my ( $self, @params ) = @_; + return $self->additional_content->is_expired(@params); +} + +=head3 library + + $c->library; + +Return the library of the content + +=cut + +sub library { + my ( $self, @params ) = @_; + return $self->additional_content->library(@params); +} + +=head3 category + + $c->category; + +Return the category of the content + +=cut + +sub category { + my ( $self, @params ) = @_; + return $self->additional_content->category; +} + +=head3 code + + $c->code; + +Return the code of the content + +=cut + +sub code { + my ( $self, @params ) = @_; + return $self->additional_content->code(@params); +} + +=head3 location + + $c->location; + +Return the location of the content + +=cut + +sub location { + my ( $self, @params ) = @_; + return $self->additional_content->location(@params); +} + +=head3 branchcode + + $c->branchcode; + +Return the branchcode of the content + +=cut + +sub branchcode { + my ( $self, @params ) = @_; + return $self->additional_content->branchcode(@params); +} + +=head3 published_on + + $c->published_on; + +Return the publication date of the content + +=cut + +sub published_on { + my ( $self, @params ) = @_; + return $self->additional_content->published_on(@params); +} + +=head3 updated_on + + $c->updated_on; + +Return the date of the last update of the content + +=cut + +sub updated_on { + my ( $self, @params ) = @_; + return $self->additional_content->updated_on(@params); +} + +=head3 expirationdate + + $c->expirationdate; + +Return the expiration date of the content + +=cut + +sub expirationdate { + my ( $self, @params ) = @_; + return $self->additional_content->expirationdate(@params); +} + +=head3 number + + $c->number; + +Return the number (order of display) of the content + +=cut + +sub number { + my ( $self, @params ) = @_; + return $self->additional_content->number(@params); +} + +=head3 borrowernumber + + $c->borrowernumber; + +Return the borrowernumber of the content + +=cut + +sub borrowernumber { + my ( $self, @params ) = @_; + return $self->additional_content->borrowernumber(@params); +} + +=head2 Class Methods + +=cut + +=head3 _type + +=cut + +sub _type { + return 'AdditionalContentsLocalization'; +} + +1; diff --git a/Koha/AdditionalContentsLocalizations.pm b/Koha/AdditionalContentsLocalizations.pm new file mode 100644 index 00000000000..80d2cb90b88 --- /dev/null +++ b/Koha/AdditionalContentsLocalizations.pm @@ -0,0 +1,52 @@ +package Koha::AdditionalContentsLocalizations; + +# 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 . + +use Modern::Perl; + +use Koha::Database; +use Koha::Exceptions; +use Koha::AdditionalContentsLocalization; + +use base qw(Koha::Objects); + +=head1 NAME + +Koha::AdditionalContentLocalizations - Koha Additional content localization object set class + +=head1 API + +=head2 Class Methods + +=cut + +=head3 _type + +=cut + +sub _type { + return 'AdditionalContentsLocalization'; +} + +=head3 object_class + +=cut + +sub object_class { + return 'Koha::AdditionalContentsLocalization'; +} + +1; diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt index 1b4dfe93dd6..841a56d6213 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt @@ -29,12 +29,12 @@

News

[% SET show_author = Koha.Preference('NewsAuthorDisplay') == 'staff' || Koha.Preference('NewsAuthorDisplay') == 'both' %] [% FOREACH koha_new IN koha_news %] -

[% koha_new.title | html %]

+

[% koha_new.title | html %]

[% koha_new.content | $raw %]

Posted on [% koha_new.published_on | $KohaDates %][% IF( show_author && koha_new.author ) %] by [% INCLUDE 'patron-title.inc' patron=koha_new.author %]
[% END %] [% IF ( CAN_user_tools_edit_additional_contents ) %] - Edit - | Delete + Edit + | Delete | New [% END %]

diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/additional-contents.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/tools/additional-contents.tt index dbf97f69f08..970bb853c2e 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/additional-contents.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/tools/additional-contents.tt @@ -59,7 +59,7 @@ [% END %] [% END %] [% WRAPPER breadcrumb_item bc_active= 1 %] - [% IF additional_content.idnew %] + [% IF additional_content.id %] Modify additional content [% ELSE %] Add additional content @@ -205,7 +205,7 @@ - +
@@ -280,16 +280,18 @@ [% WRAPPER tab_panels %] [% FOR language IN languages %] + [% SET translated_content = translated_contents.item(language.lang) %] [% WRAPPER tab_panel tabname="lang_${language.lang}" %]
  1. - +
  2. - + +
@@ -364,9 +366,10 @@ [% FOREACH c IN additional_contents%] + [% SET default_localization = c.default_localization %] [% IF ( c.is_expired ) %][% ELSE %][% END %] - + [% IF c.category == 'news' || c.category == 'pages' %] @@ -389,22 +392,22 @@ [% c.number | html %] [% c.published_on | $KohaDates %] [% c.expirationdate | $KohaDates %] [% IF ( c.is_expired ) %](expired)[% END %] - [% c.title | html %] + [% default_localization.title | html %] [% IF ( c.author) %][% INCLUDE 'patron-title.inc' patron=c.author %][% END %] [% IF category == 'pages' %] [% IF c.location == 'opac_only' OR c.location == 'staff_and_opac' %] OPAC: - Default + Default OR - Current language + Current language [% END %] [% IF c.location == 'staff_only' OR c.location == 'staff_and_opac' %] [% IF c.location == 'staff_and_opac' %]
[% END %] Staff interface: - Default + Default OR - Current language + Current language [% END %] [% END %] @@ -416,10 +419,10 @@