<%doc> $Revision: 1.53.6.1 $ <%method title> Manage ApTest Manager <%args> $suite=>"" <%perl> my $warn = "" ; my $newVersion = $userInfo->checkVersion() ; #ATMSQL my $notReady = 0 ; if ( ApTest::DBI::SQL_isActive() ) { foreach ( Framework::getSuiteList() ) { if ( ApTest::DBI::SQL_isActive($_) && !ApTest::DBI::SQL_isReady($_) ) { $notReady = 1 ; last ; } } } if ($notReady) { $warn = "Some suites' SQL Datastores are not ready to use. Please select Initialize SQL Datastores to bring them up to date." ; } #ENDATMSQL % if ( defined $newVersion && !$ATMConfig::isHosted ) { % $newVersion =~ s/\n/
/g ; <% Framework::warning(qq(

$newVersion

)) %> % } <% Framework::warning($warn) %>

<& SELF:menuStart, tstyle => "left", title => "Account Management" &> <& SELF:menuItem, suite => $suite, title => "Show accounts", url => "showAccounts.mpl" &> <& SELF:menuItem, suite => $suite, title => "Create an account", url => "createAccount.mpl" &> <& SELF:menuItem, suite => $suite, title => "Make changes to existing accounts", url => "changeAccounts.mpl" &> <& SELF:menuItem, suite => $suite, title => "Make changes to suite access", url => "changeSuiteAccess.mpl" &> <& SELF:menuItem, suite => $suite, title => "Send mail to one or more users", url => "emailUsers.mpl" &> % if ($ATMConfig::emailNotifications) { <& SELF:menuItem, suite => $suite, title => "Make changes to suite email notifications", url => "changeSuiteEmail.mpl" &> % } <& SELF:menuEnd &> <& SELF:menuStart, tstyle => "left", title => "Configuration Management" &> <& SELF:menuItem, suite => $suite, title => "Manage system configuration", url => "manage.mpl" &> <& SELF:menuItem, suite => $suite, title => "Manage test suite profile catalog", url => "templates/index.mpl" &> <& SELF:menuItem, suite => $suite, title => "Manage LDAP configuration", url => "configLDAP.mpl" &> % #ATMSQL <& SELF:menuItem, suite => $suite, title => "Manage SQL configuration", url => "configSQL.mpl" &> % if ( ApTest::DBI::SQL_isActive() ) { <& SELF:menuItem, suite => $suite, title => "Initialize SQL datastores", url => "syncSQL.mpl" &> % } else { <& SELF:menuItem, suite => $suite, title => "Initialize SQL datastores" &> % } % #ENDATMSQL <& SELF:menuEnd &>
<& SELF:menuStart, tstyle => "left", title => "System Status" &> <& SELF:menuItem, suite => $suite, title => "View login and license information", url => "showLicense.mpl" &> <& SELF:menuItem, suite => $suite, title => "View test suite information", url => "showSuites.mpl" &> <& SELF:menuEnd &> <& SELF:menuStart, tstyle => "left", title => "System Maintenance" &> <& SELF:menuItem, suite => $suite, title => "Archive system data", url => "exportAll.mpl" &> <& SELF:menuItem, suite => $suite, title => "Check for updates to ApTest Manager", url => "checkForUpdates.mpl" &> <& SELF:menuItem, suite => $suite, title => "Test email configuration", url => "testEmail.mpl" &> <& SELF:menuEnd &>
<%once> #ATMSQL use ApTest::DBI ; #ENDATMSQL <%attr> helpSet=>"accounts_index"