# Copyright (c) 2007-2011 bivio Software, Inc.  All Rights Reserved.
#
# Visit http://www.bivio.biz for more info.
# 
# This library is free software; you can redistribute it and/or modify
# it under the terms of the GNU Lesser General Public License as
# published by the Free Software Foundation; either version 2.1 of the
# License, or (at your option) any later version.
# 
# This library is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Lesser General Public License for more details.
# 
# You should have received a copy of the GNU Lesser General Public
# License along with this library;  If not, you may get a copy from:
# http://www.opensource.org/licenses/lgpl-license.html
# 
# $Id: Motion.pm,v 1.37 2012/01/10 00:46:34 moeller Exp $
package Bivio::UI::View::Motion;
use strict;
use Bivio::Base 'View.Base';
use Bivio::UI::ViewLanguageAUTOLOAD;
use Bivio::UI::DateTimeMode;

our($VERSION) = sprintf('%d.%02d', q$Revision: 1.37 $ =~ /\d+/g);
my($_DT) = b_use('Type.DateTime');
my($_FP) = b_use('Type.FilePath');
my($_VT) = b_use('Type.MotionVote');

sub WANT_COMMENT_LIST_ACTION {
    return 1;
}

sub WANT_FILE_FIELDS {
    return 1;
}

sub comment_detail {
    my($self) = @_;
    return shift->internal_put_base_attr(
	tools => TaskMenu([
	    'FORUM_MOTION_LIST',
	]),
	body => [sub {
	    my($source, $model) = @_;
	    return Grid([
		[_label_cell(vs_text('MotionCommentDetail.name')),
		    _value_cell(String([qw(Model.Motion name)]))],
		[_label_cell(vs_text('MotionCommentDetail.question')),
		    _value_cell(String([qw(Model.Motion question)]))],
		[_label_cell(vs_text('MotionComment.comment')),
		    _value_cell(String(
			[qw(Model.MotionCommentList MotionComment.comment)]))],
		map([
		    _label_cell(vs_text('MotionCommentList.' . $_)),
		    String(['Model.MotionCommentList', $_]),
		], $model->tuple_tag_field_check),
	    ])->put(class => 'simple');
	}, ['Model.MotionCommentList']],
    );
}

sub comment_form {
    my($self) = @_;
    $self->internal_topic_from_list;
    return shift->internal_body([sub {
        my($source) = @_;
	my($model) = $source->req('Model.MotionCommentForm');
        return vs_simple_form(MotionCommentForm => [
	    'MotionCommentForm.MotionComment.comment',
	    map($self->internal_display_comment_field($_) ?
		    ["MotionCommentForm.$_", {
			wf_type => $model->get_field_type($_),
		    }] : (),
		$model->tuple_tag_field_check),
	]);
    }]);
}

sub comment_result {
    my($self) = @_;
    vs_put_pager('MotionCommentList');
    return shift->internal_put_base_attr(
	tools => TaskMenu([
	    {
		task_id => 'FORUM_MOTION_COMMENT_LIST_CSV',
		query => ['->req', 'query'],
	    },
	    'FORUM_MOTION_LIST',
	]),
	$self->internal_topic_from_motion,
	body => [ \&_comment_list,  [qw(Model.MotionCommentList)], $self, [qw(Model.Motion type)]],
    );
}

sub comment_result_csv {
    my($self) = @_;
    return shift->internal_body([sub {
	my($source) = @_;
        return CSV(MotionCommentList =>
	    $self->internal_comment_csv_fields(
		$source->req('Model.MotionCommentList'),
	        $source->req(qw(Model.Motion type)),
	));
    }]);
}

sub form {
    my($self) = @_;
    return shift->internal_put_base_attr(
	tools => TaskMenu([
	    'FORUM_MOTION_LIST',
	]),
	body => vs_simple_form(MotionForm => [
	    FormFieldError('Motion.name_lc'),
	    'MotionForm.Motion.name',
	    'MotionForm.Motion.question',
	    map(["MotionForm.Motion.$_" => {
		enum_sort => 'get_short_desc',
		show_unknown => 0,
		column_count => 1,
	    }], qw(status type)),
	    $self->WANT_FILE_FIELDS
		? $self->internal_file_fields
		: (),
	]),
    );
}

sub internal_comment_fields {
    my($self, $model) = @_;
    return [
	'RealmOwner.display_name',
	vs_trimmed_text_column('MotionComment.comment'),
	map($model->get_field_type($_) =~ /TupleSlot/
	    ? vs_trimmed_text_column($_, {
		column_heading =>
		    String(vs_text($model->simple_package_name, $_)),
	    })
	    : [$_, {
		wf_type => $model->get_field_type($_),
		column_heading =>
		    String(vs_text($model->simple_package_name, $_)),
	    }], $model->tuple_tag_field_check),
    ];
}


