61 lines
1.8 KiB
Perl
61 lines
1.8 KiB
Perl
package WebGUI::Definition::Asset;
|
|
|
|
=head1 LEGAL
|
|
|
|
-------------------------------------------------------------------
|
|
WebGUI is Copyright 2001-2009 Plain Black Corporation.
|
|
-------------------------------------------------------------------
|
|
Please read the legal notices (docs/legal.txt) and the license
|
|
(docs/license.txt) that came with this distribution before using
|
|
this software.
|
|
-------------------------------------------------------------------
|
|
http://www.plainblack.com info@plainblack.com
|
|
-------------------------------------------------------------------
|
|
|
|
=cut
|
|
|
|
use strict;
|
|
use warnings;
|
|
use 5.010;
|
|
use base qw(WebGUI::Definition);
|
|
use WebGUI::International;
|
|
|
|
our $VERSION = '0.0.1';
|
|
|
|
sub import {
|
|
my $class = shift;
|
|
if (! @_) {
|
|
return;
|
|
}
|
|
my $definition = (@_ == 1 && ref $_[0]) ? $_[0] : { @_ };
|
|
if ( my $properties = $definition->{properties} ) {
|
|
my $table = $definition->{tableName};
|
|
for ( my $i = 1; $i < @{ $properties }; $i += 2) {
|
|
$properties->[$i]{tableName} ||= $table;
|
|
}
|
|
}
|
|
|
|
# WebGUI::Definition->import uses caller, so avoid the extra entry in the call stack
|
|
my $next = $class->next::can;
|
|
@_ = ($class, $definition);
|
|
goto $next;
|
|
}
|
|
|
|
sub _gen_getProperty {
|
|
my $class = shift;
|
|
my $superGetProperty = $class->next::method(@_);
|
|
return sub {
|
|
my $self = shift;
|
|
my $property = $self->$superGetProperty(@_);
|
|
for my $element (qw(label hoverHelp)) {
|
|
if ($property->{$element} && ref $property->{$element} eq 'ARRAY') {
|
|
$property->{$element}
|
|
= WebGUI::International->new($self->session)->get(@{$property->{$element}});
|
|
}
|
|
}
|
|
return $property;
|
|
};
|
|
}
|
|
|
|
1;
|
|
|