[Bio] / FigKernelScripts / svr_in_runs.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/svr_in_runs.pl

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

revision 1.2, Wed Jul 22 18:33:24 2009 UTC revision 1.3, Fri Aug 28 18:18:50 2009 UTC
# Line 27  Line 27 
27      my %args;      my %args;
28    
29      if ($JustFirst) {      if ($JustFirst) {
30          $args{justFirst} = $JustFirst;          $args{-justFirst} = $JustFirst;
31      }      }
32      if ($MaxGap) {      if ($MaxGap) {
33          $args{maxGap} = $MaxGap;          $args{-maxGap} = $MaxGap;
34      }      }
35      if ($AllowOthers) {      if ($AllowOthers) {
36          $args{allowOthers} = $AllowOthers;          $args{-allowOthers} = $AllowOthers;
37      }      }
38    
39      my $line;      my $line;
# Line 43  Line 43 
43          # Get the fields in the line.          # Get the fields in the line.
44          my @fields = split /\t/, $line;          my @fields = split /\t/, $line;
45          # The last field is the group.          # The last field is the group.
46          $args{groups} = [$fields[$#fields]];          $args{-groups} = [$fields[$#fields]];
47          # Make the runs for this group.          # Make the runs for this group.
48          my $res =  $ss->make_runs(%args);          my $res =  $ss->make_runs(%args);
49          # Output the result.          # Output the result.

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3