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 handling the submission of changing multiple topic states.

package Codestriker::Action::SubmitEditTopicsState;

use strict;

use Codestriker::Action::ListTopics;

# Attempt to change the topic's state, or to delete it.

sub process($$$) {

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

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

    # Check that the appropriate fields have been filled in.

    my $topics_ref = $http_input->get('selected_topics');

    my @topics = @$topics_ref;

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

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

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

    # Check if this is an obsolete function, and if so, redirect to the

    # create topic screen.

    if ($button eq "Obsolete Topic(s)") {

	my $url_builder = Codestriker::Http::UrlBuilder->new($query);

	my $create_topic_url =

	    $url_builder->create_topic_url((join ',', @topics));

	print $query->redirect(-URI=>$create_topic_url);

	return;

    }

    # The main topic list page does not allow deletes, so block this out.

    if ($topic_state eq "Deleted" || $topic_state eq "Obsoleted") {

	$http_response->error("This function has been disabled");

    }

    # Any feedback messages to the user.

    my $feedback = "";

    # Indicate if changes were attempted on invalid topics.

    my $invalid = 0;

    # Indicate if changes were made to stale topics.

    my $stale = 0;

    # Apply the change to each topic.

    for (my $i = 0; $i <= $#topics; $i++) {

	# Extract the topic id and the version.

	$topics[$i] =~ /^([0-9]+)\,([0-9]+)$/;

        # Dump the request if the param does not look right.

        next if (!defined($1) || !defined($2));

	my $topicid = $1;

	my $version = $2;

	my $rc = $type->update_state($topicid, $version, $topic_state, $email);

	# Record if there was a problem in changing the state.

	$invalid = 1 if $rc == $Codestriker::INVALID_TOPIC;

	$stale = 1 if $rc == $Codestriker::STALE_VERSION;

    }

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

    if ($invalid && $stale) {

	$feedback = "Some topics could not be updated as they were either " .

	    "modified by another user, or no longer exist.";

    } elsif ($invalid) {

	$feedback = "Some topics could not be updated as they no longer " .

	    "exist.";

    } elsif ($stale) {

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

	    "modified by another user.";

    } else {

	if ($#topics == 0) {

	    $feedback = "Topic was successfully updated.";

	} else {

	    $feedback = "All topics were successfully updated.";

	}

    }

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

    # feedback message.

    $http_input->{feedback} = $feedback;

    Codestriker::Action::ListTopics->process($http_input, $http_response);

}

# Static method for updating the state of a topic, and informing all of the

# topic listeners.

sub update_state {

    my ($type, $topicid, $version, $topic_state, $email) = @_;

    # Original topic object which won't be changed in the

    # change_state operation.

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

    # Don't do anything if the topic is already at the given state.

    return $Codestriker::OK if ($topic_state eq $topic_orig->{topic_state});

    # Topic object to operate on.

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

    my $rc = $Codestriker::OK;

    if ($topic->{version} == $version) {

	# Change the topic state.

	$rc = $topic->change_state($topic_state);

    } else {

	# Stale version.

	$rc = $Codestriker::STALE_VERSION;

    }

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

	# Fire a topic changed listener event.

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

	Codestriker::TopicListeners::Manager::topic_changed($email,

							    $topic_orig,

							    $topic_new);

    }

    # Indicate whether the operation was successful or not.

    return $rc;

}

1;