<%= cat( sprintf( "", getOption( "home.url", default=""))) %> <%= cat( getOption( "site.title", default="gCMAP") )%>
    <%={ feedback.url <- getOption( "feedback.url", default=NULL) if( !is.null (feedback.url)){ cat( "
  • " ) cat( sprintf( "", feedback.url ) ) cat( "", "Feedback", "","
  • ", sep="\n") } } %> <%={ doc.url <- getOption( "doc.url", default="help.html") if( !is.null (doc.url)){ cat( "
  • " ) cat( sprintf( "", doc.url ) ) cat( "", "Help", "","
  • ", sep="\n") } } %> <%={ contact.email <- getOption( "contact.email", default=NULL) if( !is.null (contact.email)){ cat( "
  • " ) cat( sprintf("", contact.email )) cat( "", "Contact", "","
  • ", sep="\n") } } %> <%={ name.out <- getOption( "name.out", default=NULL) link.out <- getOption( "link.out", default=NULL) if( !is.null( name.out ) & ! is.null( link.out )){ cat( "
  • " ) cat( sprintf( "", link.out ) ) cat( "", name.out, "","
  • ", sep="\n") } } %>