Disallow Users to delete their Posts - SP1
1.0
This adds a checkbox to the Admin Center to allow the Admin to enable/disable the option that users are able to delete their own posts.
dOCda S!
http://www.docdas.dns2go.com/
Sources/ModifyMessage.pl
if( $deletepost ) {
if($userpostdel == 1) { if($username eq $musername && $settings[7] ne 'Administrator' && !exists $moderators{$username}) { &fatal_error("$udltxt{'02'}"); } }
Sources/Display.pl
if(exists $moderators{$username} || $settings[7] eq 'Administrator' || $username eq $musername) {
$yymain .= qq~ $menusep$img{'delete'}~;
if(exists $moderators{$username} || $settings[7] eq 'Administrator' || $username eq $musername && $userpostdel != 1) {
$yymain .= qq~ $menusep$img{'delete'}~;
Sources/AdminEdit.pl
if ($allowpics) { $allowpicschecked = "checked" }
if ($userpostdel) { $userpostdelchecked = "checked" }
$udltxt{'01'}
# Set as 0 or 1 if box was checked or not
push(@onoff, "userpostdel");
\$allowpics = $allowpics; # set to 1 to allow members to choose avatars in their profile
\$userpostdel = $userpostdel; # set to 1 to disallow members to delete their own posts
english.lng
$txt{'796'} = "Your Instant Messages:";
$udltxt{'01'} = "Disallow users to delete their own posts?";
$udltxt{'02'} = "The Admin decided to disallow users deleting their own posts!";