this looks better

git-svn-id: file:///raid/svn-personal/koakuma/trunk@27 219d0f9c-2d94-d447-890a-813e76b88fe9

diff --git a/Component/vcs_cvs.tcl b/Component/vcs_cvs.tcl
index 48ffcc85e6e470763cb71bd264b52b04d6de2230..4de818700587cb4c9651a876d4e57f79b10f1831 100644 (file)
--- a/Component/vcs_cvs.tcl
+++ b/Component/vcs_cvs.tcl
@@ -3,7 +3,6 @@ lappend components "CVS" "CVS Integration" "1.00" "VCS"
 
 proc CVS_info {} {
        regexp {[0-9]+\.[0-9]+\.[0-9]+} "[exec cvs --version]" version
-       add_toc2 "CVS"
        tputs   "<table border=\"0\">"
        tputs   "       <tr>"
        tputs   "               <th>"

diff --git a/Component/vcs_git.tcl b/Component/vcs_git.tcl
index a18272305444b7c2f2722cb0970d6abeed84b31d..2c9a6212c8afb6683574f34d709b15c3cb92e318 100644 (file)
--- a/Component/vcs_git.tcl
+++ b/Component/vcs_git.tcl
@@ -3,7 +3,6 @@ lappend components "Git" "Git Integration" "1.00" "VCS"
 
 proc Git_info {} {
        regexp {[0-9]+\.[0-9]+\.[0-9]+} "[exec git --version]" version
-       add_toc2 "Git"
        tputs   "<table border=\"0\">"
        tputs   "       <tr>"
        tputs   "               <th>"

diff --git a/Component/vcs_svn.tcl b/Component/vcs_svn.tcl
index 1c870647266fc8e0426448720e199baa4c98940c..7560bb69850526f79f82f907f73c8db70ba2f104 100644 (file)
--- a/Component/vcs_svn.tcl
+++ b/Component/vcs_svn.tcl
@@ -3,7 +3,6 @@ lappend components "Subversion" "Subversion Integration" "1.00" "VCS"
 
 proc Subversion_info {} {
        regexp {[0-9]+\.[0-9]+\.[0-9]+} "[exec svn --version]" version
-       add_toc2 "Subversion"
        tputs   "<table border=\"0\">"
        tputs   "       <tr>"
        tputs   "               <th>"

diff --git a/koakuma.cgi.in b/koakuma.cgi.in
index 652590a966f6ae65ffb72fcf40c74690724c2da5..b667d5a7e12ea6bdddb8f5b7bc5ee812f3c005ff 100644 (file)
--- a/koakuma.cgi.in
+++ b/koakuma.cgi.in
@@ -348,6 +348,7 @@ if { [catch {
                tputs   "</table>"
                add_toc "Components"
                loop_components {
+                       add_toc2 "${name} (${genre} component)"
                        if { [llength [info procs "${name}_info"]] > 0 } {
                                ${name}_info
                        }