[isidorus-cvs] r83 - in trunk/src: ajax/javascripts json - isidorus-cvs@common-lisp.net - mailman3.common-lisp.net

1 Jul 2009

Author: lgiessmann
Date: Wed Jul  1 03:32:59 2009
New Revision: 83
Log:
ajax-client: fixed a bug which occured by editing existing topics with more than one PSI - if you selected the placeholder "**current-topic**" the PSIs were transformed to JSON as one long string and not as an array
Modified:
   trunk/src/ajax/javascripts/create.js
   trunk/src/json/json_importer.lisp
Modified: trunk/src/ajax/javascripts/create.js
==============================================================================

--- trunk/src/ajax/javascripts/create.js	(original)
+++ trunk/src/ajax/javascripts/create.js	Wed Jul  1 03:32:59 2009
@@ -133,6 +133,8 @@
    
    // --- if the validation succeeded the fragment will be sent to the server
    var tPsis = topic.getContent().subjectIdentifiers;
+	if(!tPsis || tPsis.length === 0) tPsis = "null";
+	else tPsis = tPsis.toJSON()
    var referencedTopics = topic.getReferencedTopics();
    if(associations){
        referencedTopics = referencedTopics.concat(associations.getReferencedTopics()).without(CURRENT_TOPIC).uniq();
@@ -149,7 +151,7 @@
        }
        var jTopic = ""topic":" + topic.toJSON();
        var jTopicStubs = ""topicStubs":" + tsStr;
-	    var jAssociations = ""associations":" + (associations ? associations.toJSON().gsub(CURRENT_TOPIC_ESCAPED, tPsis) : "null");
+	    var jAssociations = ""associations":" + (associations ? associations.toJSON().gsub("\["" + CURRENT_TOPIC_ESCAPED + ""\]", tPsis) : "null");
        var jTmId = ""tmIds":" + tmId.toJSON();
        var json = "{" + jTopic + "," + jTopicStubs + "," + jAssociations + "," + jTmId + "}";
        commitFragment(json, function(xhr){ alert("The fragment was committed succesfully!"); }, null);
Modified: trunk/src/json/json_importer.lisp
==============================================================================
--- trunk/src/json/json_importer.lisp	(original)
+++ trunk/src/json/json_importer.lisp	Wed Jul  1 03:32:59 2009
@@ -217,6 +217,7 @@
    		   'd:PersistentIdC 'd:uri uri)
    	     return (elephant:get-instance-by-value
    		     'd:PersistentIdC 'd:uri uri))))
+	         (format t "psi: ~a~%" psi)
         (when psi
           (d:identified-construct psi)))))
       (unless top

    