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

FriendManager template work, view screen.

Browse source
This commit is contained in:
Colin Kuskie 2009-03-27 10:49:53 -07:00
parent 2af14e6bf6
commit 49b01e92ce
2 changed files with 25 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lib/WebGUI/Account/FriendManager.pm
View file

@ -8,6 +8,8 @@ use WebGUI::Pluggable;
use WebGUI::Utility;
use base qw/WebGUI::Account/;
use JSON qw(from_json to_json);
=head1 NAME
Package WebGUI::Account::FriendManager
@ -34,7 +36,7 @@ These methods are available from this class:
=head2 canView ( )
Returns whether or not the user can view the the tab for this module
Returns whether or not the user can view the the tab for this module
=cut
@ -88,7 +90,7 @@ sub editSettingsForm {
=head2 editSettingsFormSave ( )
Creates form elements for the settings page custom to this account module
Save
=cut
@ -98,7 +100,7 @@ sub editSettingsFormSave {
my $setting = $session->setting;
my $form = $session->form;
$setting->set("moduleViewTemplateId", $form->process("moduleViewTemplateId", "template"));
$setting->set("friendManagerViewTemplateId", $form->process("friendManagerViewTemplateId", "template"));
my $groupsToManageFriends = $form->process("groupsToManageFriends", "group");
$setting->set("groupsToManageFriends", $groupsToManageFriends);
$setting->set("groupIdAdminFriends", $form->process("groupIdAdminFriends", "group"));
@ -116,8 +118,20 @@ sub www_view {
my $self = shift;
my $session = $self->session;
my $var = {};
$var->{group_loop} = [];
return $self->processTemplate($var,$session->setting->get("moduleViewTemplateId"));
my $groupIds = $session->setting->get('groupsToManageFriends');
my @groupIds = split "\n", $groupIds;
GROUP: foreach my $groupId (@groupIds) {
my $group = WebGUI::Group->new($session, $groupId);
next GROUP unless $group->getId || $group->getId eq 'new';
push @{ $var->{group_loop} }, {
groupId => $groupId,
groupName => $group->getName,
};
}
return $self->processTemplate($var,$session->setting->get("friendManagerViewTemplateId"));
}

11
sbin/installFriendManager.pl
View file

@ -42,9 +42,11 @@ finish($session);
sub installFriendManagerSettings {
my $session = shift;
$session->setting->add('groupIdAdminFriends', 3);
$session->setting->add('friendManagerViewTemplate', '');
$session->setting->add('groupsToManageFriends', '2');
print "Installing FriendManager into settings...";
$session->setting->add('groupIdAdminFriends', '3');
$session->setting->add('friendManagerViewTemplate', '64tqS80D53Z0JoAs2cX2VQ');
$session->setting->add('groupsToManageFriends', '2');
print "\tDone";
}
sub installFriendManagerConfig {
@ -53,7 +55,7 @@ sub installFriendManagerConfig {
my $account = $config->get('account');
my @classes = map { $_->{className} } @{ $account };
return if isIn('WebGUI::Account::FriendManager', @classes);
print "Installing FriendManager\n";
print "Installing FriendManager into config file...";
push @{ $account },
{
identifier => 'friendManager',
@ -62,6 +64,7 @@ sub installFriendManagerConfig {
}
;
$config->set('account', $account);
print "\tDone";
}
#----------------------------------------------------------------------------