Attachment 43123 Details for Bug 14956 – Bug 14956 - C4::Dates from files opac/*.pl

[patch] Bug 14956 - C4::Dates from files opac/*.pl

Bug-14956---C4Dates-from-files-opacpl.patch (text/plain), 5.56 KB, created by Marc Véron on 2015-10-05 13:01:15 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Marc Véron

Created: 2015-10-05 13:01:15 UTC

Size: 5.56 KB

patch

obsolete

>From 1cf642e86b418ce9872175babe4acd7a088bb2f5 Mon Sep 17 00:00:00 2001
>From: =?UTF-8?q?Marc=20V=C3=A9ron?= <veron@veron.ch>
>Date: Mon, 5 Oct 2015 14:38:08 +0200
>Subject: [PATCH] Bug 14956 - C4::Dates from files opac/*.pl
>
>Remove C4::Dates from files:
>-  opac/opac-memberentry.pl
>-  opac/opac-reserve.pl
>-  opac/opac-search-history.pl
>-  opac/opac-showreviews.pl
>-  opac/opac-suggestions.pl
>-  opac/opac-serial-issues.pl
>-  opac/opac-alert-subscribe.pl
>-  opac/opac-ics.pl
>
>To test:
>- Apply patch
>- Verify, that self registration and holds work as before
>- Verify that tabs in catalog item detail work and display
>  as before
>- For serials: Verify that subscriptions work as before. It is a
>  little bit hidden, in tab Subscriptions, then 'More details', then
>  tab 'Brief history', button 'Subscribe to email notificatin on
>  new issues'
>- For ics: Can not be tested at the moment, not yet used (Bug 5456),
>  pls. have a look at the code changes
>---
> opac/opac-alert-subscribe.pl |    1 -
> opac/opac-ics.pl             |    1 -
> opac/opac-memberentry.pl     |   10 +++++++---
> opac/opac-reserve.pl         |    5 ++---
> opac/opac-search-history.pl  |    2 +-
> opac/opac-serial-issues.pl   |    1 -
> opac/opac-showreviews.pl     |    1 -
> opac/opac-suggestions.pl     |    1 -
> 8 files changed, 10 insertions(+), 12 deletions(-)
>
>diff --git a/opac/opac-alert-subscribe.pl b/opac/opac-alert-subscribe.pl
>index 2a614f2..86a72fe 100755
>--- a/opac/opac-alert-subscribe.pl
>+++ b/opac/opac-alert-subscribe.pl
>@@ -23,7 +23,6 @@ use warnings;
> 
> use CGI qw ( -utf8 );
> use C4::Auth;
>-use C4::Dates;
> use C4::Output;
> use C4::Context;
> use C4::Koha;
>diff --git a/opac/opac-ics.pl b/opac/opac-ics.pl
>index fe87409..0f5cbf9 100755
>--- a/opac/opac-ics.pl
>+++ b/opac/opac-ics.pl
>@@ -35,7 +35,6 @@ use C4::Auth;
> use C4::Koha;
> use C4::Circulation;
> use C4::Members;
>-use C4::Dates;
> 
> my $query = new CGI;
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>diff --git a/opac/opac-memberentry.pl b/opac/opac-memberentry.pl
>index 9a18afa..22fb843 100755
>--- a/opac/opac-memberentry.pl
>+++ b/opac/opac-memberentry.pl
>@@ -29,6 +29,7 @@ use Koha::Borrower::Modifications;
> use C4::Branch qw(GetBranchesLoop);
> use C4::Scrubber;
> use Email::Valid;
>+use Koha::DateUtils;
> 
> my $cgi = new CGI;
> my $dbh = C4::Context->dbh;
>@@ -331,9 +332,12 @@ sub ParseCgiForBorrower {
>         }
>     }
> 
>-    $borrower{'dateofbirth'} =
>-      C4::Dates->new( $borrower{'dateofbirth'} )->output("iso")
>-      if ( defined( $borrower{'dateofbirth'} ) );
>+    my $dob_dt;
>+    $dob_dt = eval { dt_from_string( $borrower{'dateofbirth'} ); }
>+        if ( defined( $borrower{'dateofbirth'} ) );
>+
>+    $borrower{'dateofbirth'} = output_pref ( { dt => $dob_dt, dateonly => 1, dateformat => 'iso' })
>+        if ( $dob_dt );
> 
>     return %borrower;
> }
>diff --git a/opac/opac-reserve.pl b/opac/opac-reserve.pl
>index 51feeee..14c1624 100755
>--- a/opac/opac-reserve.pl
>+++ b/opac/opac-reserve.pl
>@@ -28,7 +28,6 @@ use C4::Reserves;
> use C4::Biblio;
> use C4::Items;
> use C4::Output;
>-use C4::Dates qw/format_date/;
> use C4::Context;
> use C4::Members;
> use C4::Branch; # GetBranches
>@@ -465,7 +464,7 @@ foreach my $biblioNum (@biblionumbers) {
> 
>         if ( defined $reservedate ) {
>             $itemLoopIter->{backgroundcolor} = 'reserved';
>-            $itemLoopIter->{reservedate}     = format_date($reservedate);
>+            $itemLoopIter->{reservedate}     = output_pref({ dt => dt_from_string($reservedate), dateonly => 1 });
>             $itemLoopIter->{ReservedForBorrowernumber} = $reservedfor;
>             $itemLoopIter->{ReservedForSurname}        = $ItemBorrowerReserveInfo->{'surname'};
>             $itemLoopIter->{ReservedForFirstname}      = $ItemBorrowerReserveInfo->{'firstname'};
>@@ -499,7 +498,7 @@ foreach my $biblioNum (@biblionumbers) {
>         my ( $transfertwhen, $transfertfrom, $transfertto ) =
>           GetTransfers($itemNum);
>         if ( $transfertwhen && ($transfertwhen ne '') ) {
>-            $itemLoopIter->{transfertwhen} = format_date($transfertwhen);
>+            $itemLoopIter->{transfertwhen} = output_pref({ dt => dt_from_string($transfertwhen), dateonly => 1 });
>             $itemLoopIter->{transfertfrom} =
>               $branches->{$transfertfrom}{branchname};
>             $itemLoopIter->{transfertto} = $branches->{$transfertto}{branchname};
>diff --git a/opac/opac-search-history.pl b/opac/opac-search-history.pl
>index 7df51d9..7979627 100755
>--- a/opac/opac-search-history.pl
>+++ b/opac/opac-search-history.pl
>@@ -26,8 +26,8 @@ use C4::Output;
> use C4::Log;
> use C4::Items;
> use C4::Debug;
>-use C4::Dates;
> use C4::Search::History;
>+
> use URI::Escape;
> use POSIX qw(strftime);
> 
>diff --git a/opac/opac-serial-issues.pl b/opac/opac-serial-issues.pl
>index 15c4471..fad6127 100755
>--- a/opac/opac-serial-issues.pl
>+++ b/opac/opac-serial-issues.pl
>@@ -24,7 +24,6 @@ use warnings;
> use CGI qw ( -utf8 );
> use C4::Auth;
> use C4::Koha;
>-use C4::Dates;
> use C4::Serials;
> use C4::Letters;
> use C4::Output;
>diff --git a/opac/opac-showreviews.pl b/opac/opac-showreviews.pl
>index 3302571..10818b1 100755
>--- a/opac/opac-showreviews.pl
>+++ b/opac/opac-showreviews.pl
>@@ -28,7 +28,6 @@ use C4::Output;
> use C4::Circulation;
> use C4::Review;
> use C4::Biblio;
>-use C4::Dates;
> use C4::Members qw/GetMemberDetails/;
> use POSIX qw(ceil strftime);
> 
>diff --git a/opac/opac-suggestions.pl b/opac/opac-suggestions.pl
>index 6b7f8d4..f36d5a5 100755
>--- a/opac/opac-suggestions.pl
>+++ b/opac/opac-suggestions.pl
>@@ -27,7 +27,6 @@ use C4::Koha;
> use C4::Output;
> use C4::Suggestions;
> use C4::Koha;
>-use C4::Dates;
> use C4::Scrubber;
> 
> use Koha::DateUtils qw( dt_from_string );
>-- 
>1.7.10.4

Actions: View | Diff | Splinter Review

Attachments on bug 14956: 43123 | 43356 | 43357 | 43359 | 43362 | 43408 | 44352 | 44353 | 44518 | 44534 | 44593 | 44594 | 88203 | 88204