<?php /* $Id $ */ /** * @package Mediboard * @subpackage hl7 * @version $Revision:$ * @author SARL OpenXtrem * @license GNU General Public License, see http://www.gnu.org/licenses/gpl.html */ CCanDo::checkAdmin(); $action = CValue::post("action", "modify"); $patient = new CPatient(); switch ($action) { case "modify": while (!$patient->load(rand(1, 5000))) { } // randomize name $nom = str_split($patient->nom); shuffle($nom); $patient->nom = implode("", $nom); break; case "create": $patient->sample(); //$patient->updateFormFields(); break; } CAppUI::displayMsg($patient->store(), "CPatient-msg-{$action}"); //mbTrace($patient); echo CAppUI::getMsg(); CApp::rip();