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

Added new collateral management system.

Browse source
This commit is contained in:
JT Smith 2002-11-10 20:09:10 +00:00
parent 0903f05a8f
commit 82b6bd33f8
13 changed files with 654 additions and 437 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lib/WebGUI/Session.pm
View file

@ -312,15 +312,20 @@ sub setCookie {
=cut
sub setScratch {
return "" unless ($session{var}{sessionId});
if ($session{scratch}{$_[0]} ne "") {
WebGUI::SQL->write("update userSessionScratch set value=".quote($_[1])."
where sessionId=".quote($session{var}{sessionId})." and name=".quote($_[0]));
my ($name, $value) = @_;
return "" unless ($session{var}{sessionId} ne "" && $name ne "" && $value ne "");
if ($value eq "-delete-") {
WebGUI::SQL->write("delete from userSessionScratch where sessionId=".quote($session{var}{sessionId})
." and name=".quote($name));
$value = "";
} elsif ($session{scratch}{$name} ne "") {
WebGUI::SQL->write("update userSessionScratch set value=".quote($value)."
where sessionId=".quote($session{var}{sessionId})." and name=".quote($name));
} else {
WebGUI::SQL->write("insert into userSessionScratch (sessionId,name,value) values
(".quote($session{var}{sessionId}).", ".quote($_[0]).", ".quote($_[1]).")");
(".quote($session{var}{sessionId}).", ".quote($name).", ".quote($value).")");
}
$session{scratch}{$_[0]} = $_[1];
$session{scratch}{$name} = $value;
}
#-------------------------------------------------------------------