version 1.50, 2003/08/06 17:00:30
|
version 1.53, 2003/09/11 20:03:28
|
Line 56 sub mail_screen {
|
Line 56 sub mail_screen {
|
my ($r,$feedurl,$options) = @_; |
my ($r,$feedurl,$options) = @_; |
my $bodytag=&Apache::loncommon::bodytag('Resource Feedback and Discussion', |
my $bodytag=&Apache::loncommon::bodytag('Resource Feedback and Discussion', |
'','onLoad="window.focus();"'); |
'','onLoad="window.focus();"'); |
|
my $title=&Apache::lonnet::gettitle($feedurl); |
|
if (!$title) { $title = $feedurl; } |
my $latexHelp = Apache::loncommon::helpLatexCheatsheet(); |
my $latexHelp = Apache::loncommon::helpLatexCheatsheet(); |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
<html> |
<html> |
Line 105 sub mail_screen {
|
Line 107 sub mail_screen {
|
</script> |
</script> |
</head> |
</head> |
$bodytag |
$bodytag |
<h2><tt>$feedurl</tt></h2> |
<h2><tt>$title</tt></h2> |
<form action="/adm/feedback" method="post" name="mailform" |
<form action="/adm/feedback" method="post" name="mailform" |
enctype="multipart/form-data"> |
enctype="multipart/form-data"> |
<input type=hidden name=postdata value="$feedurl"> |
<input type=hidden name=postdata value="$feedurl"> |
Line 463 sub handler {
|
Line 465 sub handler {
|
my $entry=$ENV{'form.hide'}?$ENV{'form.hide'}:$ENV{'form.unhide'}; |
my $entry=$ENV{'form.hide'}?$ENV{'form.hide'}:$ENV{'form.unhide'}; |
|
|
my ($symb,$idx)=split(/\:\:\:/,$entry); |
my ($symb,$idx)=split(/\:\:\:/,$entry); |
my ($map,$ind,$url)=split(/\_\_\_/,$symb); |
my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb); |
|
|
my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'}, |
my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'}, |
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
Line 493 sub handler {
|
Line 495 sub handler {
|
my $entry=$ENV{'form.deldisc'}; |
my $entry=$ENV{'form.deldisc'}; |
|
|
my ($symb,$idx)=split(/\:\:\:/,$entry); |
my ($symb,$idx)=split(/\:\:\:/,$entry); |
my ($map,$ind,$url)=split(/\_\_\_/,$symb); |
my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb); |
|
|
my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'}, |
my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'}, |
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
Line 526 sub handler {
|
Line 528 sub handler {
|
unless ($symb) { |
unless ($symb) { |
$symb=$ENV{'form.symb'}; |
$symb=$ENV{'form.symb'}; |
if ($symb) { |
if ($symb) { |
my ($map,$id,$url)=split(/\_\_\_/,$symb); |
my ($map,$id,$url)=&Apache::lonnet::decode_symb($symb); |
$feedurl=&Apache::lonnet::clutter($url); |
$feedurl=&Apache::lonnet::clutter($url); |
} |
} |
} |
} |
Line 618 sub handler {
|
Line 620 sub handler {
|
} |
} |
} else { |
} else { |
# Ambiguous Problem Resource |
# Ambiguous Problem Resource |
$r->internal_redirect('/adm/ambiguous'); |
if ( Apache::exists_config_define("MODPERL2") ) { |
|
&Apache::lonnet::cleanenv(); |
|
} |
|
$r->internal_redirect('/adm/ambiguous'); |
} |
} |
} |
} |
return OK; |
return OK; |