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

fixed a few upgrade issues

Browse source
This commit is contained in:
JT Smith 2005-03-03 18:33:50 +00:00
parent 1efa40e257
commit 446fc33024
28 changed files with 107 additions and 9491 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/WebGUI/Asset.pm
View file

@ -1229,7 +1229,7 @@ sub getLineage {
push(@mods,"( asset.lineage like ".quote($line.'%')." and length(asset.lineage)=".(($i+1)*6).")");
last if ($self->getLineageLength == $i);
}
push(@whereModifiers, "(".join(" or ",@mods).")");
push(@whereModifiers, "(".join(" or ",@mods).")") if (scalar(@mods));
}
# formulate a where clause
my $where = "state='published'";
@ -1619,7 +1619,8 @@ sub new {
my $class = shift;
my $assetId = shift;
my $overrideProperties = shift;
my $properties = WebGUI::Cache->new("asset_".$assetId)->get;
my $properties;
$properties = WebGUI::Cache->new("asset_".$assetId)->get unless($session{var}{adminOn});
if ($assetId eq "new") {
$properties = $overrideProperties;
$properties->{assetId} = "new";
@ -2139,7 +2140,7 @@ Hash reference of properties and values to set.
sub update {
my $self = shift;
my $properties = shift;
WebGUI::Cache->new($self->getId)->delete;
WebGUI::Cache->new("asset_".$self->getId)->delete;
WebGUI::SQL->beginTransaction;
foreach my $definition (@{$self->definition}) {
my @setPairs;