[WWcvs] pg: complete the conversion from configAlias to setConfigAlias

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

Log Message:
-----------
complete the conversion from configAlias to setConfigAlias

Modified Files:
--------------
    pg/lib:
        Applet.pm

Revision Data
-------------
Index: Applet.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Applet.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -Llib/Applet.pm -Llib/Applet.pm -u -r1.18 -r1.19
--- lib/Applet.pm
+++ lib/Applet.pm
@@ -268,13 +268,15 @@
 		initialState       => '',         # initial state.  (I'm considering storing everything as ascii and converting on the fly to base64 when needed.)
 		getStateAlias      =>  'getXML',
 		setStateAlias      =>  'setXML',
-		configAlias        =>  '',
+		configAlias        =>  '',        # deprecated
 		getConfigAlias     =>  'getConfig',
 		setConfigAlias     =>  'setConfig',
 		initializeActionAlias => 'setXML',
 		submitActionAlias  =>  'getXML',
-		submitActionScript  =>  '',        # script executed on submitting the WW question
-		answerBox          =>  'answerBox',
+		submitActionScript  => '',        # script executed on submitting the WW question
+		answerBoxAlias     =>  'answerBox',
+		answerBox          =>  '',        # deprecated
+		returnFieldName    => '',         # deprecated
 		headerText         =>  DEFAULT_HEADER_TEXT(),
 		objectText         => '',
 		debug              => 0,
@@ -282,6 +284,11 @@
 	};
 	bless $self, $class;
 	$self->initialState('<xml></xml>');
+	if ($self->{returnFieldName}) or $self->{answerBox} ) { # backward compatibility
+		warn "use answerBoxAlias instead of returnFieldName or answerBox";
+		$self->{answerBox}='';
+		$self->{returnFieldName}='';
+	}
 	if ($self->{configAlias}) { # backward compatibility
 		warn "use setConfigAlias instead of configAlias";
 		$self->{configAlias}='';