Permalink
Browse files

Little changes

  • Loading branch information...
1 parent bc4a9bf commit 1be5608fc98a350bce278bca77e737ed6033de4c @pudge pudge committed Dec 18, 2000
Showing with 4 additions and 4 deletions.
  1. +3 −3 Slash.pm
  2. +1 −1 public_html/comments.pl
View
@@ -58,7 +58,7 @@ BEGIN {
getDateFormat dispComment getDateOffset linkComment redirect
insertFormkey getFormkeyId checkSubmission checkTimesPosted
updateFormkeyId formSuccess formAbuse formFailure errorMessage
- fixurl fixparam chopEntity balance_tags
+ fixurl fixparam chopEntity balanceTags
);
$CRLF = "\015\012";
}
@@ -1453,7 +1453,7 @@ sub fixint {
}
########################################################
-sub balance_tags {
+sub balanceTags {
my($html, $hard) = @_;
my %tags;
my $match = 'B|I|A|OL|UL|EM|TT|STRONG|BLOCKQUOTE|DIV';
@@ -2378,7 +2378,7 @@ EOT
if ($I{F}{mode} ne 'archive' && length($C->{comment}) > $I{U}{maxcommentsize}
&& $I{F}{cid} ne $C->{cid}) {
- $C->{comment} = balance_tags(
+ $C->{comment} = balanceTags(
chopEntity($C->{comment}, $I{U}{maxcommentsize})
);
View
@@ -403,7 +403,7 @@ sub validateComment {
$$subj =~ s/\(Score(.*)//i;
$$subj =~ s/Score:(.*)//i;
- unless (defined($$comm = balance_tags($$comm, 1))) {
+ unless (defined($$comm = balanceTags($$comm, 1))) {
editComment() and return unless $preview;
print <<EOT;
You can only post nested lists and blockquotes four levels deep.

0 comments on commit 1be5608

Please sign in to comment.