sub internal_comment_csv_fields {
    my($self, $model) = @_;
    return [
	'RealmOwner.display_name',
	'MotionComment.comment',
	map($_, $model->tuple_tag_field_check),
    ];
}

sub internal_date_time_attr {
    return (
	mode => 'DATE_TIME',
    );
}

sub internal_display_comment_field {
    return 1;
}

sub internal_file_fields {
    my($self) = @_;
    return (
	[String(After(vs_text('Motion.motion_file_id'), ':'))
	    ->put(cell_class => 'label label_ok'),
	    If(['Model.MotionForm', 'Motion.motion_file_id'],
	        Link(
		    String([
			$_FP, '->get_versionless_tail',
			[['Model.MotionForm', '->get_motion_document'],
			 'path'],
		    ]),
		    URI({
			task_id => 'FORUM_FILE',
			path_info => [['Model.MotionForm',
		            '->get_motion_document'], 'path'],
		    }),
		),
	    )->put(row_control =>
	        ['Model.MotionForm', 'Motion.motion_file_id'],
	    ),
        ],
        'MotionForm.file',
    );
}

sub internal_list_actions {
    my($self) = @_;
    return [
	[
	    'Edit',
	    'FORUM_MOTION_FORM',
	],
	[
	    'Vote',
	    'FORUM_MOTION_VOTE',
	    URI({
		task_id => 'FORUM_MOTION_VOTE',
		query => {
		    'ListQuery.this' => [ 'Motion.motion_id' ],
		    'ListQuery.parent_id' => [ 'Motion.motion_id' ],
		},
	    }),
	    ['->can_vote'],
	],
	$self->WANT_COMMENT_LIST_ACTION ?
	    [
		'Comment', 
		'FORUM_MOTION_COMMENT',
		'THIS_DETAIL',
		['->can_comment'],
	    ] : (),
	[
	    'Status',
	    'FORUM_MOTION_STATUS',
	    'THIS_AS_PARENT',
	],
    ];
}

sub internal_motion_initiator {
    return;
}

sub internal_motion_type {
    return;
}

sub internal_topic_from_list {
    my($self) = @_;
    $self->internal_put_base_attr(
	topic => Join([
	    String([qw(Model.MotionList Motion.name)]),
	    ': ',
	    String([qw(Model.MotionList Motion.question)]),
	]),
    );
    return;
}

sub internal_topic_from_motion {
    my($self) = @_;
    $self->internal_put_base_attr(
	topic => Join([
	    String([qw(Model.Motion name)]),
	    ': ',
	    String([qw(Model.Motion question)]),
	]),
    );
    return;
}

sub internal_vote_list_fields {
    return [
	'MotionVote.creation_date_time',
	'MotionVote.vote',
	'MotionVote.comment',
	['Email.email',	{
	    column_widget => MailTo(['Email.email'], ['RealmOwner.display_name']),
	}],
    ];
}

sub internal_vote_result_csv_fields {
    return [
	'MotionVote.creation_date_time',
	'MotionVote.vote',
	'MotionVote.comment',
	'Email.email',
    ];
}

sub list {
    my($self) = @_;
    return shift->internal_put_base_attr(
	tools => TaskMenu([
	    'FORUM_MOTION_FORM',
	]),
	body => vs_paged_list(
	    MotionList => [
		'Motion.name',
		'Motion.question',
		['Motion.motion_file_id', {
		    column_widget => Link(
			String(['file_name']),
			URI({
			    task_id => 'FORUM_FILE',
			    path_info => ['RealmFile.path'],
			}),
		    ),
		    column_order_by => ['RealmFile.path_lc'],
		}],
		[ 'Motion.status', {
		    column_widget =>	
			If( [ '->is_open' ] ,	
			    String("Open"),	
			    String("Closed"))
		    }
	        ],
		[ 'Motion.start_date_time', {
		    $self->internal_date_time_attr,
		    value => ['Motion.start_date_time'],
		}],
		[ 'Motion.end_date_time', {
		    $self->internal_date_time_attr,
		    value => ['Motion.end_date_time'],
		}],
		[ 'vote_count', {
		    column_data_class => 'vote_count',
		        column_widget => Join([       
			    Integer("yes_count"),
			    String("/"),	
			    Integer("no_count"),
			    String("/"),
			    Integer("abstain_count"),
			]), 
		    }
	        ],
		vs_actions_column($self->internal_list_actions),
	    ],
	),
    );
}

