comparison extra/soundsoftware/SoundSoftware.pm @ 736:51c97efbe241 feature_318

Small fixes -- avoid troubles when trying to retrive root /hg URL

 }
 
 sub get_project_identifier {
     my $dbh = shift;
     my $r = shift;
-
     my $location = $r->location;
-    my ($repo) = $r->uri =~ m{$location/*([^/]+)};
+    my $repo = ($r->uri =~ m{$location/*([^/]+)});
 
     return $repo if (!$repo);
 
     $repo =~ s/[^a-zA-Z0-9\._-]//g;
-
+    
     # The original Redmine.pm returns the string just calculated as
     # the project identifier.  That won't do for us -- we may have
     # (and in fact already do have, in our test instance) projects
     # whose repository names differ from the project identifiers.
 

     my $cfg = Apache2::Module::get_config
 	(__PACKAGE__, $r->server, $r->per_dir_config);
 
     my $prefix = $cfg->{SoundSoftwareRepoPrefix};
     if (!defined $prefix) { $prefix = '%/'; }
-
     my $identifier = '';
 
     $sth->execute($prefix . $repo);
     my $ret = 0;
     if (my @row = $sth->fetchrow_array) {

     if ($name =~ m/^\s*$/) {
         # nothing even in $project_id -- probably a nonexistent project.
         # use repo name instead (don't want to admit to user that project
         # doesn't exist)
         my $location = $r->location;
-        my ($repo) = $r->uri =~ m{$location/*([^/]+)};
+        my $repo = ($r->uri =~ m{$location/*([^/]+)});
         $name = $repo;
     }
 
     my $realm = '"Mercurial repository for ' . "'$name'" . '"';