--- loncom/interface/lonfeedback.pm 2006/02/09 22:11:54 1.180
+++ loncom/interface/lonfeedback.pm 2006/03/06 19:21:22 1.183
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Feedback
#
-# $Id: lonfeedback.pm,v 1.180 2006/02/09 22:11:54 raeburn Exp $
+# $Id: lonfeedback.pm,v 1.183 2006/03/06 19:21:22 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2224,7 +2224,7 @@ $html
-
+
$typestyle
Sent $sendsomething message(s), and $sendposts post(s).
@@ -2264,7 +2264,7 @@ ENDNOREDIR
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');
$r->print (<
-
+
$nofeed
$continue
@@ -2478,14 +2478,16 @@ sub feedback_available {
}
sub send_msg {
- my ($feedurl,$email,$citations,$attachmenturl,%to)=@_;
+ my ($title,$feedurl,$email,$citations,$attachmenturl,%to)=@_;
my $status='';
my $sendsomething=0;
+ if ($title=~/^Error/) { $title=&mt('Feedback').': '.$title; }
+ unless ($title=~/\w/) { $title=&mt('Feedback'); }
foreach (keys %to) {
if ($_) {
my $declutter=&Apache::lonnet::declutter($feedurl);
unless (&Apache::lonmsg::user_normal_msg(split(/\:/,$_),
- 'Feedback ['.$declutter.']',$email,$citations,$feedurl,
+ $title.' ['.$declutter.']',$email,$citations,$feedurl,
$attachmenturl)=~/ok/) {
$status.='
'.&mt('Error sending message to').' '.$_.'
';
} else {
@@ -2587,7 +2589,7 @@ sub adddiscuss {
$newcontrib{$key} = $contrib{$_};
}
my $put_reply = &Apache::lonnet::putstore($env{'request.course.id'},
- \%newcontrib,
+ $oldsymb,$oldidx,\%contrib,
$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'});
$status='Editing class discussion'.($anon?' (anonymous)':'');
@@ -3136,7 +3138,7 @@ $html
-
+
$textline