27require
'../../main.inc.php';
28require_once DOL_DOCUMENT_ROOT.
"/core/lib/admin.lib.php";
29require_once DOL_DOCUMENT_ROOT.
"/core/lib/files.lib.php";
30require_once DOL_DOCUMENT_ROOT.
"/opensurvey/lib/opensurvey.lib.php";
33if (!$user->hasRight(
'opensurvey',
'write')) {
43$arrayofchoices =
GETPOST(
'choix',
'array');
44$arrayoftypecolumn =
GETPOST(
'typecolonne',
'array');
47if (isset($_SESSION[
"nbrecases"])) {
48 for ($i = 0; $i < $_SESSION[
"nbrecases"]; $i++) {
49 if (isset($arrayofchoices[$i])) {
50 $_SESSION[
"choix".$i] = $arrayofchoices[$i];
52 if (isset($arrayoftypecolumn[$i])) {
53 $_SESSION[
"typecolonne".$i] = $arrayoftypecolumn[$i];
57 $_SESSION[
"nbrecases"] = 5;
61 $_SESSION[
"nbrecases"] += 5;
65if (GETPOSTISSET(
"confirmecreation")) {
68 for ($i = 0; $i < $_SESSION[
"nbrecases"] + 1; $i++) {
69 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++) {
81 if (isset($arrayofchoices[$i])) {
82 $testremplissage =
"ok";
87 if ($testremplissage !=
"ok" || (!$toutchoix)) {
91 $_SESSION[
"formatsondage"] =
"A";
102$form =
new Form($db);
105$arrayofcss = array(
'/opensurvey/css/style.css');
106llxHeader(
'', $langs->trans(
"OpenSurvey"),
"",
'', 0, 0, $arrayofjs, $arrayofcss);
108if (empty($_SESSION[
'title'])) {
109 dol_print_error(
null, $langs->trans(
'ErrorOpenSurveyFillFirstSection'));
118print
'<form name="formulaire" action="#bas" method="POST">'.
"\n";
119print
'<input type="hidden" name="token" value="'.newToken().
'">';
124print
'<br>'.$langs->trans(
"PollOnChoice").
'<br><br>'.
"\n";
126print
'<div class=corps>'.
"\n";
130for ($i = 0; $i < $_SESSION[
"nbrecases"]; $i++) {
132 if (!isset($_SESSION[
"choix$i"])) {
133 $_SESSION[
"choix$i"] =
'';
135 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.
'">';
136 $tmparray = array(
'checkbox' => $langs->trans(
"CheckBox"),
'yesno' => $langs->trans(
"YesNoList"),
'foragainst' => $langs->trans(
"PourContreList"));
137 print
' '.$langs->trans(
"Type").
' '.$form->selectarray(
"typecolonne[]", $tmparray, $_SESSION[
"typecolonne$i"]);
138 print
'</td></tr>'.
"\n";
141print
'</table>'.
"\n";
144print
'<table><tr>'.
"\n";
145print
'<td>'.$langs->trans(
"5MoreChoices").
'</td><td><input type="image" name="ajoutcases" src="../img/add-16.png"></td>'.
"\n";
146print
'</tr></table>'.
"\n";
149print
'<table><tr>'.
"\n";
150print
'<td></td><td><input type="submit" class="button" name="confirmecreation" value="'.dol_escape_htmltag($langs->trans(
"CreatePoll")).
'"></td>'.
"\n";
151print
'</tr></table>'.
"\n";
157print
'<a name="bas"></a>'.
"\n";
158print
'<br><br><br>'.
"\n";
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader($head='', $title='', $help_url='', $target='', $disablejs=0, $disablehead=0, $arrayofjs='', $arrayofcss='', $morequerystring='', $morecssonbody='', $replacemainareaby='', $disablenofollow=0, $disablenoindex=0)
Empty header.
load_fiche_titre($title, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0, $attop=0)
Set event messages in dol_events session object.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
dol_escape_htmltag($stringtoescape, $keepb=0, $keepn=0, $noescapetags='', $escapeonlyhtmltags=0, $cleanalsojavascript=0)
Returns text escaped for inclusion in HTML alt or title or value tags, or into values of HTML input f...
ajouter_sondage()
Add a poll.
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.