Edit with Reason 1.0 This mod allows users to enter a reason when they edit their posts. The reason will show up in the 'last edited' area at the bottom of the message. There is also an admin option to change it so that only admins and mods can enter a reason for editing a post. MADD Hatter http://www.ghostcdr.com Sources\Admin.pl if ($enable_ubbc) { $ubbcchecked = ' checked'; } if ($adminedit) { $admineditchecked = ' checked'; } $txt{'521'} $edittxt{'01'} # Set as 0 or 1 if box was checked or not push(@onoff, "adminedit"); # If empty fields are submitted, set them to default-values to save yabb from crashing $adminedit = $FORM{'adminedit'} || 0; \$enable_ubbc = $enable_ubbc; # Set to 1 if you want to enable UBBC (Uniform Bulletin Board Code) \$adminedit = $adminedit; # Set to 1 if you only want admins to be able to enter a reason for editing Sources\ModifyMessage.pl $txt{'276'}:

EOT if(($adminedit == '1') && ($settings[7] eq 'Administrator') || (exists $moderators{$username}) || ($settings[7] eq 'Global Moderator')) { print <<"EOT"; $edittxt{'02'} EOT } elsif($adminedit ne '1') { print <<"EOT"; $edittxt{'02'} EOT } print <<"EOT"; $ns = $FORM{'ns'}; $because = $FORM{'because'}; $becausecheck = $FORM{'becausecheck'}; $messages[$postid] = qq~$subject|$mname|$memail|$mdate|$musername|$icon|0|$ENV{'REMOTE_ADDR'}|$message|$ns|$date|$username\n~; $messages[$postid] = qq~$subject|$mname|$memail|$mdate|$musername|$icon|0|$ENV{'REMOTE_ADDR'}|$message|$ns|$date|$username|$becausecheck|$because\n~; Sources\Display.pl ($msub, $mname, $memail, $mdate, $musername, $micon, $mattach, $mip, $postmessage, $ns, $mlm, $mlmb) = split(/[\|]/, $_); ($msub, $mname, $memail, $mdate, $musername, $micon, $mattach, $mip, $postmessage, $ns, $mlm, $mlmb, $becausecheck, $because) = split(/[\|]/, $_); $lastmodified = qq~« $txt{'211'}: $mlm $txt{'525'} $mlmb »~; if($becausecheck eq 'on') { $lastmodified = qq~« $txt{'211'}: $mlm $txt{'525'} $mlmb $because »~; } else { $lastmodified = qq~« $txt{'211'}: $mlm $txt{'525'} $mlmb »~; } english.lng 1; $edittxt{'01'} = "Only admins and mods can enter reason for editing?"; $edittxt{'02'} = "Enter Reason?";