# This code was forked from the LiveJournal project owned and operated # by Live Journal, Inc. The code has been modified and expanded by # Dreamwidth Studios, LLC. These files were originally licensed under # the terms of the license supplied by Live Journal, Inc, which can # currently be found at: # # http://code.livejournal.org/trac/livejournal/browser/trunk/LICENSE-LiveJournal.txt # # In accordance with the original license, this code and all its # modifications are provided under the GNU General Public License. # A copy of that license can be found in the LICENSE file included as # part of this distribution. _parent=>../../lj-bml-blocks.pl SECURITYPRIVATE=>{Ss}

SECURITYPROTECTED=>{Ss}

SECURITYGROUPS=>{Ss} custom

HELP=>{DR}(help) INERR=>{DR}%%data%% BADINPUT<= h1?> p?> <=BADINPUT REQUIREPOST=> H1=>{D}

%%data%%

H2=>{D}

%%data%%

HR=>{S}

P=>{D}

%%data%%

BLOCK=>{D}

%%data%%

STANDOUT<= {D}

%%data%%

<=STANDOUT ERRORBAR<= {D}

%%data%%

<=ERRORBAR WARNINGBAR<= {D}

%%data%%

<=WARNINGBAR BADCONTENT<= h1?> p?> <=BADCONTENT DE<= %%data%% <=DE HOTCOLOR=>{S}#ff0000 PAGE<= {Fp} %%title%% %%head%% %%body%% <=PAGE # Dreamwidth menu structure menunav<= \n"; my $nav_links = DW::Logic::MenuNav->get_menu_navigation; # defaults to remote foreach my $cathash ( @{ $nav_links } ) { my $cat = $cathash->{name}; my @submenu = @{ $cathash->{items} }; my @displayed = (); foreach my $item ( @submenu ) { push @displayed, "

" . BML::ml( "$item->{text}", $item->{text_opts} ) . "

" if $item->{display}; } if ( @displayed ) { # only display a top-level menu if any of its items are displayed $ret .= "\n"; } } $ret .= "\n"; return $ret; } _code?> <=menunav