about summary refs log tree commit diff
diff options
context:
space:
mode:
authorEfraim Flashner2020-08-18 08:53:33 -0500
committerEfraim Flashner2020-08-18 08:53:33 -0500
commit1e0957387ebf45e40f6f19808a105c2f03c0987f (patch)
tree1973ae4151e531cf2cb80ec384ed3e8dc4f24527
parentc29ac2a11247efb5609776a3be386380259e019e (diff)
downloadguix-bioinformatics-1e0957387ebf45e40f6f19808a105c2f03c0987f.tar.gz
genenetwork1: patch more files
-rw-r--r--gn/packages/genenetwork.scm19
1 files changed, 13 insertions, 6 deletions
diff --git a/gn/packages/genenetwork.scm b/gn/packages/genenetwork.scm
index 282af31..a621124 100644
--- a/gn/packages/genenetwork.scm
+++ b/gn/packages/genenetwork.scm
@@ -822,24 +822,31 @@ written in C")
                  #t)))
            (add-after 'unpack 'use-local-links
              (lambda _
-               (substitute* "web/webqtl/base/webqtlConfig.py"
-                 (("http://www.genenetwork.org") ""))
+               (substitute* '("web/javascript/menu_items.js"
+                              "web/webqtl/base/webqtlConfig.py"
+                              "web/webqtl/maintainance/updateMenuJS.py")
+                 (("http://(www|gn1).genenetwork.org") ""))
 
                ;; Move this file out of the way while patching files.
                (rename-file "web/infoshare/manager/MDB-Free/index.html"
                             "web/infoshare/manager/MDB-Free/index.htm")
-               (substitute* (cons 
+               (substitute* (cons*
                               "web/webqtl/base/indexBody.py"
+                              "web/webqtl/submitTrait/BatchSubmitPage.py"
                               (find-files "web" "\\.html"))
                  ((".*base href.*") "")
                  (("(HREF|href)=\\\"http://(www.)?genenetwork.org")
                   "href=\""))
-               (substitute* "web/webqtl/base/indexBody.py"
-                 (("src=\\\"http://www.genenetwork.org") "src=\""))
-
                ;; Move this file back to its original location.
                (rename-file "web/infoshare/manager/MDB-Free/index.htm"
                             "web/infoshare/manager/MDB-Free/index.html")
+
+               (substitute* (cons*
+                              "web/humanCross.html"
+                              "web/webqtl/base/indexBody.py"
+                              "web/whats_new.html"
+                              (find-files "web/dbdoc" "\\.html"))
+                 (("src=\\\"http://www.genenetwork.org") "src=\""))
                #t))
            (add-before 'install 'replace-htaccess-file
              (lambda _