Add top story subtitle to match the spec.

lib/WebGUI/Asset/Wobject/StoryTopic.pm

@@ -168,6 +168,7 @@ sub viewTemplateVariables {
         ##Note, this could have saved from the loop above, but this looks more clean and encapsulated to me.
         my $topStory   = WebGUI::Asset->new($session, $topStoryData->{assetId}, $topStoryData->{className}, $topStoryData->{revisionDate});
         $var->{topStoryTitle}          = $topStory->getTitle;
+        $var->{topStorySubtitle}       = $topStory->get('subtitle');
         $var->{topStoryUrl}            = $session->url->append($self->getUrl, 'func=viewStory;assetId='.$topStoryData->{assetId}),
         $var->{topStoryCreationDate}   = $topStory->get('creationDate');
         ##TODO: Photo variables

lib/WebGUI/Help/Asset_StoryTopic.pm

@@ -28,6 +28,7 @@ our $HELP = {
               ],
             },
             { name => 'topStoryTitle' },
+            { name => 'topStorySubtitle' },
             { name => 'topStoryUrl' },
             { name => 'topStoryCreationDate' },
         ],

lib/WebGUI/i18n/English/Asset_StoryTopic.pm

@@ -93,6 +93,12 @@ our $I18N = {
         lastUpdated => 0,
     },
 
+    'topStorySubtitle' => {
+        message => q|The subtitle of the top story.|,
+        context => q|Template variable.|,
+        lastUpdated => 0,
+    },
+
     'topStoryCreationDate' => {
         message => q|The epoch date when the top story was created, or submitted, to its Story Archive.|,
         context => q|Template variable.|,