#
# Welcome to GENERIC.LOOK for the WhiteBlue scheme
#
# by....
# Brad Fitzpatrick
# brad@danga.com
#
######################### little stuff
_parent=>global.look
AL=>{P}%%DATA2%%
AWAYLINK=>{P}%%DATA2%%
H1=>{D}
%%DATA%%
H1/FOLLOW_CHOICES=>{D}%%DATA%%
HEAD1=>{D}
%%DATA%%
H2=>{D}
%%DATA%%
HEAD2=>{D}
%%DATA%%
# Banner Header: search results banner, content desriptor, etc...
BH=>{D}
%%DATA%%
GRIN=><grin>
HR=>
*
NEWLINE=>{D}
P=>{D}
%%DATA%%
P/FOLLOW_P=>{D}
%%DATA%%
STANDOUTO<=
{D}
<=STANDOUTO
STANDOUT<=
{D}
<=STANDOUT
SOERROR=>%%data%%
######################### choices stuff
CHOICE=>{P}%%DATA1%%%%DATA3%%
CHOICES<=
{F}
<=CHOICES
##################################################################################
################################### MAIN PAGE ####################################
##################################################################################
PAGE<=
{F}
%%TITLE%%
%%head%%
|
';
}
return "";
_code?>
|
";
}
return "";
_code?>
|
|
";
} else {
$$ret .= " " x ($depth*3+1);
$$ret .= $mi->{'cont'} ? " " : "- ";
}
my $name = $mi->{'name'};
$name =~ s/ / /g;
if (! defined $mi->{'uri'}) {
if ($depth == 0) {
$$ret .= "$name ";
} else {
$$ret .= "$name ";
}
} elsif ($mi->{'match'} ?
(BML::get_uri() =~ /$mi->{'match'}/) :
(BML::get_uri() eq $mi->{'uri'})
){
$$ret .= "$name ";
} else {
$$ret .= "{'uri'}\">$name ";
}
if ($mi->{'children'} &&
($mi->{'recursematch'} ? BML::get_uri() =~ /$mi->{'recursematch'}/ : 1)) {
&dump_entry($ret, $mi->{'children'}, $depth+1);
}
}
}
&dump_entry(\$ret, \@sidebar, 0);
return $ret;
_code?>
|
|
|
%%BODY%%
|
|
|
|
|
|
<=PAGE