Added universal attachment deleter.

This commit is contained in:
JT Smith 2002-10-01 00:22:38 +00:00
parent 65de90cbb5
commit d98ab2ce93
3 changed files with 15 additions and 39 deletions

View file

@ -782,8 +782,8 @@ sub www_deleteConfirm {
=cut
sub www_deleteFile {
$_[0]->confirm(
WebGUI::International::get(728),
return WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::canEditPage());
return $_[0]->confirm(WebGUI::International::get(728),
WebGUI::URL::page('func=deleteFileConfirm&wid='.$_[0]->get("wobjectId").'&file='.$session{form}{file}),
WebGUI::URL::page('func=edit&wid='.$_[0]->get("wobjectId"))
);
@ -798,12 +798,9 @@ sub www_deleteFile {
=cut
sub www_deleteFileConfirm {
if (WebGUI::Privilege::canEditPage()) {
$_[0]->set({$session{form}{file}=>''});
return $_[0]->www_edit();
} else {
return WebGUI::Privilege::insufficient();
}
return WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::canEditPage());
$_[0]->set({$session{form}{file}=>''});
return $_[0]->www_edit();
}
#-------------------------------------------------------------------