[open-ils-commits] r16549 - trunk/Open-ILS/src/perlmods/OpenILS (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2010-06-01 15:19:08 -0400 (Tue, 01 Jun 2010)
New Revision: 16549

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/SIP.pm
Log:
Forward port r16547 from rel_1_6_0: fix regression in date formatting for non-due dates

Modified: trunk/Open-ILS/src/perlmods/OpenILS/SIP.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/SIP.pm	2010-06-01 19:18:21 UTC (rev 16548)
+++ trunk/Open-ILS/src/perlmods/OpenILS/SIP.pm	2010-06-01 19:19:08 UTC (rev 16549)
@@ -154,11 +154,11 @@
  	my $minute = $time[1];
  	my $second = $time[0];
   
- 	$date = sprintf("%04d-%02d-%02d", $year, $mon, $day);
-  
- 	# Due dates need time of day as well
+	$date = sprintf("%04d%02d%02d", $year, $mon, $day);
+
+ 	# Due dates need hyphen separators and time of day as well
  	if ($type eq 'due') {
- 		$date .= sprintf(" %02d:%02d:%02d", $hour, $minute, $second);
+ 		$date = sprintf("%04d-%02d-%02d %02d:%02d:%02d", $year, $mon, $day, $hour, $minute, $second);
  	}
 
 	syslog('LOG_DEBUG', "OILS: formatted date [type=$type]: $date");