27 require
'../../main.inc.php';
28 require_once DOL_DOCUMENT_ROOT.
"/core/lib/admin.lib.php";
29 require_once DOL_DOCUMENT_ROOT.
"/core/lib/files.lib.php";
30 require_once DOL_DOCUMENT_ROOT.
"/core/class/doleditor.class.php";
31 require_once DOL_DOCUMENT_ROOT.
"/opensurvey/fonctions.php";
36 $langs->load(
"opensurvey");
39 $description =
GETPOST(
'description',
'restricthtml');
40 $mailsonde =
GETPOST(
'mailsonde');
41 $creation_sondage_date =
GETPOST(
'creation_sondage_date');
42 $creation_sondage_autre =
GETPOST(
'creation_sondage_autre');
45 $session_var = array(
'title',
'description',
'mailsonde');
46 foreach ($session_var as $var)
48 if (isset($_SESSION[$var])) $_SESSION[$var] = null;
56 if (!empty($creation_sondage_date) || !empty($creation_sondage_autre))
58 $_SESSION[
"title"] = $title;
59 $_SESSION[
"description"] = $description;
61 if (
GETPOST(
'mailsonde') ==
'on') {
62 $_SESSION[
"mailsonde"] =
true;
64 $_SESSION[
"mailsonde"] =
false;
67 if (
GETPOST(
'allow_comments') ==
'on') {
68 $_SESSION[
'allow_comments'] =
true;
70 $_SESSION[
'allow_comments'] =
false;
73 if (
GETPOST(
'allow_spy') ==
'on') {
74 $_SESSION[
'allow_spy'] =
true;
76 $_SESSION[
'allow_spy'] =
false;
82 if ($champdatefin && ($champdatefin > 0))
88 $_SESSION[
'champdatefin'] =
dol_print_date($champdatefin,
'dayrfc');
91 $_SESSION[
'champdatefin'] =
dol_print_date($champdatefin,
'dayrfc');
99 setEventMessages($langs->trans(
'ErrorFieldRequired', $langs->transnoentitiesnoconv(
"ExpireDate")), null,
'errors');
102 if ($title && $testdate)
104 if (!empty($creation_sondage_date))
106 header(
"Location: choix_date.php");
110 if (!empty($creation_sondage_autre))
112 header(
"Location: choix_autre.php");
125 $form =
new Form($db);
127 $arrayofjs = array();
128 $arrayofcss = array(
'/opensurvey/css/style.css');
129 llxHeader(
'', $langs->trans(
"OpenSurvey"),
'',
"", 0, 0, $arrayofjs, $arrayofcss);
134 print '<form name="formulaire" action="" method="POST">'.
"\n";
135 print '<input type="hidden" name="token" value="'.newToken().
'">';
140 print '<table class="border centpercent">'.
"\n";
142 print '<tr><td class="titlefieldcreate fieldrequired">'.$langs->trans(
"PollTitle").
'</td><td><input type="text" name="title" class="minwidth300" maxlength="80" value="'.$_SESSION[
"title"].
'"></td>'.
"\n";
143 if (!$_SESSION[
"title"] && (
GETPOST(
'creation_sondage_date') ||
GETPOST(
'creation_sondage_autre')))
145 setEventMessages($langs->trans(
"ErrorFieldRequired", $langs->transnoentitiesnoconv(
"PollTitle")), null,
'errors');
149 print '<tr><td>'.$langs->trans(
"Description").
'</td><td>';
150 $doleditor =
new DolEditor(
'description', $_SESSION[
"description"],
'', 120,
'dolibarr_notes',
'In', 1, 1, 1, ROWS_7,
'90%');
151 $doleditor->Create(0,
'');
155 print '<tr><td class="fieldrequired">'.$langs->trans(
"ExpireDate").
'</td><td>';
157 print $form->selectDate($champdatefin ? $champdatefin : -1,
'champdatefin',
'',
'',
'',
"add", 1, 0);
160 print '</table>'.
"\n";
165 print '<script type="text/javascript">'.
"\n";
166 print 'document.formulaire.title.focus();'.
"\n";
167 print '</script>'.
"\n";
173 if ($_SESSION[
"mailsonde"]) $cochemail =
"checked";
175 print '<input type="checkbox" name="mailsonde" '.$cochemail.
'> '.$langs->trans(
"ToReceiveEMailForEachVote").
'<br>'.
"\n";
177 if ($_SESSION[
'allow_comments']) $allow_comments =
'checked';
178 if (
GETPOSTISSET(
'allow_comments')) $allow_comments =
GETPOST(
'allow_comments') ?
'checked' :
'';
179 print '<input type="checkbox" name="allow_comments" '.$allow_comments.
'"> '.$langs->trans(
'CanComment').
'<br>'.
"\n";
181 if ($_SESSION[
'allow_spy']) $allow_spy =
'checked';
183 print '<input type="checkbox" name="allow_spy" '.$allow_spy.
'> '.$langs->trans(
'CanSeeOthersVote').
'<br>'.
"\n";
187 if (
GETPOST(
'choix_sondage') ==
'date')
print '<input type="hidden" name="creation_sondage_date" value="date">';
188 else print '<input type="hidden" name="creation_sondage_autre" value="autre">';
189 print '<input type="hidden" name="choix_sondage" value="'.GETPOST(
'choix_sondage').
'">';
190 print '<br><input type="submit" class="button" name="submit" value="'.$langs->trans(
"CreatePoll").
' ('.(
GETPOST(
'choix_sondage') ==
'date' ? $langs->trans(
"TypeDate") : $langs->trans(
"TypeClassic")).
')">';
193 print '<br><table>'.
"\n";
194 print '<tr><td>'.$langs->trans(
"CreateSurveyDate").
'</td><td></td> '.
"\n";
195 print '<td><input type="image" name="creation_sondage_date" value="'.$langs->trans(
'CreateSurveyDate').
'" src="../img/calendar-32.png"></td></tr>'.
"\n";
196 print '<tr><td>'.$langs->trans(
"CreateSurveyStandard").
'</td><td></td> '.
"\n";
197 print '<td><input type="image" name="creation_sondage_autre" value="'.$langs->trans(
'CreateSurveyStandard').
'" src="../img/chart-32.png"></td></tr>'.
"\n";
198 print '</table>'.
"\n";
200 print '<br><br><br>'.
"\n";
201 print '</form>'.
"\n";
GETPOST($paramname, $check= 'alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
dol_mktime($hour, $minute, $second, $month, $day, $year, $gm= 'auto', $check=1)
Return a timestamp date built from detailed informations (by default a local PHP server timestamp) Re...
dol_now($mode= 'auto')
Return date for now.
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 ...
dol_get_fiche_head($links=array(), $active= '', $title= '', $notab=0, $picto= '', $pictoisfullpath=0, $morehtmlright= '', $morecss= '', $limittoshow=0, $moretabssuffix= '')
Show tabs of a record.
print
Draft customers invoices.
dol_print_date($time, $format= '', $tzoutput= 'auto', $outputlangs= '', $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
dol_get_fiche_end($notab=0)
Return tab footer of a card.
Class to manage a WYSIWYG editor.