[LON-CAPA-cvs] cvs: loncom /interface lonfeedback.pm
www
lon-capa-cvs@mail.lon-capa.org
Mon, 03 Nov 2003 23:23:35 -0000
www Mon Nov 3 18:23:35 2003 EDT
Modified files:
/loncom/interface lonfeedback.pm
Log:
Start to respect the "Reply" button. No threaded display yet.
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.65 loncom/interface/lonfeedback.pm:1.66
--- loncom/interface/lonfeedback.pm:1.65 Mon Nov 3 15:34:54 2003
+++ loncom/interface/lonfeedback.pm Mon Nov 3 18:23:34 2003
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Feedback
#
-# $Id: lonfeedback.pm,v 1.65 2003/11/03 20:34:54 www Exp $
+# $Id: lonfeedback.pm,v 1.66 2003/11/03 23:23:34 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -524,7 +524,7 @@
$ENV{'enrironment.generation'},
'attachmenturl'=> $attachmenturl);
if ($ENV{'form.replydisc'}) {
- $contrib{'replyto'}=$ENV{'form.replydisc'};
+ $contrib{'replyto'}=(split(/\:\:\:/,$ENV{'form.replydisc'}))[1];
}
if ($anon) {
$contrib{'anonymous'}='true';
@@ -657,7 +657,14 @@
$feedurl=~s/^$ENV{'HTTP_HOST'}//;
$feedurl=~s/\?.+$//;
- my $symb=&Apache::lonnet::symbread($feedurl);
+ my $symb;
+ if ($ENV{'form.replydisc'}) {
+ $symb=(split(/\:\:\:/,$ENV{'form.replydisc'}))[0];
+ my ($map,$id,$url)=&Apache::lonnet::decode_symb($symb);
+ $feedurl=&Apache::lonnet::clutter($url);
+ } else {
+ $symb=&Apache::lonnet::symbread($feedurl);
+ }
unless ($symb) {
$symb=$ENV{'form.symb'};
if ($symb) {