version 1.164, 2006/10/19 00:23:21
|
version 1.165, 2006/10/19 20:36:12
|
Line 571 sub delete_confirmed {
|
Line 571 sub delete_confirmed {
|
&Apache::lonnet::modify_access_controls($file_name,\%changes, |
&Apache::lonnet::modify_access_controls($file_name,\%changes, |
$udom,$uname); |
$udom,$uname); |
if ($outcome ne 'ok') { |
if ($outcome ne 'ok') { |
$r->print(&mt('<br />'."An error occured ($outcome) while ". |
$r->print('<br />'.&mt("An error occured ([_1]) while ". |
"trying to delete access controls for the file."). |
"trying to delete access controls for the file.",$outcome). |
'</span><br />'); |
'</span><br />'); |
} else { |
} else { |
if ($deloutcome eq 'ok') { |
if ($deloutcome eq 'ok') { |
$r->print(&mt('<br />Access controls also deleted for the file.')); |
$r->print('<br />'.&mt('Access controls also deleted for the file.')); |
} else { |
} else { |
$r->print('<span class="LC_error">'. |
$r->print('<span class="LC_error">'.'<br />'. |
&mt('<br />'."An error occured ($deloutcome) while ". |
&mt("An error occured ([_1]) while ". |
"trying to delete access controls for the file."). |
"trying to delete access controls for the file.",$deloutcome). |
'</span><br />'); |
'</span><br />'); |
} |
} |
} |
} |
Line 685 sub access_for_renamed {
|
Line 685 sub access_for_renamed {
|
my $newfile = $env{'form.currentpath'}.$filenewname; |
my $newfile = $env{'form.currentpath'}.$filenewname; |
$newfile = &prepend_group($newfile); |
$newfile = &prepend_group($newfile); |
my $current_permissions = |
my $current_permissions = |
&Apache::lonnet::get_portfile_permissions($udom,$uname); |
&Apache::lonnet::get_portfile_permissions($udom,$uname); |
my %access_controls = |
my %access_controls = |
&Apache::lonnet::get_access_controls($current_permissions, |
&Apache::lonnet::get_access_controls($current_permissions, |
$group,$oldfile); |
$group,$oldfile); |
my $chg_text; |
my $chg_text; |
if (keys(%access_controls) > 0) { |
if (keys(%access_controls) > 0) { |
my %change_old; |
my %change_old; |
my %change_new; |
my %change_new; |
foreach my $key (%{$access_controls{$oldfile}}) { |
foreach my $key (keys(%{$access_controls{$oldfile}})) { |
$change_old{'delete'}{$key} = 1; |
$change_old{'delete'}{$key} = 1; |
$change_new{'activate'}{$key} = $access_controls{$oldfile}{$key}; |
$change_new{'activate'}{$key} = $access_controls{$oldfile}{$key}; |
} |
} |
my ($outcome,$deloutcome,$new_values,$translation) = |
my ($outcome,$deloutcome,$new_values,$translation) = |
&Apache::lonnet::modify_access_controls($oldfile,\%change_old, |
&Apache::lonnet::modify_access_controls($oldfile,\%change_old, |
$udom,$uname); |
$udom,$uname); |
if ($outcome ne 'ok') { |
if ($outcome ne 'ok') { |
$chg_text = &mt('<br /><br />'."An error occured ($outcome) while ". |
$chg_text ='<br /><br />'.&mt("An error occured ([_1]) while ". |
"trying to delete access control records for the old name."). |
"trying to delete access control records for the old name.",$outcome). |
'</span><br />'; |
'</span><br />'; |
} else { |
} else { |
if ($deloutcome ne 'ok') { |
if ($deloutcome ne 'ok') { |
$chg_text = '<br /><br /><span class="LC_error">'. |
$chg_text = '<br /><br /><span class="LC_error"><br />'. |
&mt('<br />'."An error occured ($deloutcome) while ". |
&mt("An error occured ([_1]) while ". |
"trying to delete access control records for the old name."). |
"trying to delete access control records for the old name.",$deloutcome). |
'</span><br />'; |
'</span><br />'; |
} |
} |
} |
} |
($outcome,$deloutcome,$new_values,$translation) = |
($outcome,$deloutcome,$new_values,$translation) = |
&Apache::lonnet::modify_access_controls($newfile,\%change_new, |
&Apache::lonnet::modify_access_controls($newfile,\%change_new, |
$udom,$uname); |
$udom,$uname); |
if ($outcome ne 'ok') { |
if ($outcome ne 'ok') { |
$chg_text .= &mt('<br /><br />'."An error occured ($outcome) while ". |
$chg_text .= '<br /><br />'. |
"trying to update access control records for the new name."). |
&mt("An error occured ([_1]) while ". |
|
"trying to update access control records for the new name.",$outcome). |
'</span><br />'; |
'</span><br />'; |
} |
} |
if ($chg_text eq '') { |
if ($chg_text eq '') { |