version 1.124, 2003/09/05 03:47:47
|
version 1.126, 2003/09/21 21:40:06
|
Line 948 sub assessparms {
|
Line 948 sub assessparms {
|
} |
} |
$r->print("</select></td></tr>\n"); |
$r->print("</select></td></tr>\n"); |
} else { |
} else { |
my ($map,$id,$resource)=split(/___/,$pssymb); |
my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb); |
$r->print("<tr><td>Specific Resource</td><td>$resource</td>"); |
$r->print("<tr><td>Specific Resource</td><td>$resource</td>"); |
$r->print('<td><input type="submit" name="dis" value="'.$submitmessage.'"></td>'); |
$r->print('<td><input type="submit" name="dis" value="'.$submitmessage.'"></td>'); |
$r->print('</tr>'); |
$r->print('</tr>'); |
Line 1809 sub handler {
|
Line 1809 sub handler {
|
my $r=shift; |
my $r=shift; |
|
|
if ($r->header_only) { |
if ($r->header_only) { |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
return OK; |
return OK; |
} |
} |
Line 1820 sub handler {
|
Line 1820 sub handler {
|
if (($ENV{'request.course.id'}) && |
if (($ENV{'request.course.id'}) && |
(&Apache::lonnet::allowed('opa',$ENV{'request.course.id'}))) { |
(&Apache::lonnet::allowed('opa',$ENV{'request.course.id'}))) { |
|
|
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
|
|
$coursename=$ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
$coursename=$ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |