--- loncom/publisher/lonpublisher.pm 2003/12/28 20:12:59 1.156 +++ loncom/publisher/lonpublisher.pm 2003/12/31 03:02:49 1.159 @@ -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.159 2003/12/31 03:02:49 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -127,6 +127,7 @@ use Apache::lonmysql; use Apache::lonlocal; use Apache::loncfile; use Apache::lonmeta; +use Apache::lonmsg; use vars qw(%metadatafields %metadatakeys); my %addid; @@ -317,8 +318,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:".
' print($error);
print $logfile "\n".$error;
}
-
+# --------------------------------------------- Delete author resource messages
+ my $delresult=&Apache::lonmsg::del_url_author_res_msg($target);
+ $r->print(' '.&mt('Removing error messages:').' '.$delresult.'
".
'';
}
@@ -331,9 +331,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 +1235,7 @@ END
$scrout.=&textfield('Custom Distribution File','customdistributionfile',
$metadatafields{'customdistributionfile'}).
$copyright_help;
- my $uctitle=uc(&mt('Obsolete'));
+ my $uctitle=&mt('Obsolete');
$scrout.=
"\n