[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.357, Thu Sep 1 19:23:49 2005 UTC revision 1.358, Thu Sep 1 20:52:51 2005 UTC
# Line 7259  Line 7259 
7259          my $gpegs = {};          my $gpegs = {};
7260    
7261          my $afh;          my $afh;
7262          if (open($afh, "$genome_dir/annotations"))          my $afh = new FileHandle("<$genome_dir/annotations");
7263            if ($afh)
7264          {          {
7265              my($fid, $anno_time, $who, $anno_text,$anno_who);              my($fid, $anno_time, $who, $anno_text,$anno_who);
7266              local($/);  
7267              $/ = "//\n";              local $/ = "//\n";
7268    
7269              while (my $ann = <$afh>)              while (my $ann = <$afh>)
7270              {              {
7271                  chomp $ann;                  chomp $ann;
# Line 7278  Line 7280 
7280                      #                      #
7281                      # Update users list.                      # Update users list.
7282                      #                      #
7283                        {
7284                            my $d =  $self->is_deleted_fid($fid);
7285                        }
7286    
7287                      if ($replace_master_with_group)                      if ($replace_master_with_group)
7288                      {                      {
# Line 11839  Line 11844 
11844          $self->{_deleted_fids} = {};          $self->{_deleted_fids} = {};
11845          if (open(TMP,"<$FIG_Config::global/deleted.features"))          if (open(TMP,"<$FIG_Config::global/deleted.features"))
11846          {          {
11847                #
11848                # Feh. Try using this method inside a loop with $/ set and you'lll get bitten.
11849                #
11850                local $/ = "\n";
11851              while ($y = <TMP>)              while ($y = <TMP>)
11852              {              {
11853                  if ($y =~ /^(fig\|\d+\.\d+\.[a-zA-Z]+\.\d+)/)                  if ($y =~ /^(fig\|\d+\.\d+\.[a-zA-Z]+\.\d+)/)

Legend:
Removed from v.1.357  
changed lines
  Added in v.1.358

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3