### Eclipse Workspace Patch 1.0
#P scmbugg
Index: src/lib/product/Tools/SCM_Functions.pm.in
===================================================================
RCS file: /projects/scmbug/cvsroot/system/src/lib/product/Tools/SCM_Functions.pm.in,v
retrieving revision 1.21
diff -u -r1.21 SCM_Functions.pm.in
--- src/lib/product/Tools/SCM_Functions.pm.in	7 Jul 2007 07:12:20 -0000	1.21
+++ src/lib/product/Tools/SCM_Functions.pm.in	28 Dec 2007 06:52:06 -0000
@@ -17,6 +17,7 @@
 
 use strict;
 use Data::Dumper;
+use Time::Local;
 use Cwd;
 use @DEVEL_PRODUCT_NAME@::Tools::SCM_Description;
 use @DEVEL_PRODUCT_NAME@::Error;
@@ -145,9 +146,11 @@
 
 		my $line_copy = $data;
 		$line_copy =~ s/<date>(.*)?\..*/$1/g; # Strip <>prefix
-		if ( $line_copy =~ m/(\d\d\d\d-\d\d-\d\d)T(\d\d:\d\d:\d\d)/ ) {
-		    my $date = $1;
-		    my $time = $2;
+		if ( $line_copy =~ m/(\d{4})-(\d{2})-(\d{2})T(\d{2}):(\d{2}):(\d{2})/ ) {
+		    my $timeUTC = timegm($6, $5, $4, $3, $2-1, $1-1900);
+		    my ($sec,$min,$hour,$mday,$mon,$year) = localtime($timeUTC);
+		    my $date = sprintf("%04d", $year+1900)."-".sprintf("%02d", $mon+1)."-".sprintf("%02d", $mday);
+		    my $time = sprintf("%02d", $hour).":".sprintf("%02d", $min).":".sprintf("%02d", $sec);
 		    $label_date = $date . " " . $time;
 		} else {
 		    @DEVEL_PRODUCT_NAME_LOWER@_error( $VDD_ERROR_INVALID_DATE_FORMAT, "Invalid date format reported by 'svn log': '" . $line_copy . "'.\n" );