--- loncom/publisher/lonpublisher.pm	2002/10/10 15:05:36	1.102
+++ loncom/publisher/lonpublisher.pm	2002/10/19 06:34:15	1.104
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.102 2002/10/10 15:05:36 www Exp $
+# $Id: lonpublisher.pm,v 1.104 2002/10/19 06:34:15 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -139,9 +139,6 @@ my $docroot;
 my $cuname;
 my $cudom;
 
-#########################################
-#########################################
-
 =pod
 
 =item B<metaeval>
@@ -265,46 +262,6 @@ sub metaread {
 }
 
 #########################################
-#########################################
-
-=pod
-
-=item B<sqltime>
-
-Convert 'time' format into a datetime sql format
-
-Parameters:
-
-=over 4
-
-=item I<$timef>
-
-Seconds since 00:00:00 UTC, January 1, 1970.
-
-=back
-
-Returns:
-
-=over 4
-
-=item Scalar string
-
-MySQL-compatible datetime string.
-
-=back
-
-=cut
-
-#########################################
-#########################################
-sub sqltime {
-    my $timef=shift @_;
-    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
-	localtime($timef);
-    $mon++; $year+=1900;
-    return "$year-$mon-$mday $hour:$min:$sec";
-}
-
 
 #########################################
 #########################################
@@ -1124,7 +1081,8 @@ END
         unless ($metadatafields{'creationdate'}) {
 	    $metadatafields{'creationdate'}=time;
         }
-        $scrout.=&hiddenfield('creationdate',$metadatafields{'creationdate'});
+        $scrout.=&hiddenfield('creationdate',
+              &Apache::loncommon::unsqltime($metadatafields{'creationdate'}));
 
         $scrout.=&hiddenfield('lastrevisiondate',time);
 
@@ -1249,10 +1207,8 @@ sub phasetwo {
     $metadatafields{'abstract'}=$ENV{'form.abstract'};
     $metadatafields{'mime'}=$ENV{'form.mime'};
     $metadatafields{'language'}=$ENV{'form.language'};
-    $metadatafields{'creationdate'}=
-        &sqltime($ENV{'form.creationdate'});
-    $metadatafields{'lastrevisiondate'}=
-        &sqltime($ENV{'form.lastrevisiondate'});
+    $metadatafields{'creationdate'}=$ENV{'form.creationdate'};
+    $metadatafields{'lastrevisiondate'}=$ENV{'form.lastrevisiondate'};
     $metadatafields{'owner'}=$ENV{'form.owner'};
     $metadatafields{'copyright'}=$ENV{'form.copyright'};
     $metadatafields{'dependencies'}=$ENV{'form.dependencies'};
@@ -1742,7 +1698,7 @@ unless ($ENV{'form.phase'} eq 'two') {
       if (&Apache::loncommon::fileembstyle($thistype) eq 'ssi') {
           $r->print('<br /><a href="/adm/diff?filename=/~'.$cuname.'/'.
                     $thisdisfn.
-  	  '&versionone=priv" target="cat">Diffs with Current Version</a><p>');
+  	  '&versiontwo=priv" target="cat">Diffs with Current Version</a><p>');
       }
   
 # ------------------ Publishing from $thisfn to $thistarget with $thisembstyle.