###############################################################################
# Codestriker: Copyright (c) 2001, 2002 David Sitsky.  All rights reserved.
# sits@users.sourceforge.net
#
# This program is free software; you can redistribute it and modify it under
# the terms of the GPL.

# Action object for displaying a list of comments.

package Codestriker::Action::ViewTopicComments;

use strict;

use Codestriker::Http::Template;
use Codestriker::Http::Render;
use Codestriker::Model::Comment;
use Codestriker::Model::File;

# If the input is valid, list the appropriate comments for a topic.
sub process($$$) {
    my ($type, $http_input, $http_response) = @_;

    my $query = $http_response->get_query();

    # Check that the appropriate fields have been filled in.
    my $topicid = $http_input->get('topic');
    my $email = $http_input->get('email');
    my $mode = $http_input->get('mode');
    my $fview = $http_input->get('fview');
    my $tabwidth = $http_input->get('tabwidth');
    my $feedback = $http_input->get('feedback');
    my $show_context = $http_input->get('scontext');
    my $show_comments_from_user = $http_input->get('sauthor');
    
    # Retrieve the filter parameters from the metrics, if any.
    my %metric_filter = ();
    foreach my $comment_state_metric (@{$Codestriker::comment_state_metrics}) {
	my $name = "comment_state_metric_" . $comment_state_metric->{name};
	my $value = $http_input->get($name);
	if (defined $value && $value ne "__any__") {
	    $metric_filter{$comment_state_metric->{name}} = $value;
	}
    }

    # Retrieve the comment details for this topic.
    my @comments =
	Codestriker::Model::Comment->read_filtered($topicid,
						   $show_comments_from_user,
						   \%metric_filter);

    # Retrieve the appropriate topic details.           
    my $topic = Codestriker::Model::Topic->new($topicid);     

    # Display the data, with each topic title linked to the view topic screen.
    $http_response->generate_header(topic=>$topic,
				    comments=>\@comments,
				    topic_title=>"Topic Comments: $topic->{title}",
				    email=>$email, fview=>$fview,
				    tabwidth=>$tabwidth,
                                    reload=>0, cache=>0);

    # Create the hash for the template variables.
    my $vars = {};
    $vars->{'feedback'} = $feedback;

    # Obtain a new URL builder object.
    my $url_builder = Codestriker::Http::UrlBuilder->new($query);

    Codestriker::Action::ViewTopic::ProcessTopicHeader($vars, $topic,
						       $url_builder);

    # Get the list of users that have put comments in against the
    # comment, and filter if needed.
    my @usersThatHaveComments =
	Codestriker::Model::Comment->read_authors($topicid);
    @usersThatHaveComments = map 
            { Codestriker->filter_email($_) } 
            @usersThatHaveComments;        
    
    # Filter the email address out, in the object.
    foreach my $comment (@comments) {
    	$comment->{author} = Codestriker->filter_email($comment->{author});
    }
                                             
    # Go through all the comments and make them into an appropriate form for
    # displaying.
    my $last_filenumber = -999;
    my $last_fileline = -999;
    my $index = 0;
    for (my $i = 0; $i <= $#comments; $i++) {
	my $comment = $comments[$i];

	if ($comment->{fileline} != $last_fileline ||
	    $comment->{filenumber} != $last_filenumber) {
	    my $new_file =
		$url_builder->view_file_url($topicid, $comment->{filenumber},
					    $comment->{filenew},
					    $comment->{fileline}, $mode, 0);
					    
	    $comment->{view_file} = "javascript: myOpen('$new_file','CVS')";
	    my $parallel = 
		$url_builder->view_file_url($topicid, $comment->{filenumber},
					    $comment->{filenew},
					    $comment->{fileline}, $mode, 1);
	    $comment->{view_parallel} =
		"javascript: myOpen('$parallel','CVS')";
	    $comment->{edit_url} =
		"javascript: eo('" . $comment->{filenumber} . "','" .
		$comment->{fileline} . "','" . $comment->{filenew} . "')";
	    $comment->{anchor} = $comment->{filenumber} . "|" .
		$comment->{fileline} . "|" . $comment->{filenew};

	    $last_fileline = $comment->{fileline};
	    $last_filenumber = $comment->{filenumber};
	}

        if ($show_context ne "" && $show_context > 0 &&
	    $comment->{filenumber} != -1 && $comment->{fileline} != -1) {
                my $delta = Codestriker::Model::Delta->get_delta($topicid, 
                                $comment->{filenumber}, 
                                $comment->{fileline} , 
                                $comment->{filenew});

                $comment->{context} = Codestriker::Http::Render->get_context(
                                                $comment->{fileline} , 
                                                $show_context, 1,
                                                $delta->{old_linenumber},
                                                $delta->{new_linenumber},
                                                $delta->{text}, 
                                                $comment->{filenew});
       }
    }

    # Store the parameters to the template.
    $vars->{'email'} = $email;
    $vars->{'comments'} = \@comments;
    $vars->{'users'} = \@usersThatHaveComments;
    $vars->{'tabwidth'} = $tabwidth;
    
    # Push in the current filter combo box selections so the window remembers
    # what the user has currently set.
    $vars->{'scontext'} = $show_context;
    $vars->{'sauthor'} = $http_input->get('sauthor');
    $vars->{'metrics_selection'} = \%metric_filter;

    # Store the metrics configuration into the template so it knows
    # how to render the dropdowns.
    my @metrics = ();
    foreach my $metric_config (@{ $Codestriker::comment_state_metrics }) {
	my $metric_data = {};
	$metric_data->{name} = $metric_config->{name};
	$metric_data->{values} = $metric_config->{values};
	push @metrics, $metric_data;
    }
    $vars->{'metrics'} = \@metrics;

    # Store the topic status     
    $vars->{'default_state'} = $topic->{topic_state};     
    $vars->{'topic_states'} = \@Codestriker::topic_states; 

    # Send the data to the template for rendering.
    my $template = Codestriker::Http::Template->new("viewtopiccomments");
    $template->process($vars);

    $http_response->generate_footer();

    # Fire the topic listener to indicate that the user has viewed the topic.
    Codestriker::TopicListeners::Manager::topic_viewed($email, $topic);
}

1;