|
version 1.65, 2003/11/03 20:34:54
|
version 1.66, 2003/11/03 23:23:34
|
|
Line 524 sub adddiscuss {
|
Line 524 sub adddiscuss {
|
| $ENV{'enrironment.generation'}, |
$ENV{'enrironment.generation'}, |
| 'attachmenturl'=> $attachmenturl); |
'attachmenturl'=> $attachmenturl); |
| if ($ENV{'form.replydisc'}) { |
if ($ENV{'form.replydisc'}) { |
| $contrib{'replyto'}=$ENV{'form.replydisc'}; |
$contrib{'replyto'}=(split(/\:\:\:/,$ENV{'form.replydisc'}))[1]; |
| } |
} |
| if ($anon) { |
if ($anon) { |
| $contrib{'anonymous'}='true'; |
$contrib{'anonymous'}='true'; |
|
Line 657 sub handler {
|
Line 657 sub handler {
|
| $feedurl=~s/^$ENV{'HTTP_HOST'}//; |
$feedurl=~s/^$ENV{'HTTP_HOST'}//; |
| $feedurl=~s/\?.+$//; |
$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) { |
unless ($symb) { |
| $symb=$ENV{'form.symb'}; |
$symb=$ENV{'form.symb'}; |
| if ($symb) { |
if ($symb) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonfeedback.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface