Subversion Repositories DevTools

Rev

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

Rev 7217 Rev 7236
Line 2292... Line 2292...
2292
#                   Will add {InfoWsExtra} to the session handle
2292
#                   Will add {InfoWsExtra} to the session handle
2293
#
2293
#
2294
sub getWsExtraInfo
2294
sub getWsExtraInfo
2295
{
2295
{
2296
    my $self = shift;
2296
    my $self = shift;
-
 
2297
#DebugDumpData("getWsExtraInfo", $self);
-
 
2298
 
-
 
2299
    my $path;
-
 
2300
    if (exists $self->{InfoWs}{Path}) {
-
 
2301
        $path = $self->{InfoWs}{Path}; 
-
 
2302
    } else {
-
 
2303
        $path = $self->Full();
-
 
2304
    }
-
 
2305
 
2297
 
2306
 
2298
    #
2307
    #
2299
    #   Determine the source of the merge
2308
    #   Determine the source of the merge
2300
    #   Create a hash entry to store working data
2309
    #   Create a hash entry to store working data
2301
    # 
2310
    # 
2302
    $self->{btData} = {};
2311
    $self->{btData} = {};
2303
    $self->SvnCmd ( 'log', '-v', '--xml', '--stop-on-copy', '--limit', '1', '-r0:HEAD', $self->{InfoWs}{Path}
2312
    $self->SvnCmd ( 'log', '-v', '--xml', '--stop-on-copy', '--limit', '1', '-r0:HEAD', $path
2304
                    , { 'process' => \&ProcessWsExtraInfo,
2313
                    , { 'process' => \&ProcessWsExtraInfo,
-
 
2314
                        'credentials' => 1
2305
                         }
2315
                         }
2306
                        );
2316
                        );
2307
 
2317
 
2308
    # Grab the first entry of the log array - should only be one
2318
    # Grab the first entry of the log array - should only be one
2309
    #
2319
    #