[livejournal] r21562: LJSUP-11456: Add link Collapse to Video ...

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

Modified: trunk/cgi-bin/LJ/Widget.pm
===================================================================
--- trunk/cgi-bin/LJ/Widget.pm	2012-03-27 14:05:06 UTC (rev 21561)
+++ trunk/cgi-bin/LJ/Widget.pm	2012-03-27 14:17:15 UTC (rev 21562)
@@ -132,9 +132,20 @@
     } elsif (ref $class && $class->{'no_container_div'}) {
         return $rv;
     } else {
+        ## allow user to collapse some widgets
+        my $is_collapsed = eval {
+            return '' unless LJ::is_web_context();
+            my $clpsd = LJ::Request->cookie('clpsd');
+            return 0 unless $clpsd;
+            my ($block_id) = $widget_ele_id =~ /(\d+)$/;
+            return 1 if $clpsd =~ /(^|,)\Q$block_id\E(,|$)/; ## collapsed
+            return 0;
+        };
+
         my $collapsable_class = $class->collapsable ? 'appwidget-prop-collapsable' : '';
+        my $collapsed_class   = ($class->collapsable and $is_collapsed) ? ' appwidget-prop-collapsed' : ''; 
         return 
-            "<div class='appwidget appwidget-$css_subclass $collapsable_class' id='$widget_ele_id'>\n" .
+            "<div class='appwidget appwidget-$css_subclass $collapsable_class $collapsed_class' id='$widget_ele_id'>\n" .
             $rv .
             "</div><!-- end .appwidget-$css_subclass -->\n";
     }