BioMart::Web PageStub
Included librariesPackage variablesGeneral documentationMethods
Toolbar
WebCvsRaw content
Package variables
No package variables defined.
Included modules
CGI qw ( self_url )
CGI::Session
CGI::Session::Driver::mysql
Data::Dumper
EnsEMBL::Web::Document::Dynamic
EnsEMBL::Web::Document::Renderer::Apache
EnsEMBL::Web::Document::Static
EnsEMBL::Web::RegObj
Exporter
Inherit
Exporter
Synopsis
No synopsis!
Description
No description!
Methods
end
No description
Code
generate_biomart_session
No description
Code
new
No description
Code
start
No description
Code
Methods description
None available.
Methods code
enddescriptionprevnextTop
sub end {
  my $self = shift;
  return unless $self->{'not_ajax'};
  $self->{'page'}->content->_end;
  if($self->{'session'}->param('__validatorError')) {
    ( my $inc = $self->{'session'}->param("__validationError") ) =~ s/\n/\\n/;
    $inc =~s/\'/\\\'/;
print qq(<script language="JavaScript" type="text/javascript">
//<![CDATA[
alert('
$inc');
//]]>
</script>);
}
$self->{'
page'}->render_end;
}

1;
}
generate_biomart_sessiondescriptionprevnextTop
sub generate_biomart_session {
  my( $biomart_web_obj, $session_id ) = @_;
  CGI::Session->find( sub {} );
  my $T = CGI::Session->new('driver:mysql', $session_id, {
    'Handle' => $ENSEMBL_WEB_REGISTRY->user_db_handler
  });
  return $T;
}
newdescriptionprevnextTop
sub new {
  my( $class, $session ) = @_;
  my $renderer = new EnsEMBL::Web::Document::Renderer::Apache;
  my $self = {};
  unless( CGI::self_url() =~ m/__.+ByAjax/ ) {
$page = new EnsEMBL::Web::Document::Dynamic( $renderer,undef,$ENSEMBL_WEB_REGISTRY->species_defs );
$page->_initialize_HTML unless $AJAX; $page->set_doc_type( 'none', 'none' ); # $page->masthead->sp_bio ||= 'BioMart';
# $page->masthead->sp_common ||= 'BioMart';
$page->javascript->add_source( '/biomart/mview/js/martview.js' ); # $page->javascript->add_script( 'addLoadEvent( debug_window )' );
$page->body_javascript->add_script( 'addLoadEvent( setVisibleStatus )' ); $page->stylesheet->add_sheet( 'all', '/biomart/mview/martview.css' ); $page->stylesheet->add_sheet( 'all', '/martview-hacks.css' ); $self = { 'page' => $page, 'session' => $session, 'not_ajax' => 1 }; } bless $self, $class; return $self;
}
startdescriptionprevnextTop
sub start {
  my $self = shift;
  return unless $self->{'not_ajax'};
  $self->{'page'}->render_start;
#  print '<script type="text/javascript">debug_window()</script>';
$self->{'page'}->content->_start; # $self->{'page'}->content->render_settings_list;
}
General documentation
No general documentation available.