rfe #12127: AssetProperty macro

lib/WebGUI/Macro/AssetProperty.pm

@@ -0,0 +1,43 @@
+package WebGUI::Macro::AssetProperty;
+
+#-------------------------------------------------------------------
+# 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
+#-------------------------------------------------------------------
+
+use warnings;
+use strict;
+
+=head1 NAME
+
+WebGUI::Macro::AssetProperty
+
+=head1 SYNOPSIS
+
+    ^AssetProperty(sf76sd8f5s7f5s7618, title);
+    ^AssetProperty(root/import, assetId);
+
+=head2 process( $session, $url_or_assetId, $propertyName )
+
+Equivalent to calling $asset->get($propertyName)
+
+=cut
+
+#-------------------------------------------------------------------
+sub process {
+    my ($session, $id, $name) = @_;
+    my $asset = WebGUI::Asset->new($session, $id) if $session->id->valid($id);
+    $asset  ||= WebGUI::Asset->newByUrl($session, $id);
+
+    return $asset->get($name) if $asset;
+
+    $session->log->error("Invalid assetId or URL in AssetProperty: $id");
+    return '';
+}
+
+1;