[WWcvs] pg: minor changes to help with debugging

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

Log Message:
-----------
minor changes to help with debugging

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

Revision Data
-------------
Index: AppletObjects.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/AppletObjects.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -Lmacros/AppletObjects.pl -Lmacros/AppletObjects.pl -u -r1.10 -r1.11
--- macros/AppletObjects.pl
+++ macros/AppletObjects.pl
@@ -85,14 +85,17 @@
 //////////////////////////////////////////////////////////
 
     function submitAction()  {
-        alert("Begin submitAction!!!!!");
-        if (debug) {debugText = "Begin looping through applet_submitAction_list\n";}
+        
+        if (debug) {
+        	debugText = " Begin looping through applet_submitAction_list\n";
+        }
  		for (var applet in applet_submitAction_list)  {
- 			 //alert(applet);
+ 			
  			 applet_submitAction_list[applet]();
  		}
-		if (debug) {alert(debugText); debugText="";};
-    	return(1);
+		if (debug) {
+			alert(debugText); debugText="";
+		};
     }
     function initializeAction() {
         var iMax = 10;
@@ -295,6 +298,7 @@
 	# insert a hidden variable to hold the applet's state (debug =>1 makes it visible for debugging and provides debugging buttons)
 	#######
 	my $base_64_encoded_answer_value = ($answer_value =~/<XML|<?xml/i)? encode_base64($answer_value) : $answer_value;
+	$base_64_encoded_answer_value =~ s/\r|\n//g;    # get rid of line returns
 	my $decoded_answer_value         = ($answer_value =~/<XML|<?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/>