SoundSoftware Code Site

sub get_project_identifier {

    my $dbh = shift;

    my $r = shift;

    my $location = $r->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

    my $prefix = $cfg->{SoundSoftwareRepoPrefix};

    if (!defined $prefix) { $prefix = '%/'; }

    my $identifier = '';

    $sth->execute($prefix . $repo);

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

        # doesn't exist)

        my $location = $r->location;

        $name = $repo;

    }