Quick Reply box SP1-1.3
1.3
It's the most wanted vB feature: The quick reply box!
How to use:
1...Install the mod as normal and upload the modified files.
2...Go to the "Forum Preferences and Settings", and check the box next to "Enable Quick Reply Box" if you want the quick reply box shown in the thread display.
3...Go to the "Forum Preferences and Settings", and check the box next to "Enable Quick Post Box" if you want the quick post box shown in the message index.
4...Also check the box next to "Show Smilies in Quick Post/Reply Box" if you want to show smiley buttons in the quick post/reply box.
5...Then check out the bottom of the thread or message index....it's two boxes (subject and message) with buttons to post or reset!
New in version 1.1:
- Admin option added to include a quick post box in the message index.
- Now compatible with MBCO2 (users without post/reply access do not see the quick post/reply box)
- Check added to prevent pressing the reply buttons more than once.
- Now compatible with SP1, SP1.1 and SP1.2.
New in version 1.2:
- Javascript improved to insert smilies at cursor position and prevent smilies "freezing" - suggested by Dummy Proof.
- Now compatible with "Add More Smilies" 2.
New in version 1.3:
- A few minor code changesa added.
Note: Guests do not have access to the quick reply box, because they get an error anyway!
Credit goes to Krikkert for the original code, Colicab for putting it together, and Bhra Webmaster for fixing everything and adding all the options so it actually works! Additional thanks to Dummy Proof for beta testing and suggesting improvements.
BHRA Webmaster, Krikkert, Colicab
http://www.bhra.org.uk
###############################################################################
Sources/Display.pl
$yytitle = $msubthread;
### Quick Reply Box 1.3 ###
# MBCO2 Reply access check
if ($reply_users{$currentboard} || $reply_groups{$currentboard}) {
my $access = &AccessCheck($currentboard, 2) || "";
if ($access eq "denied") {$enable_quickreply = 0;}
}
if ($username ne "Guest" && $mstate != 1 && $enable_quickreply == 1) {
$yymain .= qq~
~;
}
### Quick Reply Box 1.3 ###
###############################################################################
Sources/MessageIndex.pl
$yytitle = $boardname;
### Quick Reply Box 1.3 ###
# MBCO2 Post access check
if ($start_users{$currentboard} || $start_groups{$currentboard}) {
my $access = &AccessCheck($currentboard, 1) || "";
if ($access eq "denied") {$enable_quickpost = 0;}
}
if ($username ne "Guest" && $enable_quickpost == 1) {
$yymain .= qq~
~;
}
### Quick Reply Box 1.3 ###
###############################################################################
Sources/AdminEdit.pl
if ($enable_ubbc) { $ubbcchecked = ' checked'; }
if ($enable_quickpost) { $quickpostchecked = ' checked'; }
if ($enable_quickreply) { $quickreplychecked = ' checked'; }
if ($enable_quicksmilies) { $quicksmilieschecked = ' checked'; }
$txt{'378'}
$qrb_txt{'3'}
$qrb_txt{'4'}
$qrb_txt{'5'}
$guestaccess = $guestaccess ? 0 : 1;
$enable_quickpost = $FORM{'enable_quickpost'} ? 1 : 0;
$enable_quickreply = $FORM{'enable_quickreply'} ? 1 : 0;
$enable_quicksmilies = $FORM{'enable_quicksmilies'} ? 1 : 0;
\$enable_ubbc = $enable_ubbc; # Set to 1 if you want to enable UBBC (Uniform Bulletin Board Code)
\$enable_quickpost = $enable_quickpost; # Set to 1 if you want to enable the quick post box
\$enable_quickreply = $enable_quickreply; # Set to 1 if you want to enable the quick reply box
\$enable_quicksmilies = $enable_quicksmilies; # Set to 1 if you want to show smilies in the quick reply box
###############################################################################
english.lng
1;
### Quick Reply Box 1.3 ###
$qrb_txt{'1'} = "Quick Post Box";
$qrb_txt{'2'} = "Quick Reply Box";
$qrb_txt{'3'} = "Enable Quick Post Box?";
$qrb_txt{'4'} = "Enable Quick Reply Box?";
$qrb_txt{'5'} = "Show Smilies in Quick Post/Reply Box?";
### Quick Reply Box 1.3 ###