Subversion Repositories DevTools

Rev

Rev 6911 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6911 Rev 6912
Line 350... Line 350...
350 
sub execute
 350 
sub execute
351 
{
 351 
{
352 
    my $self = shift;
 352 
    my $self = shift;
353 
    my @args = @_;
 353 
    my @args = @_;
354 
    my @rows;
 354 
    my @rows;
355 
    my @colNames;
 355 
    my @colData;
356 
 
 356 
 
357 
    my $statement = $self->{STATEMENT};
 357 
    my $statement = $self->{STATEMENT};
358 
 
 358 
 
359 
 
 359 
 
360 
    #
 360 
    #
Line 397... Line 397...
397 
        else
 397 
        else
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:ColumnInfo:(\d+):(.*)~) {
403 
            my $data = $2;
 403 
            my $data = $2;
404 
            $data =~ s~\s+$~~;
 404 
            $data =~ s~\s+$~~;
405 
            push @colNames, $data;
 405 
            push @colData, $data;
406 
        }
 406 
        }
407 
 
 407 
 
408 
        if ( m/^DataStart:/ )
 408 
        if ( m/^DataStart:/ )
409 
        {
 409 
        {
410 
            $self->{ERROR} = 0;
 410 
            $self->{ERROR} = 0;
Line 422... Line 422...
422 
        }
 422 
        }
423 
 
 423 
 
424 
    }
 424 
    }
425 
 
 425 
 
426 
    $self->{ROWS} = \@rows;
 426 
    $self->{ROWS} = \@rows;
427 
    $self->{COLNAMES} = \@colNames;
 427 
    $self->{COLDATA} = \@colData;
428 
 
 428 
 
429 
    return ! $self->{ERROR};
 429 
    return ! $self->{ERROR};
430 
}
 430 
}
431 
 
 431 
 
432 
#-------------------------------------------------------------------------------
 432 
#-------------------------------------------------------------------------------
Line 491... Line 491...
491 
    $self->{ROWS_READ}++;
 491 
    $self->{ROWS_READ}++;
492 
    return @row;
 492 
    return @row;
493 
}
 493 
}
494 
 
 494 
 
495 
#-------------------------------------------------------------------------------
 495 
#-------------------------------------------------------------------------------
496 
# Function        : fetch_colNames
496 
# Function        : fetch_columndata
497 
#
 497 
#
498 
# Description     : NonStandard function
 498 
# Description     : NonStandard function
499 
#                   Fetch array of colum names
 499 
#                   Fetch array of colum names
500 
#
 500 
#
501 
# Inputs          : None
501 
# Inputs          : None
502 
#
 502 
#
503 
# Returns         : An array of column names
 503 
# Returns         : An array of column data
- 
 
 504 
#                   :Sep data of Name:Size:Type
504 
#
 505 
#
505 
sub fetch_colNames
 506 
sub fetch_columndata
506 
{
 507 
{
507 
    my $self = shift;
 508 
    my $self = shift;
508 
    return $self->{COLNAMES};
 509 
    return $self->{COLDATA};
509 
}
 510 
}
510 
 
 511 
 
511 
#-------------------------------------------------------------------------------
 512 
#-------------------------------------------------------------------------------
512 
# Function        : finish
 513 
# Function        : finish
513 
#
 514 
#