Cache tests for getFirst- and getLastChild, hasChildren.

newByLineage tests, with cache
changed newByLineage to use placeholders
Coverage is 59/55/84
This commit is contained in:
Colin Kuskie 2007-04-15 04:30:55 +00:00
parent 450aab40a0
commit bd577a6712
2 changed files with 49 additions and 12 deletions

View file

@ -618,7 +618,7 @@ sub newByLineage {
my $id = $assetLineage->{$lineage}{id};
$class = $assetLineage->{$lineage}{class};
unless ($id && $class) {
($id,$class) = $session->db->quickArray("select assetId, className from asset where lineage=".$session->db->quote($lineage));
($id,$class) = $session->db->quickArray("select assetId, className from asset where lineage=?",[$lineage]);
$assetLineage->{$lineage}{id} = $id;
$assetLineage->{$lineage}{class} = $class;
$session->stow->set("assetLineage",$assetLineage);