[Bio] / FigKernelPackages / RAST_submission.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/RAST_submission.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4, Wed Oct 21 20:05:36 2009 UTC revision 1.5, Wed Oct 21 21:27:02 2009 UTC
# Line 68  Line 68 
68      return $self->check_project_for_redundancy($project_data);      return $self->check_project_for_redundancy($project_data);
69  }  }
70    
71    sub get_contigs_from_entrez
72    {
73        my($self, $params) = @_;
74    
75        my $id_list = $params->{-id};
76        if (!ref($id_list))
77        {
78            $id_list = [$id_list];
79        }
80    
81        local $/;
82        undef $/;
83        my @ret;
84        for my $id (@$id_list)
85        {
86            my $file = $self->retrieve_contig_data($id);
87            open(F, "<", $file);
88    
89            push(@ret, [$id, scalar(<F>)]);
90            close(F);
91        }
92    
93        return \@ret;
94    }
95    
96  sub determine_project_of_contig  sub determine_project_of_contig
97  {  {
98      my($self, $contig_id) = @_;      my($self, $contig_id) = @_;
# Line 251  Line 276 
276  {  {
277      my($self, $params) = @_;      my($self, $params) = @_;
278    
279      return [ "params were", $params, $self->user_obj->firstname, $self->user_obj->lastname];      my $res=  { val => [ "params were", $params, $self->user_obj->firstname, $self->user_obj->lastname] } ;
280        print STDERR Dumper($res);
281        return $res;
282  }  }
283    
284  sub status_of_RAST_job  sub status_of_RAST_job

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3