date clensing works properly now... oops

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@696 9efc2488-bf62-4759-914b-345cdb29e865

diff --git a/src/perlmods/OpenSRF/Utils.pm b/src/perlmods/OpenSRF/Utils.pm
index 44ddcd2..36e794d 100644 (file)
--- a/src/perlmods/OpenSRF/Utils.pm
+++ b/src/perlmods/OpenSRF/Utils.pm
@@ -363,7 +363,7 @@ sub clense_ISO8601 {
        if ($date =~ /^\s*(\d{4})-?(\d{2})-?(\d{2})/o) {
                my $new_date = "$1-$2-$3";
 
-               if ($date =~/(?:$new_date).(\d{2}):(\d{2}):(\d{2})/o) {
+               if ($date =~/(\d{2}):(\d{2}):(\d{2})/o) {
                        $new_date .= "T$1:$2:$3";
 
                        my $z;