1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
%%
%% This is file `eqtext.def',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% eq2db.dtx (with options: `copyright,eqtext')
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Eq2DB.sty package, 2001-9-01 %%
%% Copyright (C) 2014 D. P. Story %%
%% dpstory@uakron.edu %%
%% %%
%% This program can redistributed and/or modified under %%
%% the terms of the LaTeX Project Public License %%
%% Distributed from CTAN archives in directory %%
%% macros/latex/base/lppl.txt; either version 1 of the %%
%% License, or (at your option) any later version. %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\htmlSubmitType{HTML}
\def\insertHTMLs{,"pdfFileName","rtnURL"}
\def\eq@insertHiddenFields{%
\ifx\basicFieldsSet\eqdb@NO
\addHiddenTextField{pathToTxtFile}{}%
\addHiddenTextField{courseName}{}%
\addHiddenTextField{quizName}{}%
\ifx\eqdb@submitType\htmlSubmitType
\addHiddenTextField{pdfFileName}{}
\addHiddenTextField{rtnURL}{\thisRtnURL}\fi
\global\let\basicFieldsSet\eqdb@YES
\fi
\addHiddenTextField{\curr@quiz.ptScore}{}
\addHiddenTextField{\curr@quiz.nPointTotal}{\theeqpointvalue}
\addHiddenTextField{\curr@quiz.numQuestions}{\thequestionno}%
\addHiddenTextField{\curr@quiz.numCorrect}{}%
\addHiddenTextField{\curr@quiz.Responses}{}%
\eq@addHiddenTextFields
\eq@clearHiddenFields
}
\def\eq@submitURL{%
this.getField("pathToTxtFile").value="\db@Name";\jsR\jsT\jsT
this.getField("courseName").value="\db@Table";\jsR\jsT\jsT
this.getField("quizName").value="\curr@quiz";\jsR\jsT\jsT
this.getField("\curr@quiz.numCorrect").value=Score;\jsR\jsT\jsT
this.getField("\curr@quiz.ptScore").value=ptScore;\jsR\jsT\jsT
\ifx\eqdb@submitType\htmlSubmitType
this.getField("pdfFileName").value=%
this.documentFileName;\jsR\jsT\jsT
\fi
var aPointType=new Array(\aPointType);\jsR\jsT\jsT
\ifx\eqdb@tagged\eqdb@YES
var cResponses=gatherTaggedQuizData("\currQuiz",%
this.documentFileName,\thequestionno);\jsR\jsT\jsT
\else
var cResponses=Responses.toString().substr(1);\jsR\jsT\jsT
\fi
this.getField("\curr@quiz.Responses").value=cResponses;\jsR\jsT\jsT
\eq@populateHiddenFields
var aSubmitFields=new Array("IdInfo","\curr@quiz",%
"pathToTxtFile","courseName","quizName"%
\ifx\eqdb@submitType\htmlSubmitType\insertHTMLs\fi);\jsR\jsT\jsT
\priorSubmitQuiz
this.submitForm({cURL: \eq@CGI,bEmpty: true,%
aFields: aSubmitFields,cSubmitAs: "\eqdb@submitType" });\jsR\jsT\jsT
}
\endinput
%%
%% End of file `eqtext.def'.
|
