--- loncom/interface/lonfeedback.pm 2003/09/19 16:12:50 1.61 +++ loncom/interface/lonfeedback.pm 2003/10/15 20:01:48 1.62 @@ -1,7 +1,7 @@ # The LearningOnline Network # Feedback # -# $Id: lonfeedback.pm,v 1.61 2003/09/19 16:12:50 www Exp $ +# $Id: lonfeedback.pm,v 1.62 2003/10/15 20:01:48 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -51,6 +51,7 @@ use Apache::Constants qw(:common); use Apache::lonmsg(); use Apache::loncommon(); use Apache::lontexconvert(); +use Apache::lonlocal; sub list_discussion { my ($mode,$status,$symb)=@_; @@ -88,7 +89,7 @@ sub list_discussion { if ($contrib{$idx.':attachmenturl'}) { my ($fname,$ft) =($contrib{$idx.':attachmenturl'}=~/\/(\w+)\.(\w+)$/); - $message.='
Attachment: '.$fname.'.'.$ft.''; @@ -104,7 +105,7 @@ sub list_discussion { $contrib{$idx.':sendername'}, $contrib{$idx.':senderdomain'}); - my $sender='Anonymous'; + my $sender=&mt('Anonymous'); if ((!$contrib{$idx.':anonymous'}) || ($seeid)) { $sender=&Apache::loncommon::aboutmewrapper( $plainname, @@ -113,19 +114,19 @@ sub list_discussion { $contrib{$idx.':sendername'}.' at '. $contrib{$idx.':senderdomain'}.')'; if ($contrib{$idx.':anonymous'}) { - $sender.=' [anonymous] '. + $sender.=' ['.&mt('anonymous').'] '. $screenname; } if ($seeid) { if ($hidden) { $sender.=' Make Visible'; + $symb.':::'.$idx.'">'.&mt('Make Visible').''; } else { $sender.=' Hide'; + $symb.':::'.$idx.'">'.&mt('Hide').''; } $sender.=' Delete'; + $symb.':::'.$idx.'">'.&mt('Delete').''; } } else { if ($screenname) { @@ -310,21 +311,23 @@ sub screen_header { my $discussoptions=''; if (($feedurl=~/^\/res\//) && ($feedurl!~/^\/res\/adm/)) { $msgoptions= - '
Feedback to resource author'; + '
'.
+ &mt('Feedback to resource author');
}
if (&feedback_available(1)) {
$msgoptions.=
- '
Question about resource content';
+ '
'.
+ &mt('Question about resource content');
}
if (&feedback_available(0,1)) {
$msgoptions.=
'
'.
- 'Question/Comment/Feedback about course content';
+ &mt('Question/Comment/Feedback about course content');
}
if (&feedback_available(0,0,1)) {
$msgoptions.=
'
'.
- 'Question/Comment/Feedback about course policy';
+ &mt('Question/Comment/Feedback about course policy');
}
if ($ENV{'request.course.id'}) {
@@ -332,15 +335,15 @@ sub screen_header {
$ENV{'request.course.id'}.
($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:''))) {
$discussoptions=' '.
- 'Contribution to course discussion of resource';
+ &mt('Contribution to course discussion of resource');
$discussoptions.='
'.
- 'Anonymous contribution to course discussion of resource'.
- ' (name only visible to course faculty)';
+ &mt('Anonymous contribution to course discussion of resource').
+ ' ('.&mt('name only visible to course faculty').')';
}
}
- if ($msgoptions) { $msgoptions='
','0','0'); + &mt('Changed discussion status').'
','0','0'); } elsif ($ENV{'form.deldisc'}) { # --------------------------------------------------------------- Hide for good $r->content_type('text/html'); @@ -630,7 +633,7 @@ sub handler { $ENV{'course.'.$ENV{'request.course.id'}.'.num'}); &redirect_back($r,&Apache::lonnet::clutter($url), - 'Changed discussion status
','0','0'); + &mt('Changed discussion status').'
','0','0'); } elsif ($ENV{'form.preview'}) { # -------------------------------------------------------- User wants a preview &show_preview($r); @@ -640,6 +643,7 @@ sub handler { $feedurl=~s/^http\:\/\///; $feedurl=~s/^$ENV{'SERVER_NAME'}//; $feedurl=~s/^$ENV{'HTTP_HOST'}//; + $feedurl=~s/\?.+$//; my $symb=&Apache::lonnet::symbread($feedurl); unless ($symb) {