Eliminate a few stray typo bugs
authorKyle J. McKay <mackyle@gmail.com>
Sat, 13 Jul 2013 17:29:59 +0000 (13 10:29 -0700)
committerKyle J. McKay <mackyle@gmail.com>
Sat, 13 Jul 2013 17:29:59 +0000 (13 10:29 -0700)
These were created by the "Stay inside the current URL scheme"
changes that somehow escaped testing.

cgi/regproj.cgi
cgi/tagproj.cgi

index aefaf8c..b71891a 100755 (executable)
@@ -263,7 +263,7 @@ if ($name =~ m#/#) {
 
 print <<EOT;
 $Girocco::Config::legalese
-<form method="post" action="$@{[url_path($Girocco::Config::webadmurl)]}/regproj.cgi">
+<form method="post" action="@{[url_path($Girocco::Config::webadmurl)]}/regproj.cgi">
 <table class="form">
 <tr><td class="formlabel">Project name:</td>
 <td>$forkentry<input type="text" name="name" value="$name" /><span class="formdata" style="padding-left:0">.git</span></td></tr>
index 8e43b10..98ddbe3 100755 (executable)
@@ -38,4 +38,4 @@ foreach my $ctag (split(/ /, $ctags)) {
        open CT, '>', $proj->{path}."/ctags/$ctag" and print CT ($val+1)."\n" and close CT;
 }
 
-print $cgi->header(-status=>303, -location=>"$@{[url_path(Girocco::Config::gitweburl)]}/$pname.git");
+print $cgi->header(-status=>303, -location=>"@{[url_path($Girocco::Config::gitweburl)]}/$pname.git");