# Copyright (c) 2008-2009 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: SiteAdmin.pm,v 1.18 2010/04/07 23:23:31 nagler Exp $
package Bivio::UI::View::SiteAdmin;
use strict;
use Bivio::Base 'View.Base';
use Bivio::UI::ViewLanguageAUTOLOAD;

our($VERSION) = sprintf('%d.%02d', q$Revision: 1.18 $ =~ /\d+/g);
my($_AUL) = __PACKAGE__->use('Model.AdmUserList');

sub remote_copy_form {
    return shift->internal_body(vs_simple_form(RemoteCopyListForm => [
	List(RemoteCopyListForm => [
	    SPAN_field(
		Join([
		    vs_descriptive_field('RemoteCopyListForm.want_realm')->[0],
		    String([['->get_list_model'], 'realm']),
		]),
	    ),
	    DIV(Join([
		If(['prepare_ok'],
		    UL_none(Join([
			map(If([$_, '->is_specified'], LI(Join([
			    Prose(vs_text("RemoteCopyListForm.$_")),
			    UL_none(With([$_], LI(String(['value'])))),
			]))), qw(to_delete to_update to_create)),
		    ]), {tag_empty_value =>
		        LI(Prose(vs_text('RemoteCopyListForm.empty_realm')))}),
		    UL_none(
			With([['->get_list_model'], 'folder'],
			    LI(String(['value'])),
			),
		    ),
		),
	    ])),
	]),
    ]));
}

sub substitute_user_form {
    return shift->internal_body(vs_simple_form(SiteAdminSubstituteUserForm => [qw{
	SiteAdminSubstituteUserForm.login
    }]));
}

sub unapproved_applicant_form {
    my($self, $extra_columns) = @_;
    return shift->internal_body(vs_simple_form(UnapprovedApplicantForm => [
	['UnapprovedApplicantForm.RealmUser.role', {
	    choices => ['->req', 'Model.RoleSelectList'],
	    list_display_field => 'display',
	    list_id_field => 'RealmUser.role',
	}],
	@{$extra_columns || []},
    ]));
}

sub unapproved_applicant_form_mail {
    return shift->internal_put_base_attr(
	from => Mailbox(
	    vs_text('support_email'),
	    vs_text_as_prose('support_name'),
	),
	to => Mailbox(
	    ['Model.UnapprovedApplicantList', 'Email.email'],
	    ['Model.UnapprovedApplicantList', 'RealmOwner.display_name'],
	),
	# both mail_subject and mail_body come from facade values
	subject => Prose(['Model.UnapprovedApplicantForm', 'mail_subject']),
	body => Prose(['Model.UnapprovedApplicantForm', 'mail_body']),
    );
}

sub unapproved_applicant_list {
    my($self, $extra_columns) = @_;
    vs_user_email_list(
	'UnapprovedApplicantList',
	[
            ['RealmOwner.creation_date_time'],
	    [privileges => {
		wf_list_link => {
		    query => 'THIS_DETAIL',
		    task => 'SITE_ADMIN_UNAPPROVED_APPLICANT_FORM',
		},
	    }],
	    @{$extra_columns || []},
	],
    );
    return;
}

sub user_list {
    my($self, $extra_columns) = @_;
    vs_user_email_list('AdmUserList', [
	@{$extra_columns || []},
    ], [vs_alphabetical_chooser('AdmUserList')]);
    return;
}

1;