Logo Search packages:      
Sourcecode: octopussy version File versions  Download package

octo_top_menu.inc

<%
my %arg = @_;
my $login = $Session->{AAT_LOGIN};
my $logout_lnk = "./dialog.asp?id=logout";
my $version = "Octopussy " . Octopussy::Version(); 
my $lang = lc($Session->{AAT_LANGUAGE} || "en");
my $help_lnk = $arg{help} || "index";
$lang = (-f "HELP/$lang/${help_lnk}.html" ? $lang : "en");
%>
<AAT:Box width="100%">
<AAT:BoxRow>
    <AAT:BoxCol>
    <AAT:Button name="home" tooltip="_HOMEPAGE" link="./index.asp" width="32" height="32" />
    </AAT:BoxCol>
      <AAT:BoxCol>
      <AAT:Button name="user_prefs" tooltip="_USER_PREFS" link="./user_pref.asp" width="32" height="32" />
    </AAT:BoxCol>
      <AAT:BoxCol width="100%" align="C">
      <AAT:Label value="$version" style="B" link="./index.asp" /><br>
      <AAT:Label value="_USER" /><%= ": $login" %>
      </AAT:BoxCol>     
      <AAT:BoxCol><AAT:Help page="HELP/$lang/${help_lnk}.html" /></AAT:BoxCol>
      <AAT:BoxCol>
      <AAT:Button name="exit" tooltip="_LOGOUT" popup_link="$logout_lnk" width="32" height="32" />
      </AAT:BoxCol>
</AAT:BoxRow>
</AAT:Box>

Generated by  Doxygen 1.6.0   Back to index