[Bio] / Sprout / NewStuffCheck.pl Repository:
ViewVC logotype

Diff of /Sprout/NewStuffCheck.pl

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

revision 1.18, Fri Nov 3 00:39:34 2006 UTC revision 1.19, Tue Jan 9 01:53:17 2007 UTC
# Line 53  Line 53 
53    
54  =item outFile  =item outFile
55    
56  Output file name. The default is C<html/includes/differences.inc> in the  Output file name. The default is C<html/includes/diff.inc> in the
57  nmpdr C<next> directory.  nmpdr C<next> directory.
58    
59  =back  =back
# Line 467  Line 467 
467      # Combine the property names and values and replace each property ID by a feature count.      # Combine the property names and values and replace each property ID by a feature count.
468      my @retVal;      my @retVal;
469      for my $propItem (@props) {      for my $propItem (@props) {
470          my $label = $propItem->[0] . " = " . $propItem->[1];          # Split up the value on punctuation boundaries for readability.
471            my $propValue = $propItem->[1];
472            $propValue =~ s/::/ :: /g;
473            $propValue =~ s/([,;])(\S)/$1 $2/g;
474            my $label = $propItem->[0] . " = " . $propValue;
475          my $count = $sprout->GetCount(['Feature', 'HasProperty'], "HasProperty(to-link) = ?",          my $count = $sprout->GetCount(['Feature', 'HasProperty'], "HasProperty(to-link) = ?",
476                                        [$propItem->[2]]);                                        [$propItem->[2]]);
477          push @retVal, [$label, $count];          push @retVal, [$label, $count];

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3