[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.3, Thu Aug 24 08:14:27 2006 UTC revision 1.4, Thu Aug 24 08:18:09 2006 UTC
# Line 268  Line 268 
268          # Get the number of list items.          # Get the number of list items.
269          my $listSize = scalar @{$list};          my $listSize = scalar @{$list};
270          # Display the header.          # Display the header.
271            my $header;
272          if ($listSize == 0) {          if ($listSize == 0) {
273              print "*** $listName: no entries\n";              $header = "*** $listName: no entries";
274          } elsif ($listSize == 1) {          } elsif ($listSize == 1) {
275              print "*** $listName: one entry\n";              $header = "*** $listName: one entry";
276          } else {          } else {
277              print "*** $listName: $listSize entries\n";              $header = "*** $listName: $listSize entries";
278          }          }
279            print "$header\n";
280            Trace($header) if T(3);
281          # If we're at trace level 3, display the list.          # If we're at trace level 3, display the list.
282          if ($all) {          if ($all) {
283              # Put a spacer under the title.              # Put a spacer under the title.

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3