kalipso/racalmas
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove comments and cleanup

Browse Source
This commit is contained in:
Milan
2020-03-07 23:11:44 +01:00
parent 9b7a1ebc88
commit 4584125923
30 changed files with 34 additions and 167 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lib/calcms/comments.pm
View File

@@ -144,9 +144,6 @@ sub get_query($$$) {
$limit
};
# where lock_status='show'
# use Data::Dumper;print STDERR Dumper($query);
return ( \$query, $bind_values );
}
@@ -430,10 +427,10 @@ sub get_events($$$$) {
for my $comment (@$comments) {
my $event_id = $comment->{event_id};
my $event = $events_by_id->{$event_id};
next unless ( defined $event );
next unless defined $event;
$event->{comment_count}++;
push @{ $event->{comments} }, $comment; # if ($params->{event_id}ne'');
$event->{max_comment_id} = $comment->{id} if ( $comment->{id} > $event->{max_comment_id} );
$event->{max_comment_id} = $comment->{id} if $comment->{id} > $event->{max_comment_id};
for my $name ( keys %{ $config->{controllers} } ) {
$comment->{ "controller_" . $name } = $config->{controllers}->{$name} || '';
@@ -545,7 +542,7 @@ sub sort_childs {
push @{$sorted_nodes}, $node;
#return if node is leaf
return $sorted_nodes unless ( defined $node->{childs} );
return $sorted_nodes unless defined $node->{childs};
#process child nodes
for my $child ( @{ $node->{childs} } ) {