version 1.28, 2002/07/24 19:57:38
|
version 1.31, 2002/09/11 13:36:50
|
Line 53 use Apache::loncommon();
|
Line 53 use Apache::loncommon();
|
|
|
sub mail_screen { |
sub mail_screen { |
my ($r,$feedurl,$options) = @_; |
my ($r,$feedurl,$options) = @_; |
|
my $bodytag=&Apache::loncommon::bodytag('Resource Feedback and Discussion', |
|
'','onLoad="window.focus();"'); |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
<html> |
<html> |
<head> |
<head> |
Line 100 sub mail_screen {
|
Line 102 sub mail_screen {
|
} |
} |
</script> |
</script> |
</head> |
</head> |
<body bgcolor="#FFFFFF" onLoad="window.focus();"> |
$bodytag |
<img align=right src=/adm/lonIcons/lonlogos.gif> |
|
<h1>Resource Feedback and Discussion</h1> |
|
<h2><tt>$feedurl</tt></h2> |
<h2><tt>$feedurl</tt></h2> |
<form action="/adm/feedback" method=post name=mailform> |
<form action="/adm/feedback" method=post name=mailform> |
<input type=hidden name=postdata value="$feedurl"> |
<input type=hidden name=postdata value="$feedurl"> |
Line 399 sub handler {
|
Line 399 sub handler {
|
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
|
|
&redirect_back($r,'/res/'.$url,'Changed discussion status<p>','0'); |
&redirect_back($r,&Apache::lonnet::clutter($url), |
|
'Changed discussion status<p>','0'); |
|
|
} else { |
} else { |
# ------------------------------------------------------------- Normal feedback |
# ------------------------------------------------------------- Normal feedback |
my $feedurl=$ENV{'form.postdata'}; |
my $feedurl=$ENV{'form.postdata'}; |
Line 410 sub handler {
|
Line 409 sub handler {
|
$feedurl=~s/^$ENV{'HTTP_HOST'}//; |
$feedurl=~s/^$ENV{'HTTP_HOST'}//; |
|
|
my $symb=&Apache::lonnet::symbread($feedurl); |
my $symb=&Apache::lonnet::symbread($feedurl); |
|
unless ($symb) { |
|
$symb=$ENV{'form.symb'}; |
|
if ($symb) { |
|
my ($map,$id,$url)=split(/\_\_\_/,$symb); |
|
$feedurl=&Apache::lonnet::clutter($url); |
|
} |
|
} |
my $goahead=1; |
my $goahead=1; |
if ($feedurl=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
if ($feedurl=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
unless ($symb) { $goahead=0; } |
unless ($symb) { $goahead=0; } |
Line 426 sub handler {
|
Line 432 sub handler {
|
) |
) |
|| |
|| |
($ENV{'request.course.id'} && ($feedurl!~m:^/adm:)) |
($ENV{'request.course.id'} && ($feedurl!~m:^/adm:)) |
|
|| |
|
($ENV{'request.course.id'} && ($symb=~/^bulletin\_\_\_/)) |
) { |
) { |
# --------------------------------------------------- Print login screen header |
# --------------------------------------------------- Print login screen header |
unless ($ENV{'form.sendit'}) { |
unless ($ENV{'form.sendit'}) { |
Line 487 sub handler {
|
Line 495 sub handler {
|
|
|
1; |
1; |
__END__ |
__END__ |
|
|
|
|
|
|
|
|