version 1.268, 2008/12/14 14:36:18
|
version 1.269, 2008/12/15 00:12:38
|
Line 2928 sub make_script_template {
|
Line 2928 sub make_script_template {
|
my ($priv_item, $dummy) = split(/\&/,$priv); |
my ($priv_item, $dummy) = split(/\&/,$priv); |
$role_c{$priv_item} = 1; |
$role_c{$priv_item} = 1; |
} |
} |
|
my %role_d; |
|
@temp = split(/:/,$Apache::lonnet::pr{$role.':d'}); |
|
foreach my $priv(@temp) { |
|
my ($priv_item, $dummy) = split(/\&/,$priv); |
|
$role_d{$priv_item} = 1; |
|
} |
|
my %role_s; |
|
@temp = split(/:/,$Apache::lonnet::pr{$role.':s'}); |
|
foreach my $priv(@temp) { |
|
my ($priv_item, $dummy) = split(/\&/,$priv); |
|
$role_s{$priv_item} = 1; |
|
} |
foreach my $priv_item (keys(%full_c)) { |
foreach my $priv_item (keys(%full_c)) { |
my ($priv, $dummy) = split(/\&/,$priv_item); |
my ($priv, $dummy) = split(/\&/,$priv_item); |
if (exists($role_c{$priv})) { |
if ((exists($role_c{$priv})) || (exists($role_d{$priv})) || |
|
(exists($role_s{$priv}))) { |
$return_script .= "document.form1.$priv"."_c.checked = true;\n"; |
$return_script .= "document.form1.$priv"."_c.checked = true;\n"; |
} else { |
} else { |
$return_script .= "document.form1.$priv"."_c.checked = false;\n"; |
$return_script .= "document.form1.$priv"."_c.checked = false;\n"; |
} |
} |
} |
} |
my %role_d; |
|
@temp = split(/:/,$Apache::lonnet::pr{$role.':d'}); |
|
foreach my $priv(@temp) { |
|
my ($priv_item, $dummy) = split(/\&/,$priv); |
|
$role_d{$priv_item} = 1; |
|
} |
|
foreach my $priv_item (keys(%full_d)) { |
foreach my $priv_item (keys(%full_d)) { |
my ($priv, $dummy) = split(/\&/,$priv_item); |
my ($priv, $dummy) = split(/\&/,$priv_item); |
if (exists($role_d{$priv})) { |
if ((exists($role_d{$priv})) || (exists($role_s{$priv}))) { |
$return_script .= "document.form1.$priv"."_d.checked = true;\n"; |
$return_script .= "document.form1.$priv"."_d.checked = true;\n"; |
} else { |
} else { |
$return_script .= "document.form1.$priv"."_d.checked = false;\n"; |
$return_script .= "document.form1.$priv"."_d.checked = false;\n"; |
} |
} |
} |
} |
my %role_s; |
|
@temp = split(/:/,$Apache::lonnet::pr{$role.':s'}); |
|
foreach my $priv(@temp) { |
|
my ($priv_item, $dummy) = split(/\&/,$priv); |
|
$role_s{$priv_item} = 1; |
|
} |
|
foreach my $priv_item (keys(%full_s)) { |
foreach my $priv_item (keys(%full_s)) { |
my ($priv, $dummy) = split(/\&/,$priv_item); |
my ($priv, $dummy) = split(/\&/,$priv_item); |
if (exists($role_s{$priv})) { |
if (exists($role_s{$priv})) { |