* * 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 2 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, write to the Free Software * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. * * $Id$ * $Source$ */ require("./pre.inc.php"); llxHeader(); print_titre("Constantes de configuration Dolibarr"); //print_r(get_defined_constants()); print ''; print ''; print ''; print ''; print ''; print ''; print ""; print "\n"; $db = new Db(); $form = new Form($db); if ($user->admin) { if ($HTTP_POST_VARS["action"] == 'update' || $HTTP_POST_VARS["action"] == 'add') { if ($HTTP_POST_VARS["consttype"] == 0){ $sql = "REPLACE INTO llx_const SET name='".$_POST["constname"]."', value = '".$HTTP_POST_VARS["constvalue"]."',note='".$HTTP_POST_VARS["constnote"]."', type='yesno'"; }else{ $sql = "REPLACE INTO llx_const SET name='".$_POST["constname"]."', value = '".$HTTP_POST_VARS["constvalue"]."',note='".$HTTP_POST_VARS["constnote"]."'"; } $result = $db->query($sql); if (!$result) { print $db->error(); } } if ($action == 'delete') { $sql = "DELETE FROM llx_const WHERE rowid='$rowid'"; $result = $db->query($sql); if (!$result) { print $db->error(); } } } $sql = "SELECT rowid, name, value, type, note FROM llx_const"; $result = $db->query($sql); if ($result) { $num = $db->num_rows(); $i = 0; $var=True; while ($i < $num) { $obj = $db->fetch_object( $i); $var=!$var; print ''; print ''; print ''; print ''; print "\n"; print '\n"; print ''; $i++; } } $var=!$var; print ''; print ''; print "\n"; print '\n"; print ''; print ''; print '

Nom	Valeur	Type	Note	Action
$obj->name	'; if ($obj->type == 'yesno') { $form->selectyesnonum('constvalue',$obj->value); print '	'; $form->select_array('consttype',array('yesno','texte'),0); } else { print ''; print '	'; $form->select_array('consttype',array('yesno','texte'),1); } print '	'; print ''; print '	'; print ' '; print 'Delete'; print "
	'; print ''; print '	'; $form->select_array('consttype',array('yesno','texte'),1); print '	'; print ''; print '	'; print ' '; print "

'; $db->close(); llxFooter(); ?>