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;