Subversion Repositories DevTools

###############################################################################

# 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 the submission of changing multiple comment states.

package Codestriker::Action::SubmitEditCommentsState;

use strict;

use Codestriker::Action::ViewTopicComments;

use Codestriker::TopicListeners::Manager;

# Attempt to change the comment states, in particular the metrics associated

# with them.

sub process($$$) {

    my ($type, $http_input, $http_response) = @_;

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

    # Extract the values from the action.

    my $topicid = $http_input->get('topic');

    my $email = $http_input->get('email');

    if (Codestriker::Model::Topic::exists($topicid) == 0) {    

	# Topic no longer exists, most likely its been deleted.

	$http_response->error("Topic no longer exists.");

        return;

    }

    my $topic = Codestriker::Model::Topic->new($topicid);

    # Any feedback messages to the user.

    my $feedback = "";

    # Indicate if changes were made to stale comments.

    my $stale = 0;

    # The number of commentstates changed.

    my $comments_processed = 0;

    # Determine the mapping of comment state to version numbers, recorded

    # in the form submission, to ensure the versions being changed aren't

    # stale.

    my %comment_state_version_map = ();

    my %comment_state_new_map = ();

    foreach my $param_name ($query->param()) {

	foreach my $metric (@{$Codestriker::comment_state_metrics}) {

	    my $metric_name = $metric->{name};

	    my $prefix = "comment_state_metric\\|$metric_name";

	    if ($param_name =~ /^($prefix\|\-?\d+\|\-?\d+\|\d+)\|(\d+)$/) {

		$comment_state_version_map{$1} = $2;

		$comment_state_new_map{$1} = $query->param($param_name);

	    }

	}

    }

    # Go through all of the commentstate records, and change anything that

    # needs changing.

    my @topic_comments = $topic->read_comments();

    my %processed_commentstates = ();

    foreach my $comment (@topic_comments) {

	my $key = $comment->{filenumber} . "|" . $comment->{fileline} . "|" .

	    $comment->{filenew};

	if (! exists $processed_commentstates{$key}) {

	    # For each metric, see if there is a new value posted for this

	    # comment state.

	    my $state_changed = 0;

	    my $num_metrics_changed_for_comment_state = 0;

	    foreach my $metric (@{$Codestriker::comment_state_metrics}) {

		my $select_form_name =

		    "comment_state_metric|" . $metric->{name} . "|" . $key;

		# Check if this metric has a new value associated with it.

		my $current_metric_value =

		    $comment->{metrics}->{$metric->{name}};

		my $new_metric_value =

		    $comment_state_new_map{$select_form_name};

		if (defined $new_metric_value &&

		    $new_metric_value ne $current_metric_value) {

		    # Change the specific metric for this commentstate record.

		    my $version =

			$comment_state_version_map{$select_form_name} +

			$num_metrics_changed_for_comment_state;

		    my $rc = $comment->change_state($metric->{name},

						    $new_metric_value,

						    $version);

		    if ($rc == $Codestriker::OK) {

			$state_changed = 1;

			$num_metrics_changed_for_comment_state++;

			Codestriker::TopicListeners::Manager::comment_state_change(

                                                 $email, $metric->{name},

						 $current_metric_value,

						 $new_metric_value, $topic,

						 $comment);

		    } elsif ($rc == $Codestriker::STALE_VERSION) {

			$stale = 1;

		    }

		}

	    }

	    if ($state_changed) {

		$comments_processed++;

	    }

	    # Indicate that this commentstate has been processed for all

	    # metrics.

	    $processed_commentstates{$key} = 1;

	}

    }

    # These message could be made more helpful in the future, but for now...

    if ($stale) {

	$feedback = "Some comments could not be updated as they have been " .

	    "modified by another user.";

    } else {

	if ($comments_processed == 1) {

	    $feedback = "Comment was successfully updated.";

	} elsif ($comments_processed > 1) {

	    $feedback = "$comments_processed comments were successfully updated.";

	}

    }

    # Direct control to the list comment action class, with the appropriate

    # feedback message.

    $http_input->{feedback} = $feedback;

    Codestriker::Action::ViewTopicComments->process($http_input,

						    $http_response);

}

1;