Polls now use JSON instead of Storable to store graph info because Storable is not portable between OS/processors.

docs/upgrades/upgrade_7.4.2-7.4.3.pl

@@ -21,6 +21,7 @@ my $quiet; # this line required
 my $session = start(); # this line required
 
 # upgrade functions go here
+reserializePollGraphConfigs($session);
 
 finish($session); # this line required
 
@@ -32,6 +33,41 @@ finish($session); # this line required
 #	# and here's our code
 #}
 
+#-------------------------------------------------
+sub reserializePollGraphConfigs {
+    my $session = shift;
+    print "\tRe-serializing Poll Graph configuration... " unless ($quiet);
+    
+    use Storable;
+    $Storable::canonical = 1;
+    use JSON;
+
+    my $sth = $session->db->read(
+        "SELECT assetId, revisionDate, graphConfiguration FROM Poll"
+    );
+
+    while (my %data = $sth->hash) {
+        next unless $data{graphConfiguration};
+        my ($assetId, $revisionDate, $graphConfiguration) 
+            = @data{'assetId', 'revisionDate', 'graphConfiguration'};
+
+        my $thawed  = eval { Storable::thaw($graphConfiguration) };
+        if ($@) {
+            print "\n\t!!! Could not fix graph configuration for assetId '$assetId' revisionDate '$revisionDate' !!!";
+            next;
+        }
+
+        $graphConfiguration = objToJson( $thawed );
+
+        $session->db->write(
+            "UPDATE Poll SET graphConfiguration=? WHERE assetId=? AND revisionDate=?",
+            [$graphConfiguration, $assetId, $revisionDate],
+        );
+    }
+    
+    print "OK!\n" unless $quiet;
+}
+
 
 
 # ---- DO NOT EDIT BELOW THIS LINE ----