head<= <=head body<= h1?>"; $ret .= " p?>"; $ret .= " p?>"; $ret .= " h1?> "; $ret .= " p?>"; $ret .= ""; $ret .= ""; foreach my $prid (sort { $b <=> $a } keys %LJ::Pay::account) { $ret .= ""; } $ret .= "

$LJ::Pay::account{$prid}->{'name'}	\$$LJ::Pay::account{$prid}->{'amount'}.00 US

"; $ret .= " p?>"; $ret .= ""; $ret .= "Paid Account Status page. p?>"; my $remote = LJ::get_remote(); my $ru; if ($remote) { $ru = $remote->{'user'} } else { $ru = ""; } $ret .= "$ML{'.features.header'} h1?>"; $ret .= "Features by Account Type comparison chart. p?>"; $ret .= "

"; $ret .= BML::ml('.features', { 'username' => $ru, }); $ret .= "

"; return $ret; } _code?> <=body page?>