sub status {
    my($self) = @_;
    vs_put_pager('MotionCommentList');
    return shift->internal_put_base_attr(
	tools => TaskMenu([
	    {
		task_id => 'FORUM_MOTION_VOTE_LIST_CSV',
		query => ['->req', 'query'],
	    },
	    {
		task_id => 'FORUM_MOTION_COMMENT_LIST_CSV',
		query => ['->req', 'query'],
	    },
	    'FORUM_MOTION_LIST',
	]),
	body => Join( [
	    Grid([
		$self->internal_motion_initiator(\&_label_cell, \&_value_cell),
		[ _label_cell(vs_text('MotionStatus.name')), _value_cell([qw(Model.Motion name)] )],
		[ _label_cell(vs_text('MotionStatus.question')), _value_cell([qw(Model.Motion question)]) ],
		$self->internal_motion_type(\&_label_cell, \&_value_cell),
		[ _label_cell(vs_text('MotionStatus.file')), _value_cell([\&_file_link, [qw(Model.Motion)]]) ],
		[ _label_cell(vs_text('MotionStatus.start_date_time')), _value_cell(
		    vs_display('Motion.start_date_time', {
			value => [qw(Model.Motion start_date_time)],
			$self->internal_date_time_attr,
		    }))],
		[ _label_cell(vs_text('MotionStatus.end_date_time')), _value_cell(
		    If([qw(Model.Motion end_date_time)],
		       vs_display('Motion.end_date_time', {
			   value => [qw(Model.Motion end_date_time)],
			   $self->internal_date_time_attr,
		       }),
		       'open',
		    ),
		)],
		[ _label_cell(vs_text('MotionStatus.yes_count')),  _value_cell([ 'Model.Motion', '->vote_count_yes' ], ), ],  	
		[ _label_cell(vs_text('MotionStatus.no_count')),  _value_cell([ 'Model.Motion', '->vote_count_no' ], ), ],  	
		[ _label_cell(vs_text('MotionStatus.abstain_count')),  _value_cell([ 'Model.Motion', '->vote_count_abstain' ], ),  ],  	
	    ],
		 {
		     class => 'simple',
		     align => 'center',
		 }
	     ),
             Grid([
		 [ _value_cell(' ') ],
		 [ _label_cell(vs_text('MotionStatus.vote_list')), Join([ [\&_vote_list, $self ]]) ],
		 [ _value_cell(' ') ],
		 [ _label_cell(vs_text('MotionStatus.comment_list')), Join([
		     [ \&_comment_list, $self, [qw(Model.MotionCommentList)], [qw(Model.Motion type)] ] ] ) ],
	    ],
		 {
		     class => 'simple',
		     align => 'center',
		 }
	    ),
	]
      )
    )
}

sub vote_form {
    my($self) = @_;
    $self->internal_topic_from_list;
    return shift->internal_body(
	vs_simple_form(MotionVoteForm => [
	    [
		'MotionVoteForm.MotionVote.vote' => {
		    enum_sort => 'get_short_desc',
		    show_unknown => 0,
		    column_count => 1,
		}
	    ],
	    'MotionVoteForm.MotionVote.comment',
	]),
    );
}

sub vote_result {
    my($self) = @_;
    return shift->internal_put_base_attr(
	tools => TaskMenu([
	    {
		task_id => 'FORUM_MOTION_VOTE_LIST_CSV',
		query => ['->req', 'query'],
	    },
	    'FORUM_MOTION_LIST',
	]),
	$self->internal_topic_from_motion,
	body => [ \&_vote_list, $self ]
    );
}

sub vote_result_csv {
    my($self) = @_;
    return shift->internal_body(
	[sub {
	     my($source, $type) = @_;
	     return CSV(MotionVoteList =>
			    $self->internal_vote_result_csv_fields($type)
			);
	 },	 
	 ['Model.Motion', 'type'],
	 ]);
}

sub _comment_list {
    my($req, $self, $model, $type) = @_;
    return vs_paged_list(
	MotionCommentList => $self->internal_comment_fields($model, $type),
        {
	    no_pager => 1,
	});
}

sub _file_link {
    my ($req, $motion) = @_;
    if (my $mfid = $motion->unsafe_get('motion_file_id')) {
	if (my $rf = $motion->new_other('Bivio::Biz::Model::RealmFile')
		->load({realm_file_id => $mfid})) {
	    if (my $path = $rf->unsafe_get('path')) {
		return Link(
		    String($_FP->get_versionless_tail($path)),
		    URI({
			task_id => 'FORUM_FILE',
			path_info => $path,
		    }),
  		),		
	    }
	}
    }
    return;
}

sub _label_cell  {
    my($text) = @_;
    return String(Join([String($text), ':']))
	->put(map(($_ => 'label label_ok'),
	    qw(column_data_class cell_class column_footer_class)));
}

sub _value_cell {
    my($text) = @_;
    return String($text)
	->put(cell_class => 'simple field');
}

sub _vote_list {
    my ($req, $self) = @_;
    return vs_paged_list(
	    MotionVoteList => $self->internal_vote_list_fields,
	    {
		no_pager => 1,
	    }
	);
}

1;