# Copyright (C) 2005-2013 Alex Schroeder
#
# This program is free software: you can redistribute it and/or modify it under
# the terms of the GNU General Public License as published by the Free Software
# Foundation, either version 3 of the License, or (at your option) any later
# version.
#
# This program is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along with
# this program. If not, see .
use strict;
use v5.10;
AddModuleDescription('dynamic-comments.pl', 'Dynamic Comments Extension');
our ($q, $CollectingJournal, $CommentsPrefix, @MyInitVariables, $HtmlHeaders);
push(@MyInitVariables, \&DynamicCommentsAddScript);
sub DynamicCommentsAddScript {
$HtmlHeaders .= qq{
} unless $HtmlHeaders =~ /commenthidden/; # mod_perl?
}
my $num = 0;
*DynamicCommentsOldGetPageLink = \&GetPageLink;
*GetPageLink = \&DynamicCommentsNewGetPageLink;
sub DynamicCommentsNewGetPageLink {
my ($id, @rest) = @_;
if ($CollectingJournal and $id =~ /^$CommentsPrefix/) {
my $title = $id;
$title =~ s/_/ /g;
my $page = PageHtml($id);
if ($page) {
my $anchor = "id" . $num++;
return qq{$title}
. '
' # close p before opening div
. $q->div({-class=>'commenthidden', -id=>$anchor},
$page,
$q->p(DynamicCommentsOldGetPageLink($id, T('Add Comment'))))
. ''; # open an empty p that will be closed in PrintAllPages
} else {
return DynamicCommentsOldGetPageLink($id, T('Add Comment'));
}
} else {
return DynamicCommentsOldGetPageLink($id, @rest);
}
}