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:25:54 +00:00
parent 0788d5bc4d
commit dddb2d9dfc
1 changed files with 0 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib/WebGUI/Operation/MetaData.pm
View file

@ -116,20 +116,6 @@ sub www_editMetaDataFieldSave {
return www_manageMetaData(); return www_manageMetaData();
} }
#-------------------------------------------------------------------
sub www_deleteMetaDataField {
return WebGUI::Privilege::adminOnly() unless (WebGUI::Grouping::isInGroup(3));
return WebGUI::Privilege::vitalComponent() if ($session{form}{fid} < 1000 && $session{form}{fid} > 0);
my $output = WebGUI::International::get('deleteConfirm','MetaData').'<p>';
$output .= '<div align="center"><a href="'.
WebGUI::URL::page('op=deleteMetaDataFieldConfirm&fid='.$session{form}{fid})
.'">'.WebGUI::International::get(44).'</a>';
$output .= '&nbsp;&nbsp;&nbsp;&nbsp;<a href="'.WebGUI::URL::page('op=manageMetaData').
'">'.WebGUI::International::get(45).'</a></div>';
return _submenu($output,'Delete Metadata field');
}
#------------------------------------------------------------------- #-------------------------------------------------------------------
sub www_deleteMetaDataFieldConfirm { sub www_deleteMetaDataFieldConfirm {
return WebGUI::Privilege::adminOnly() unless (WebGUI::Grouping::isInGroup(3)); return WebGUI::Privilege::adminOnly() unless (WebGUI::Grouping::isInGroup(3));