[Lxr-commits] CVS: lxr source,1.31,1.32

[Malcolm B. <mb...@us...>]

Update of /cvsroot/lxr/lxr
In directory usw-pr-cvs1:/tmp/cvs-serv5372

Modified Files:
	source 
Log Message:
Apply patch [ 455555 ] date/time ISO8601.  This makes source display
times in ISO format.


Index: source
===================================================================
RCS file: /cvsroot/lxr/lxr/source,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -d -r1.31 -r1.32
--- source	18 Mar 2002 14:55:43 -0000	1.31
+++ source	29 Jul 2002 01:23:03 -0000	1.32
@@ -110,24 +110,12 @@
     my $file_time = $files->getfiletime($dir.$node, $release);
 
     return '-' unless defined($file_time);
-    
+
     my @t = gmtime($file_time);
-    
-    my @months = ("Jan", "Feb", "Mar", "Apr", "May", "Jun",
-		  "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
     my ($sec, $min, $hour, $mday, $mon, $year) = @t;
-    $year += 1900;
-    $mon = $months[$mon];
-    
-    my $one_hour = (60 * 60);
-    my $six_months = $one_hour * 24 * int(365/2);
-    
-    if ($file_time <= ($current_time - $six_months) ||
-	$file_time >= ($current_time + $one_hour)) {
-	return sprintf("%s %2d  %04d", $mon, $mday, $year);
-    } else {
-	return sprintf("%s %2d %02d:%02d", $mon, $mday, $hour, $min);
-    }
+    return sprintf("%04d-%02d-%02d %02d:%02d:%02d",
+				   $year + 1900,
+				   $mon + 1, $mday, $hour, $min, $sec);
 }
 
 sub bgcolor {