Permalink
Browse files

Make D2 for starting shtml lower

  • Loading branch information...
1 parent 8966d2a commit 2b1ec6f9f0f39e49feda5a235dea9c235d1b4736 @pudge pudge committed Jan 31, 2008
Showing with 3 additions and 0 deletions.
  1. +3 −0 Slash/Slash.pm
View
@@ -81,10 +81,12 @@ sub selectComments {
# print_cchp gets messed up with d2, so we just punt and have
# selectComments called twice if necessary, the first time doing
# print_cchp, then blanking that out so it is not done again -- pudge
+ my $shtml = 0;
if ($discussion2 && $form->{ssi} && $form->{ssi} eq 'yes' && $form->{cchp}) {
$user->{discussion2} = 'none';
selectComments($discussion, $cid, $options);
$user->{discussion2} = $discussion2;
+ $shtml = 1;
delete $form->{cchp};
}
@@ -168,6 +170,7 @@ sub selectComments {
if ($discussion2 && !$cid && !$options->{no_d2}) {
my $limits = $slashdb->getDescriptions('d2_comment_limits');
my $max = $d2_comment_q ? $limits->{ $d2_comment_q } : 0;
+ $max = int($max/2) if $shtml;
my @new_comments;
$options->{existing} ||= {};
@$thisComment = sort { $a->{cid} <=> $b->{cid} } @$thisComment;

0 comments on commit 2b1ec6f

Please sign in to comment.