* * 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 . */ /** * \file htdocs/opensurvey/adminstuds.php * \ingroup opensurvey * \brief Page to edit survey */ require_once('../main.inc.php'); require_once(DOL_DOCUMENT_ROOT."/core/lib/admin.lib.php"); require_once(DOL_DOCUMENT_ROOT."/core/lib/files.lib.php"); require_once(DOL_DOCUMENT_ROOT."/opensurvey/class/opensurveysondage.class.php"); require_once(DOL_DOCUMENT_ROOT."/opensurvey/fonctions.php"); // Security check if (!$user->admin) accessforbidden(); // Initialisation des variables $action=GETPOST('action'); $numsondage = $numsondageadmin = ''; if (GETPOST('sondage')) { if (strlen(GETPOST('sondage')) == 24) // recuperation du numero de sondage admin (24 car.) dans l'URL { $numsondageadmin=GETPOST("sondage",'alpha'); $numsondage=substr($numsondageadmin, 0, 16); } else { $numsondageadmin=''; $numsondage=GETPOST("sondage",'alpha'); } } $object=new Opensurveysondage($db); $expiredate=dol_mktime(0, 0, 0, GETPOST('expiremonth'), GETPOST('expireday'), GETPOST('expireyear')); /* * Actions */ // Delete if ($action == 'delete_confirm') { $result=$object->delete($user,'',$numsondageadmin); header('Location: '.dol_buildpath('/opensurvey/list.php',1)); exit(); } // Update if ($action == 'update') { $error=0; if (! GETPOST('nouveautitre')) { setEventMessage($langs->trans("ErrorFieldRequired",$langs->transnoentitiesnoconv("Title")),'errors'); $error++; $action = 'edit'; } if (! $error) { $res=$object->fetch(0,$numsondageadmin); if ($res < 0) dol_print_error($db,$object->error); } if (! $error) { $object->titre = GETPOST('nouveautitre'); $object->commentaires = GETPOST('nouveauxcommentaires'); $object->mail_admin = GETPOST('nouvelleadresse'); $object->date_fin = $expiredate; $object->survey_link_visible = GETPOST('survey_link_visible')=='on'?1:0; $object->canedit = GETPOST('canedit')=='on'?1:0; $res=$object->update($user); if ($res < 0) { setEventMessage($object->error,'errors'); $action='edit'; } } } // Add comment if (GETPOST('ajoutcomment')) { $error=0; if (! GETPOST('comment')) { $error++; setEventMessage($langs->trans("ErrorFieldRequired",$langs->transnoentitiesnoconv("Comment")),'errors'); } if (! GETPOST('commentuser')) { $error++; setEventMessage($langs->trans("ErrorFieldRequired",$langs->transnoentitiesnoconv("User")),'errors'); } if (! $error) { $comment = GETPOST("comment"); $comment_user = GETPOST('commentuser'); $sql = "INSERT INTO ".MAIN_DB_PREFIX."opensurvey_comments (id_sondage, comment, usercomment)"; $sql.= " VALUES ('".$db->escape($numsondage)."','".$db->escape($comment)."','".$db->escape($comment_user)."')"; $resql = $db->query($sql); dol_syslog("sql=".$sql); if (! $resql) { $err |= COMMENT_INSERT_FAILED; } } } // Delete comment $idcomment=GETPOST('deletecomment','int'); if ($idcomment) { $sql = 'DELETE FROM '.MAIN_DB_PREFIX.'opensurvey_comments WHERE id_comment = '.$idcomment; $resql = $db->query($sql); } /* * View */ $form=new Form($db); $result=$object->fetch(0,$numsondage); if ($result <= 0) { print $langs->trans("ErrorRecordNotFound"); llxFooter(); exit; } $arrayofjs=array(); $arrayofcss=array('/opensurvey/css/style.css'); llxHeader('',$object->titre, 0, 0, 0, 0, $arrayofjs, $arrayofcss); // Define format of choices $toutsujet=explode(",",$object->sujet); $listofanswers=array(); foreach ($toutsujet as $value) { $tmp=explode('@',$value); $listofanswers[]=array('label'=>$tmp[0],'format'=>($tmp[1]?$tmp[1]:'checkbox')); } $toutsujet=str_replace("@","
",$toutsujet); $toutsujet=str_replace("°","'",$toutsujet); print '
'."\n"; print ''; $head = array(); $head[0][0] = ''; $head[0][1] = $langs->trans("Card"); $head[0][2] = 'general'; $h++; $head[1][0] = 'adminstuds_preview.php?sondage='.$object->id_sondage_admin; $head[1][1] = $langs->trans("SurveyResults").'/'.$langs->trans("Preview"); $head[1][2] = 'preview'; $h++; print dol_get_fiche_head($head,'general',$langs->trans("Survey"),0,dol_buildpath('/opensurvey/img/object_opensurvey.png',1),1); print ''; $linkback = ''.$langs->trans("BackToList").''; // Ref print ''; print ''; print ''; // Type $type=($object->format=="A"||$object->format=="A+")?'classic':'date'; print ''; // Title print ''; // Auteur print ''; // Description print ''; // EMail print ''; // Can edit other votes print ''; // Expire date print ''; // Link print '
'.$langs->trans('Ref').''; print $form->showrefnav($object, 'sondage', $linkback, 1, 'id_sondage_admin', 'id_sondage_admin'); print '
'.$langs->trans("Type").''; print img_picto('',dol_buildpath('/opensurvey/img/'.($type == 'classic'?'chart-32.png':'calendar-32.png'),1),'width="16"',1); print ' '.$langs->trans($type=='classic'?"TypeClassic":"TypeDate").'
'; $adresseadmin=$object->mail_admin; print $langs->trans("Title") .''; if ($action == 'edit') { print ''; } else print $object->titre; print '
'; print $langs->trans("Author") .''; print $object->nom_admin; print '
'.$langs->trans("Description") .''; if ($action == 'edit') { print ''."\n"; } else print dol_nl2br($object->commentaires); print '
'.$langs->trans("EMail") .''; if ($action == 'edit') { print ''; } else print dol_print_email($object->mail_admin); print '
'.$langs->trans('CanEditVotes').''; if ($action == 'edit') { print 'canedit?' checked="true"':'').'">'; } else print yn($object->canedit); print '
'.$langs->trans('ExpireDate').''; if ($action == 'edit') print $form->select_date($expiredate?$expiredate:$object->date_fin,'expire'); else print dol_print_date($object->date_fin,'day'); print '
'.img_picto('','object_globe.png').' '.$langs->trans("UrlForSurvey",'').''; // Define $urlwithroot $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/public/studs.php',1).'?sondage='.$numsondage; $urllink=''.$url.''; print $urllink; print '
'; if ($action == 'edit') print '

