add: example images to templates

docs/upgrades/upgrade_7.9.3-7.9.4.pl

@@ -39,6 +39,7 @@ dropVisitorAddressBooks($session);
 alterCartTable($session);
 alterAddressBookTable($session);
 addWizardHandler( $session );
+addTemplateExampleImage( $session );
 
 finish($session); # this line required
 
@@ -52,6 +53,19 @@ finish($session); # this line required
 #    print "DONE!\n" unless $quiet;
 #}
 
+#----------------------------------------------------------------------------
+# Add example images to templates
+sub addTemplateExampleImage {
+    my $session = shift;
+    print "\tAdding example image field to template... " unless $quiet;
+
+    $session->db->write( q{
+        ALTER TABLE template ADD storageIdExample CHAR(22)
+    } );
+
+    print "DONE!\n" unless $quiet;
+}
+
 #----------------------------------------------------------------------------
 
 sub addWizardHandler {

lib/WebGUI/Asset/Template.pm

@@ -109,6 +109,9 @@ sub definition {
                 fieldType       => 'yesNo',
                 defaultValue    => 0,
             },
+            storageIdExample => {
+                fieldType       => 'image',
+            },
         },
     };
     return $class->SUPER::definition($session,$definition);
@@ -190,6 +193,10 @@ sub duplicate {
 	my $newTemplate = $self->SUPER::duplicate;
     $newTemplate->update({isDefault => 0});
     $newTemplate->addAttachments($self->getAttachments);
+    if ( my $storageId = $self->get('storageIdExample') ) {
+        my $newStorage  = WebGUI::Storage->get( $self->session, $storageId )->copy;
+        $newTemplate->update({ storageIdExample => $newStorage->getId });
+    }
     return $newTemplate;
 }
 
@@ -205,6 +212,9 @@ sub exportAssetData {
     my ( $self ) = @_;
     my $data    = $self->SUPER::exportAssetData;
     $data->{template_attachments} = $self->getAttachments;
+    if ( $self->get('storageIdExample') ) {
+        push @{$data->{storage}}, $self->get('storageIdExample');
+    }
     return $data;
 }
 
@@ -387,6 +397,13 @@ sub getEditForm {
 	$label = $i18n->get('attachment add field label');
 	$properties->raw("<tr><td>$label</td><td>$table</td></tr>");
 
+        $properties->image( 
+            name        => 'storageIdExample',
+            value       => $self->getValue('storageIdExample'),
+            label       => $i18n->get('field storageIdExample'),
+            hoverHelp   => $i18n->get('field storageIdExample description'),
+        );
+
 	return $tabform;
 }
 

lib/WebGUI/i18n/English/Asset_Template.pm

@@ -390,6 +390,16 @@ Any scratch variables will be available in the template with this syntax:<br/>
         lastUpdated => 0,
     },
 
+    'field storageIdExample' => {
+        message     => 'Example Image',
+        lastUpdated => 0,
+    },
+
+    'field storageIdExample description' => {
+        message     => 'An example image to show what the template looks like before the user selects it',
+        lastUpdated => 0,
+    },
+
 };
 
 1;