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

docs/changelog/7.x.x.txt

@@ -31,6 +31,8 @@
  - fixed #10213: RssFeed aspect now checks canView and gives HTTP Basic Auth box to login
  - added Survey Number type. Text number entry that uses slider restrictions as constraints (server and client side). You can also use the arrow keys
 	to increment or decrement the number enter. If slider constraints are blank, no rules applied.
+ - added: ThingyRecord allows you to sell records in a Thingy (like a classified ad)
+
 7.7.3
  - fixed #10094: double explanation in thread help
  - rfe #9612: Carousel Wobject (was Widget Wobject) (SDH Consulting Group)

docs/upgrades/upgrade_7.7.3-7.7.4.pl

@@ -35,7 +35,7 @@ updateSurveyQuestionTypes($session);
 extendSchedulerFields($session);
 allMaintenanceSingleton($session);
 unsetPackageFlags($session);
-
+installThingyRecord( $session );
 installPluggableTax( $session );
 
 
@@ -207,9 +207,45 @@ EOSQL2
     print "Done.\n" unless $quiet;
 }
 
+#----------------------------------------------------------------------------
+# Add the ThingyRecord sku
+sub installThingyRecord {
+    my ( $session ) = shift;
+    print "\tInstalling ThingyRecord sku... " unless $quiet;
+    
+    $session->config->addToHash('assets','WebGUI::Asset::Sku::ThingyRecord', {
+        category        => "shop",
+    });
+    
+    # Install ThingyRecord
+    $session->db->write( <<'ENDSQL' );
+    CREATE TABLE IF NOT EXISTS ThingyRecord (
+        assetId CHAR(22) BINARY NOT NULL,
+        revisionDate BIGINT NOT NULL,
+        templateIdView CHAR(22) BINARY,
+        thingId CHAR(22) BINARY,
+        thingFields LONGTEXT,
+        thankYouText LONGTEXT,
+        price FLOAT,
+        duration BIGINT,
+        PRIMARY KEY (assetId, revisionDate)
+    );
+ENDSQL
 
+    # Install collateral
+    use WebGUI::AssetCollateral::Sku::ThingyRecord::Record;
+    WebGUI::AssetCollateral::Sku::ThingyRecord::Record->crud_createTable($session);
 
+    # Update workflow
+    my $activityClass   = 'WebGUI::Workflow::Activity::ExpirePurchasedThingyRecords';
+    $session->config->addToArray( 'workflow/None', $activityClass );
+    my $workflow    = WebGUI::Workflow->new( $session, 'pbworkflow000000000004' );
+    my $activity    = $workflow->addActivity( $activityClass );
+    $activity->set('title', "Expire Purchased Thingy Records");
+    $activity->set('description', "Expire any expired thingy records. Send notifications of imminent expiration.");
 
+    print "DONE!\n" unless $quiet;
+}
 
 
 # -------------- DO NOT EDIT BELOW THIS LINE --------------------------------