89 lines
1.8 KiB
Perl
89 lines
1.8 KiB
Perl
package WebGUI::Template::Plugin::Asset;
|
|
|
|
use base 'Template::Plugin';
|
|
|
|
sub new {
|
|
my $config = ref($_[-1]) eq 'HASH' ? pop(@_) : { };
|
|
my ($class, $context, $asset) = @_;
|
|
|
|
my $stash = $context->stash;
|
|
my $session = $stash->{_session};
|
|
|
|
my $self = bless {
|
|
_session => $session,
|
|
_context => $context,
|
|
}, $class;
|
|
|
|
if ( ref $asset) {
|
|
}
|
|
elsif ( defined $asset ) {
|
|
$asset = $self->_getAsset($asset);
|
|
}
|
|
elsif ( $stash->{_asset} ) {
|
|
$asset = $stash->{_asset};
|
|
}
|
|
elsif ( $stash->{assetId} ) {
|
|
$asset = $self->_getAsset($stash->{assetId});
|
|
}
|
|
else {
|
|
$asset = $session->asset;
|
|
}
|
|
$self->{_asset} = $asset;
|
|
|
|
my %properties = map { $_ => 1 } $asset->meta->get_all_properties_list;
|
|
$self->{_callable} = \%properties;
|
|
|
|
return $self;
|
|
}
|
|
|
|
sub _getAsset {
|
|
my ( $self, $id ) = @_;
|
|
my ( $asset );
|
|
try {
|
|
$asset = WebGUI::Asset->newByUrl( $self->session, $id );
|
|
}
|
|
catch {
|
|
try {
|
|
$asset = WebGUI::Asset->newById( $self->session, $id );
|
|
}
|
|
catch {
|
|
die "Could not find asset $id to include in template: " . $_;
|
|
};
|
|
};
|
|
return $asset;
|
|
}
|
|
|
|
sub DESTROY {
|
|
# prevent AUTOLOADing
|
|
}
|
|
|
|
sub AUTOLOAD {
|
|
my $sub = our $AUTOLOAD;
|
|
$sub =~ s/.*:://;
|
|
my $self = shift;
|
|
if ($self->{_callable}{$sub}) {
|
|
my $result = $self->{_asset}->();
|
|
if ( eval { $result->isa('WebGUI::Asset'); 1 } ) {
|
|
return $self->_wrap($result);
|
|
}
|
|
return $result;
|
|
}
|
|
die 'Not allowed to call ' . $sub;
|
|
}
|
|
|
|
sub _wrap {
|
|
my $self = shift;
|
|
my $wrap = shift;
|
|
my $class = ref $self;
|
|
return $class->new($self->{_context}, $wrap);
|
|
}
|
|
|
|
sub parent {
|
|
my $self = shift;
|
|
my $parent = $self->{_asset}->parentNode;
|
|
return $self->_wrap($parent);
|
|
}
|
|
|
|
1;
|
|
|
|
|