d0/de1/opensurvey_8lib_8php_source.html

<?php

/* Copyright (C) 2013 Laurent Destailleur  <eldy@users.sourceforge.net>

 * Copyright (C) 2014 Marcos García     <marcosgdf@gmail.com>

 * Copyright (C) 2024   MDW             <mdeweerd@users.noreply.github.com>

 * Copyright (C) 2024   Frédéric France     <frederic.france@free.fr>

 *

* This program is free software; you can redistribute it and/or modify

* it under the terms of the GNU General Public License as published by

* the Free Software Foundation; either version 3 of the License, or

* (at your option) any later version.

*

* This program is distributed in the hope that it will be useful,

* but WITHOUT ANY WARRANTY; without even the implied warranty of

* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

* GNU General Public License for more details.

*

* You should have received a copy of the GNU General Public License

* along with this program. If not, see <https://www.gnu.org/licenses/>.

*/


function opensurvey_prepare_head(Opensurveysondage $object)

{

  global $langs, $conf;


  $h = 0;

  $head = array();


  $head[0][0] = 'card.php?id='.$object->id_sondage;

  $head[0][1] = $langs->trans("Survey");

  $head[0][2] = 'general';

  $h++;


  $head[1][0] = 'results.php?id='.$object->id_sondage;

  $head[1][1] = $langs->trans("SurveyResults");

  $nbVotes = $object->countVotes();

  if ($nbVotes > 0) {

    $head[$h][1] .= '<span class="badge marginleftonlyshort">'.($nbVotes).'</span>';

  }

  $head[1][2] = 'preview';

  $h++;


  // Show more tabs from modules

  // Entries must be declared in modules descriptor with line

  // $this->tabs = array('entity:+tabname:Title:@mymodule:/mymodule/mypage.php?id=__ID__');   to add new tab

  // $this->tabs = array('entity:-tabname);                           to remove a tab

  complete_head_from_modules($conf, $langs, $object, $head, $h, 'opensurveypoll');


  complete_head_from_modules($conf, $langs, $object, $head, $h, 'opensurveypoll', 'remove');


  return $head;

}


function llxHeaderSurvey($title, $head = "", $disablejs = 0, $disablehead = 0, $arrayofjs = [], $arrayofcss = [], $numsondage = '')

{

  global $langs, $mysoc;


  // $replacemainarea = (empty($conf->dol_hide_leftmenu) ? '<div>' : '').'<div>';


  top_htmlhead($head, $title, $disablejs, $disablehead, $arrayofjs, $arrayofcss, 0, 1); // Show html headers


  print '<body id="mainbody" class="publicnewmemberform">';


  include_once DOL_DOCUMENT_ROOT.'/core/lib/company.lib.php';

  htmlPrintOnlineHeader($mysoc, $langs, 'OPENSURVEY_IMAGE_PUBLIC_INTERFACE');


  print '<span id="dolpaymentspan"></span>'."\n";

  print '<div class="center">'."\n";


  print '<form name="formulaire" action="studs.php?sondage='.urlencode($numsondage).'#bas" method="POST">'."\n";

  print '<input type="hidden" name="sondage" value="'.$numsondage.'"/>';

  print '<input type="hidden" name="token" value="'.newToken().'">'."\n";

  print "\n";


  print '<div class="survey_borders"><br><br>';

}


function llxFooterSurvey()

{

  print '</div>';

  print '</form>';

  print '</div>';


  printCommonFooter('public');


  dol_htmloutput_events();


  print "</body>\n";

  print "</html>\n";

}


function get_server_name()

{

  global $dolibarr_main_url_root;


  $urlwithouturlroot = preg_replace('/'.preg_quote(DOL_URL_ROOT, '/').'$/i', '', trim($dolibarr_main_url_root));

  //$urlwithroot=$urlwithouturlroot.DOL_URL_ROOT;   // This is to use external domain name found into config file

  //$urlwithroot=DOL_MAIN_URL_ROOT;         // This is to use same domain name than current


  $url = $urlwithouturlroot.dol_buildpath('/opensurvey/', 1);


  if (!preg_match("|/$|", $url)) {

    $url .= "/";

  }


  return $url;

}


function issetAndNoEmpty($name, $tableau = null)

{

  if ($tableau === null) {

    $tableau = $_POST;

  }


  return (isset($tableau[$name]) && !empty($tableau[$name]));

}


function getUrlSondage($id, $admin = false)

{

  if ($admin === true) {

    $url = get_server_name().'results.php?id='.$id;

  } else {

    $url = get_server_name().'/public/studs.php?sondage='.$id;

  }


  return $url;

}


function dol_survey_random($car)

{

  $string = "";

  $chaine = "abcdefghijklmnopqrstuvwxyz123456789";

  mt_srand((int) ((float) microtime() * 1000000));

  for ($i = 0; $i < $car; $i++) {

    $string .= $chaine[mt_rand() % strlen($chaine)];

  }

  return $string;

}


function ajouter_sondage()

