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

fixing bugs

Browse source
This commit is contained in:
Wouter van Oijen 2006-02-24 14:58:27 +00:00
parent 65cfad4096
commit a92453d33f
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Session/Scratch.pm
View file

@ -116,12 +116,12 @@ The value to match.
=cut =cut
sub deleteName { sub deleteNameByValue {
my $self = shift; my $self = shift;
my $name = shift; my $name = shift;
my $value = shift; my $value = shift;
return undef unless ($name); return undef unless ($name and $value);
delete $self->{_data}{$name}; delete $self->{_data}{$name} if ($self->{_data}{$name} eq $value);
$self->session->db->write("delete from userSessionScratch where name=? and value=?", [$name,$value]); $self->session->db->write("delete from userSessionScratch where name=? and value=?", [$name,$value]);
} }