version 1.226, 2006/12/05 02:55:52
|
version 1.227, 2006/12/06 11:50:51
|
Line 2710 sub decide_receiver {
|
Line 2710 sub decide_receiver {
|
my %to=(); |
my %to=(); |
if ($env{'form.discuss'} eq 'author' ||$author) { |
if ($env{'form.discuss'} eq 'author' ||$author) { |
$typestyle.='Submitting as Author Feedback<br />'; |
$typestyle.='Submitting as Author Feedback<br />'; |
$feedurl=~{^/res/($LONAPA::domain_re)/($LONCAPA::username_re)/}; |
$feedurl=~ s/^\/res\/($LONAPA::domain_re)/($LONCAPA::username_re)/; |
$to{$2.':'.$1}=1; |
$to{$2.':'.$1}=1; |
} |
} |
if ($env{'form.discuss'} eq 'question' ||$question) { |
if ($env{'form.discuss'} eq 'question' ||$question) { |