Added a javascript confirmation popup for delete icon

This commit is contained in:
Len Kranendonk 2004-11-08 20:30:26 +00:00
parent c3a9a97f9f
commit cd4bf169fa
3 changed files with 6 additions and 33 deletions

View file

@ -32,7 +32,8 @@ our @ISA = qw(WebGUI::Wobject);
#-------------------------------------------------------------------
sub _formatControls {
my $controls = deleteIcon("func=deleteForum&wid=".$_[0]->get("wobjectId")."&forumId=".$_[1])
my $controls = deleteIcon("func=deleteForumConfirm&wid=".$_[0]->get("wobjectId")."&forumId=".$_[1],'',
WebGUI::International::get(76,$_[0]->get("namespace")))
.editIcon("func=editForum&wid=".$_[0]->get("wobjectId")."&forumId=".$_[1])
.moveUpIcon("func=moveForumUp&wid=".$_[0]->get("wobjectId")."&forumId=".$_[1])
.moveDownIcon("func=moveForumDown&wid=".$_[0]->get("wobjectId")."&forumId=".$_[1]);
@ -138,13 +139,6 @@ sub purge {
$_[0]->SUPER::purge();
}
#-------------------------------------------------------------------
sub www_deleteForum {
return WebGUI::Privilege::insufficient() unless ($_[0]->canEdit);
return $_[0]->confirm(WebGUI::International::get(76,$_[0]->get("namespace")),
WebGUI::URL::page('func=deleteForumConfirm&wid='.$_[0]->get("wobjectId").'&forumId='.$session{form}{forumId}));
}
#-------------------------------------------------------------------
sub www_deleteForumConfirm {
return WebGUI::Privilege::insufficient() unless ($_[0]->canEdit);