[WWcvs] pg: corrected typos in setState macros.

[Mike G. v. a. <we...@ma...>]

Log Message:
-----------
corrected typos in setState macros.

Modified Files:
--------------
    pg/macros:
        AppletObjects.pl

Revision Data
-------------
Index: AppletObjects.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/AppletObjects.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -Lmacros/AppletObjects.pl -Lmacros/AppletObjects.pl -u -r1.4 -r1.5
--- macros/AppletObjects.pl
+++ macros/AppletObjects.pl
@@ -52,7 +52,7 @@
 
     
     function base64Q(str) {
-    	return !str.match(/<XML>*/i);
+    	return !str.match(/<XML/i && !str.match(/<?xml/i));
     }
     
     function submitAction()  {
@@ -223,11 +223,13 @@
 	my $decoded_answer_value         = ($answer_value =~/<XML>/i) ? $answer_value : decode_base64($answer_value);
     my $debug_input_element  = qq!\n<textarea  rows="4" cols="80" 
 	   name = "$appletStateName">$decoded_answer_value</textarea><br/>
-	        <input type="button"  value="getState" 
-	               onClick="applet_getState_list['$appletName']()">
-	        <input type="button"  value="setState" 
-	               onClick="applet_setState_list['$appletName']();
-	                 var tmp = getQE('$appletStateName').value;">
+	        <input type="button"  value="$getState" 
+	               onClick="applet_getState_list['$appletName']()"
+	        >
+	        <input type="button"  value="$setState" 
+	               onClick="var tmp = getQE('$appletStateName').value;
+	                        applet_setState_list['$appletName'](tmp);"
+	        >
 	  !;
 	my $state_input_element = ($self->debug == 1) ? $debug_input_element :
 	      qq!\n<input type="hidden" name = "$appletStateName" value ="$base_64_encoded_answer_value">!;