28require 
'../../main.inc.php';
 
   29require_once DOL_DOCUMENT_ROOT.
"/core/lib/admin.lib.php";
 
   30require_once DOL_DOCUMENT_ROOT.
"/core/lib/files.lib.php";
 
   31require_once DOL_DOCUMENT_ROOT.
"/core/class/doleditor.class.php";
 
   32require_once DOL_DOCUMENT_ROOT.
"/opensurvey/lib/opensurvey.lib.php";
 
   35if (!$user->hasRight(
'opensurvey', 
'write')) {
 
   39$langs->load(
"opensurvey");
 
   42$description = 
GETPOST(
'description', 
'restricthtml');
 
   43$mailsonde = 
GETPOST(
'mailsonde');
 
   44$creation_sondage_date = 
GETPOST(
'creation_sondage_date');
 
   45$creation_sondage_autre = 
GETPOST(
'creation_sondage_autre');
 
   48$session_var = array(
'title', 
'description', 
'mailsonde');
 
   49foreach ($session_var as $var) {
 
   50  if (isset($_SESSION[$var])) {
 
   51    $_SESSION[$var] = 
null;
 
   60if (!empty($creation_sondage_date) || !empty($creation_sondage_autre)) {
 
   61  $_SESSION[
"title"] = $title;
 
   62  $_SESSION[
"description"] = $description;
 
   64  if (
GETPOST(
'mailsonde') == 
'on') {
 
   65    $_SESSION[
"mailsonde"] = 
true;
 
   67    $_SESSION[
"mailsonde"] = 
false;
 
   70  if (
GETPOST(
'allow_comments') == 
'on') {
 
   71    $_SESSION[
'allow_comments'] = 
true;
 
   73    $_SESSION[
'allow_comments'] = 
false;
 
   76  if (
GETPOST(
'allow_spy') == 
'on') {
 
   77    $_SESSION[
'allow_spy'] = 
true;
 
   79    $_SESSION[
'allow_spy'] = 
false;
 
   85  if ($champdatefin && ($champdatefin > 0)) { 
 
   87    if ($champdatefin >= 
dol_now()) {
 
   89      $_SESSION[
'champdatefin'] = 
dol_print_date($champdatefin, 
'dayrfc');
 
   92      $_SESSION[
'champdatefin'] = 
dol_print_date($champdatefin, 
'dayrfc');
 
  100    setEventMessages($langs->trans(
'ErrorFieldRequired', $langs->transnoentitiesnoconv(
"ExpireDate")), 
null, 
'errors');
 
  103  if ($title && $testdate) {
 
  104    if (!empty($creation_sondage_date)) {
 
  105      header(
"Location: choix_date.php");
 
  109    if (!empty($creation_sondage_autre)) {
 
  110      header(
"Location: choix_autre.php");
 
  123$form = 
new Form($db);
 
  126$arrayofcss = array(
'/opensurvey/css/style.css');
 
  127llxHeader(
'', $langs->trans(
"OpenSurvey"), 
'', 
"", 0, 0, $arrayofjs, $arrayofcss);
 
  132print 
'<form name="formulaire" action="" method="POST">'.
"\n";
 
  133print 
'<input type="hidden" name="token" value="'.newToken().
'">';
 
  138print 
'<table class="border centpercent">'.
"\n";
 
  140print 
'<tr><td class="titlefieldcreate fieldrequired">'.$langs->trans(
"PollTitle").
'</td><td><input type="text" name="title" class="minwidth300" maxlength="80" value="'.$_SESSION[
"title"].
'"></td>'.
"\n";
 
  141if (!$_SESSION[
"title"] && (
GETPOST(
'creation_sondage_date') || 
GETPOST(
'creation_sondage_autre'))) {
 
  142  setEventMessages($langs->trans(
"ErrorFieldRequired", $langs->transnoentitiesnoconv(
"PollTitle")), 
null, 
'errors');
 
  146print 
'<tr><td>'.$langs->trans(
"Description").
'</td><td>';
 
  147$doleditor = 
new DolEditor(
'description', $_SESSION[
"description"], 
'', 120, 
'dolibarr_notes', 
'In', 1, 1, 1, ROWS_7, 
'90%');
 
  148$doleditor->Create(0, 
'');
 
  152print 
'<tr><td class="fieldrequired">'.$langs->trans(
"ExpireDate").
'</td><td>';
 
  154print $form->selectDate($champdatefin ? $champdatefin : -1, 
'champdatefin', 
'', 
'', 
'', 
"add", 1, 0);
 
  157print 
'</table>'.
"\n";
 
  162print 
'<script type="text/javascript">'.
"\n";
 
  163print 
'document.formulaire.title.focus();'.
"\n";
 
  164print 
'</script>'.
"\n";
 
  170if ($_SESSION[
"mailsonde"]) {
 
  171  $cochemail = 
"checked";
 
  174print 
'<input type="checkbox" id="mailsonde" name="mailsonde" '.$cochemail.
'> <label for="mailsonde">'.$langs->trans(
"ToReceiveEMailForEachVote").
'</label><br>'.
"\n";
 
  176if ($_SESSION[
'allow_comments']) {
 
  177  $allow_comments = 
'checked';
 
  179if (GETPOSTISSET(
'allow_comments')) {
 
  180  $allow_comments = 
GETPOST(
'allow_comments') ? 
'checked' : 
'';
 
  182print 
'<input type="checkbox" id="allow_comments" name="allow_comments" '.$allow_comments.
'"> <label for="allow_comments">'.$langs->trans(
'CanComment').
'</label><br>'.
"\n";
 
  184if ($_SESSION[
'allow_spy']) {
 
  185  $allow_spy = 
'checked';
 
  187if (GETPOSTISSET(
'allow_spy')) {
 
  188  $allow_spy = 
GETPOST(
'allow_spy') ? 
'checked' : 
'';
 
  190print 
'<input type="checkbox" id="allow_spy" name="allow_spy" '.$allow_spy.
'> <label for="allow_spy">'.$langs->trans(
'CanSeeOthersVote').
'</label><br>'.
"\n";
 
  193  if (
GETPOST(
'choix_sondage') == 
'date') {
 
  194    print 
'<input type="hidden" name="creation_sondage_date" value="date">';
 
  196    print 
'<input type="hidden" name="creation_sondage_autre" value="autre">';
 
  198  print 
'<input type="hidden" name="choix_sondage" value="'.GETPOST(
'choix_sondage').
'">';
 
  199  print 
'<br><input type="submit" class="button" name="submit" value="'.$langs->trans(
"CreatePoll").
' ('.(
GETPOST(
'choix_sondage') == 
'date' ? $langs->trans(
"TypeDate") : $langs->trans(
"TypeClassic")).
')">';
 
  202  print 
'<br><table>'.
"\n";
 
  203  print 
'<tr><td>'.$langs->trans(
"CreateSurveyDate").
'</td><td></td> '.
"\n";
 
  204  print 
'<td><input type="image" name="creation_sondage_date" value="'.$langs->trans(
'CreateSurveyDate').
'" src="../img/calendar-32.png"></td></tr>'.
"\n";
 
  205  print 
'<tr><td>'.$langs->trans(
"CreateSurveyStandard").
'</td><td></td> '.
"\n";
 
  206  print 
'<td><input type="image" name="creation_sondage_autre" value="'.$langs->trans(
'CreateSurveyStandard').
'" src="../img/chart-32.png"></td></tr>'.
"\n";
 
  207  print 
'</table>'.
"\n";
 
  209print 
'<br><br><br>'.
"\n";
 
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader()
Empty header.
 
Class to manage a WYSIWYG editor.
 
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...
 
load_fiche_titre($titre, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
 
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='', $dragdropfile=0)
Show tabs of a record.
 
dol_get_fiche_end($notab=0)
Return tab footer of a card.
 
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_now($mode='auto')
Return date for now.
 
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='', $noduplicate=0)
Set event messages in dol_events session object.
 
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.