Log Message:
-----------
Added submitActionScript option which allows you to add javaScript commands that
are executed when you submit the webwork question.
It's possible that this should replace submitActionAlias which hasn't really been implemented
yet.
Modified Files:
--------------
pg/lib:
Applet.pm
Revision Data
-------------
Index: Applet.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Applet.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -Llib/Applet.pm -Llib/Applet.pm -u -r1.13 -r1.14
--- lib/Applet.pm
+++ lib/Applet.pm
@@ -205,6 +205,7 @@
configAlias => 'config',
initializeActionAlias => 'setXML',
submitActionAlias => 'getXML',
+ submitActionScript => '', # script executed on submitting the WW question
returnFieldName => 'receivedField',
headerText => DEFAULT_HEADER_TEXT(),
objectText => '',
@@ -258,6 +259,11 @@
$self->{submitActionAlias} = shift ||$self->{submitActionAlias}; # replace the current contents if non-empty
$self->{submitActionAlias};
}
+sub submitActionScript {
+ my $self = shift;
+ $self->{submitActionScript} = shift ||$self->{submitActionScript}; # replace the current contents if non-empty
+ $self->{submitActionScript};
+}
sub getStateAlias {
my $self = shift;
$self->{getStateAlias} = shift ||$self->{getStateAlias}; # replace the current contents if non-empty
@@ -355,6 +361,7 @@
my $base64_initialState = $self->base64_state;
my $initializeAction = $self->initializeActionAlias;
my $submitAction = $self->submitActionAlias;
+ my $submitActionScript = $self->submitActionScript;
my $setState = $self->setStateAlias;
my $getState = $self->getStateAlias;
my $config = $self->configAlias;
@@ -532,6 +539,7 @@
alert("$appletName is not ready");
}
applet_getState_list["$appletName"]();
+ $submitActionScript
//getQE("$returnFieldName").value = getApplet("$appletName").sendData(); //FIXME -- not needed in general?
};
</script>
|
