small changes

This commit is contained in:
Len Kranendonk 2004-07-23 09:21:22 +00:00
parent 02d24c4e4c
commit c8139d9333
4 changed files with 17 additions and 6 deletions

View file

@ -20,6 +20,7 @@ use WebGUI::Session;
use WebGUI::SQL;
use WebGUI::Macro;
use Tie::IxHash;
use WebGUI::ErrorHandler;
=head1 NAME
@ -294,7 +295,7 @@ sub getWobjectByCriteria {
if ($wobjectId) {
$scratchId = "WobjectProxy_" . $wobjectId;
if($session{scratch}{$scratchId}) {
return $session{scratch}{$scratchId};
return $session{scratch}{$scratchId} unless ($session{var}{adminOn});
}
}
@ -360,7 +361,7 @@ sub getWobjectByCriteria {
# No matching wobjects found.
if (scalar(@wids) == 0) {
return undef;
return undef; # fall back to the originally mirrored wobject.
}
my $wid;
# Grab a wid from the results

View file

@ -281,7 +281,7 @@ sub _drawQueryBuilder {
</td>
<td class="qbtd"></td>
<td class="qbtdright">
<input class="qbselect" type=button value=Add onclick="addCriteria('$fieldLabel', this.form.$opFieldName, this.form.$valFieldName)"></td>
<input class="qbButton" type=button value=Add onclick="addCriteria('$fieldLabel', this.form.$opFieldName, this.form.$valFieldName)"></td>
</tr>
|;
}