* @copyright Deakin University 2007,2008 * @package queXS * @subpackage admin * @link http://www.deakin.edu.au/dcarf/ queXS was writen for DCARF - Deakin Computer Assisted Research Facility * @license http://opensource.org/licenses/gpl-2.0.php The GNU General Public License (GPL) Version 2 * * */ /** * Configuration file */ include("../config.inc.php"); /** * Database file */ include ("../db.inc.php"); /** * Authentication file */ require ("auth-admin.php"); /** * XHTML functions */ include("../functions/functions.xhtml.php"); /** * Display functions */ include("../functions/functions.display.php"); /** * Input functions */ include("../functions/functions.input.php"); global $db; if (isset($_GET['questionnaire_id']) && isset($_GET['sgqa']) && isset($_GET['value'])) { //need to add prefill to questionnaire $questionnaire_id = bigintval($_GET['questionnaire_id']); $value = $db->quote($_GET['value']); $svar = $db->quote($_GET['svar']); $sgqa = $db->quote($_GET['sgqa']); if (!empty($_GET['svar']) && empty($_GET['value'])) $value = $svar; $sql = "INSERT INTO questionnaire_prefill(questionnaire_id,lime_sgqa,value) VALUES('$questionnaire_id',$sgqa,$value)"; $db->Execute($sql); } if (isset($_GET['questionnaire_id']) && isset($_GET['questionnaire_prefill_id'])) { //need to remove prefill from questionnaire $questionnaire_id = bigintval($_GET['questionnaire_id']); $questionnaire_prefill_id = bigintval($_GET['questionnaire_prefill_id']); $sql = "DELETE FROM questionnaire_prefill WHERE questionnaire_prefill_id = '$questionnaire_prefill_id'"; $db->Execute($sql); } $questionnaire_id = false; if (isset($_GET['questionnaire_id'])) $questionnaire_id = bigintval($_GET['questionnaire_id']); $subtitle = T_("Set values for questionnaire to prefill"); xhtml_head(T_("Prefill questionnaire:"),true,array("../include/bootstrap/css/bootstrap.min.css","../css/custom.css"),array("../js/window.js"), false, false, false, $subtitle); print "
" . T_("Currently no pre fills") . "
"; } else { foreach($r as $v) { print "" . T_("SGQA code") . ": {$v['lime_sgqa']}
" . T_("Sample variable") . ": {$v['value']}
" . T_("Delete") . ""; print T_("Possible uses:"); print "