[Bio] / WebApplication / DataHandler / FIGMODEL.pm Repository:
ViewVC logotype

View of /WebApplication/DataHandler/FIGMODEL.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.5 - (download) (as text) (annotate)
Tue Jan 25 20:07:05 2011 UTC (9 years, 1 month ago) by chenry
Branch: MAIN
CVS Tags: mgrast_dev_08112011, mgrast_dev_08022011, mgrast_dev_03052011, mgrast_dev_05262011, mgrast_dev_04082011, mgrast_dev_06072011, mgrast_dev_02212011, mgrast_release_3_0, mgrast_dev_03252011, 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_1, mgrast_release_3_1_0, mgrast_dev_04132011, mgrast_dev_04012011, myrast_33, rast_rel_2011_0928, mgrast_dev_04052011, mgrast_dev_02222011
Changes since 1.4: +2 -2 lines
Updates to adjust package file path for FIGMODEL.pm

package DataHandler::FIGMODEL;
# DataHandler::FIGMODEL - data handler to SEED database via FIGMODEL
# Primary author: Christopher Henry (chenry@mcs.anl.gov), MCS Division, Argonne National Laboratory
# Created: 4/13/2009
use strict;
use warnings;
use base qw( DataHandler );
use ModelSEED::FIGMODEL;
use Tracer;

=head1 FIGMODEL Data Handler
#TITLE FIGMODELpmDataHandler
=head2 Introduction
=head2 Public Methods
=head3 handle
	my $FIGMODELObject = $dh->handle($optional_id);
=cut
sub handle {
  my ($self, $optional_id) = @_;
  my $cgi = $self->application->cgi;
  Trace("Data handler called.") if T(3);
  if (!defined($self->{'FIGMODEL'})) {
  	my $user = $self->application()->session->user;
  	$self->{'FIGMODEL'} = ModelSEED::FIGMODEL->new();
  	$self->{'FIGMODEL'}->web()->cgi($cgi);
  	if ($user) {
  		$self->{'FIGMODEL'}->setuser($user);
  	}
  }
  return $self->{'FIGMODEL'};
}

1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3