[livejournal] r18254: LJSUP-7240: ControlStrip [tags: ioracle]

LJSUP-7240: ControlStrip [tags: ioracle]

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

Modified: trunk/cgi-bin/LJ/ControlStrip.pm
===================================================================
--- trunk/cgi-bin/LJ/ControlStrip.pm	2011-02-10 06:43:17 UTC (rev 18253)
+++ trunk/cgi-bin/LJ/ControlStrip.pm	2011-02-10 08:39:58 UTC (rev 18254)
@@ -108,6 +108,7 @@
                     }
                 }
             }
+	    warn $data_journal->{login_form}->{root};
 
             $data_remote->{userpic} = {
                 src   => $tinted_nouserpic_img || "$LJ::IMGPREFIX/controlstrip/nouserpic.gif",
@@ -309,6 +310,9 @@
 
     $data->{remote}->{status} = get_status($data);
 
+    use Data::Dumper;
+    # warn Dumper( { flatten($data) } ), "\n";
+
     my $tmpl = LJ::HTML::Template->new(
         {
             use_expr => 1