'; print '
'."\n"; dol_fiche_end(); /* * Barre d'actions */ print '
'; if ($action != 'edit') print ''.$langs->trans("Modify") . ''; if ($action != 'edit') print ''.$langs->trans('Delete').''; print '
'; if ($action == 'delete') { print $form->formconfirm($_SERVER["PHP_SELF"].'?&sondage='.$numsondageadmin, $langs->trans("RemovePoll"), $langs->trans("ConfirmRemovalOfPoll",$id), 'delete_confirm', '', '', 1); } print '
'; print '
'."\n"; print_fiche_titre($langs->trans("CommentsOfVoters"),'',''); // Comment list $sql = 'SELECT id_comment, usercomment, comment'; $sql.= ' FROM '.MAIN_DB_PREFIX.'opensurvey_comments'; $sql.= " WHERE id_sondage='".$db->escape($numsondage)."'"; $sql.= " ORDER BY id_comment"; $resql = $db->query($sql); $num_rows=$db->num_rows($resql); if ($num_rows > 0) { $i = 0; while ( $i < $num_rows) { $obj=$db->fetch_object($resql); print ' '.img_picto('', 'delete.png').' '; print $obj->usercomment.' : '.dol_nl2br($obj->comment)."
"; $i++; } } else { print $langs->trans("NoCommentYet").'
';; } print '
'; // Add comment print $langs->trans("AddACommentForPoll") . '
'; print '
'."\n"; print $langs->trans("Name") .' :
'."\n"; print '
'."\n"; if (isset($erreur_commentaire_vide) && $erreur_commentaire_vide=="yes") { print "" . $langs->trans("ErrorFieldRequired",$langs->transnoentitiesnoconv("Name")) . ""; } print '
'; llxFooterSurvey(); $db->close(); ?>