--- loncom/interface/lonfeedback.pm 2006/08/16 19:32:54 1.216
+++ loncom/interface/lonfeedback.pm 2006/11/28 21:44:37 1.218
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Feedback
#
-# $Id: lonfeedback.pm,v 1.216 2006/08/16 19:32:54 albertel Exp $
+# $Id: lonfeedback.pm,v 1.218 2006/11/28 21:44:37 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -752,13 +752,13 @@ END
if ($outputtarget ne 'tex') {
$discussion.=''.
- ''.
+ '
'.
&mt('Post Discussion').'
';
}
}
- $discussion.=''.
+ '">
'.
&mt('Send Message').'';
}
return $discussion;
@@ -1486,14 +1486,11 @@ END
$numoldver = 1;
}
}
- my $message;
if ($idx > 0) {
my %msgversions = ();
&get_post_versions(\%msgversions,$contrib{$idx.':message'},0,$numoldver);
- $message = $msgversions{$numoldver};
+ $quote = $msgversions{$numoldver};
}
- &newline_to_br(\$message);
- $quote='
'.&Apache::lontexconvert::msgtexconverted($message).''; if ($idx > 0) { my %subversions = (); &get_post_versions(\%subversions,$contrib{$idx.':subject'},1,$numoldver); @@ -1588,6 +1585,11 @@ END &Apache::loncommon::start_page('Resource Feedback and Discussion',$js, {'add_entries' => \%onload}); + if ($quote ne '') { + &newline_to_br(\$quote); + $quote='
'.&Apache::lontexconvert::msgtexconverted($quote).''; + } + $r->print(<