[Bio] / FortyEight / WebPage / BrowseGenome.pm Repository:
ViewVC logotype

View of /FortyEight/WebPage/BrowseGenome.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.5 - (download) (as text) (annotate)
Mon Jul 23 19:23:12 2007 UTC (12 years, 10 months ago) by paarmann
Branch: MAIN
CVS Tags: mgrast_dev_08112011, rast_rel_2009_05_18, mgrast_dev_08022011, rast_rel_2014_0912, rast_rel_2008_06_18, rast_rel_2008_06_16, mgrast_dev_05262011, rast_rel_2008_12_18, mgrast_dev_04082011, rast_rel_2008_07_21, rast_rel_2010_0928, rast_2008_0924, mgrast_version_3_2, mgrast_dev_12152011, rast_rel_2008_04_23, mgrast_dev_06072011, rast_rel_2008_09_30, rast_rel_2009_0925, rast_rel_2010_0526, rast_rel_2014_0729, mgrast_dev_02212011, rast_rel_2010_1206, mgrast_release_3_0, mgrast_dev_03252011, rast_rel_2010_0118, mgrast_rel_2008_0924, mgrast_rel_2008_1110_v2, rast_rel_2009_02_05, rast_rel_2011_0119, mgrast_rel_2008_0625, mgrast_release_3_0_4, mgrast_release_3_0_2, mgrast_release_3_0_3, mgrast_release_3_0_1, mgrast_dev_03312011, mgrast_release_3_1_2, mgrast_release_3_1_1, mgrast_release_3_1_0, mgrast_dev_04132011, rast_rel_2008_10_09, mgrast_dev_04012011, rast_release_2008_09_29, mgrast_rel_2008_0806, mgrast_rel_2008_0923, mgrast_rel_2008_0919, rast_rel_2009_07_09, rast_rel_2010_0827, mgrast_rel_2008_1110, myrast_33, rast_rel_2011_0928, rast_rel_2008_09_29, mgrast_rel_2008_0917, rast_rel_2008_10_29, mgrast_dev_04052011, mgrast_dev_02222011, rast_rel_2009_03_26, mgrast_dev_10262011, rast_rel_2008_11_24, rast_rel_2008_08_07, HEAD
Changes since 1.4: +2 -1 lines
*** empty log message ***

package WebPage::BrowseGenome;

use WebApp::WebPage;

1;

our @ISA = qw ( WebApp::WebPage );

use Job48;

use RawOrganismGenomeBrowser;

=pod

=head1 NAME

BrowseGenome - displays a genome browser.

=head1 DESCRIPTION

TODO

=head1 METHODS

=over 4

=item * B<output> ()

Returns the html output of the BrowseGenome page.

=cut

sub output {
  my ($self) = @_;

  my $cgi = $self->application->cgi;
  my $session = $self->application->session;
  my $content = 'Unknown action';
  $self->title('Annotation Server - Browse Genome');

  my $action = 'default';
  if (defined($cgi->param('action'))) {
    $action = $cgi->param('action');
  }

  if ($action eq 'default') {
    $content = $self->genome_browser($session, $cgi);
  } 

  return $content;
}

sub genome_browser {
  my ($self, $session, $cgi) = @_;

  my $content = "";
  
  if ($self->application->authorized(1)) {

    # sanity check on job
    my $job = Job48->new( $cgi->param('job'), 
			  $self->application->session->user );
    unless ($job and $job->active) {
      my $id = $cgi->param('job') || '';
      $self->application->error("Invalid job id given (id='$id').");
      return $content;
    }
      
    my $js = '<script src="./Html/css/FIG.js" type="text/javascript"></script><script type="text/javascript" src="./Html/css/layout.js"></script>';
    
    # create title
    $content .= "<h1>Browsing Genome " . $job->genome_name . "</h1>";
    $content .= "<p><a href='".$self->application->url."?page=JobDetails&job=" . $job->id . 
      "'>&raquo;Back to Job Details</a></p>";
    $content .= $js . RawOrganismGenomeBrowser::new({ genome_directory => $job->orgdir,
						      genome_id        => $job->genome_id,
						      genome_name      => $job->genome_name });
  } 
  else {
    $cgi->delete('action');
    $content .= $self->application->error . "<br/>Please return to the <a href='" . 
      $self->application->url . "'>login page</a>.";
  }

  return $content;
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3