From 945721f48f74d5cfffef7c7cf3a3d6bc2521f5dd Mon Sep 17 00:00:00 2001 From: ivan Date: Tue, 15 Jul 2003 13:16:32 +0000 Subject: import of rt 3.0.4 --- rt/html/User/Delegation.html | 83 +++++++++++++ rt/html/User/Elements/DelegateRights | 85 ++++++++++++++ rt/html/User/Elements/GroupTabs | 60 ++++++++++ rt/html/User/Elements/Tabs | 56 +++++++++ rt/html/User/Groups/Members.html | 136 ++++++++++++++++++++++ rt/html/User/Groups/Modify.html | 133 +++++++++++++++++++++ rt/html/User/Groups/index.html | 43 +++++++ rt/html/User/Prefs.html | 218 +++++++++++++++++++++++++++++++++++ 8 files changed, 814 insertions(+) create mode 100644 rt/html/User/Delegation.html create mode 100644 rt/html/User/Elements/DelegateRights create mode 100644 rt/html/User/Elements/GroupTabs create mode 100644 rt/html/User/Elements/Tabs create mode 100644 rt/html/User/Groups/Members.html create mode 100644 rt/html/User/Groups/Modify.html create mode 100644 rt/html/User/Groups/index.html create mode 100644 rt/html/User/Prefs.html (limited to 'rt/html/User') diff --git a/rt/html/User/Delegation.html b/rt/html/User/Delegation.html new file mode 100644 index 000000000..c036f78ec --- /dev/null +++ b/rt/html/User/Delegation.html @@ -0,0 +1,83 @@ +%# BEGIN LICENSE BLOCK +%# +%# Copyright (c) 1996-2003 Jesse Vincent +%# +%# (Except where explictly superceded by other copyright notices) +%# +%# This work is made available to you under the terms of Version 2 of +%# the GNU General Public License. A copy of that license should have +%# been provided with this software, but in any event can be snarfed +%# from www.gnu.org. +%# +%# This work 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 +%# General Public License for more details. +%# +%# Unless otherwise specified, all modifications, corrections or +%# extensions to this work which alter its source code become the +%# property of Best Practical Solutions, LLC when submitted for +%# inclusion in the work. +%# +%# +%# END LICENSE BLOCK +<& /Elements/Header, Title => loc("Delegate rights") &> +<& /User/Elements/Tabs, + current_tab => 'User/Delegation.html', + Title => loc("Delegate rights") &> + +<& /Elements/ListActions, actions => \@results &> + +
+<& Elements/DelegateRights, personalgroups => $personalgroups, objects => $objects, ObjectType => 'RT::System' &> +<& Elements/DelegateRights, personalgroups => $personalgroups, objects => $objects, ObjectType => 'RT::Queue' &> +<& Elements/DelegateRights, personalgroups => $personalgroups, objects => $objects, ObjectType => 'RT::Group' &> + +<& /Elements/Submit &> +
+<%INIT> + +my (@results, $arg); +foreach $arg (keys %ARGS) { + next unless ($arg =~ /^Delegate-Existing-ACE-(\d+)-to-(\d+)-as-(\d+)$/); + my $parent = $1; + my $principal = $2; + my $delegation = $3; + unless ($ARGS{"Delegate-ACE-$1-to-$2"}) { + my $ace_to_del = RT::ACE->new($session{'CurrentUser'}); + $ace_to_del->Load($delegation); + my ($delval, $delmsg) = $ace_to_del->Delete(); + push (@results, $delmsg); + } +} + +foreach $arg (keys %ARGS) { + next unless ($arg =~ /^Delegate-ACE-(\d+)-to-(\d+)$/); + my $parent = $1; + my $principal = $2; + # if we already delegate it, we just don't care + next if (grep /^Delegate-Existing-ACE-$parent-to-$principal-/, keys %ARGS); + my $ace = RT::ACE->new($session{'CurrentUser'}); + $ace->Load($1); + unless ($ace->Id) { + push (@results, loc('Right not found')); + next; + } + my ($delid, $delmsg) = $ace->Delegate(PrincipalId => $principal); + push (@results, $delmsg); +} + +my $personalgroups = RT::Groups->new($session{'CurrentUser'}); +$personalgroups->LimitToPersonalGroupsFor($session{'CurrentUser'}->PrincipalId); + +my $objects; +my $acl = RT::ACL->new ($session{'CurrentUser'}); +$acl->ExcludeDelegatedRights(); +$acl->LimitToPrincipal(Id => $session{'CurrentUser'}->PrincipalId, + IncludeGroupMembership => 1 + ); + +while(my $right = $acl->Next) { + push @{$objects->{$right->ObjectType}{$right->ObjectId}},$right; +} + diff --git a/rt/html/User/Elements/DelegateRights b/rt/html/User/Elements/DelegateRights new file mode 100644 index 000000000..7ff83280f --- /dev/null +++ b/rt/html/User/Elements/DelegateRights @@ -0,0 +1,85 @@ +%# BEGIN LICENSE BLOCK +%# +%# Copyright (c) 1996-2003 Jesse Vincent +%# +%# (Except where explictly superceded by other copyright notices) +%# +%# This work is made available to you under the terms of Version 2 of +%# the GNU General Public License. A copy of that license should have +%# been provided with this software, but in any event can be snarfed +%# from www.gnu.org. +%# +%# This work 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 +%# General Public License for more details. +%# +%# Unless otherwise specified, all modifications, corrections or +%# extensions to this work which alter its source code become the +%# property of Best Practical Solutions, LLC when submitted for +%# inclusion in the work. +%# +%# +%# END LICENSE BLOCK +

<%$sectionheading%>

+<%perl> + +foreach my $object (keys %{$objects->{$ObjectType}}) { +unless ($ObjectType eq 'RT::System') { +my $object_obj = @{$objects->{$ObjectType}{$object}}[0]->Object; + + +

<% $object_obj->Name %>

+% } + + + +% while (my $pg = $personalgroups->Next) { + +% } + +<%perl> +my $i; +foreach my $right (@{$objects->{$ObjectType}{$object}}) { +my $delegations = RT::ACL->new($session{'CurrentUser'}); +$delegations->DelegatedBy( Id => $session{'CurrentUser'}->PrincipalId); +$delegations->DelegatedFrom ( Id => $right->Id); + +my $del_hash = {}; +while ( my $delegation = $delegations->Next) { + $del_hash->{$delegation->PrincipalId} = $delegation; +} + +% $i++; +% + + +% while (my $pg = $personalgroups->Next) { + +% } + + +%} +
<&|/l&>Personal groups:<%$pg->Name%>
+<% loc($right->RightName) %>
+
<&|/l, $right->PrincipalObj->Object->SelfDescription &>as granted to [_1]
+ 		+ {$pg->PrincipalId} && 'CHECKED' %>> +% if ( $del_hash->{$pg->PrincipalId}) { + +% } + 
+% } +<%init> + +my $sectionheading = loc("[_1] rights", loc($ObjectType =~ /^RT::(.*)$/)); +# 'System' # loc +# 'Group' # loc +# 'Queue' # loc + + +<%args> +$ObjectType => undef +$objects => undef +$personalgroups => undef + diff --git a/rt/html/User/Elements/GroupTabs b/rt/html/User/Elements/GroupTabs new file mode 100644 index 000000000..89d7125b9 --- /dev/null +++ b/rt/html/User/Elements/GroupTabs @@ -0,0 +1,60 @@ +%# BEGIN LICENSE BLOCK +%# +%# Copyright (c) 1996-2003 Jesse Vincent +%# +%# (Except where explictly superceded by other copyright notices) +%# +%# This work is made available to you under the terms of Version 2 of +%# the GNU General Public License. A copy of that license should have +%# been provided with this software, but in any event can be snarfed +%# from www.gnu.org. +%# +%# This work 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 +%# General Public License for more details. +%# +%# Unless otherwise specified, all modifications, corrections or +%# extensions to this work which alter its source code become the +%# property of Best Practical Solutions, LLC when submitted for +%# inclusion in the work. +%# +%# +%# END LICENSE BLOCK +<& /User/Elements/Tabs, + subtabs => $tabs, + current_tab => 'User/Groups/', + current_subtab => $current_subtab, + Title => $Title &> + +<%INIT> +my $tabs; +if ( $GroupObj and $GroupObj->id ) { + $tabs->{"this"} = { + title => $GroupObj->Name, + path => "User/Groups/Modify.html?id=" . $GroupObj->id, + subtabs => { + Basics => { title => loc('Basics'), + path => "User/Groups/Modify.html?id=" . $GroupObj->id + }, + + Members => { title => loc('Members'), + path => "User/Groups/Members.html?id=" . $GroupObj->id + }, + + } }; + $tabs->{'this'}->{'current_subtab'} = $current_subtab; + $current_subtab = "User/Groups/Modify.html?id=" . $GroupObj->id, +} +$tabs->{"A"} = { title => loc('Select group'), + path => "User/Groups/index.html" }; +$tabs->{"B"} = { title => loc('New group'), + path => "User/Groups/Modify.html?Create=1", + separator => 1 }; + + +<%ARGS> +$GroupObj => undef +$current_subtab => undef +$Title => undef + diff --git a/rt/html/User/Elements/Tabs b/rt/html/User/Elements/Tabs new file mode 100644 index 000000000..195cf1c60 --- /dev/null +++ b/rt/html/User/Elements/Tabs @@ -0,0 +1,56 @@ +%# BEGIN LICENSE BLOCK +%# +%# Copyright (c) 1996-2003 Jesse Vincent +%# +%# (Except where explictly superceded by other copyright notices) +%# +%# This work is made available to you under the terms of Version 2 of +%# the GNU General Public License. A copy of that license should have +%# been provided with this software, but in any event can be snarfed +%# from www.gnu.org. +%# +%# This work 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 +%# General Public License for more details. +%# +%# Unless otherwise specified, all modifications, corrections or +%# extensions to this work which alter its source code become the +%# property of Best Practical Solutions, LLC when submitted for +%# inclusion in the work. +%# +%# +%# END LICENSE BLOCK +<& /Elements/Tabs, + tabs => $tabs, + current_toptab => 'User/Prefs.html', + current_tab => $current_tab, + Title => $Title &> + +<%INIT> + my $tabs = { a => { title => loc('About me'), + path => 'User/Prefs.html', + }, + g => { title => loc('Personal Groups'), + path => 'User/Groups/', + }, + h => { title => loc('Delegation'), + path => 'User/Delegation.html', + }, + }; + + foreach my $tab (sort keys %{$tabs}) { + if ($tabs->{$tab}->{'path'} eq $current_tab) { + $tabs->{$tab}->{"subtabs"} = $subtabs; + $tabs->{$tab}->{"current_subtab"} = $current_subtab; + } + } + + + +<%ARGS> +$subtabs => undef +$current_tab => undef +$current_subtab => undef +$Title => undef + diff --git a/rt/html/User/Groups/Members.html b/rt/html/User/Groups/Members.html new file mode 100644 index 000000000..db83b8c0f --- /dev/null +++ b/rt/html/User/Groups/Members.html @@ -0,0 +1,136 @@ +%# BEGIN LICENSE BLOCK +%# +%# Copyright (c) 1996-2003 Jesse Vincent +%# +%# (Except where explictly superceded by other copyright notices) +%# +%# This work is made available to you under the terms of Version 2 of +%# the GNU General Public License. A copy of that license should have +%# been provided with this software, but in any event can be snarfed +%# from www.gnu.org. +%# +%# This work 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 +%# General Public License for more details. +%# +%# Unless otherwise specified, all modifications, corrections or +%# extensions to this work which alter its source code become the +%# property of Best Practical Solutions, LLC when submitted for +%# inclusion in the work. +%# +%# +%# END LICENSE BLOCK +<& /Elements/Header, Title => $title &> +<& /User/Elements/GroupTabs, + GroupObj => $Group, + current_subtab => "User/Groups/Members.html?id=".$Group->id, + Title => $title &> +<& /Elements/ListActions, actions => \@results &> + + + +
+ + + + + + + + + + + +
+<&|/l&>Add members + +<&|/l&>Current members +
+<& /Admin/Elements/SelectNewGroupMembers, Name => "AddMembers", Group => $Group &> + + +% if ($Group->MembersObj->Count == 0 ) { +<&|/l&>(No members) +% } else { +<&|/l&>(Check box to delete) +
+
+<&|/l&>Users +% my $UserMembers = $Group->MembersObj; +% $UserMembers->LimitToUsers(); +
    +% while (my $member = $UserMembers->Next()) { +
  • +<%$member->MemberObj->Object->Name%> (<%$member->MemberObj->Object->RealName%>) +% } +
+<&|/l&>Groups +
    +% my $GroupMembers = $Group->MembersObj; +% $GroupMembers->LimitToGroups(); +% while (my $member = $GroupMembers->Next()) { +
  • +<%$member->MemberObj->Object->Name%> +% } +% } +
+
+<& /Elements/Submit &> +
+ + +<%INIT> + +my $Group = new RT::Group($session{'CurrentUser'}); +$Group->Load($id) ; + +unless ($Group->id) { + Abort(loc('Could not load group')); +} + +my (@results); + +foreach my $key (keys %ARGS) { + +if ($key =~ /^DeleteMember-(\d+)$/) { + my $mem_id = $1; + my ($val,$msg) = $Group->DeleteMember($mem_id); + push (@results, $msg); +} +} + +# Make sure AddMembers is always an array +my @AddMembersUsers = (ref $AddMembersUsers eq 'ARRAY') ? @{$AddMembersUsers} : ($AddMembersUsers); +my @AddMembersGroups = (ref $AddMembersGroups eq 'ARRAY') ? @{$AddMembersGroups} : ($AddMembersGroups); + +foreach my $member (@AddMembersUsers, @AddMembersGroups) { + next unless ($member); + + my $principal; + + if ($member =~ /^Group-(\d+)$/) { + $principal = RT::Group->new($session{'CurrentUser'}); + $principal->Load($1); + } elsif ($member =~ /^User-(\d+)$/) { + $principal = RT::User->new($session{'CurrentUser'}); + $principal->Load($1); + } else { + next; + } + + + my ($val, $msg) = $Group->AddMember($principal->PrincipalId); + push (@results, $msg); +} + + +my $title = loc('Editing membership for personal group [_1]', $Group->Name); + + + +<%ARGS> +$AddMembersUsers => undef +$AddMembersGroups => undef +$id => undef + diff --git a/rt/html/User/Groups/Modify.html b/rt/html/User/Groups/Modify.html new file mode 100644 index 000000000..f731e1a82 --- /dev/null +++ b/rt/html/User/Groups/Modify.html @@ -0,0 +1,133 @@ +%# BEGIN LICENSE BLOCK +%# +%# Copyright (c) 1996-2003 Jesse Vincent +%# +%# (Except where explictly superceded by other copyright notices) +%# +%# This work is made available to you under the terms of Version 2 of +%# the GNU General Public License. A copy of that license should have +%# been provided with this software, but in any event can be snarfed +%# from www.gnu.org. +%# +%# This work 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 +%# General Public License for more details. +%# +%# Unless otherwise specified, all modifications, corrections or +%# extensions to this work which alter its source code become the +%# property of Best Practical Solutions, LLC when submitted for +%# inclusion in the work. +%# +%# +%# END LICENSE BLOCK +<& /Elements/Header, Title => $title &> + +<& /User/Elements/GroupTabs, + GroupObj => $Group, + current_subtab => $current_tab, + Title => $title &> + +<& /Elements/ListActions, actions => \@results &> + + +
+ +%unless ($Group->Id) { + +% } else { + +% } + + + + + + + +
+<&|/l&>Name: +
+<&|/l&>Description:
+ +> <&|/l&>Enabled (Unchecking this box disables this group)
+
+<& /Elements/Submit, Caption => loc("Be sure to save your changes"), Reset => 1 &> +
+<%INIT> + +my $current_tab; +my ($title, @results, $Disabled, $EnabledChecked); + +my $Group = RT::Group->new($session{'CurrentUser'}); + +if ($Create) { + $current_tab = 'User/Groups/Modify.html?Create=1'; + $title = loc("Create a new personal group"); +} +else { + if ( $id eq 'new' ) { + + my ( $id, $msg ) = $Group->CreatePersonalGroup( + Name => "$Name", + PrincipalId => $session{'CurrentUser'}->PrincipalId + ); + unless ($id) { + Abort( loc("Could not create group") ); + } + $id = $Group->Id; + } + else { + $Group->Load($id) || Abort( loc('Could not load group') ); + } + + if ($id) { + $title = loc( "Modify the group [_1]", $Group->Name ); + + } + + # If the create failed + else { + $title = loc("Create a new personal group"); + $Create = 1; + } + + $current_tab = 'User/Groups/Modify.html?id=' . $Group->Id; +} + +if ($id) { + + my @fields = qw(Description Name ); + my @fieldresults = UpdateRecordObject ( AttributesRef => \@fields, + Object => $Group, + ARGSRef => \%ARGS ); + push (@results,@fieldresults); +} + +#we're asking about enabled on the web page but really care about disabled. +if ($Enabled == 1) { + $Disabled = 0; +} +else { + $Disabled = 1; +} +if ( ($SetEnabled) and ( $Disabled != $Group->Disabled) ) { + my ($code, $msg) = $Group->SetDisabled($Disabled); + push @results, loc('Enabled status [_1]', loc_fuzzy($msg)); +} + +unless ($Group->Disabled()) { + $EnabledChecked ="CHECKED"; +} + + + + +<%ARGS> +$Create => undef +$Name => undef +$Description => undef +$SetEnabled => undef +$Enabled => undef +$id => undef + diff --git a/rt/html/User/Groups/index.html b/rt/html/User/Groups/index.html new file mode 100644 index 000000000..12b43b409 --- /dev/null +++ b/rt/html/User/Groups/index.html @@ -0,0 +1,43 @@ +%# BEGIN LICENSE BLOCK +%# +%# Copyright (c) 1996-2003 Jesse Vincent +%# +%# (Except where explictly superceded by other copyright notices) +%# +%# This work is made available to you under the terms of Version 2 of +%# the GNU General Public License. A copy of that license should have +%# been provided with this software, but in any event can be snarfed +%# from www.gnu.org. +%# +%# This work 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 +%# General Public License for more details. +%# +%# Unless otherwise specified, all modifications, corrections or +%# extensions to this work which alter its source code become the +%# property of Best Practical Solutions, LLC when submitted for +%# inclusion in the work. +%# +%# +%# END LICENSE BLOCK +<& /Elements/Header, Title => $title &> +<& /User/Elements/GroupTabs, + current_subtab => 'User/Groups/index.html', + Title => $title &> + +<&|/l&>Personal groups:
+ + +<%INIT> +my $Groups = RT::Groups->new($session{'CurrentUser'}); +$Groups->LimitToPersonalGroupsFor($session{'CurrentUser'}->PrincipalId()); +my $title = loc('Personal groups'); + + +<%ARGS> + diff --git a/rt/html/User/Prefs.html b/rt/html/User/Prefs.html new file mode 100644 index 000000000..b89fc40ae --- /dev/null +++ b/rt/html/User/Prefs.html @@ -0,0 +1,218 @@ +%# BEGIN LICENSE BLOCK +%# +%# Copyright (c) 1996-2003 Jesse Vincent +%# +%# (Except where explictly superceded by other copyright notices) +%# +%# This work is made available to you under the terms of Version 2 of +%# the GNU General Public License. A copy of that license should have +%# been provided with this software, but in any event can be snarfed +%# from www.gnu.org. +%# +%# This work 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 +%# General Public License for more details. +%# +%# Unless otherwise specified, all modifications, corrections or +%# extensions to this work which alter its source code become the +%# property of Best Practical Solutions, LLC when submitted for +%# inclusion in the work. +%# +%# +%# END LICENSE BLOCK +<& /Elements/Header, Title=>loc("Preferences") &> +<& /User/Elements/Tabs, + current_tab => 'User/Prefs.html', + Title=>loc("Preferences") &> + +<& /Elements/ListActions, actions => \@results &> + +
+ + + + + + + + + + + + + + + + + + +
+<& /Elements/TitleBoxStart, title => loc('Identity') &> + + +<&|/l&>Email: +
+<&|/l&>Real Name: +
+<&|/l&>Nickname: +<& /Elements/TitleBoxEnd &> +
+<& /Elements/TitleBoxStart, title => loc('Phone numbers') &> +<&|/l&>Residence: +
+<&|/l&>Work: +
+<&|/l&>Mobile: +
+<&|/l&>Pager: +<& /Elements/TitleBoxEnd &> +		 +% unless ($RT::WebExternalAuth and !$RT::WebFallbackToInternalAuth) { +<& /Elements/TitleBoxStart, title => loc('Password') &> + + + + + + + + +
+<&|/l&>New Password: + + +
+<&|/l&>Retype Password: + + +
+% } +<& /Elements/TitleBoxEnd &> +
+<& /Elements/TitleBoxStart, title => loc('Location') &> +<&|/l&>Organization: +
+<&|/l&>Address1: +
+<&|/l&>Address2: +
+<&|/l&>City: + +<&|/l&>State: + +<&|/l&>Zip: +
+<&|/l&>Country: +
+ + +<& /Elements/TitleBoxEnd &> +
+%if ($UserObj->Privileged) { +
+<& /Elements/TitleBoxStart, title => loc('Signature') &> + +<& /Elements/TitleBoxEnd &> +% } + +
+ + +<& /Elements/Submit &> +
+ + +<%INIT> + +my $UserObj = new RT::User($session{'CurrentUser'}); +my ($title, $PrivilegedChecked, $EnabledChecked, $Disabled, $result, @results); + +my ($val, $msg); + + + $UserObj->Load($id) || $UserObj->Load($Name) || Abort("Couldn't load user '$Name'"); + $val = $UserObj->Id(); + + + + + + +# If we have a user to modify, lets try. +if ($UserObj->Id) { + + my @fields = qw(Name Comments Signature EmailAddress FreeformContactInfo + Organization RealName NickName Lang EmailEncoding WebEncoding + ExternalContactInfoId ContactInfoSystem Gecos ExternalAuthId + AuthSystem HomePhone WorkPhone MobilePhone PagerPhone Address1 + Address2 City State Zip Country + ); + + my @fieldresults = UpdateRecordObject ( AttributesRef => \@fields, + Object => $UserObj, + ARGSRef => \%ARGS ); + push (@results,@fieldresults); + + +# {{{ Deal with special fields: Privileged, Enabled and Password +if ( ($SetPrivileged) and ( $Privileged != $UserObj->Privileged) ) { +my ($code, $msg) = $UserObj->SetPrivileged($Privileged); + push @results, loc('Privileged status: [_1]', loc_fuzzy($msg)); +} + + + +#TODO: make this report errors properly +if ((defined $Pass1) and ($Pass1 ne '') and ($Pass1 eq $Pass2) and (!$UserObj->IsPassword($Pass1))) { + my ($code, $msg); + ($code, $msg) = $UserObj->SetPassword($Pass1); + push @results, loc('Password: [_1]', loc_fuzzy($msg)); +} elsif ( $Pass1 && ($Pass1 ne $Pass2)) { + push @results, loc("Passwords do not match. Your password has not been changed"); +} + +# }}} +} + + + + + +<%ARGS> +$id => $session{'CurrentUser'}->Id +$Name => undef +$Comments => undef +$Signature => undef +$EmailAddress => undef +$FreeformContactInfo => undef +$Organization => undef +$RealName => undef +$NickName => undef +$Privileged => undef +$SetPrivileged => undef +$Enabled => undef +$SetEnabled => undef +$Lang => undef +$EmailEncoding => undef +$WebEncoding => undef +$ExternalContactInfoId => undef +$ContactInfoSystem => undef +$Gecos => undef +$ExternalAuthId => undef +$AuthSystem => undef +$HomePhone => undef +$WorkPhone => undef +$MobilePhone => undef +$PagerPhone => undef +$Address1 => undef +$Address2 => undef +$City => undef +$State => undef +$Zip => undef +$Country => undef +$Pass1 => undef +$Pass2=> undef +$Create=> undef + -- cgit v1.2.1