Subversion Repositories DevTools

Rev

Rev 6910 | Rev 6912 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6910 Rev 6911
Line 398... Line 398...
398 
        {
 398 
        {
399 
            print "[DBI] Execute: $_\n" if $verbose;
 399 
            print "[DBI] Execute: $_\n" if $verbose;
400 
        }
 400 
        }
401
401
402 
        if (m~^Info:ColumnName:(\d+):(.*)~) {
 402 
        if (m~^Info:ColumnName:(\d+):(.*)~) {
- 
 
 403 
            my $data = $2;
- 
 
 404 
            $data =~ s~\s+$~~;
403 
            push @colNames, $2;
 405 
            push @colNames, $data;
404 
        }
 406 
        }
405 
 
 407 
 
406 
        if ( m/^DataStart:/ )
 408 
        if ( m/^DataStart:/ )
407 
        {
 409 
        {
408 
            $self->{ERROR} = 0;
 410 
            $self->{ERROR} = 0;