From b3b33960dac85015d4f6e73604a8f7d21ed31e5b Mon Sep 17 00:00:00 2001
From: Kyle Hall <kyle@bywatersolutions.com>
Date: Wed, 22 Feb 2023 10:55:41 -0500
Subject: [PATCH] Bug 33040: Add "Date published (text)" to serials tab on
 record view (detail.pl)

Some libraries would like to see the "Date published (text)" in the serials tab on the "Normal" record view ( aka catalogue/detail.pl ).

Test Plan:
1) View the serials tab on detail.pl for a subscription where the latest
   serial has a "Date published (text)" field populated.
2) Apply this patch
3) Restart all the thigns!
4) Browse to detail.pl for that record
5) View the Subscriptions tab
6) Note the "Date published (text)" column exists now!

Signed-off-by: Matt Blenkinsop <matt.blenkinsop@ptfs-europe.com>
Signed-off-by: Victor Grousset/tuxayo <victor@tuxayo.net>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
---
 C4/Serials.pm                                               | 2 +-
 koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tt | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/C4/Serials.pm b/C4/Serials.pm
index 75c9d7f19f..e67881035d 100644
--- a/C4/Serials.pm
+++ b/C4/Serials.pm
@@ -746,7 +746,7 @@ sub GetLatestSerials {
     my $dbh = C4::Context->dbh;
 
     my $statuses = join( ',', ( ARRIVED, MISSING_STATUSES ) );
-    my $strsth = "SELECT   serialid,serialseq, status, planneddate, publisheddate, notes
+    my $strsth = "SELECT   serialid,serialseq, status, planneddate, publisheddate, publisheddatetext, notes
                         FROM     serial
                         WHERE    subscriptionid = ?
                         AND      status IN ($statuses)
diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tt
index 5103e0052c..a4452f51be 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tt
@@ -798,6 +798,7 @@ Note that permanent location is a code, and location may be an authval.
                     <th>Issue #</th>
                     <th>Date arrived</th>
                     <th>Date published</th>
+                    <th>Date published (text)</th>
                     <th>Status</th>
                     <th>Note</th>
                 </tr>
@@ -806,6 +807,7 @@ Note that permanent location is a code, and location may be an authval.
                     <td>[% latestserial.serialseq | html %]</td>
                     <td data-order="[% latestserial.planneddate | html %]">[% latestserial.planneddate | $KohaDates %]</td>
                     <td data-order="[% latestserial.publisheddate | html %]">[% latestserial.publisheddate | $KohaDates %]</td>
+                    <td>[% latestserial.publisheddatetext | html %]</td>
                     <td>
                       [% IF ( latestserial.status1 ) %]<span>Expected</span>[% END %]
                       [% IF ( latestserial.status2 ) %]<span>Arrived</span>[% END %]
-- 
2.39.5