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

[www]

www		Mon Dec 29 14:13:23 2003 EDT

  Modified files:              
    /loncom/publisher	lonpublisher.pm 
  Log:
  The uppercasing does not work correctly in all languages.
  
  
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.156 loncom/publisher/lonpublisher.pm:1.157
--- loncom/publisher/lonpublisher.pm:1.156	Sun Dec 28 15:12:59 2003
+++ loncom/publisher/lonpublisher.pm	Mon Dec 29 14:13:23 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.156 2003/12/28 20:12:59 www Exp $
+# $Id: lonpublisher.pm,v 1.157 2003/12/29 19:13:23 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -317,8 +317,7 @@
     $value=~s/\s+$//gs;
     $value=~s/\s+/ /gs;
     $title=&mt($title);
-    my $uctitle=uc($title);
-    return "\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:".
+    return "\n<p><font color=\"#800000\" face=\"helvetica\"><b>$title:".
            "</b></font></p><br />".
            '<input type="text" name="'.$name.'" size=80 value="'.$value.'" />';
 }
@@ -331,9 +330,8 @@
 sub selectbox {
     my ($title,$name,$value,$functionref,@idlist)=@_;
     $title=&mt($title);
-    my $uctitle=uc($title);
     $value=(split(/\s*,\s*/,$value))[-1];
-    my $selout="\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:".
+    my $selout="\n<p><font color=\"#800000\" face=\"helvetica\"><b>$title:".
 	'</b></font></p><br /><select name="'.$name.'">';
     foreach (@idlist) {
         $selout.='<option value=\''.$_.'\'';
@@ -1112,7 +1110,7 @@
 # --------------------------------------------------- Scan content for keywords
 
         my $keywords_help = Apache::loncommon::help_open_topic("Publishing_Keywords");
-        my $KEYWORDS=&mt('KEYWORDS');
+        my $KEYWORDS=&mt('Keywords');
 	my $CheckAll=&mt('check all');
 	my $UncheckAll=&mt('uncheck all');
 	my $keywordout=<<"END";
@@ -1163,7 +1161,7 @@
 	$scrout.=&textfield('Notes','notes',$metadatafields{'notes'});
 
 	$scrout.=
-	    "\n<p><font color=\"#800000\" face=\"helvetica\"><b>".&mt('ABSTRACT').":".
+	    "\n<p><font color=\"#800000\" face=\"helvetica\"><b>".&mt('Abstract').":".
 	    "</b></font></p><br />".
 	    '<textarea cols="80" rows="5" name="abstract">'.
 	    $metadatafields{'abstract'}.'</textarea></p>';
@@ -1173,11 +1171,11 @@
 
 	$scrout.=
 	    "\n<p><font color=\"#800000\" face=\"helvetica\"><b>".
-	    uc(&mt('Lowest Grade Level:')).
+	    &mt('Lowest Grade Level').':'.
            "</b></font></p><br />".
 	   &Apache::loncommon::select_level_form($metadatafields{'lowestgradelevel'},'lowestgradelevel').
 	    "\n<p><font color=\"#800000\" face=\"helvetica\"><b>".
-	    uc(&mt('Highest Grade Level:')).
+	    &mt('Highest Grade Level').':'.
            "</b></font></p><br />".
 	   &Apache::loncommon::select_level_form($metadatafields{'highestgradelevel'},'highestgradelevel').
            &textfield('Standards','standards',$metadatafields{'standards'});