version 1.11, 2003/10/13 22:12:55
|
version 1.16, 2005/02/18 23:15:54
|
Line 41 use Apache::lonlocal;
|
Line 41 use Apache::lonlocal;
|
sub handler { |
sub handler { |
|
|
my $r=shift; |
my $r=shift; |
|
my $target = $ENV{'form.grade_target'}; |
|
if ($target eq 'meta') { |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->send_http_header; |
|
$ENV{'request.uri'}=$r->uri; |
|
my $file = &Apache::lonnet::filelocation("",$r->uri); |
|
my $content=&Apache::lonnet::getfile($file); |
|
my $result=&Apache::lonxml::xmlparse(undef,'meta',$content); |
|
$r->print($result); |
|
return OK; |
|
} |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
|
|
Line 105 sub handler {
|
Line 116 sub handler {
|
if ($_=~/^form\.action\_(\d+)$/) { |
if ($_=~/^form\.action\_(\d+)$/) { |
my $number=$1; |
my $number=$1; |
if ($ENV{$_} eq 'delete') { $newrules[$number]=''; } |
if ($ENV{$_} eq 'delete') { $newrules[$number]=''; } |
if (($ENV{$_} eq 'moveup') && ($number>2)) { |
if (($ENV{$_} eq 'moveup') && ($number>1)) { |
my $buffer=$newrules[$number]; |
my $buffer=$newrules[$number]; |
$newrules[$number]=$newrules[$number-1]; |
$newrules[$number]=$newrules[$number-1]; |
$newrules[$number-1]=$buffer; |
$newrules[$number-1]=$buffer; |
Line 283 ENDSTARTTABLE
|
Line 294 ENDSTARTTABLE
|
&Apache::lonnet::coursedescription($rdom.'_'.$rcourse); |
&Apache::lonnet::coursedescription($rdom.'_'.$rcourse); |
$r->print($descript{'description'}.' '); |
$r->print($descript{'description'}.' '); |
} |
} |
$r->print(&Apache::loncommon::selectcourse_link('rules', |
if ($constructmode) { |
'course_'.$rulecounter,'domain_'.$rulecounter)); |
$r->print(&Apache::loncommon::selectcourse_link('rules', |
|
'course_'.$rulecounter,'domain_'.$rulecounter)); |
|
} |
# close row |
# close row |
$r->print('</td></tr>'); |
$r->print('</td></tr>'); |
} |
} |