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

Diff of /FigKernelPackages/FIGV.pm

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

revision 1.29, Wed May 30 15:41:42 2007 UTC revision 1.30, Tue Jun 5 19:47:42 2007 UTC
# Line 1384  Line 1384 
1384    
1385          my $tie = $self->{_pch_tie};          my $tie = $self->{_pch_tie};
1386    
1387            if (not defined($tie))
1388            {
1389                return;
1390            }
1391    
1392          my @dat = $tie->get_dup($peg);          my @dat = $tie->get_dup($peg);
1393    
1394          return map { [split(/$;/, $_)] } @dat;          return map { [split(/$;/, $_)] } @dat;
# Line 1409  Line 1414 
1414    
1415          my $tie = $self->{_pch_ev_tie};          my $tie = $self->{_pch_ev_tie};
1416    
1417            if (not defined($tie))
1418            {
1419                return;
1420            }
1421    
1422          my @dat = $tie->get_dup("$peg1$;$peg2");          my @dat = $tie->get_dup("$peg1$;$peg2");
1423    
1424          my @a;          my @a;
# Line 1436  Line 1446 
1446          my $tie = $self->{_pch_tie};          my $tie = $self->{_pch_tie};
1447          my $evtie = $self->{_pch_ev_tie};          my $evtie = $self->{_pch_ev_tie};
1448    
1449            if (not(defined($tie) and defined($evtie)))
1450            {
1451                return;
1452            }
1453    
1454          my @out;          my @out;
1455          my @coupled_to = $tie->get_dup($peg1);          my @coupled_to = $tie->get_dup($peg1);
1456          for my $ent (@coupled_to)          for my $ent (@coupled_to)

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3