--- loncom/publisher/lonpublisher.pm	2003/04/02 02:17:10	1.121
+++ loncom/publisher/lonpublisher.pm	2003/07/23 19:17:27	1.126
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.121 2003/04/02 02:17:10 www Exp $
+# $Id: lonpublisher.pm,v 1.126 2003/07/23 19:17:27 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -190,7 +190,7 @@ sub metaeval {
               }
               if ($metadatafields{$unikey}) {
 		  my $newentry=$parser->get_text('/'.$entry);
-                  unless (($metadatafields{$unikey}=~/$newentry/) ||
+                  unless (($metadatafields{$unikey}=~/\Q$newentry\E/) ||
                           ($newentry eq '')) {
                      $metadatafields{$unikey}.=', '.$newentry;
 		  }
@@ -304,7 +304,9 @@ string which presents the form field (fo
 #########################################
 sub textfield {
     my ($title,$name,$value)=@_;
-    return "\n<p><b>$title:</b></p><br />".
+    my $uctitle=uc($title);
+    return "\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:".
+           "</b></font></p><br />".
            '<input type="text" name="'.$name.'" size=80 value="'.$value.'" />';
 }
 
@@ -316,8 +318,9 @@ sub hiddenfield {
 sub selectbox {
     my ($title,$name,$value,$functionref,@idlist)=@_;
     my $uctitle=uc($title);
+    $value=(split(/\s*,\s*/,$value))[-1];
     my $selout="\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:".
-	"</b></font></p><br />".'<select name="'.$name.'">';
+	'</b></font></p><br /><select name="'.$name.'">';
     foreach (@idlist) {
         $selout.='<option value=\''.$_.'\'';
         if ($_ eq $value) {
@@ -812,7 +815,7 @@ sub publish {
 	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
@@ -907,11 +910,14 @@ sub publish {
         $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
 
         my $thisdisfn=$source;
-        $thisdisfn=~s/^\/home\/$cuname\///;
+        $thisdisfn=~s/^\/home\/\Q$cuname\E\///;
 
         my @urlparts=split(/\//,$thisdisfn);
         $#urlparts--;
@@ -1042,7 +1048,8 @@ function uncheckAll(field) {
         field[i].checked = false ;
 }
 </script>
-<p><b>Keywords: $keywords_help</b> 
+<p><font color="#800000" face="helvetica"><b>KEYWORDS:</b></font>
+ $keywords_help</b>
 <input type="button" value="check all" onclick="javascript:checkAll(document.pubform.keywords)" /> 
 <input type="button" value="uncheck all" onclick="javascript:uncheckAll(document.pubform.keywords)" /> 
 </p>
@@ -1054,7 +1061,7 @@ END
 	foreach (sort keys %keywords) {
 	    $keywordout.='<td><input type="checkbox" name="keywords" value="'.$_.'"';
 	    if ($metadatafields{'keywords'}) {
-		if ($metadatafields{'keywords'}=~/$_/) {
+		if ($metadatafields{'keywords'}=~/\Q$_\E/) {
 		    $keywordout.=' checked="on"';
 		}
 	    } elsif (&Apache::loncommon::keyword($_)) {
@@ -1077,15 +1084,22 @@ END
 	$scrout.=&textfield('Notes','notes',$metadatafields{'notes'});
 
 	$scrout.=
-	    '<p><b>Abstract:</b><br /><textarea cols="80" rows="5" name="abstract">'.
+	    "\n<p><font color=\"#800000\" face=\"helvetica\"><b>ABSTRACT:".
+	    "</b></font></p><br />".
+	    '<textarea cols="80" rows="5" name="abstract">'.
 	    $metadatafields{'abstract'}.'</textarea></p>';
 
 	$source=~/\.(\w+)$/;
 
 	$scrout.=&hiddenfield('mime',$1);
 
+	my $defaultlanguage=$metadatafields{'language'};
+	$defaultlanguage =~ s/\s*notset\s*//g;
+	$defaultlanguage =~ s/^,\s*//g;
+	$defaultlanguage =~ s/,\s*$//g;
+
 	$scrout.=&selectbox('Language','language',
-			    $metadatafields{'language'},
+			    $defaultlanguage,
 			    \&Apache::loncommon::languagedescription,
 			    (&Apache::loncommon::languageids),
 			   );
@@ -1144,7 +1158,7 @@ END
 	$ENV{'form.keywords'}='';
 	foreach (keys %keywords) {
 	    if ($metadatafields{'keywords'}) {
-		if ($metadatafields{'keywords'}=~/$_/) { 
+		if ($metadatafields{'keywords'}=~/\Q$_\E/) { 
 		    $ENV{'form.keywords'}.=$_.','; 
 		}
 	    } elsif (&Apache::loncommon::keyword($_)) {
@@ -1220,7 +1234,7 @@ sub phasetwo {
         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=();
@@ -1327,7 +1341,7 @@ sub phasetwo {
         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;
         
@@ -1435,7 +1449,7 @@ sub phasetwo {
 # ------------------------------------------------ Provide link to new resource
     unless ($batch) {
         my $thisdistarget=$target;
-        $thisdistarget=~s/^$docroot//;
+        $thisdistarget=~s/^\Q$docroot\E//;
         
         my $thissrc=$source;
         $thissrc=~s/^\/home\/(\w+)\/public_html/\/priv\/$1/;
@@ -1465,7 +1479,7 @@ sub batchpublish {
 
     my $docroot=$r->dir_config('lonDocRoot');
     my $thisdistarget=$targetfile;
-    $thisdistarget=~s/^$docroot//;
+    $thisdistarget=~s/^\Q$docroot\E//;
 
 
     undef %metadatafields;
@@ -1532,7 +1546,7 @@ sub publishdirectory {
 	        $ruid,$rgid,$rrdev,$rsize,
 	        $ratime,$rmtime,$rctime,
 	        $rblksize,$rblocks)=stat($resdir.'/'.$filename);
-	        if ($rmtime<$cmtime) {
+	        if (($rmtime<$cmtime) || ($ENV{'form.forcerepub'})) {
 # previously published, modified now
 		    $publishthis=1;
                 }
@@ -1702,10 +1716,10 @@ unless ($ENV{'form.phase'} eq 'two') {
   $thistarget=~s/\/public\_html//;
 
   my $thisdistarget=$thistarget;
-  $thisdistarget=~s/^$docroot//;
+  $thisdistarget=~s/^\Q$docroot\E//;
 
   my $thisdisfn=$thisfn;
-  $thisdisfn=~s/^\/home\/$cuname\/public_html\///;
+  $thisdisfn=~s/^\/home\/\Q$cuname\E\/public_html\///;
 
   if ($fn=~/\/$/) {
 # -------------------------------------------------------- This is a directory
@@ -1755,5 +1769,7 @@ __END__
 
 =back
 
+=back
+
 =cut