<%= 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")
}
} %>