version 1.345, 2012/03/16 01:43:48
|
version 1.346, 2012/03/16 02:59:01
|
Line 3809 sub handler {
|
Line 3809 sub handler {
|
num => 131072, |
num => 131072, |
); |
); |
if ($env{'form.editdisc'}) { |
if ($env{'form.editdisc'}) { |
if (!(&editing_allowed($env{'form.editdisc'},$env{'form.group'}))) { |
if (!(&editing_allowed($env{'form.editdisc'},$group))) { |
my $symb=(split(/\:\:\:/,$env{'form.editdisc'}))[0]; |
my $symb=(split(/\:\:\:/,$env{'form.editdisc'}))[0]; |
my ($map,$id,$url)=&Apache::lonnet::decode_symb($symb); |
my ($map,$id,$url)=&Apache::lonnet::decode_symb($symb); |
my $feedurl=&Apache::lonnet::clutter($url); |
my $feedurl=&Apache::lonnet::clutter($url); |
Line 3869 sub handler {
|
Line 3869 sub handler {
|
my ($symb,$idx)=split(/\:\:\:/,$env{'form.allversions'}); |
my ($symb,$idx)=split(/\:\:\:/,$env{'form.allversions'}); |
($symb)=&get_feedurl_and_clean_symb($symb); |
($symb)=&get_feedurl_and_clean_symb($symb); |
my $ressymb = &wrap_symb($symb); |
my $ressymb = &wrap_symb($symb); |
my $group = $env{'form.group'}; |
|
my $seeid; |
my $seeid; |
if (($group ne '') && (($ressymb =~ m|^bulletin___\d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$|))) { |
if (($group ne '') && (($ressymb =~ m|^bulletin___\d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$|))) { |
if (&check_group_priv($group,'dgp') eq 'ok') { |
if (&check_group_priv($group,'dgp') eq 'ok') { |
Line 4034 ENDREDIR
|
Line 4033 ENDREDIR
|
$crs=~s/\_/\//g; |
$crs=~s/\_/\//g; |
my $seeid=&Apache::lonnet::allowed('rin',$crs); |
my $seeid=&Apache::lonnet::allowed('rin',$crs); |
|
|
if ($env{'form.hide'} && !$seeid && !(&editing_allowed($env{'form.hide'},$env{'form.group'}))) { |
if ($env{'form.hide'} && !$seeid && !(&editing_allowed($env{'form.hide'},$group))) { |
&redirect_back($r,$feedurl,&mt('Deletion not permitted').'<br />', '0','0','','',$env{'form.previous'},'','','','', |
&redirect_back($r,$feedurl,&mt('Deletion not permitted').'<br />', '0','0','','',$env{'form.previous'},'','','','', |
undef,undef,$group,); |
undef,undef,$group,); |
return OK; |
return OK; |