25 require
'../../main.inc.php';
26 require_once DOL_DOCUMENT_ROOT.
"/core/lib/admin.lib.php";
27 require_once DOL_DOCUMENT_ROOT.
"/core/lib/files.lib.php";
28 require_once DOL_DOCUMENT_ROOT.
"/opensurvey/fonctions.php";
39 $arrayofchoices =
GETPOST(
'choix',
'array');
40 $arrayoftypecolumn =
GETPOST(
'typecolonne',
'array');
43 if (isset($_SESSION[
"nbrecases"])) {
44 for ($i = 0; $i < $_SESSION[
"nbrecases"]; $i++) {
45 if (isset($arrayofchoices[$i])) {
46 $_SESSION[
"choix".$i] = $arrayofchoices[$i];
48 if (isset($arrayoftypecolumn[$i])) {
49 $_SESSION[
"typecolonne".$i] = $arrayoftypecolumn[$i];
53 $_SESSION[
"nbrecases"] = 5;
58 $_SESSION[
"nbrecases"] = $_SESSION[
"nbrecases"] + 5;
66 for ($i = 0; $i < $_SESSION[
"nbrecases"] + 1; $i++)
68 if (!empty($arrayofchoices[$i]))
71 $toutchoix .= str_replace(array(
",",
"@"),
" ", $arrayofchoices[$i]).(empty($arrayoftypecolumn[$i]) ?
'' :
'@'.$arrayoftypecolumn[$i]);
75 $toutchoix = substr(
"$toutchoix", 1);
76 $_SESSION[
"toutchoix"] = $toutchoix;
79 $testremplissage =
'';
80 for ($i = 0; $i < $_SESSION[
"nbrecases"]; $i++)
82 if (isset($arrayofchoices[$i]))
84 $testremplissage =
"ok";
89 if ($testremplissage !=
"ok" || (!$toutchoix)) {
93 $_SESSION[
"formatsondage"] =
"A";
104 $form =
new Form($db);
106 $arrayofjs = array();
107 $arrayofcss = array(
'/opensurvey/css/style.css');
108 llxHeader(
'', $langs->trans(
"OpenSurvey"),
"",
'', 0, 0, $arrayofjs, $arrayofcss);
110 if (empty($_SESSION[
'title']))
121 print '<form name="formulaire" action="#bas" method="POST">'.
"\n";
122 print '<input type="hidden" name="token" value="'.newToken().
'">';
127 print '<br>'.$langs->trans(
"PollOnChoice").
'<br><br>'.
"\n";
129 print '<div class=corps>'.
"\n";
130 print '<table>'.
"\n";
133 for ($i = 0; $i < $_SESSION[
"nbrecases"]; $i++) {
135 if (isset($_SESSION[
"choix$i"]) ===
false) {
136 $_SESSION[
"choix$i"] =
'';
138 print '<tr><td>'.$langs->trans(
"TitleChoice").
' '.$j.
': </td><td><input type="text" name="choix[]" size="40" maxlength="40" value="'.
dol_escape_htmltag($_SESSION[
"choix$i"]).
'" id="choix'.$i.
'">';
139 $tmparray = array(
'checkbox'=>$langs->trans(
"CheckBox"),
'yesno'=>$langs->trans(
"YesNoList"),
'foragainst'=>$langs->trans(
"PourContreList"));
140 print ' '.$langs->trans(
"Type").
' '.$form->selectarray(
"typecolonne[]", $tmparray, $_SESSION[
"typecolonne$i"]);
141 print '</td></tr>'.
"\n";
144 print '</table>'.
"\n";
147 print '<table><tr>'.
"\n";
148 print '<td>'.$langs->trans(
"5MoreChoices").
'</td><td><input type="image" name="ajoutcases" src="../img/add-16.png"></td>'.
"\n";
149 print '</tr></table>'.
"\n";
152 print '<table><tr>'.
"\n";
153 print '<td></td><td><input type="submit" class="button" name="confirmecreation" value="'.dol_escape_htmltag($langs->trans(
"CreatePoll")).
'"></td>'.
"\n";
154 print '</tr></table>'.
"\n";
157 print '</form>'.
"\n";
160 print '<a name=bas></a>'.
"\n";
161 print '<br><br><br>'.
"\n";
GETPOST($paramname, $check= 'alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
setEventMessages($mesg, $mesgs, $style= 'mesgs', $messagekey= '')
Set event messages in dol_events session object.
GETPOSTISSET($paramname)
Return true if we are in a context of submitting the parameter $paramname.
load_fiche_titre($titre, $morehtmlright= '', $picto= 'generic', $pictoisfullpath=0, $id= '', $morecssontable= '', $morehtmlcenter= '')
Load a title with picto.
accessforbidden($message= '', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program Calling this function terminate execution ...
print
Draft customers invoices.
dol_print_error($db= '', $error= '', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
ajouter_sondage()
Add a poll.
dol_escape_htmltag($stringtoescape, $keepb=0, $keepn=0, $keepmoretags= '', $escapeonlyhtmltags=0)
Returns text escaped for inclusion in HTML alt or title tags, or into values of HTML input fields...