From c256192364993e170cee802a081f2f374fc9aabd Mon Sep 17 00:00:00 2001
From: pj2m <pj2m@7838e531-6607-4d57-9587-6c381814729c>
Date: Fri, 29 Jul 2011 12:04:38 +0000
Subject: [PATCH] fix bug with absolute/relative path to gr/grs file in html
 view

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/semagramme/libcaml-grew/trunk@6510 7838e531-6607-4d57-9587-6c381814729c
---
 src/libgrew.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/libgrew.ml b/src/libgrew.ml
index 86f6873..0050bc5 100644
--- a/src/libgrew.ml
+++ b/src/libgrew.ml
@@ -99,8 +99,8 @@ let rewrite_to_html_intern ?(no_init=false) ?main_feat grs_file grs seq input ou
 
 
   Printf.bprintf buff "%s\n" head;
-  Printf.bprintf buff "<b>GRS file</b>: <a href=\"file:///%s\">%s</a></h2><br/>\n" (Filename.basename grs_file) (Filename.basename grs_file);
-  Printf.bprintf buff "<b>Input file</b>: <a href=\"file:///%s\">%s</a></h2>\n" (Filename.basename input) (Filename.basename input);
+  Printf.bprintf buff "<b>GRS file</b>: <a href=\"%s\">%s</a></h2><br/>\n" (Filename.basename grs_file) (Filename.basename grs_file);
+  Printf.bprintf buff "<b>Input file</b>: <a href=\"%s\">%s</a></h2>\n" (Filename.basename input) (Filename.basename input);
   ignore(Sys.command(Printf.sprintf "cp %s %s" input (Filename.concat (Filename.dirname output) (Filename.basename input))));
 
   try
-- 
GitLab