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 
    #