version 1.366, 2007/06/05 22:37:58
|
version 1.369, 2007/06/22 00:11:32
|
Line 481 sub start_accessrule {
|
Line 481 sub start_accessrule {
|
('realm',$parstack,$safeeval,undef,1); |
('realm',$parstack,$safeeval,undef,1); |
my $role=&Apache::lonxml::get_param |
my $role=&Apache::lonxml::get_param |
('role',$parstack,$safeeval,undef,1); |
('role',$parstack,$safeeval,undef,1); |
$realm=~s/\s+//g; |
my ($dom,$crs,$sec)=split(/\_/,$realm); |
$realm=~s/\//\_/g; |
$dom = &LONCAPA::clean_domain($dom); |
$realm=~s/^\_//; |
my $type=&Apache::lonxml::get_param |
$realm=~s/\W/\;/g; |
('type',$parstack,$safeeval,undef,1); |
$role=~s/\s+//g; |
if ($type eq 'user') { |
$role=~s/\//\_/g; |
$crs = &LONCAPA::clean_username($crs); |
$role=~s/\W/\;/g; |
} else { |
|
$crs = &LONCAPA::clean_courseid($crs); |
|
} |
|
$sec =~s/\W//; |
|
$realm = $dom; |
|
if ($crs =~ /\S/) { $realm .= '_'.$crs; } |
|
if ($sec =~ /\S/) { $realm .= '_'.$sec; } |
|
$role=~s/\W//g; |
|
|
if ($target eq 'web') { |
if ($target eq 'web') { |
my $args=''; |
my $args=''; |
if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; } |
if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; } |
Line 498 sub start_accessrule {
|
Line 506 sub start_accessrule {
|
} |
} |
} |
} |
if ($target eq 'meta') { |
if ($target eq 'meta') { |
$currentstring='<rule>'.$eff.':'.$realm.':'.$role.'</rule>'; |
$currentstring='<rule>'.$eff.':'.$realm.':'.$role.':'.$type.'</rule>'; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 3001 sub start_img {
|
Line 3009 sub start_img {
|
# And here's where the semi-quote breaks down: allow the user |
# And here's where the semi-quote breaks down: allow the user |
# to edit the beast as well by rendering the problem for edit: |
# to edit the beast as well by rendering the problem for edit: |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
|
my $only = join(',',&Apache::loncommon::filecategorytypes('Pictures')); |
$currentstring .=&Apache::edit::tag_start($target,$token); |
$currentstring .=&Apache::edit::tag_start($target,$token); |
$currentstring .=&Apache::edit::text_arg('Image Url:','src',$token,70). |
$currentstring .=&Apache::edit::text_arg('Image Url:','src',$token,70). |
&Apache::edit::browse('src',undef,'alt').' '. |
&Apache::edit::browse('src',undef,'alt',$only).' '. |
&Apache::edit::search('src',undef,'alt').'<br />'; |
&Apache::edit::search('src',undef,'alt').'<br />'; |
$currentstring .=&Apache::edit::text_arg('Description:','alt',$token,70).'<br />'; |
$currentstring .=&Apache::edit::text_arg('Description:','alt',$token,70).'<br />'; |
$currentstring .=&Apache::edit::text_arg('width (pixel):','width',$token,5); |
$currentstring .=&Apache::edit::text_arg('width (pixel):','width',$token,5); |