[livejournal] r18546: LJSUP-8109.

LJSUP-8109.
Remove all verticals from select box
Remove error with storable

U   trunk/cgi-bin/LJ/TopEntries.pm

Modified: trunk/cgi-bin/LJ/TopEntries.pm
===================================================================
--- trunk/cgi-bin/LJ/TopEntries.pm	2011-03-15 03:34:57 UTC (rev 18545)
+++ trunk/cgi-bin/LJ/TopEntries.pm	2011-03-15 04:04:33 UTC (rev 18546)
@@ -31,6 +31,8 @@
 my %domains = (
     hmp_ontd        => 'Homepage/ONTD',
     hmp_spotlight   => 'Homepage/Spotlight',
+);
+=head
     culture         => 'Arts & Culture',
     entertainment   => 'Entertainment',
     books           => 'Books & Writing',
@@ -48,10 +50,13 @@
     society         => 'Society & Culture',
     spirit          => 'Spirituality & Beliefs',
     );
+=cut
 
 my @order = qw/
     hmp_ontd
     hmp_spotlight
+/;
+=head
     culture
     entertainment
     books
@@ -69,6 +74,7 @@
     society
     spirit
 /;
+=cut
 
 
 sub domains { @order }
@@ -262,7 +268,7 @@
     $self->{'featured_posts'}   = [ map { $self->_hash_from_key($_) } @entities ];
 =cut
     if ($prop_val){
-        my $struct = Storable::thaw($prop_val);
+        my $struct = eval { Storable::thaw($prop_val) };
         $self->{min_entries}    = $struct->{min_entries};
         $self->{max_entries}    = $struct->{max_entries};
         $self->{featured_posts} = $struct->{spots} || [];