Revision 737:1ce6efe3db0e extra

View differences:

extra/soundsoftware/SoundSoftware.pm
473 473 
    my $dbh = shift;
474 474 
    my $r = shift;
475 475 
    my $location = $r->location;
476 
    my $repo = ($r->uri =~ m{$location/*([^/]+)});
476 
    my ($repo) = $r->uri =~ m{$location/*([^/]*)};
477 477 

  		




  478
  478
  
    
    return $repo if (!$repo);


  		




  479
  479
  
    

  		




  ......




  546
  546
  
    
        # use repo name instead (don't want to admit to user that project


  		




  547
  547
  
    
        # doesn't exist)


  		




  548
  548
  
    
        my $location = $r->location;


  		




  549
  
  
    
        my $repo = ($r->uri =~ m{$location/*([^/]+)});


  		




  
  549
  
    
        my ($repo) = $r->uri =~ m{$location/*([^/]*)};


  		




  550
  550
  
    
        $name = $repo;


  		




  551
  551
  
    
    }


  		




  552
  552
  
    

  		












Also available in:  Unified diff