+ push @html, Maasha::XHTML::p( txt => Maasha::XHTML::hidden( name => "user", value => $cookie->{ 'USER' } ) );
+ push @html, Maasha::XHTML::p( txt => Maasha::XHTML::hidden( name => "clade", value => $cookie->{ 'CLADE' } ) );
+ push @html, Maasha::XHTML::p( txt => Maasha::XHTML::hidden( name => "genome", value => $cookie->{ 'GENOME' } ) );
+ push @html, Maasha::XHTML::p( txt => Maasha::XHTML::hidden( name => "assembly", value => $cookie->{ 'ASSEMBLY' } ) );
+ push @html, Maasha::XHTML::p( txt => Maasha::XHTML::hidden( name => "contig", value => $cookie->{ 'CONTIG' } ) );
+
+ return wantarray ? @html : \@html;
+}
+
+
+sub section_linkout
+{
+ # Martin A. Hansen, March 2010.
+
+ # Returns a HTML section for a static link based on information in the cookie.
+
+ my ( $cookie, # cookie hash
+ ) = @_;
+
+ # Returns a list.
+
+ my ( $link_out, $link_pdf, $link_svg, @html );
+
+ $link_out = Maasha::XHTML::ln(
+ txt => 'link',
+ href => join( "&", "$cookie->{ 'SCRIPT' }?page=browse",
+ "clade=$cookie->{ 'CLADE' }",
+ "genome=$cookie->{ 'GENOME' }",
+ "assembly=$cookie->{ 'ASSEMBLY' }",
+ "contig=$cookie->{ 'CONTIG' }",
+ "nav_start=$cookie->{ 'NAV_START' }",
+ "nav_end=$cookie->{ 'NAV_END' }",
+ ),
+ title => "Static link to this view",
+ );
+
+ $link_pdf = Maasha::XHTML::ln(
+ txt => 'PDF',
+ href => join( "&", "$cookie->{ 'SCRIPT' }?page=export_pdf",
+ "session_id=$cookie->{ 'SESSION_ID' }",
+ "user=$cookie->{ 'USER' }",
+ "clade=$cookie->{ 'CLADE' }",
+ "genome=$cookie->{ 'GENOME' }",
+ "assembly=$cookie->{ 'ASSEMBLY' }",
+ "contig=$cookie->{ 'CONTIG' }",
+ "nav_start=$cookie->{ 'NAV_START' }",
+ "nav_end=$cookie->{ 'NAV_END' }",
+ ),
+ title => "Export view in PDF",
+ );
+
+ $link_svg = Maasha::XHTML::ln(
+ txt => 'SVG',
+ href => join( "&", "$cookie->{ 'SCRIPT' }?page=export_svg",
+ "session_id=$cookie->{ 'SESSION_ID' }",
+ "user=$cookie->{ 'USER' }",
+ "clade=$cookie->{ 'CLADE' }",
+ "genome=$cookie->{ 'GENOME' }",
+ "assembly=$cookie->{ 'ASSEMBLY' }",
+ "contig=$cookie->{ 'CONTIG' }",
+ "nav_start=$cookie->{ 'NAV_START' }",
+ "nav_end=$cookie->{ 'NAV_END' }",
+ ),
+ title => "Export view in SVG",
+ );
+
+ push @html, Maasha::XHTML::p( txt => "$link_out $link_pdf $link_svg", class => 'center' );