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

Refactor getMetaDataFields to use WebGUI::SQL methods.

Browse source
This commit is contained in:
Colin Kuskie 2009-09-13 06:15:34 -07:00
parent 7fff83f8ad
commit 0b1deab40c
1 changed files with 6 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lib/WebGUI/AssetMetaData.pm
View file

@ -151,8 +151,9 @@ If specified, the hashRef will contain only this field.
=cut
sub getMetaDataFields {
my $self = shift;
my $self = shift;
my $fieldId = shift;
my $session = $self->session;
my $sql = "select
f.fieldId,
f.fieldName,
@ -162,21 +163,15 @@ sub getMetaDataFields {
f.possibleValues,
d.value
from metaData_properties f
left join metaData_values d on f.fieldId=d.fieldId and d.assetId=".$self->session->db->quote($self->getId);
$sql .= " where f.fieldId = ".$self->session->db->quote($fieldId) if ($fieldId);
left join metaData_values d on f.fieldId=d.fieldId and d.assetId=".$session->db->quote($self->getId);
$sql .= " where f.fieldId = ".$session->db->quote($fieldId) if ($fieldId);
$sql .= " order by f.fieldName";
if ($fieldId) {
return $self->session->db->quickHashRef($sql);
return $session->db->quickHashRef($sql);
}
else {
tie my %hash, 'Tie::IxHash';
my $sth = $self->session->db->read($sql);
while( my $h = $sth->hashRef) {
foreach(keys %$h) {
$hash{$h->{fieldId}}{$_} = $h->{$_};
}
}
$sth->finish;
%hash = %{ $session->db->buildHashRefOfHashRefs($sql, [], 'fieldId') };
return \%hash;
}
}