version 1.29, 2009/12/02 18:33:35
|
version 1.31, 2011/11/02 18:40:17
|
Line 78 sub handler {
|
Line 78 sub handler {
|
my $uri=$r->uri; |
my $uri=$r->uri; |
my $fn=&Apache::lonnet::filelocation('',$uri); |
my $fn=&Apache::lonnet::filelocation('',$uri); |
my $contents=''; |
my $contents=''; |
my $constructmode=($uri=~/^\/\~/); |
my $constructmode=($uri=~ m/^/priv/}); |
|
|
# ============================================================ Modify and store |
# ============================================================ Modify and store |
if ($constructmode && $env{'form.store'}) { |
if ($constructmode && $env{'form.store'}) { |
Line 210 sub handler {
|
Line 210 sub handler {
|
$r->print(&Apache::loncommon::start_data_table_row().'<td align="right">'); |
$r->print(&Apache::loncommon::start_data_table_row().'<td align="right">'); |
if ($constructmode) { |
if ($constructmode) { |
$r->print(&Apache::loncommon::select_form('','action_0', |
$r->print(&Apache::loncommon::select_form('','action_0', |
('' => '', |
{'' => '', |
'insertbelow' => &mt('Insert rule below')))); |
'insertbelow' => &mt('Insert rule below')})); |
|
|
} else { |
} else { |
$r->print(' '); |
$r->print(' '); |
} |
} |
$r->print('</td><td>'); |
$r->print('</td><td>'); |
if ($constructmode) { |
if ($constructmode) { |
$r->print(&Apache::loncommon::select_form |
my %lt = &Apache::lonlocal::texthash |
($token->[2]->{'effect'},'effect_0', |
|
&Apache::lonlocal::texthash |
|
('allow' => 'allow', |
('allow' => 'allow', |
'deny' => 'deny'))); |
'deny' => 'deny'); |
|
$r->print(&Apache::loncommon::select_form |
|
($token->[2]->{'effect'},'effect_0',\%lt)); |
} else { |
} else { |
$r->print($token->[2]->{'effect'}); |
$r->print($token->[2]->{'effect'}); |
} |
} |
Line 241 sub handler {
|
Line 241 sub handler {
|
# insert, delete, etc |
# insert, delete, etc |
$r->print('<span class="LC_nobreak">'.$rulecounter.'. '); |
$r->print('<span class="LC_nobreak">'.$rulecounter.'. '); |
if ($constructmode) { |
if ($constructmode) { |
|
my %lt = &Apache::lonlocal::texthash |
|
('' => '', |
|
'delete' => 'Delete this rule', |
|
'insertabove' => 'Insert rule above', |
|
'insertbelow' => 'Insert rule below', |
|
'moveup' => 'Move rule up', |
|
'movedown' => 'Move rule down' |
|
); |
|
|
$r->print(&Apache::loncommon::select_form( |
$r->print(&Apache::loncommon::select_form( |
'','action_'.$rulecounter, |
'','action_'.$rulecounter,\%lt)); |
&Apache::lonlocal::texthash |
|
('' => '', |
|
'delete' => 'Delete this rule', |
|
'insertabove' => 'Insert rule above', |
|
'insertbelow' => 'Insert rule below', |
|
'moveup' => 'Move rule up', |
|
'movedown' => 'Move rule down'))); |
|
} |
} |
$r->print('</span></td>'. |
$r->print('</span></td>'. |
'<td rowspan="2">'); |
'<td rowspan="2">'); |
# effect |
# effect |
if ($constructmode) { |
if ($constructmode) { |
|
my %lt = &Apache::lonlocal::texthash |
|
('allow' => 'allow', |
|
'deny' => 'deny'); |
$r->print(&Apache::loncommon::select_form |
$r->print(&Apache::loncommon::select_form |
($token->[2]->{'effect'}, |
($token->[2]->{'effect'}, |
'effect_'.$rulecounter, |
'effect_'.$rulecounter,\%lt)); |
&Apache::lonlocal::texthash |
|
('allow' => 'allow', |
|
'deny' => 'deny'))); |
|
} else { |
} else { |
$r->print($token->[2]->{'effect'}); |
$r->print($token->[2]->{'effect'}); |
} |
} |
Line 269 sub handler {
|
Line 271 sub handler {
|
$r->print('</td><td rowspan="2">'); |
$r->print('</td><td rowspan="2">'); |
my $type = ($token->[2]{'type'} || 'course'); |
my $type = ($token->[2]{'type'} || 'course'); |
if ($constructmode) { |
if ($constructmode) { |
|
my %lt = &Apache::lonlocal::texthash |
|
('course' => 'Course', |
|
'user' => 'User'); |
$r->print(&Apache::loncommon::select_form($type, |
$r->print(&Apache::loncommon::select_form($type, |
'type_'.$rulecounter, |
'type_'.$rulecounter,\%lt)); |
&Apache::lonlocal::texthash |
|
('course' => 'Course', |
|
'user' => 'User'))); |
|
} else { |
} else { |
$r->print($type); |
$r->print($type); |
} |
} |
Line 328 sub handler {
|
Line 330 sub handler {
|
my $role=$token->[2]->{'role'}; |
my $role=$token->[2]->{'role'}; |
unless ($role) { $role=''; } |
unless ($role) { $role=''; } |
$r->print(&Apache::loncommon::select_form( |
$r->print(&Apache::loncommon::select_form( |
$role,'role_'.$rulecounter,%hash)); |
$role,'role_'.$rulecounter,\%hash)); |
} else { |
} else { |
$r->print(&Apache::lonnet::plaintext($token->[2]->{'role'})); |
$r->print(&Apache::lonnet::plaintext($token->[2]->{'role'})); |
} |
} |