'.WebGUI::International::get(81).'';
WebGUI::Session::refreshUserInfo($u->userId);
} else {
$output = $error;
}
$output .= www_displayAccount();
} else {
$output .= www_displayLogin();
}
return $output;
}
#-------------------------------------------------------------------
sub www_viewMessageLog {
my (%status, @data, $output, $sth, @row, $i, $p);
if (WebGUI::Privilege::isInGroup(2,$session{user}{userId})) {
%status = (notice=>WebGUI::International::get(551),pending=>WebGUI::International::get(552),completed=>WebGUI::International::get(350));
$output = '
'.WebGUI::International::get(159).'
';
$sth = WebGUI::SQL->read("select messageLogId,subject,url,dateOfEntry,status from messageLog where userId=$session{user}{userId} order by dateOfEntry desc");
while (@data = $sth->array) {
$row[$i] = '| ';
$row[$i] .= ''.$data[1].'';
$row[$i] .= ' | ';
if ($data[2] ne "") {
$data[2] = WebGUI::URL::append($data[2],'mlog='.$data[0]);
$row[$i] .= '';
}
$row[$i] .= $status{$data[4]};
if ($data[2] ne "") {
$row[$i] .= '';
}
$row[$i] .= ' | '.epochToHuman($data[3]).' |
';
$i++;
}
$sth->finish;
$p = WebGUI::Paginator->new(WebGUI::URL::page('op=viewMessageLog'),\@row);
$output .= '';
$output .= '
';
if ($p->getPage($session{form}{pn}) eq "") {
$output .= '| '.WebGUI::International::get(353).' |
';
} else {
$output .= $p->getPage($session{form}{pn});
}
$output .= '
';
$output .= $p->getBarSimple($session{form}{pn});
$output .= _accountOptions();
} else {
$output = WebGUI::Privilege::insufficient();
}
return $output;
}
#-------------------------------------------------------------------
sub www_viewMessageLogMessage {
my (%status, %data, $output, $sth, @row, $i, $p);
tie %data, 'Tie::CPHash';
if (WebGUI::Privilege::isInGroup(2,$session{user}{userId})) {
%status = (notice=>WebGUI::International::get(551),pending=>WebGUI::International::get(552),completed=>WebGUI::International::get(350));
$output = ''.WebGUI::International::get(159).'
';
%data = WebGUI::SQL->quickHash("select * from messageLog where messageLogId=$session{form}{mlog} and userId=$session{user}{userId}");
$output .= ''.$data{subject}.'
';
$output .= epochToHuman($data{dateOfEntry}).'
';
if ($data{url} ne "" && $data{status} eq 'pending') {
$data{url} = WebGUI::URL::append($data{url},'mlog='.$data{messageLogId});
$output .= '';
}
$output .= $status{$data{status}}.'
';
if ($data{url} ne "") {
$output .= '';
}
$output .= '
'.$data{message}.'';
if ($data{url} ne "" && $data{status} eq 'pending') {
$output .= ''.WebGUI::International::get(554).' · ';
}
$output .= ''.WebGUI::International::get(354).'
';
$output .= _accountOptions();
} else {
$output = WebGUI::Privilege::insufficient();
}
return $output;
}
#-------------------------------------------------------------------
sub www_viewProfile {
my ($a, %data, $category, $label, $value, $previousCategory, $output, $u, %gender);
%gender = ('neuter'=>WebGUI::International::get(403),'male'=>WebGUI::International::get(339),'female'=>WebGUI::International::get(340));
$u = WebGUI::User->new($session{form}{uid});
my $header = '
'.WebGUI::International::get(347).' '.$u->username.'
';
if ($u->username eq "") {
return WebGUI::Privilege::notMember();
} elsif ($u->profileField("publicProfile") < 1) {
return $header.WebGUI::International::get(862);
} elsif (WebGUI::Privilege::isInGroup(2)) {
$output = $header;
$output .= '';
$a = WebGUI::SQL->read("select * from userProfileField,userProfileCategory
where userProfileField.profileCategoryId=userProfileCategory.profileCategoryId
and userProfileCategory.profileCategoryId<>4
and userProfileField.visible=1
order by userProfileCategory.sequenceNumber,userProfileField.sequenceNumber");
while (%data = $a->hash) {
$category = eval $data{categoryName};
if ($category ne $previousCategory) {
$output .= '|
';
}
$label = eval $data{fieldLabel};
if ($data{dataValues}) {
$value = eval $data{dataValues};
$value = ${$value}{$u->profileField($data{fieldName})};
} else {
$value = $u->profileField($data{fieldName});
}
unless ($data{fieldName} eq "email" and $u->profileField("publicEmail") < 1) {
$output .= '| '.$value.' |
';
}
$previousCategory = $category;
}
$a->finish;
$output .= '
';
if ($session{user}{userId} == $session{form}{uid}) {
$output .= _accountOptions();
}
return $output;
} else {
return WebGUI::Privilege::insufficient();
}
}
#-------------------------------------------------------------------
sub www_viewThreadSubscriptions {
WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::isInGroup(2));
my ($data, $output, $list);
$output = ''.WebGUI::International::get(877).'
';
my $sth = WebGUI::SQL->read("select b.subject,b.messageId,b.wobjectId,b.subId,d.urlizedTitle
from discussionSubscription a left join discussion b on (a.threadId=b.rid and b.pid=0)
left join wobject c on (b.wobjectId=c.wobjectId) left join page d on (c.pageId=d.pageId)
where a.userId=$session{user}{userId}");
while ($data = $sth->hashRef) {
$list .= '