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

Diff of /FigKernelPackages/P2P.pm

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

revision 1.17, Mon Dec 6 18:26:25 2004 UTC revision 1.18, Wed Jan 5 16:19:44 2005 UTC
# Line 55  Line 55 
55    
56      if (!$ret or ref($ret) ne "ARRAY")      if (!$ret or ref($ret) ne "ARRAY")
57      {      {
58          die "perform_update: request_updated failed\n";          die "perform_update: request_update failed\n";
59      }      }
60    
61      my($session, $target_release, $num_assignments, $num_annos, $num_pegs, $num_genomes,      my($session, $target_release, $num_assignments, $num_annos, $num_pegs, $num_genomes,
62         $target_time, $compatible) = @$ret;         $target_time, $compatible) = @$ret;
63    
64      print "perform_update: session=$session target=$target_release num_annos=$num_annos\n";      print "perform_update: session=$session target=@$target_release num_annos=$num_annos\n";
65      print "                num_pegs=$num_pegs num_genomes=$num_genomes target_time=$target_time compat=$compatible\n";      print "                num_pegs=$num_pegs num_genomes=$num_genomes target_time=$target_time compat=$compatible\n";
66    
67      #      #
# Line 504  Line 504 
504  {  {
505      my($self, $last_update) = @_;      my($self, $last_update) = @_;
506    
507      my $rel = $self->{fig}->get_release_info();      my $rel = [$self->{fig}->get_release_info()];
508    
509      if (!defined($last_update))      if (!defined($last_update))
510      {      {
# Line 802  Line 802 
802      # Check compatibility.      # Check compatibility.
803      #      #
804    
805      my $my_release = $fig->get_release_info();      my $my_release = [$fig->get_release_info()];
806      my $compatible = (defined($my_release) && ($my_release == $his_release)) ? 1 : 0;  
807        #
808        # Release id is $my_release->[1].
809        #
810    
811        my $compatible;
812        if ($my_release->[1] ne "" and $his_release->[1] ne "")
813        {
814            #
815            # Both releases must be defined for them to be compatible.
816            #
817            # At some point we need to consider the derived-release issue.
818            #
819    
820            $compatible = $my_release->[1] eq $his_release->[1];
821        }
822        else
823        {
824            $compatible = 0;
825        }
826    
827      open(my $fh, ">$spool_dir/INFO");      open(my $fh, ">$spool_dir/INFO");
828      print $fh "requestor_release\t$his_release\n";      print $fh "requestor_release\t$his_release\n";

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3