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

first round of changes for the new session system

Browse source
This commit is contained in:
JT Smith 2005-12-31 21:54:06 +00:00
parent da95226072
commit d4b7f2ce59
128 changed files with 2442 additions and 1478 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lib/WebGUI/AssetLineage.pm
View file

@ -15,7 +15,6 @@ package WebGUI::Asset;
=cut
use strict;
use WebGUI::Session;
=head1 NAME
@ -494,9 +493,13 @@ sub hasChildren {
#-------------------------------------------------------------------
=head2 newByLineage ( lineage )
=head2 newByLineage ( session, lineage )
Returns an Asset object based upon given lineage.
Constructor. Returns an Asset object based upon given lineage.
=head3 session
A reference to the current session.
=head3 lineage
@ -505,16 +508,19 @@ Lineage string.
=cut
sub newByLineage {
my $self = shift;
my $class = shift;
my $session = shift;
my $lineage = shift;
my $id = $session{assetLineage}{$lineage}{id};
my $class = $session{assetLineage}{$lineage}{class};
my $assetLineage = $session->stow->get("assetLineage");
my $id = $assetLineage->{$lineage}{id};
$class = $assetLineage->{$lineage}{class};
unless ($id && $class) {
($id,$class) = WebGUI::SQL->quickArray("select assetId, className from asset where lineage=".quote($lineage));
$session{assetLineage}{$lineage}{id} = $id unless ($session{config}{disableCache});
$session{assetLineage}{$lineage}{class} = $class unless ($session{config}{disableCache});
($id,$class) = $session->db->quickArray("select assetId, className from asset where lineage=".quote($lineage));
$assetLineage->{$lineage}{id} = $id;
$assetLineage->{$lineage}{class} = $class;
$session->stow->set("assetLineage",$assetLineage);
}
return WebGUI::Asset->new($id, $class);
return WebGUI::Asset->new($session, $id, $class);
}