[isidorus-cvs] r82 - in trunk/src: ajax/javascripts rest_interface

Lukas Giessmann lgiessmann at common-lisp.net
Tue Jun 30 13:21:54 UTC 2009


Author: lgiessmann
Date: Tue Jun 30 09:21:53 2009
New Revision: 82

Log:
ajax-client: fixed some info-messages when the client requests something

Modified:
   trunk/src/ajax/javascripts/requests.js
   trunk/src/rest_interface/set-up-json-interface.lisp

Modified: trunk/src/ajax/javascripts/requests.js
==============================================================================
--- trunk/src/ajax/javascripts/requests.js	(original)
+++ trunk/src/ajax/javascripts/requests.js	Tue Jun 30 09:21:53 2009
@@ -89,12 +89,20 @@
     try{
 	var onFailure = onFailureHandler ? onFailureHandler : defaultFailureHandler;
 	var timeFun = setAjaxTimeout(TIMEOUT, TYPE_PSIS_URL);
-	onLoad("Requesting all type PSIs");
-
+	
 	var url = ALL_PSIS_URL;
+	var message = "Requesting all type PSIs";
 	if(what && what.types && what.types === true) url = TYPE_PSIS_URL;
-	else if(what && what.instances && what.instances === true) url = INSTANCE_PSIS_URL;
-	else if(what && what.all && what.all === true) url = ALL_PSIS_URL;
+	else if(what && what.instances && what.instances === true){
+	    url = INSTANCE_PSIS_URL;
+	    message = "Requesting all instance PSIs";
+	}
+	else if(what && what.all && what.all === true){
+	    url = ALL_PSIS_URL;
+	    message = "Requesting all PSIs";
+	}
+
+	onLoad(message);
 
 	new Ajax.Request(url, {
 	    "method" : "get",

Modified: trunk/src/rest_interface/set-up-json-interface.lisp
==============================================================================
--- trunk/src/rest_interface/set-up-json-interface.lisp	(original)
+++ trunk/src/rest_interface/set-up-json-interface.lisp	Tue Jun 30 09:21:53 2009
@@ -19,7 +19,7 @@
 (defparameter *json-get-type-tmcl-url* "/json/tmcl/type/?$") ;the json url for getting some tmcl information of a topic treated as a type
 (defparameter *json-get-instance-tmcl-url* "/json/tmcl/instance/?$") ;the json url for getting some tmcl information of a topic treated as an instance
 (defparameter *json-get-overview* "/json/tmcl/overview/?$") ; returns a json-object representing a tree view
-(defparameter *ajax-user-interface-url* "/isidorus/?$") ;the url to the user interface; if you want to get all topics set start=0&end=nil -> localhost:8000/isidorus
+(defparameter *ajax-user-interface-url* "/isidorus/?$") ;the url to the user interface;
 (defparameter *ajax-user-interface-css-prefix* "/css") ;the url to the css files of the user interface
 (defparameter *ajax-user-interface-css-directory-path* "ajax/css") ;the directory contains the css files
 (defparameter *ajax-user-interface-file-path* "ajax/isidorus.html") ;the file path to the HTML file implements the user interface




More information about the Isidorus-cvs mailing list