From 72257cc863fd7f55885760e93f62dada6ecd7bc3 Mon Sep 17 00:00:00 2001
From: "Kyle J. McKay" <mackyle@gmail.com>
Date: Sat, 13 Jul 2013 10:29:59 -0700
Subject: [PATCH] Eliminate a few stray typo bugs

These were created by the "Stay inside the current URL scheme"
changes that somehow escaped testing.
---
 cgi/regproj.cgi | 2 +-
 cgi/tagproj.cgi | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/cgi/regproj.cgi b/cgi/regproj.cgi
index aefaf8c..b71891a 100755
--- a/cgi/regproj.cgi
+++ b/cgi/regproj.cgi
@@ -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>
diff --git a/cgi/tagproj.cgi b/cgi/tagproj.cgi
index 8e43b10..98ddbe3 100755
--- a/cgi/tagproj.cgi
+++ b/cgi/tagproj.cgi
@@ -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");
-- 
2.11.4.GIT