Subversion Repositories DevTools

Rev

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

Rev 6887 Rev 6910
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 
 
 356 
 
356 
    my $statement = $self->{STATEMENT};
 357 
    my $statement = $self->{STATEMENT};
357 
 
 358 
 
358 
 
 359 
 
359 
    #
 360 
    #
Line 386... Line 387...
386 
    $self->{ERROR} = 1;
 387 
    $self->{ERROR} = 1;
387 
    my $fhr = $self->{CONNECTION}{FH_READ};
 388 
    my $fhr = $self->{CONNECTION}{FH_READ};
388 
    while ( <$fhr> )
 389 
    while ( <$fhr> )
389 
    {
 390 
    {
390 
        chomp;
 391 
        chomp;
391 
 
 - 
 
392 
        if ( m/Data:(.*)/ )
 392 
        if ( m/Data:(.*)/ )
393 
        {
 393 
        {
394 
            push @rows, $1;
 394 
            push @rows, $1;
395 
            print "[DBI] Execute: $_\n" if $verbose > 2;
 395 
            print "[DBI] Execute: $_\n" if $verbose > 2;
396 
        }
 396 
        }
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+):(.*)~) {
- 
 
 403 
            push @colNames, $2;
- 
 
 404 
        }
402 
 
 405 
 
403 
        if ( m/^DataStart:/ )
 406 
        if ( m/^DataStart:/ )
404 
        {
 407 
        {
405 
            $self->{ERROR} = 0;
 408 
            $self->{ERROR} = 0;
406 
        }
 409 
        }
Line 417... Line 420...
417 
        }
 420 
        }
418 
 
 421 
 
419 
    }
 422 
    }
420 
 
 423 
 
421 
    $self->{ROWS} = \@rows;
 424 
    $self->{ROWS} = \@rows;
- 
 
 425 
    $self->{COLNAMES} = \@colNames;
422 
 
 426 
 
423 
    return ! $self->{ERROR};
 427 
    return ! $self->{ERROR};
424 
}
 428 
}
425 
 
 429 
 
426 
#-------------------------------------------------------------------------------
 430 
#-------------------------------------------------------------------------------
Line 485... Line 489...
485 
    $self->{ROWS_READ}++;
 489 
    $self->{ROWS_READ}++;
486 
    return @row;
 490 
    return @row;
487 
}
 491 
}
488 
 
 492 
 
489 
#-------------------------------------------------------------------------------
 493 
#-------------------------------------------------------------------------------
- 
 
 494 
# Function        : fetch_colNames
- 
 
 495 
#
- 
 
 496 
# Description     : NonStandard function
- 
 
 497 
#                   Fetch array of colum names
- 
 
 498 
#
- 
 
 499 
# Inputs          : None
- 
 
 500 
#
- 
 
 501 
# Returns         : An array of column names
- 
 
 502 
#
- 
 
 503 
sub fetch_colNames
- 
 
 504 
{
- 
 
 505 
    my $self = shift;
- 
 
 506 
    return $self->{COLNAMES};
- 
 
 507 
}
- 
 
 508 
 
- 
 
 509 
#-------------------------------------------------------------------------------
490 
# Function        : finish
 510 
# Function        : finish
491 
#
 511 
#
492 
# Description     : Finish the 'execute'
 512 
# Description     : Finish the 'execute'
493 
#
 513 
#
494 
# Inputs          : None
 514 
# Inputs          : None