[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.8, Sun Dec 21 01:20:59 2003 UTC revision 1.9, Mon Dec 22 01:24:22 2003 UTC
# Line 2434  Line 2434 
2434    
2435      if ($new)      if ($new)
2436      {      {
2437            if (keys(%in) < 300)
2438            {
2439          foreach $existing (keys(%existing))          foreach $existing (keys(%existing))
2440          {          {
2441              $self->delete_set($existing,"pch_pins","pin");              $self->delete_set($existing,"pch_pins","pin");
# Line 2441  Line 2443 
2443          $new_id = $self->next_set("pch_pins","pin");          $new_id = $self->next_set("pch_pins","pin");
2444  #       print STDERR "adding new pin $new_id\n";  #       print STDERR "adding new pin $new_id\n";
2445          $self->insert_set($new_id,[keys(%in)],"pch_pins","pin");          $self->insert_set($new_id,[keys(%in)],"pch_pins","pin");
2446            }
2447            else
2448            {
2449                $new_id = $self->next_set("pch_pins","pin");
2450    #           print STDERR "adding new pin $new_id\n";
2451                $self->insert_set($new_id,$ids,"pch_pins","pin");
2452            }
2453          return 1;          return 1;
2454      }      }
2455      return 0;      return 0;

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3