--- loncom/interface/loncommon.pm	2006/05/11 19:04:31	1.369
+++ 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.369 2006/05/11 19:04:31 www Exp $
+# $Id: loncommon.pm,v 1.371 2006/05/12 15:53:10 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2606,6 +2606,11 @@ sub timehash {
              'dlsav'   => $ltime[8] );
 }
 
+sub utc_string {
+    my ($date)=@_;
+    return strftime("%Y%m%dT%H%M%SZ",gmtime($date));
+}
+
 sub maketime {
     my %th=@_;
     return POSIX::mktime(