Changeset 0da9dfe in tol

Timestamp:

Dec 14, 2011, 7:17:14 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

00c4270

Parents:

5b6b63c

Message:

refs #1347, implementing url to source code in trac

[@src tol tol/init.cpp init.cpp trunk@]

[@src tol tol/init.cpp init.cpp@]

[@src tol tol/init.cpp@]

[@src mms MMS/definition/01_variable/def_variable.tol def_variable.tol@]

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@3927 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tolbase/lib/nbdbmanager/nbdbmanager.tcl (modified) (2 diffs)

tolbase/lib/nbdbmanager/nbdbmanager.tcl

@@ -98 +98 @@
         mms,milestone https://www.tol-project.org/mms/milestone
         mms,ticket https://www.tol-project.org/mms/ticket
+        tol,browser https://www.tol-project.org/browser/tolp
+        tol,browser,default trunk
+        mms,browser https://trac.localbayes.es/mms/browser
+        mms,browser,default trunk
       }
       
@@ -128 +132 @@
         return [ eval url tol $path $args ]
       }
+
+      # [@src tol tol/init.cpp init.cpp trunk@]
+      # [@src tol tol/init.cpp init.cpp@]
+      # [@src tol tol/init.cpp@]
+      # [@src mms MMS/definition/01_variable/def_variable.tol def_variable.tol@]
+      proc src { where path args } {
+        foreach { label release } {"" ""} break
+        foreach { label release } $args break
+        if { $release eq "" } {
+          set release "trunk"
+        }
+        set urlroot $::urlConf(${where},browser)
+        set url "${urlroot}/${release}/${path}"
+        if { $label eq "" } {
+          return "\[${url}\]"
+        } else {
+          return "\[$label | ${url}\]"
+        }
+      }
     }
   }