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

[albertel]

albertel		Mon Jun 30 13:13:08 2003 EDT

  Modified files:              
    /loncom/publisher	lonpublisher.pm 
  Log:
  - from Mark Lucas, BUG# 1897, better fonts in publishing screen, picks up default language more intelligently
  
  
  
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.122 loncom/publisher/lonpublisher.pm:1.123
--- loncom/publisher/lonpublisher.pm:1.122	Tue Jun 24 19:24:48 2003
+++ loncom/publisher/lonpublisher.pm	Mon Jun 30 13:13:08 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.122 2003/06/24 23:24:48 albertel Exp $
+# $Id: lonpublisher.pm,v 1.123 2003/06/30 17:13:08 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -304,7 +304,9 @@
 #########################################
 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 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) {
@@ -1042,7 +1045,8 @@
         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>
@@ -1077,15 +1081,22 @@
 	$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),
 			   );