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

Diff of /FigKernelPackages/FIG.pm

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

revision 1.107, Wed Jun 2 09:23:35 2004 UTC revision 1.108, Wed Jun 2 09:45:16 2004 UTC
# Line 3439  Line 3439 
3439          $epoch_date = 0;          $epoch_date = 0;
3440      }      }
3441      $epoch_date = defined($epoch_date) ? $epoch_date-1 : 0;      $epoch_date = defined($epoch_date) ? $epoch_date-1 : 0;
3442      my @annotations = ();      @annotations = ();
3443      my $rdbH = $self->db_handle;      my $rdbH = $self->db_handle;
3444      if ($who eq "master")      if ($who eq "master")
3445      {      {
# Line 5300  Line 5300 
5300    
5301          my($chunk);          my($chunk);
5302    
5303          if ($chunk = <SSA>)          if (defined($chunk = <SSA>))
5304          {          {
5305              for $_ (split(/\n/, $chunk))              for $_ (split(/\n/, $chunk))
5306              {              {
# Line 5352  Line 5352 
5352    
5353          my($chunk);          my($chunk);
5354    
5355          if ($chunk = <SSA>)          if (defined($chunk = <SSA>))
5356          {          {
5357          }          }
5358          if ($chunk = <SSA>)          if (defined($chunk = <SSA>))
5359          {          {
5360          }          }
5361          local $/ = "\n";          local $/ = "\n";
# Line 5436  Line 5436 
5436  sub publish_subsystem_to_clearinghouse  sub publish_subsystem_to_clearinghouse
5437  {  {
5438      my($self, $ssa, $url) = @_;      my($self, $ssa, $url) = @_;
5439        my ($id, $token);
5440    
5441      $ssa =~ s/ /_/g;      $ssa =~ s/ /_/g;
5442    
# Line 5465  Line 5466 
5466      my $ret = $ch->publish_subsystem($ssa, $version, $time, $curator, $pedigree, $seed_id,      my $ret = $ch->publish_subsystem($ssa, $version, $time, $curator, $pedigree, $seed_id,
5467                                       $roles, \@genome_names);                                       $roles, \@genome_names);
5468    
5469      my($id, $token, $url) = @$ret;      ($id, $token, $url) = @$ret;
5470      print "Got id  $id token $token url $url\n";      print "Got id  $id token $token url $url\n";
5471    
5472      #      #

Legend:
Removed from v.1.107  
changed lines
  Added in v.1.108

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3