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

[www]

www		Tue Jul 15 16:18:30 2003 EDT

  Modified files:              
    /loncom/publisher	lonpublisher.pm 
  Log:
  For co-author, log who actually did the change.
  
  
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.124 loncom/publisher/lonpublisher.pm:1.125
--- loncom/publisher/lonpublisher.pm:1.124	Sat Jul  5 06:07:12 2003
+++ loncom/publisher/lonpublisher.pm	Tue Jul 15 16:18:30 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.124 2003/07/05 10:07:12 www Exp $
+# $Id: lonpublisher.pm,v 1.125 2003/07/15 20:18:30 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -815,7 +815,7 @@
 	return ('<font color="red">No write permission to user directory, FAIL</font>',1);
     }
     print $logfile 
-"\n\n================= Publish ".localtime()." Phase One  ================\n";
+"\n\n================= Publish ".localtime()." Phase One  ================\n".$ENV{'user.name'}.'@'.$ENV{'user.domain'}."\n";
 
     if (($style eq 'ssi') || ($style eq 'rat') || ($style eq 'prv')) {
 # ------------------------------------------------------- This needs processing
@@ -910,6 +910,9 @@
         $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
 
@@ -1231,7 +1234,7 @@
         return 0;
     }
     print $logfile 
-        "\n================= Publish ".localtime()." Phase Two  ================\n";
+        "\n================= Publish ".localtime()." Phase Two  ================\n".$ENV{'user.name'}.'@'.$ENV{'user.domain'}."\n";
     
     %metadatafields=();
     %metadatakeys=();
@@ -1338,7 +1341,7 @@
         closedir(DIR);
         $maxversion++;
         $r->print('<p>Creating old version '.$maxversion.'</p>');
-        print $logfile "\nCreating old version ".$maxversion;
+        print $logfile "\nCreating old version ".$maxversion."\n";
         
         my $copyfile=$srcd.'/'.$srcf.'.'.$maxversion.'.'.$srct;