[LON-CAPA-cvs] cvs: loncom /publisher lonpublisher.pm

[www]

www		Sat Dec 27 09:42:57 2003 EDT

  Modified files:              
    /loncom/publisher	lonpublisher.pm 
  Log:
  This was in the wrong place, needed to go into phase 2.
  
  
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.153 loncom/publisher/lonpublisher.pm:1.154
--- loncom/publisher/lonpublisher.pm:1.153	Fri Dec 26 16:17:37 2003
+++ loncom/publisher/lonpublisher.pm	Sat Dec 27 09:42:57 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.153 2003/12/26 21:17:37 www Exp $
+# $Id: lonpublisher.pm,v 1.154 2003/12/27 14:42:57 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -960,9 +960,6 @@
         $metadatafields{'author'}=~s/\s+/ /g;
         $metadatafields{'author'}=~s/\s+$//;
         $metadatafields{'owner'}=$cuname.'@'.$cudom;
-	$metadatafields{'modifyinguser'}=$ENV{'user.name'}.'@'.
-	                                 $ENV{'user.domain'};
-	$metadatafields{'authorspace'}=$cuname.'@'.$cudom;
 
 # ------------------------------------------------ Check out directory hierachy
 
@@ -1345,6 +1342,9 @@
     $metadatafields{'obsoletereplacement'}=
 	                        $ENV{'form.obsoletereplacement'};
     $metadatafields{'dependencies'}=$ENV{'form.dependencies'};
+    $metadatafields{'modifyinguser'}=$ENV{'user.name'}.'@'.
+	                                 $ENV{'user.domain'};
+    $metadatafields{'authorspace'}=$cuname.'@'.$cudom;
     
     my $allkeywords=$ENV{'form.addkey'};
     if (exists($ENV{'form.keywords'})) {