Add new MapPoint code for geolocation, Thingy searching and indexing and a macro for rendering thing data outside of the Thingy.

lib/WebGUI/Macro/RenderThingData.pm

@@ -0,0 +1,66 @@
+package WebGUI::Macro::RenderThingData;
+
+#-------------------------------------------------------------------
+# WebGUI is Copyright 2001-2011 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 strict;
+use WebGUI::Group;
+use WebGUI::Asset::Template;
+use WebGUI::Asset::Wobject::Thingy;
+
+=head1 NAME
+
+Package WebGUI::Macro::RenderThingData
+
+=head1 DESCRIPTION
+
+Macro that allows users to render thing data.
+
+=head2 process ( thingURL, templateHint )
+
+=head3 thingHint
+
+The URL from which to pull the thingId and thingDataId
+
+=head3 templateHint
+
+Optional.  Specifies the templateId or template url to use.  If omitted, the default thingy view template will be used.
+
+=cut
+
+
+#-------------------------------------------------------------------
+sub process {
+	my ($session, $thingDataUrl, $templateHint ) = @_;
+	
+    my $uri = URI->new( $thingDataUrl );
+    
+    my $urlHash = { $uri->query_form };
+    my $thingId = $urlHash->{'thingId'};
+    my $thingDataId = $urlHash->{'thingDataId'};
+    
+    my $thing = WebGUI::Asset::Wobject::Thingy->newByUrl( $session, $uri->path );
+    
+    # TODO: i18n
+    return ( "Bad URL: " . $thingDataUrl ) if !$thing || !$thingId || !$thingDataId;
+    
+    # Render
+    my $output = $thing->www_viewThingData( $thingId, $thingDataId, $templateHint );
+    
+    # FIX: Temporary solution (broken map due to template rendering <script> tags)
+    return "RenderThingData: Please specify a template." if !$templateHint;
+    return "RenderThingData: Contained bad tags!" if $output =~ /script>/;
+
+    return $output;
+}
+
+
+1;
+