Changeset 167 for trunk/dns.cgi
- Timestamp:
- 11/22/11 15:57:52 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/dns.cgi
r166 r167 779 779 } elsif ($webvar{del} eq 'ok') { 780 780 my $deleteme = groupName($dbh,$webvar{id}); # get this before we delete it... 781 my $delparent = parentID($webvar{id}, 'group','group'); 781 782 my ($code,$msg) = delGroup($dbh, $webvar{id}); 782 783 if ($code ne 'OK') { 783 784 # need to find failure mode 784 logaction(0, $session->param("username"), $ webvar{curgroup}, "Failure deleting group $deleteme: $msg");785 logaction(0, $session->param("username"), $delparent, "Failure deleting group $deleteme: $msg"); 785 786 changepage(page => "grpman", errmsg => "Error deleting group $deleteme: $msg"); 786 787 } else { 787 788 ##fixme: need to clean up log when deleting a major container 788 logaction(0, $session->param("username"), $ webvar{curgroup}, "Deleted group $deleteme");789 logaction(0, $session->param("username"), $delparent, "Deleted group $deleteme"); 789 790 changepage(page => "grpman", resultmsg => "Deleted group $deleteme"); 790 791 }
Note:
See TracChangeset
for help on using the changeset viewer.