--- loncom/publisher/lonpublisher.pm 2003/12/28 20:12:59 1.156 +++ loncom/publisher/lonpublisher.pm 2003/12/29 21:17:00 1.158 @@ -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.158 2003/12/29 21:17:00 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -317,8 +317,7 @@ sub textfield { $value=~s/\s+$//gs; $value=~s/\s+/ /gs; $title=&mt($title); - my $uctitle=uc($title); - return "\n
$uctitle:".
+ return "\n $title:".
" $uctitle:".
+ my $selout="\n $title:".
' ".
- uc(&mt('Lowest Grade Level:')).
+ &mt('Lowest Grade Level').':'.
" ".
- uc(&mt('Highest Grade Level:')).
+ &mt('Highest Grade Level').':'.
" $uctitle:".
'
".
'';
}
@@ -331,9 +330,8 @@ sub hiddenfield {
sub selectbox {
my ($title,$name,$value,$functionref,@idlist)=@_;
$title=&mt($title);
- my $uctitle=uc($title);
$value=(split(/\s*,\s*/,$value))[-1];
- my $selout="\n
".
&Apache::loncommon::select_level_form($metadatafields{'lowestgradelevel'},'lowestgradelevel').
"\n
".
&Apache::loncommon::select_level_form($metadatafields{'highestgradelevel'},'highestgradelevel').
&textfield('Standards','standards',$metadatafields{'standards'});
@@ -1236,7 +1234,7 @@ END
$scrout.=&textfield('Custom Distribution File','customdistributionfile',
$metadatafields{'customdistributionfile'}).
$copyright_help;
- my $uctitle=uc(&mt('Obsolete'));
+ my $uctitle=&mt('Obsolete');
$scrout.=
"\n