Subversion Repositories DevTools

Rev

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

Rev 6177 Rev 7040
Line 345... Line 345...
345 
    #
 345 
    #
346 
    #   Split the user path into its component directory entries
 346 
    #   Split the user path into its component directory entries
347 
    #   Start at the top and look for one of these in the view
 347 
    #   Start at the top and look for one of these in the view
348 
    #
 348 
    #
349 
    my @user_path = split ('/', $user_path );
 349 
    my @user_path = split ('/', $user_path );
- 
 
 350 
    shift @user_path if $user_path[0] eq '';
350 
    my $tpath = '';
 351 
    my $tpath = '';
351 
    foreach my $dir ( @user_path )
 352 
    foreach my $dir ( @user_path )
352 
    {
 353 
    {
353 
        if ( -d "$view_path/$dir" )
 354 
        if ( -d "$view_path/$dir" )
354 
        {
 355 
        {