--- loncom/interface/loncommon.pm	2006/05/12 02:17:50	1.370
+++ loncom/interface/loncommon.pm	2006/05/12 15:53:10	1.371
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.370 2006/05/12 02:17:50 www Exp $
+# $Id: loncommon.pm,v 1.371 2006/05/12 15:53:10 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2608,10 +2608,7 @@ sub timehash {
 
 sub utc_string {
     my ($date)=@_;
-    my @utctime=gmtime($date);
-    my $year=$utctime[5]+1900;
-    my $month=$utctime[4]+1;
-    return "$year$month$utctime[3]T$utctime[2]$utctime[1]$utctime[0]Z";
+    return strftime("%Y%m%dT%H%M%SZ",gmtime($date));
 }
 
 sub maketime {