added: ThingyRecord allows you to sell records in a Thing (like a classified ad)

lib/WebGUI/Form/ThingFieldsList.pm

@@ -0,0 +1,23 @@
+package WebGUI::Form::ThingFieldsList;
+
+use strict;
+use base 'WebGUI::Form::SelectList';
+
+
+#----------------------------------------------------------------------------
+
+sub www_getThingFields {
+    my ( $session ) = @_;
+
+    my $thingId = $session->form->get('thingId');
+    my %fields
+        = $session->db->buildHash(
+            "SELECT fieldId, label FROM Thingy_fields WHERE thingId=?",
+            [$thingId]
+        );
+
+    $session->http->setMimeType( 'application/json' );
+    return JSON->new->encode( \%fields );
+}
+
+1;