[Bio] / Sprout / ERDB.pm Repository:
ViewVC logotype

Diff of /Sprout/ERDB.pm

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

revision 1.49, Wed Jun 21 03:36:03 2006 UTC revision 1.50, Wed Jun 21 03:38:36 2006 UTC
# Line 2171  Line 2171 
2171      my $retVal;      my $retVal;
2172      # Split the header line into column names.      # Split the header line into column names.
2173      my @headers = ParseColumns($headerLine);      my @headers = ParseColumns($headerLine);
     Trace("Column header count is " . scalar(@headers) . ".") if T(4);  
2174      # Determine whether we have a number or a name.      # Determine whether we have a number or a name.
2175      if ($columnIdentifier =~ /^\d+$/) {      if ($columnIdentifier =~ /^\d+$/) {
2176          # Here we have a number. Subtract 1 and validate the result.          # Here we have a number. Subtract 1 and validate the result.
# Line 2196  Line 2195 
2195    
2196  =head3 ParseColumns  =head3 ParseColumns
2197    
2198  C<< my @columns = ERDB->ParseColumns($line); >>  C<< my @columns = ERDB::ParseColumns($line); >>
2199    
2200  Convert the specified data line to a list of columns.  Convert the specified data line to a list of columns.
2201    
# Line 2217  Line 2216 
2216    
2217  sub ParseColumns {  sub ParseColumns {
2218      # Get the parameters.      # Get the parameters.
2219      my ($self, $line) = @_;      my ($line) = @_;
2220      # Chop off the line-end.      # Chop off the line-end.
2221      chomp $line;      chomp $line;
2222      # Split it into a list.      # Split it into a list.

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3