From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 14 Jul 2005 20:15:13 +0000 (+0000)
Subject: added date clenser so we can use DateTime::Format::ISO8601
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=d6879dd8de0fe52a9731553563ca22c5f75f9a69;p=Evergreen.git

added date clenser so we can use DateTime::Format::ISO8601


git-svn-id: svn://svn.open-ils.org/ILS/trunk@1189 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/OpenSRF/src/perlmods/OpenSRF/Utils.pm b/OpenSRF/src/perlmods/OpenSRF/Utils.pm
index f24d7d712d..285e0f29d7 100644
--- a/OpenSRF/src/perlmods/OpenSRF/Utils.pm
+++ b/OpenSRF/src/perlmods/OpenSRF/Utils.pm
@@ -334,6 +334,16 @@ sub set_psname {
 	$0 = $PS_NAME if ($PS_NAME);
 }
 
+sub clense_ISO8601 {
+	my $self = shift;
+	my $date = shift || $self;
+	if ($date =~ /(\d{4})-?(\d{2})-?(\d{2}).?(\d{2}):(\d{2}):(\d{2})\.?\d*((?:-|\+)\d{2,4})?$/) {
+		my $z = $7 || '-00';
+		$date = "$1-$2-$3T$4:$5:$6$z";
+	}
+	return $date;
+}
+
 =head2 $utils_obj->daemonize('ps_name') OR daemonize('ps_name')
 
 Turns the current process into a daemon.  B<ps_name> is optional, and is used