Subversion Repositories DevTools

Rev

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

Rev 2026 Rev 2049
Line 1085... Line 1085...
1085 
        $self->{WS} = $self->{'InfoWs'}{'Working Copy Root Path'};
 1085 
        $self->{WS} = $self->{'InfoWs'}{'Working Copy Root Path'};
1086 
 
 1086 
 
1087 
        #
 1087 
        #
1088 
        #   Calculate WSURL
 1088 
        #   Calculate WSURL
1089 
        #
 1089 
        #
1090 
        $self->{WSURL} = join('/', $self->{PKGROOT}, $self->{DEVBRANCH});
 1090 
        $self->{WSURL} = join('/', $self->{PKGROOT}, $self->{DEVBRANCH})
- 
 
 1091 
            if ($self->{DEVBRANCH});
1091 
        $found = 1;
 1092 
        $found = 1;
1092 
    }
 1093 
    }
1093 
    else
 1094 
    else
1094 
    {
 1095 
    {
1095 
        # Preversion 1.7
 1096 
        # Preversion 1.7
Line 1793... Line 1794...
1793 
    print $indent . "DEVBRANCH:" . ($self->{DEVBRANCH} || '') . "\n";
 1794 
    print $indent . "DEVBRANCH:" . ($self->{DEVBRANCH} || '') . "\n";
1794 
    print $indent . "SVNTAG   :" . ($self->{SVNTAG} || '') . "\n";
 1795 
    print $indent . "SVNTAG   :" . ($self->{SVNTAG} || '') . "\n";
1795 
#    print $indent . "FULL    :" . $self->Full . "\n";
 1796 
#    print $indent . "FULL    :" . $self->Full . "\n";
1796 
 
 1797 
 
1797 
    print $indent . "Full         :" . $self->Full . "\n";
 1798 
    print $indent . "Full         :" . $self->Full . "\n";
1798 
#    print $indent . "FullWs       :" . $self->FullWs    . "\n";
 1799 
    print $indent . "FullWs       :" . $self->FullWs    . "\n";
1799 
#    print $indent . "FullWsRev    :" . $self->FullWsRev . "\n";
 1800 
#    print $indent . "FullWsRev    :" . $self->FullWsRev . "\n";
1800 
    print $indent . "FullPath     :" . $self->FullPath  . "\n";
 1801 
    print $indent . "FullPath     :" . $self->FullPath  . "\n";
1801 
    print $indent . "Peg          :" . $self->Peg       . "\n";
 1802 
    print $indent . "Peg          :" . $self->Peg       . "\n";
1802 
    print $indent . "DevBranch    :" . $self->DevBranch . "\n";
 1803 
    print $indent . "DevBranch    :" . $self->DevBranch . "\n";
1803 
    print $indent . "Type         :" . $self->Type      . "\n";
 1804 
    print $indent . "Type         :" . $self->Type      . "\n";