oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Account release candidate - final changes before merge

Browse source
This commit is contained in:
Frank Dillon 2008-11-15 02:39:23 +00:00
parent aec93573f0
commit 11d18075fa
45 changed files with 3379 additions and 1325 deletions
Download patch file Download diff file Expand all files Collapse all files

67
lib/WebGUI/Account/User.pm
View file

@ -6,6 +6,8 @@ use WebGUI::Exception;
use WebGUI::International;
use WebGUI::Pluggable;
use WebGUI::Utility;
use WebGUI::Operation::Auth;
use base qw/WebGUI::Account/;
=head1 NAME
@ -26,6 +28,18 @@ These subroutines are available from this package:
=cut
#-------------------------------------------------------------------
=head2 canView ( )
Returns whether or not the user can view the inbox tab
=cut
sub canView {
my $self = shift;
return ($self->uid eq "");
}
#-------------------------------------------------------------------
@ -42,13 +56,24 @@ sub editSettingsForm {
my $i18n = WebGUI::International->new($session,'Account_User');
my $f = WebGUI::HTMLForm->new($session);
# $f->template(
# name => "profileStyleTemplateId",
# value => $self->getStyleTemplateId,
# namespace => "style",
# label => $i18n->get("profile style template label"),
# hoverHelp => $i18n->get("profile style template hoverHelp")
# );
$f->template(
name => "userAccountStyleTemplateId",
value => $self->session->setting->get("userAccountStyleTemplateId"),
namespace => "style",
label => $i18n->get("user style template label"),
hoverHelp => $i18n->get("user style template hoverHelp")
);
$f->template(
name => "userAccountLayoutTemplateId",
value => $self->session->setting->get("userAccountLayoutTemplateId"),
namespace => "Account/Layout",
label => $i18n->get("layout template label"),
hoverHelp => $i18n->get("layout template hoverHelp")
);
$f->raw(q{<tr><td class="formDescription" colspan="2">&nbsp</td></tr>});
$f->readOnly (
value => $i18n->get("templates in auth method message"),
);
return $f->printRowsOnly;
}
@ -62,6 +87,13 @@ sub editSettingsForm {
=cut
sub editSettingsFormSave {
my $self = shift;
my $session = $self->session;
my $setting = $session->setting;
my $form = $session->form;
$setting->set("userAccountStyleTemplateId", $form->process("userAccountStyleTemplateId","template"));
$setting->set("userAccountLayoutTemplateId", $form->process("userAccountLayoutTemplateId","template"));
}
#-------------------------------------------------------------------
@ -74,7 +106,7 @@ This method returns the template ID for the account layout.
sub getLayoutTemplateId {
my $self = shift;
return $self->session->setting->get("userLayoutTempalteId") || $self->SUPER::getLayoutTemplateId;
return $self->session->setting->get("userAccountLayoutTemplateId") || "9ThW278DWLV0-Svf68ljFQ";
}
@ -88,21 +120,9 @@ This method returns the template ID for the main style.
sub getStyleTemplateId {
my $self = shift;
return $self->session->setting->get("userStyleTemplateId") || $self->SUPER::getStyleTemplateId;
return $self->session->setting->get("userAccountStyleTemplateId") || $self->SUPER::getStyleTemplateId;
}
#-------------------------------------------------------------------
=head2 getViewTemplateId ( )
This method returns the template ID for the main view.
=cut
sub getViewTemplateId {
my $self = shift;
return $self->session->setting->get("userViewTemplateId") || "defaultAssetId";
}
#-------------------------------------------------------------------
@ -115,9 +135,10 @@ The main view page for editing the user's profile.
sub www_view {
my $self = shift;
my $session = $self->session;
my $var = {};
return $self->processTemplate($var,$self->getViewTemplateId);
my $auth = WebGUI::Operation::Auth::getInstance($session);
return $auth->displayAccount;
}