[Koha-patches] [PATCH] Bug 2842: ->regexp('syspref') failed for users of iso dateformat.

[Joe Atzberger]

Sticky due date and patron import were the two areas affected.
---
 C4/Dates.pm                                        |    7 +++++-
 .../prog/en/modules/circ/circulation.tmpl          |    3 +-
 t/Dates.t                                          |   22 ++++++++++++++-----
 3 files changed, 24 insertions(+), 8 deletions(-)

diff --git a/C4/Dates.pm b/C4/Dates.pm
index 98f48f0..0173a58 100644
--- a/C4/Dates.pm
+++ b/C4/Dates.pm
@@ -67,7 +67,12 @@ our %dmy_subs = (			# strings to eval  (after using regular expression returned
 sub regexp ($;$) {
 	my $self = shift;
 	my $delim = qr/:?\:|\/|-/;	# "non memory" cluster: no backreference
-	my $format = (@_) ? shift : $self->{'dateformat'};	# w/o arg. relies on dateformat being defined
+	my $format = (@_) ? _recognize_format(shift) : ($self->{'dateformat'} || _prefformat());
+
+    # Extra layer of checking $self->{'dateformat'}.
+    # Why?  Because it is assumed you might want to check regexp against an *instantiated* Dates object as a
+    # way of saying "does this string match *whatever* format that Dates object is?"
+
 	($format eq 'sql') and 
 	return qr/^(\d{4})(\d{2})(\d{2})(?:\s{4}(\d{2})(\d{2})(\d{2}))?/;
 	($format eq 'iso') and 
diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/circ/circulation.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/circ/circulation.tmpl
index 7ddf91b..8d54531 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/circ/circulation.tmpl
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/circ/circulation.tmpl
@@ -155,8 +155,9 @@ $.tablesorter.addParser({
         <!-- /TMPL_IF -->
 
         <!-- TMPL_IF NAME="INVALID_DATE" -->
-            <li>The due date is invalid</li>
+            <li>The due date &quot;<!-- TMPL_VAR NAME="INVALID_DATE" -->&quot; is invalid</li>
         <!-- /TMPL_IF -->
+
         <!-- TMPL_IF NAME="UNKNOWN_BARCODE" -->
             <li>The barcode was not found</li>
         <!-- /TMPL_IF -->
diff --git a/t/Dates.t b/t/Dates.t
index 7bb6788..1e71677 100644
--- a/t/Dates.t
+++ b/t/Dates.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 126;
+use Test::More tests => 192;
 BEGIN {
 	use FindBin;
 	use lib $FindBin::Bin;
@@ -16,13 +16,16 @@ sub describe ($$) {
 	return  "$front : $tail";
 }
 
+# Keep the number of test elements per [array] equal or the predicted number of tests 
+# needs to be different for different (fake) sysprefs.
 my %thash = (
 	  iso  => ['2001-01-01','1989-09-21','1952-01-00', '1989-09-21 13:46:02'],
-	metric => ["01-01-2001",'21-09-1989','00-01-1952'],
-	   us  => ["01-01-2001",'09-21-1989','01-00-1952'],
+	metric => ["01-01-2001",'21-09-1989','00-01-1952', '21-09-1989 13:46:02'],
+	   us  => ["01-01-2001",'09-21-1989','01-00-1952', '09-21-1989 13:46:02'],
 	  sql  => ['20010101    010101',
 	  		   '19890921    143907',
-	  		   '19520100    000000'     ],
+	  		   '19520100    000000',
+	  		   '19890921    134602'     ],
 );
 
 my ($date, $format, $today, $today0, $val, $re, $syspref);
@@ -45,8 +48,9 @@ In order to run without DB access, this test will substitute '$fake_syspref'
 as your default date format.  Export environmental variable KOHA_TEST_DATE_FORMAT
 to override this default, or pass the value as an argument to this test script.
 
-NOTE: we test for the system handling dd=00 and 00 for TIME values,
-therefore you *should* see some warnings 'Illegal date specified' related to those.
+NOTE: we test for the system handling dd=00 and 00 for TIME values, therefore
+you SHOULD see some warnings like:
+Illegal date specified (year = 1952, month = 1, day = 00) at t/Dates.t ...
 
 Testing Legacy Functions: format_date and format_date_in_iso
 
@@ -79,7 +83,13 @@ foreach $format (@formats) {
   foreach my $testval (@{$thash{ $format }}) {
 	ok($date = C4::Dates->new($testval,$format),         "$pre Date Creation   : new('$testval','$format')");
 	ok($re   = $date->regexp,                            "$pre has regexp()" );
+	ok($testval =~ /^$re$/,                              "$pre has regexp() match $testval");
 	ok($val  = $date->output(),                 describe("$pre output()", $val) );
+    SKIP: {
+        skip("special case with explicit regexp('syspref') because $format isn't $syspref", 1) unless ($format eq $syspref);
+        my $re_syspref = C4::Dates->regexp('syspref');
+        ok($testval =~ /^$re_syspref$/,                  "$pre has regexp('syspref') match $testval");
+    }
 	foreach (grep {!/$format/} @formats) {
 		ok($today = $date->output($_),          describe(sprintf("$pre output(%8s)","'$_'"), $today) );
 	}
-- 
1.5.5.GIT