diff --git a/lib/WebGUI/Operation/ProfileSettings.pm b/lib/WebGUI/Operation/ProfileSettings.pm index cbc526d38..a33d0dd10 100644 --- a/lib/WebGUI/Operation/ProfileSettings.pm +++ b/lib/WebGUI/Operation/ProfileSettings.pm @@ -69,20 +69,6 @@ sub _submenu { return $ac->render($workarea, $title); } - -#------------------------------------------------------------------- -sub www_deleteProfileCategory { - return WebGUI::Privilege::adminOnly() unless (WebGUI::Grouping::isInGroup(3)); - my ($output); - return WebGUI::Privilege::vitalComponent() if ($session{form}{cid} < 1000 && $session{form}{cid} > 0); - $output = WebGUI::International::get(466,"WebGUIProfile").'

'; - $output .= '

'.WebGUI::International::get(44).''; - $output .= '    '. - WebGUI::International::get(45).'
'; - return _submenu($output,'42'); -} - #------------------------------------------------------------------- sub www_deleteProfileCategoryConfirm { return WebGUI::Privilege::adminOnly() unless (WebGUI::Grouping::isInGroup(3)); @@ -92,20 +78,6 @@ sub www_deleteProfileCategoryConfirm { return www_editProfileSettings(); } -#------------------------------------------------------------------- -sub www_deleteProfileField { - return WebGUI::Privilege::adminOnly() unless (WebGUI::Grouping::isInGroup(3)); - my ($output,$protected); - ($protected) = WebGUI::SQL->quickArray("select protected from userProfileField where fieldname=".quote($session{form}{fid})); - return WebGUI::Privilege::vitalComponent() if ($protected); - $output .= WebGUI::International::get(467,"WebGUIProfile").'

'; - $output .= '

'.WebGUI::International::get(44).''; - $output .= '    '. - WebGUI::International::get(45).'
'; - return _submenu($output,'42'); -} - #------------------------------------------------------------------- sub www_deleteProfileFieldConfirm { return WebGUI::Privilege::adminOnly() unless (WebGUI::Grouping::isInGroup(3));