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
None available.
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; } |
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; } |
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->javascript->add_source( '/biomart/mview/js/martview.js' );
$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; } |