Bivio::UI::View::SiteAdmin
# Copyright (c) 2008-2009 bivio Software, Inc. All Rights Reserved.
# $Id$
package Bivio::UI::View::SiteAdmin;
use strict;
use Bivio::Base 'View.Base';
use Bivio::UI::ViewLanguageAUTOLOAD;
my($_AUL) = __PACKAGE__->use('Model.AdmUserList');
sub email_alias_list_form {
return shift->internal_body(vs_list_form(EmailAliasListForm => [qw(
EmailAliasListForm.EmailAlias.incoming
EmailAliasListForm.EmailAlias.outgoing
)]));
}
sub remote_copy_form {
return shift->internal_body(vs_simple_form(RemoteCopyListForm => [
List(RemoteCopyListForm => [
SPAN_field(
Join([
FormFieldError('want_realm'),
Checkbox('want_realm'),
vs_blank_cell(),
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;