--- loncom/interface/lonfeedback.pm 2007/08/10 00:02:08 1.250
+++ loncom/interface/lonfeedback.pm 2008/06/05 00:15:24 1.254
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Feedback
#
-# $Id: lonfeedback.pm,v 1.250 2007/08/10 00:02:08 albertel Exp $
+# $Id: lonfeedback.pm,v 1.254 2008/06/05 00:15:24 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -732,20 +732,19 @@ END
}
}
} else {
- $discussion.='
';
+ $discussion.=' ';
if (&discussion_open($status) &&
&Apache::lonnet::allowed('pch',
$env{'request.course.id'}.
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) {
if ($outputtarget ne 'tex') {
- $discussion.= &send_feedback_link($ressymb,$target).
- ' ';
+ $discussion.= &send_feedback_link($ressymb,$target);
}
}
if ($outputtarget ne 'tex') {
$discussion.= &send_message_link($ressymb);
}
- $discussion.=' |
';
+ $discussion.='';
}
return $discussion;
}
@@ -763,7 +762,7 @@ sub send_feedback_link {
sub send_message_link {
my ($ressymb) = @_;
- my $output = ''.
+ my $output = ''.
'
['.$$anonhash{$key}.'] '.
@@ -1241,7 +1240,7 @@ sub build_posting_display {
$$newitem{$idx} = 1;
$$discussionitems[$idx] .= '
- NEW | ';
+
'.&mt('NEW').' | ';
} else {
$$newitem{$idx} = 0;
$$discussionitems[$idx] .= '
@@ -1803,7 +1802,7 @@ sub print_display_options {
'unread' => 'New posts only',
'unmark' => 'Posts not marked read',
'ondisp' => 'Once displayed',
- 'onmark' => 'Once marked not NEW ',
+ 'onmark' => 'Once marked not NEW',
'toggon' => 'Shown',
'toggoff' => 'Not shown',
'disa' => 'Posts displayed?',
@@ -1961,6 +1960,7 @@ END
$lt{$disctogg} |
|
END
+ my $save = &mt('Save Changes');
$r->print(&Apache::loncommon::end_data_table_row());
$r->print(&Apache::loncommon::end_data_table());
$r->print(<
-
+
END
if (exists($env{'form.group'})) {
$r->print('');
@@ -3558,7 +3558,7 @@ ENDREDIR
my ($symb,$feedurl)=&get_feedurl_and_clean_symb($env{'form.symb'});
if ($env{'form.cmd'} eq 'threadedon') {
&Apache::lonnet::put('environment',{'threadeddiscussion' => 'on'});
- &Apache::lonnet::appenv('environment.threadeddiscussion' => 'on');
+ &Apache::lonnet::appenv({'environment.threadeddiscussion' => 'on'});
} else {
&Apache::lonnet::del('environment',['threadeddiscussion']);
&Apache::lonnet::delenv('environment\.threadeddiscussion');
@@ -3721,7 +3721,7 @@ ENDREDIR
my $usersaw=&resource_output($feedurl);
# Get resource answer (need to allow student to view grades for this to work)
- &Apache::lonnet::appenv(('allowed.vgr'=>'F'));
+ &Apache::lonnet::appenv({'allowed.vgr'=>'F'});
my $usersymb = &Apache::lonenc::check_encrypt($symb);
my $useranswer=
&Apache::loncommon::get_student_answers(