oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added a javascript confirmation popup for delete icon

Browse source
This commit is contained in:
Len Kranendonk 2004-11-08 16:11:53 +00:00
parent a209be59a0
commit 1f16563d27
1 changed files with 0 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lib/WebGUI/Operation/Clipboard.pm
View file

@ -50,30 +50,6 @@ sub _submenu {
return $ac->render($workarea, $title);
}
#-------------------------------------------------------------------
sub www_deleteClipboardItem {
return WebGUI::Privilege::insufficient() unless (WebGUI::Grouping::isInGroup(4));
my ($output);
my $help;
if ($session{form}{wid} ne "") {
$help = "wobject delete";
} elsif ($session{form}{pageId} ne "") {
$help = "page delete";
}
$output .= WebGUI::International::get(956).'<p>';
if ($session{form}{wid} ne "") {
$output .= '<div align="center"><a href="'.WebGUI::URL::page('op=deleteClipboardItemConfirm&wid='
.$session{form}{wid}) . '">'.WebGUI::International::get(44).'</a>';
} elsif ($session{form}{pageId} ne "") {
$output .= '<div align="center"><a href="'.WebGUI::URL::page('op=deleteClipboardItemConfirm&pageId='
.$session{form}{pageId}) . '">'.WebGUI::International::get(44).'</a>';
}
$output .= '&nbsp;&nbsp;&nbsp;&nbsp;<a href="'.WebGUI::URL::page().'">'
.WebGUI::International::get(45).'</a></div>';
return _submenu($output,"42",$help);
}
#-------------------------------------------------------------------
sub www_deleteClipboardItemConfirm {
return WebGUI::Privilege::insufficient() unless (WebGUI::Grouping::isInGroup(4));