version 1.3, 2003/03/20 16:17:37
|
version 1.4, 2003/03/20 19:20:31
|
Line 68 sub handler {
|
Line 68 sub handler {
|
my $parser=HTML::LCParser->new(\$contents); |
my $parser=HTML::LCParser->new(\$contents); |
my $token; |
my $token; |
my $rulecounter=0; |
my $rulecounter=0; |
|
my $colzero=($constructmode?'Edit action':'Rule'); |
# ---------------------------------------------------------- Start table output |
# ---------------------------------------------------------- Start table output |
$r->print('<table border="2">'); |
$r->print(<<ENDSTARTTABLE); |
|
<table border="2"> |
|
<tr><th>$colzero</th><th>Effect</th><th>Domain</th><th>Course</th> |
|
<th>Section</th><th>Role</th></tr> |
|
ENDSTARTTABLE |
# --------------------------------------------------------------------- Default |
# --------------------------------------------------------------------- Default |
# Fast forward to first rule |
# Fast forward to first rule |
$token=$parser->get_token; |
$token=$parser->get_token; |
Line 84 sub handler {
|
Line 89 sub handler {
|
} else { |
} else { |
$r->print($token->[2]->{'effect'}); |
$r->print($token->[2]->{'effect'}); |
} |
} |
$r->print('</td><td colspan="2">Default'); |
$r->print('</td><td colspan="4">Default'); |
if (($token->[2]->{'realm'}) || ($token->[2]->{'role'})) { |
if (($token->[2]->{'realm'}) || ($token->[2]->{'role'})) { |
$r->print(' - <font color="red">Error! No default set.</font>'); |
$r->print(' - <font color="red">Error! No default set.</font>'); |
} |
} |
Line 94 sub handler {
|
Line 99 sub handler {
|
if (($token->[0] eq 'S') && ($token->[1] eq 'accessrule')) { |
if (($token->[0] eq 'S') && ($token->[1] eq 'accessrule')) { |
$rulecounter++; |
$rulecounter++; |
$r->print('<tr><td>'); |
$r->print('<tr><td>'); |
# inset, delete, etc |
# insert, delete, etc |
|
$r->print($rulecounter.'. '); |
|
if ($constructmode) { |
|
$r->print(&Apache::loncommon::select_form( |
|
'','action_'.$rulecounter, |
|
('' => '', |
|
'delete' => 'Delete this rule', |
|
'insertabove' => 'Insert rule above', |
|
'insertbelow' => 'Insert rule below', |
|
'moveup' => 'Move rule up', |
|
'movedown' => 'Move rule down'))); |
|
} |
$r->print('</td><td>'); |
$r->print('</td><td>'); |
# effect |
# effect |
if ($constructmode) { |
if ($constructmode) { |
Line 107 sub handler {
|
Line 123 sub handler {
|
$r->print($token->[2]->{'effect'}); |
$r->print($token->[2]->{'effect'}); |
} |
} |
$r->print('</td><td>'); |
$r->print('</td><td>'); |
# realm |
# ---- realm |
my $realm=$token->[2]->{'realm'}; |
my $realm=$token->[2]->{'realm'}; |
$realm=~s/^\W//; |
$realm=~s/^\W//; |
my ($rdom,$rcourse,$rsec)=split(/(\/|\_)/,$realm); |
my ($rdom,$rcourse,$rsec)=split(/[\/\_]/,$realm); |
|
# realm role |
if ($constructmode) { |
if ($constructmode) { |
$r->print(&Apache::loncommon::select_dom_form($rdom, |
$r->print(&Apache::loncommon::select_dom_form($rdom, |
'domain_'.$rulecounter)); |
'domain_'.$rulecounter)); |
} else { |
} else { |
$r->print($token->[2]->{'realm'}); |
$r->print($rdom); |
|
} |
|
$r->print('</td><td>'); |
|
# realm course |
|
if ($constructmode) { |
|
$r->print('<input input type="text" size="25" name="course_'. |
|
$rulecounter.'" value="'.$rcourse.'" />'); |
|
} else { |
|
$r->print($rcourse); |
|
} |
|
|
|
$r->print('</td><td>'); |
|
# realm section |
|
if ($constructmode) { |
|
$r->print('<input input type="text" size="5" name="section_'. |
|
$rulecounter.'" value="'.$rsec.'" />'); |
|
} else { |
|
$r->print($rsec); |
} |
} |
|
|
$r->print('</td><td>'); |
$r->print('</td><td>'); |
# role |
# role |
if ($constructmode) { |
if ($constructmode) { |
|
my %hash=('' => ''); |
|
foreach ('au','cc','in','ta','st') { |
|
$hash{$_}=&Apache::lonnet::plaintext($_); |
|
} |
|
my $role=$token->[2]->{'role'}; |
|
unless ($role) { $role=''; } |
|
$r->print(&Apache::loncommon::select_form( |
|
$role,'role_'.$rulecounter,%hash)); |
} else { |
} else { |
$r->print($token->[2]->{'role'}); |
$r->print(&Apache::lonnet::plaintext($token->[2]->{'role'})); |
} |
} |
# close row |
# close row |
$r->print('</td></tr>'); |
$r->print('</td></tr>'); |