--- loncom/interface/lonfeedback.pm 2006/03/04 00:59:53 1.182
+++ loncom/interface/lonfeedback.pm 2006/03/15 19:41:26 1.184
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Feedback
#
-# $Id: lonfeedback.pm,v 1.182 2006/03/04 00:59:53 albertel Exp $
+# $Id: lonfeedback.pm,v 1.184 2006/03/15 19:41:26 albertel 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
@@ -2541,7 +2541,6 @@ sub adddiscuss {
}
if (($symb) && ($email)) {
if ($env{'form.editdisc'}) {
- my %newcontrib = ();
$contrib{'ip'}=$ENV{'REMOTE_ADDR'};
$contrib{'host'}=$Apache::lonnet::perlvar{'lonHostID'};
$contrib{'timestamp'} = time;
@@ -2584,10 +2583,6 @@ sub adddiscuss {
}
}
$contrib{'history'} .= $oldcontrib{$oldidx.':timestamp'};
- foreach (keys %contrib) {
- my $key = $oldidx.':'.&Apache::lonnet::escape($oldsymb).':'.$_;
- $newcontrib{$key} = $contrib{$_};
- }
my $put_reply = &Apache::lonnet::putstore($env{'request.course.id'},
$oldsymb,$oldidx,\%contrib,
$env{'course.'.$env{'request.course.id'}.'.domain'},
@@ -3138,7 +3133,7 @@ $html
-
+
$textline