{

  global $db, $user;


  require_once DOL_DOCUMENT_ROOT.'/opensurvey/class/opensurveysondage.class.php';


  $sondage = dol_survey_random(16);


  $allow_comments = empty($_SESSION['allow_comments']) ? 0 : 1;

  $allow_spy = empty($_SESSION['allow_spy']) ? 0 : 1;


  // Insert survey

  $opensurveysondage = new Opensurveysondage($db);

  $opensurveysondage->id_sondage = $sondage;

  $opensurveysondage->description = $_SESSION['description'];

  $opensurveysondage->mail_admin = $_SESSION['adresse'];

  $opensurveysondage->nom_admin = $_SESSION['nom'];

  $opensurveysondage->title = $_SESSION['title'];

  $opensurveysondage->date_fin = $_SESSION['champdatefin'];

  $opensurveysondage->format = $_SESSION['formatsondage'];

  $opensurveysondage->mailsonde = $_SESSION['mailsonde'];

  $opensurveysondage->allow_comments = $allow_comments;

  $opensurveysondage->allow_spy = $allow_spy;

  $opensurveysondage->sujet = $_SESSION['toutchoix'];


  $res = $opensurveysondage->create($user);


  if ($res < 0) {

    dol_print_error($db);

  }


  unset($_SESSION["title"]);

  unset($_SESSION["nom"]);

  unset($_SESSION["adresse"]);

  unset($_SESSION["description"]);

  unset($_SESSION["mailsonde"]);

  unset($_SESSION['allow_comments']);

  unset($_SESSION['allow_spy']);

  unset($_SESSION['toutchoix']);

  unset($_SESSION['totalchoixjour']);

  unset($_SESSION['champdatefin']);


  $urlback = dol_buildpath('/opensurvey/card.php', 1).'?id='.$sondage;


  header("Location: ".$urlback);

  exit();

}


$id
$id
Support class for third parties, contacts, members, users or resources.
Definition account.php:48

$object
if( $user->socid > 0) if(! $user->hasRight('accounting', 'chartofaccount')) $object
Definition card.php:67

$dolibarr_main_url_root
global $dolibarr_main_url_root
Definition clicktodial.php:135

Opensurveysondage
Put here description of your class.
Definition opensurveysondage.class.php:36

htmlPrintOnlineHeader
htmlPrintOnlineHeader($mysoc, $langs, $showlogo=1, $alttext='', $subimageconst='', $altlogo1='', $altlogo2='')
Show the header of a company in HTML public pages.
Definition company.lib.php:2752

printCommonFooter
printCommonFooter($zone='private')
Print common footer : conf->global->MAIN_HTML_FOOTER js for switch of menu hider js for conf->global-...
Definition functions.lib.php:11927

dol_htmloutput_events
dol_htmloutput_events($disabledoutputofmessages=0)
Print formatted messages to output (Used to show messages on html output).
Definition functions.lib.php:10490

dol_buildpath
dol_buildpath($path, $type=0, $returnemptyifnotfound=0)
Return path of url or filesystem.
Definition functions.lib.php:1564

dol_print_error
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
Definition functions.lib.php:6329

complete_head_from_modules
complete_head_from_modules($conf, $langs, $object, &$head, &$h, $type, $mode='add', $filterorigmodule='')
Complete or removed entries into a head array (used to build tabs).
Definition functions.lib.php:11768

top_htmlhead
top_htmlhead($head, $title='', $disablejs=0, $disablehead=0, $arrayofjs=array(), $arrayofcss=array(), $disableforlogin=0, $disablenofollow=0, $disablenoindex=0)
Output html header of a page.
Definition main.inc.php:1592

$conf
global $conf
The following vars must be defined: $type2label $form $conf, $lang, The following vars may also be de...
Definition member.php:79

llxFooterSurvey
llxFooterSurvey()
Show footer for new member.
Definition opensurvey.lib.php:107

get_server_name
get_server_name()
get_server_name
Definition opensurvey.lib.php:127

opensurvey_prepare_head
opensurvey_prepare_head(Opensurveysondage $object)
Returns an array with the tabs for the "Opensurvey poll" section It loads tabs from modules looking f...
Definition opensurvey.lib.php:34

getUrlSondage
getUrlSondage($id, $admin=false)
Fonction permettant de générer les URL pour les sondage.
Definition opensurvey.lib.php:168

llxHeaderSurvey
llxHeaderSurvey($title, $head="", $disablejs=0, $disablehead=0, $arrayofjs=[], $arrayofcss=[], $numsondage='')
Show header for new member.
Definition opensurvey.lib.php:78

dol_survey_random
dol_survey_random($car)
Generate a random id.
Definition opensurvey.lib.php:186

issetAndNoEmpty
issetAndNoEmpty($name, $tableau=null)
Fonction vérifiant l'existance et la valeur non vide d'une clé d'un tableau.
Definition opensurvey.lib.php:151

ajouter_sondage
ajouter_sondage()
Add a poll.
Definition opensurvey.lib.php:202