/me finished reviewing ...

[helm.git] / helm / ocaml / metadata / sqlStatements.ml

diff --git a/helm/ocaml/metadata/sqlStatements.ml b/helm/ocaml/metadata/sqlStatements.ml
index ecfade5177a62afad39c097d0091c2366c276527..a08073965fcb2211e2d7ec63caeefdf96dda6c0a 100644 (file)
--- a/helm/ocaml/metadata/sqlStatements.ml
+++ b/helm/ocaml/metadata/sqlStatements.ml
@@ -23,6 +23,8 @@
  * http://helm.cs.unibo.it/
  *)
 
+(* $Id$ *)
+
 open Printf;;
 type tbl = [ `RefObj| `RefSort| `RefRel| `ObjectName| `Hits| `Count]
 
@@ -100,7 +102,6 @@ sprintf "CREATE INDEX %s_source ON %s (source);" name name ;
 sprintf "CREATE INDEX %s_no ON %s (no);" name name] 
 
 let sprintf_count_index name = [
-sprintf "CREATE INDEX %s_source ON %s (source);" name name;
 sprintf "CREATE INDEX %s_conclusion ON %s (conclusion);" name name;
 sprintf "CREATE INDEX %s_hypothesis ON %s (hypothesis);" name name;
 sprintf "CREATE INDEX %s_statement ON %s (statement);" name name]