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

Diff of /FigKernelPackages/P2Pupdate.pm

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

revision 1.50, Wed Aug 3 17:40:42 2005 UTC revision 1.51, Mon Aug 8 21:54:39 2005 UTC
# Line 1291  Line 1291 
1291      if (m,^//(.*)$,)      if (m,^//(.*)$,)
1292      {      {
1293          chomp;          chomp;
1294          my @cur_block;          my $cur_block;
1295          my $cur_tag = $1;          my $cur_tag = $1;
1296          while (<$fh>)          while (<$fh>)
1297          {          {
1298              if (m,^//end$,)              if (m,^//end$,)
1299              {              {
1300                  push(@blocks, [$cur_tag, \@cur_block]);                  push(@blocks, [$cur_tag, $cur_block]);
1301              }              }
1302              elsif (m,^//(.*)$,)              elsif (m,^//(.*)$,)
1303              {              {
1304                  chomp;                  chomp;
1305                  @cur_block = ();                  $cur_block = [];
1306                  $cur_tag = $1;                  $cur_tag = $1;
1307              }              }
1308              else              else
1309              {              {
1310                  push(@cur_block, $_);                  push(@$cur_block, $_);
1311              }              }
1312          }          }
1313      }      }
# Line 1823  Line 1823 
1823              my $diagram_id = $1;              my $diagram_id = $1;
1824              my $diagram_name = $2;              my $diagram_name = $2;
1825    
1826              $sub->create_new_diagram(undef, $diagram_name, $diagram_id);              $sub->create_new_diagram(undef, undef, $diagram_name, $diagram_id);
1827          }          }
1828          elsif ($block_hdr =~ m,^diagram:([^:]+):diagram=([^\s/]+)\t(\d+),)          elsif ($block_hdr =~ m,^diagram:([^:]+):diagram=([^\s/]+)\t(\d+),)
1829          {          {

Legend:
Removed from v.1.50  
changed lines
  Added in v.1.51

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3