amalgame/commit

FIXED: broken revision/version logic

authorJacco van Ossenbruggen
Fri Mar 6 14:55:17 2015 +0100
committerJacco van Ossenbruggen
Fri Mar 6 14:55:17 2015 +0100
commitaf86241ff7d3f5b2e3d634e02a979cc02d961b1a
treeb0a770e0897aac8e447ae1ef4d6781b94baaf115
parent57ea89f0c241844f601176a04671fda4430094b2
Diff style: patch stat
diff --git a/lib/amalgame/scheme_stats.pl b/lib/amalgame/scheme_stats.pl
index 6e2c22c..f277784 100644
--- a/lib/amalgame/scheme_stats.pl
+++ b/lib/amalgame/scheme_stats.pl
@@ -147,7 +147,21 @@ find_voc_revision(Voc, Version) :-
 find_voc_revision(Voc, Version) :-
 	rdf(Voc, amalgame:graph, SourceGraph), !,
 	prov_get_entity_version(Voc, SourceGraph, Version).
-find_voc_revision(_Voc, amalgame).
+find_voc_revision(Voc, Version) :-
+	atom(Voc),
+	rdf_graph(Voc),
+	rdf_graph_property(G, modified(Modified)),
+	rdf_graph_property(G, source_last_modified(Time)),
+	stamp_date_time(Time, Date, 'UTC'),
+        format_time(atom(Atom),
+                    '%d %b %y %T',
+                    Date),
+	dirty(Modified, Dirty),
+	atomic_list_concat([Dirty, Atom], Version).
+find_voc_revision(_Voc, '?').
+
+dirty(true, 'dirty:').
+dirty(_, '').
 
 parent_child_chk(P,C) :-
 	skos_parent_child(P,C),!.
diff --git a/web/css/startpage.css b/web/css/startpage.css
index 6363757..c65eb91 100644
--- a/web/css/startpage.css
+++ b/web/css/startpage.css
@@ -155,6 +155,10 @@
 	text-align: right;
 }
 
+#main td.version {
+	width: 9em;
+}
+
 /* import */
 #import form,
 #reference form {