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

performance enhancement

Browse source
This commit is contained in:
Doug Bell 2010-04-29 11:35:04 -05:00
parent 8af3eb2c69
commit 09092a13b6
1 changed files with 9 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lib/WebGUI/Asset.pm
View file

@ -1825,11 +1825,7 @@ no revision date is available it will return undef.
=cut
sub new {
my $class = shift;
my $session = shift;
my $assetId = shift;
my $className = shift;
my $revisionDate = shift;
my ( $class, $session, $assetId, $className, $revisionDate ) = @_;
unless (defined $assetId) {
$session->errorHandler->error("Asset constructor new() requires an assetId.");
@ -1867,18 +1863,19 @@ sub new {
$session->errorHandler->error("Asset $assetId $class $revisionDate is missing properties. Consult your database tables for corruption. ");
return undef;
}
# Deserialize
foreach my $definition (@{ $class->definition($session) }) {
foreach my $property (keys %{ $definition->{properties} }) {
if ($definition->{properties}->{$property}->{serialize} && $properties->{$property} ne '') {
$properties->{$property} = JSON->new->canonical->decode($properties->{$property});
}
}
}
$cache->set($properties,60*60*24);
}
if (defined $properties) {
my $object = { _session=>$session, _properties => $properties };
bless $object, $class;
foreach my $definition (@{ $object->definition($session) }) {
foreach my $property (keys %{ $definition->{properties} }) {
if ($definition->{properties}->{$property}->{serialize} && $object->{_properties}->{$property} ne '') {
$object->{_properties}->{$property} = JSON->new->canonical->decode($object->{_properties}->{$property});
}
}
}
return $object;
}
$session->errorHandler->error("Something went wrong trying to instanciate a '$className' with assetId '$assetId', but I don't know what!");