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

Change occurances of user->profileField to user->get

Browse source
This commit is contained in:
Colin Kuskie 2010-11-18 16:12:03 -08:00
parent ae48e7517a
commit 59c03b50e7
41 changed files with 86 additions and 86 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Macro/AdminBar.pm
View file

@ -111,7 +111,7 @@ sub process {
my %rawCategories = %{$config->get('assetCategories')};
my %categories;
my %categoryTitles;
my $userUiLevel = $user->profileField('uiLevel');
my $userUiLevel = $user->get('uiLevel');
foreach my $category (keys %rawCategories) {
next if $rawCategories{$category}{uiLevel} > $userUiLevel;
next if (exists $rawCategories{$category}{group} && !$user->isInGroup($rawCategories{$category}{group}));

4
lib/WebGUI/Macro/ConvertUTCToTZ.pm
View file

@ -60,8 +60,8 @@ time - time component formatted as HH:MM:SS
sub process {
my ( $session, $toTZ, $format, $date, $time ) = @_;
my $uTZ = $session->user->profileField("timeZone");
my $uFormat = $session->user->profileField("dateFormat");
my $uTZ = $session->user->get("timeZone");
my $uFormat = $session->user->get("dateFormat");
$toTZ ||= $uTZ;
$format ||= $uFormat;

2
lib/WebGUI/Macro/PickLanguage.pm
View file

@ -52,7 +52,7 @@ sub process {
my $languages = $i18n->getLanguages();
my $currentLanguage = $session->scratch->get('language')
? $session->scratch->get('language')
: $session->user->profileField('language');
: $session->user->get('language');
my @lang_loop = ();
foreach my $language ( keys %$languages ) {
my $isCurrentLanguage = $currentLanguage eq $language ? 1 : 0;

2
lib/WebGUI/Macro/User.pm
View file

@ -50,7 +50,7 @@ sub process {
: $session->user
;
return $user->profileField($field);
return $user->get($field);
}
1;

18
lib/WebGUI/Macro/UsersOnline.pm
View file

@ -85,7 +85,7 @@ sub process {
# Obtain internationalization instance
my $i18n = WebGUI::International->new($session, "Macro_UsersOnline");
# Get preferred time format of current user
my $time_format = $session->user->profileField("timeFormat");
my $time_format = $session->user->get("timeFormat");
# Calculate epoch time for comparison to last activity
my $dt = $session->datetime;
@ -165,7 +165,7 @@ sub _visitors {
my $db = $session->db();
my $dt = $session->datetime;
# Get preferred time format of current user
my $time_format = $session->user->profileField("timeFormat");
my $time_format = $session->user->get("timeFormat");
# SQL conditional clause for filtering server IP
my $ip_clause;
@ -249,7 +249,7 @@ sub _members {
my $db = $session->db();
my $dt = $session->datetime;
# Get preferred time format of current user
my $time_format = $session->user->profileField("timeFormat");
my $time_format = $session->user->get("timeFormat");
# Determine the number of registered users that are online. The Admin
# account is excluded from the list.
@ -269,10 +269,10 @@ sub _members {
my $user = WebGUI::User->new($session, $row{'userId'});
# Only show users with the "showOnline" flag set to true
if ($user->profileField("showOnline")) {
if ($user->get("showOnline")) {
# Find URL of avatar if available
my $avatar_url;
my $avatar = $user->profileField("avatar");
my $avatar = $user->get("avatar");
if ($avatar) {
my $storage = WebGUI::Storage->get($session, $avatar);
my @files = @{ $storage->getFiles() };
@ -284,10 +284,10 @@ sub _members {
# Add item to member template loop
push(@{$var->{'member_loop'}}, {
username => $user->username(),
firstName => $user->profileField("firstName"),
middleName => $user->profileField("middleName"),
lastName => $user->profileField("lastName"),
alias => $user->profileField("alias"),
firstName => $user->get("firstName"),
middleName => $user->get("middleName"),
lastName => $user->get("lastName"),
alias => $user->get("alias"),
avatar => $avatar_url,
uid => $row{'userId'},
sessionId => $row{'sessionId'},