Commit c2561923 authored by pj2m's avatar pj2m
Browse files

fix bug with absolute/relative path to gr/grs file in html view

git-svn-id: svn+ssh:// 7838e531-6607-4d57-9587-6c381814729c
parent ace95d31
......@@ -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))));
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment