root/trunk/antimatter/tim/Modules/SFLC/TimeTracker/Output/Question.pm

# Copyright (C) 2005, 2006   Software Freedom Law Center, Inc.
#  Author: Bradley M. Kuhn <bkuhn@softwarefreedom.org>
#
#  This software gives you freedom; it is licensed to you under version
#  3 of the GNU Affero General Public License.
#
#  This software is distributed WITHOUT ANY WARRANTY, without even the
#  implied warranties of MERCHANTABILITY and FITNESS FOR A PARTICULAR
#  PURPOSE.  See the GNU Affero General Public License for further
#  details.
#
# You should have received a copy of the GNU Affero General Public
# License, version 3 along with this software.  If not, see
# <http://www.gnu.org/licenses/>.
use strict;
use warnings;

package SFLC::TimeTracker::Output::Question;

use base qw(SFLC::TimeTracker::Output);

use Lingua::EN::Inflect qw ( PL);
use Date::Manip;

###############################################################################
sub new {
  my($class) = shift;
  my %input = @_;
  if (defined $input{question}) {
    $input{object} = $input{question};
  }
  my $self =  SFLC::TimeTracker::Output::new($class, %input);
  return $self;
}
###############################################################################
sub question {
  my $self = shift;
  return $self->get('question');
}
###############################################################################
sub get {
  my($self, $field) = @_;
  if ($field =~ /^(?:question)$/) {
    return $self->SUPER::get('object');
  } else {
    return $self->SUPER::get($field);
  }
}
###############################################################################
sub action {
  my($self, $actionData) = @_;

  my $retVal = undef;

  my $question = $self->get('question');

  $question->setResolutionData($actionData);

  my $resolution = (defined $actionData->{userInput})
                  ? $question->resolve($actionData->{userInput})
                  : undef;

  $self->set('status', $resolution);
  my(%values) = $question->getResolutionData();

  if (defined $resolution and defined $values{answerType}) {
    $values{edge} = $values{answerType};
    return \%values;
  } else {
    return undef;
  }

}
###############################################################################
sub prettyPrintIRC ($$) {
  my($self, $now) = @_;

  my $retStr = "";
  $retStr .= $self->question->formatResolveString($self->status) . "  "
    if defined $self->status;
  $retStr .= $self->question->formatQuestion()
    if ($retStr eq "" or $self->status eq "INVALID" or $self->status eq "");
  return $retStr;
}

1;
__END__

#
# Local variables:
# compile-command: "perl -I ../../../../../Modules -c Question.pm"
# End: