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

Added signature, alias, publicEmail, publicProfile preferences.

Browse source
This commit is contained in:
JT Smith 2003-01-30 05:15:57 +00:00
parent 25dd1f5465
commit fc3616a97b
4 changed files with 26 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Discussion.pm
View file

@ -228,6 +228,7 @@ sub lockThread {
#-------------------------------------------------------------------
sub post {
my ($html, $header, $footer, $f, %message);
my $signature = "\n\n\n".$session{user}{signature} if ($session{user}{signature} ne "");
tie %message, 'Tie::CPHash';
$f = WebGUI::HTMLForm->new;
if ($session{form}{replyTo} ne "") { # is a reply
@ -236,7 +237,7 @@ sub post {
$footer = formatHeader($message{subject},$message{userId},$message{username},$message{dateOfPost},$message{views},
'',$message{status})
.'<p>'.formatMessage($message{message});
$message{message} = "";
$message{message} = $signature;
$message{subject} = "Re: ".$message{subject} unless ($message{subject} =~ /^Re:/);
$session{form}{mid} = "new";
$f->hidden("replyTo",$session{form}{replyTo});
@ -248,6 +249,7 @@ sub post {
if ($session{user}{userId} == 1) {
$f->text("visitorName",WebGUI::International::get(438));
}
$message{message} = $signature;
} else { # is editing an existing message
$header = WebGUI::International::get(228);
%message = getMessage($session{form}{mid});
@ -287,7 +289,7 @@ sub postSave {
$username = $session{form}{visitorName};
}
} else {
$username = $session{user}{username};
$username = $session{user}{alias};
}
if ($session{form}{sid} eq "") {
$session{form}{sid} = 0;

15
lib/WebGUI/Operation/Account.pm
View file

@ -552,10 +552,13 @@ 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 = '<h1>'.WebGUI::International::get(347).' '.$u->username.'</h1>';
if ($u->username eq "") {
WebGUI::Privilege::notMember();
return WebGUI::Privilege::notMember();
} elsif ($u->profileField("publicProfile") < 1) {
return $header.WebGUI::International::get(862);
} elsif ($session{user}{userId} != 1) {
$output .= '<h1>'.WebGUI::International::get(347).' '.$u->username.'</h1>';
$output = $header;
$output .= '<table>';
$a = WebGUI::SQL->read("select * from userProfileField,userProfileCategory
where userProfileField.profileCategoryId=userProfileCategory.profileCategoryId
@ -574,7 +577,9 @@ sub www_viewProfile {
} else {
$value = $u->profileField($data{fieldName});
}
$output .= '<tr><td class="tableHeader">'.$label.'</td><td class="tableData">'.$value.'</td></tr>';
unless ($data{fieldName} eq "email" and $u->profileField("publicEmail") < 1) {
$output .= '<tr><td class="tableHeader">'.$label.'</td><td class="tableData">'.$value.'</td></tr>';
}
$previousCategory = $category;
}
$a->finish;
@ -582,10 +587,10 @@ sub www_viewProfile {
if ($session{user}{userId} == $session{form}{uid}) {
$output .= _accountOptions();
}
return $output;
} else {
$output .= WebGUI::Privilege::insufficient();
return WebGUI::Privilege::insufficient();
}
return $output;
}
1;

1
lib/WebGUI/Session.pm
View file

@ -129,6 +129,7 @@ sub _setupUserInfo {
if ($user{userId} eq "") {
_setupUserInfo("1");
} else {
$user{alias} = $user{username};
%profile = WebGUI::SQL->buildHash("select userProfileField.fieldName, userProfileData.fieldData
from userProfileData, userProfileField where userProfileData.fieldName=userProfileField.fieldName
and userProfileData.userId='$user{userId}'");