# Copyright (c) 2009-2010 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: TaskLog.pm,v 1.10 2010/02/20 18:09:03 nagler Exp $
package Bivio::UI::View::TaskLog;
use strict;
use Bivio::Base 'View.Base';
use Bivio::UI::ViewLanguageAUTOLOAD;

our($VERSION) = sprintf('%d.%02d', q$Revision: 1.10 $ =~ /\d+/g);

sub internal_add_filter {
    my($self) = @_;
    $self->internal_put_base_attr(selector => vs_filter_query_form());
    return;
}

sub list {
    my($self, $extra_cols) = @_;
    $self->internal_add_filter;
    view_unsafe_put(
	xhtml_tools => Link(vs_text('title.GROUP_TASK_LOG_CSV'),
	    ['->format_uri', [qw(task ->get_attr_as_id csv_task)]]),
    );
    return $self->internal_body(vs_paged_list('TaskLogList', [
	['TaskLog.date_time', {
	    column_widget => Join([
		Join([
		    SPAN_date(DateTime(['TaskLog.date_time'], 'DATE_TIME')),
		    SPAN_ip(String(['TaskLog.client_address'])),
		    Join([
			SPAN_super_user(
			    String(['super_user.RealmOwner.name'])),
			' acting as',
		    ], {control => ['TaskLog.super_user_id']}),
		    If(['TaskLog.user_id'], SPAN_author(Join([
			String(['RealmOwner.display_name']),
			String(
			    Join(['<', ['Email.email'], '>']),
			    {escape_html => 1},
			),
			$extra_cols ? @$extra_cols : (),
		    ], {join_separator => ' '}))),
		], {join_separator => ' '}),
		DIV_uri(String(['TaskLog.uri'])),
	    ]),
	}],
    ], {
	class => 'paged_list task_log',
	show_headings => 0,
    }));
}

sub list_csv {
    my($self, $extra_cols) = @_;
    return shift->internal_body(CSV(TaskLogList => [qw(
        TaskLog.date_time
	super_user.RealmOwner.name
	RealmOwner.display_name
	Email.email
        TaskLog.uri
    ),
	$extra_cols ? @$extra_cols : (),
    ]));
}

1;