public function __construct($outer, $binds = NULL, $exprs = NULL) { $this->outer = $outer; if ($binds) { if (_sequential_Q($exprs)) { $exprs = $exprs->getArrayCopy(); } for ($i = 0; $i < count($binds); $i++) { if ($binds[$i]->value === "&") { if ($exprs !== NULL && $i < count($exprs)) { $lst = call_user_func_array('_list', array_slice($exprs, $i)); } else { $lst = _list(); } $this->data[$binds[$i + 1]->value] = $lst; break; } else { if ($exprs !== NULL && $i < count($exprs)) { $this->data[$binds[$i]->value] = $exprs[$i]; } else { $this->data[$binds[$i]->value] = NULL; } } } } }
function _list($type = 'ul', $list, $attributes = '', $depth = 0) { if (!is_array($list)) { return $list; } $out = str_repeat(" ", $depth); if (is_array($attributes)) { $atts = ''; foreach ($attributes as $key => $val) { $atts .= ' ' . $key . '="' . $val . '"'; } $attributes = $atts; } elseif (is_string($attributes) and strlen($attributes) > 0) { $attributes = ' ' . $attributes; } $out .= "<" . $type . $attributes . ">\n"; static $_last_list_item = ''; foreach ($list as $key => $val) { $_last_list_item = $key; $out .= str_repeat(" ", $depth + 2); $out .= "<li>"; if (!is_array($val)) { $out .= $val; } else { $out .= $_last_list_item . "\n"; $out .= _list($type, $val, '', $depth + 4); $out .= str_repeat(" ", $depth + 2); } $out .= "</li>\n"; } $out .= str_repeat(" ", $depth); $out .= "</" . $type . ">\n"; return $out; }
function _list($type = 'ul', $list, $attributes = '', $depth = 0) { // If an array wasn't submitted there's nothing to do... if (!is_array($list)) { return $list; } // Set the indentation based on the depth $out = str_repeat(" ", $depth); // Were any attributes submitted? If so generate a string if (is_array($attributes)) { $atts = ''; foreach ($attributes as $key => $val) { $atts .= ' ' . $key . '="' . $val . '"'; } $attributes = $atts; } elseif (is_string($attributes) and strlen($attributes) > 0) { $attributes = ' ' . $attributes; } // Write the opening list tag $out .= "<" . $type . $attributes . ">\n"; // Cycle through the list elements. If an array is // encountered we will recursively call _list() static $_last_list_item = ''; foreach ($list as $key => $val) { $_last_list_item = $key; $out .= str_repeat(" ", $depth + 2); $out .= "<li>"; if (!is_array($val)) { $out .= $val; } else { $out .= $_last_list_item . "\n"; $out .= _list($type, $val, '', $depth + 4); $out .= str_repeat(" ", $depth + 2); } $out .= "</li>\n"; } // Set the indentation for the closing tag $out .= str_repeat(" ", $depth); // Write the closing list tag $out .= "</" . $type . ">\n"; return $out; }
function eval_ast($ast, $env) { if (_symbol_Q($ast)) { return $env->get($ast); } elseif (_sequential_Q($ast)) { if (_list_Q($ast)) { $el = _list(); } else { $el = _vector(); } foreach ($ast as $a) { $el[] = MAL_EVAL($a, $env); } return $el; } elseif (_hash_map_Q($ast)) { $new_hm = _hash_map(); foreach (array_keys($ast->getArrayCopy()) as $key) { $new_hm[$key] = MAL_EVAL($ast[$key], $env); } return $new_hm; } else { return $ast; } }
/** * Generates the list * * Generates an HTML ordered list from an single or multi-dimensional array. * * @param string * @param mixed * @param mixed * @param int * @return string */ function _list($type = 'ul', $list = array(), $attributes = '', $depth = 0) { // If an array wasn't submitted there's nothing to do... if (!is_array($list)) { return $list; } // Set the indentation based on the depth $out = str_repeat(' ', $depth) . '<' . $type . _stringify_attributes($attributes) . ">\n"; // Cycle through the list elements. If an array is // encountered we will recursively call _list() static $_last_list_item = ''; foreach ($list as $key => $val) { $_last_list_item = $key; $out .= str_repeat(' ', $depth + 2) . '<li>'; if (!is_array($val)) { $out .= $val; } else { $out .= $_last_list_item . "\n" . _list($type, $val, '', $depth + 4) . str_repeat(' ', $depth + 2); } $out .= "</li>\n"; } // Set the indentation for the closing tag and apply it return $out . str_repeat(' ', $depth) . '</' . $type . ">\n"; }
function _create(&$PDOdb, &$db, &$user, &$conf, &$langs, $df = false, $ds = false, $de = false, $amount = 0, $label = '') { unset($_SESSION['SENDTOINVOICETOADHERENT_ERRORS']); _list($PDOdb, $db, $user, $conf, $langs, 0); if (!$user->rights->sendinvoicetoadherent->create) { accessforbidden(); } else { $form = new TFormCore(); print_fiche_titre($langs->trans("sendinvoicetoadherentTitleCreate")); echo '<script type="text/javascript"> $(function() { displayDateCotisation(); }); function displayDateCotisation(obj) { if ($(obj).attr("checked") == "checked") { $(".cotisation_create").show() } else { $(".cotisation_create").hide() } } </script>'; echo '<form style="padding-top:15px;" name="formsoc" action="' . $_SERVER["PHP_SELF"] . '" method="post" enctype="multipart/form-data">'; echo '<input type="hidden" name="token" value="' . $_SESSION['newtoken'] . '">'; echo '<input type="hidden" name="action" value="createConfirm">'; echo '<table class="border" width="100%">'; $date_fac = $df === false ? date('d/m/Y') : $df; $date_start = $ds === false ? date('d/m/Y') : $ds; $date_end = $de === false ? date('d/m/Y', strtotime('+1 year -1 day')) : $de; $label = empty($label) ? $langs->trans("Subscription") . ' ' . ($ds ? substr($date_start, -4, 4) : dol_print_date(time(), '%Y')) : $label; echo '<tr><td width="20%" class="fieldrequired">' . $langs->trans("sendinvoicetoadherentDateFacture") . '</td><td width="80%">' . $form->calendrier('', 'date_fac', $date_fac) . '</td></tr>'; echo '<tr><td width="20%">' . $langs->trans("sendinvoicetoadherentCreateCotisation") . '</td><td width="80%"><input type="checkbox" name="create_cotisation" value="1" onclick="javascript:displayDateCotisation(this);" /></td></tr>'; echo '<tr class="cotisation_create" style="display:none;"><td width="20%" class="fieldrequired">' . $langs->trans("sendinvoicetoadherentDateStartAdhesion") . '</td><td width="80%">' . $form->calendrier('', 'date_start', $date_start) . '</td></tr>'; echo '<tr class="cotisation_create" style="display:none;"><td width="20%">' . $langs->trans("sendinvoicetoadherentDateEndAdhesion") . '</td><td width="80%">' . $form->calendrier('', 'date_end', $date_end) . '</td></tr>'; echo '<tr class="cotisation_create" style="display:none;"><td width="20%" class="fieldrequired">' . $langs->trans("sendinvoicetoadherentAmountAdhesion") . '</td><td width="80%">' . $form->texte('', 'amount_cotisation', $amount, 6, 15) . ' ' . $langs->trans("Currency" . $conf->currency) . '</td></tr>'; echo '<tr class="cotisation_create" style="display:none;"><td width="20%">' . $langs->trans("sendinvoicetoadherentLabelAdhesion") . '</td><td width="80%">' . $form->texte('', 'label', $label, 32, 255) . '</td></tr>'; echo '</table>'; if ($user->rights->sendinvoicetoadherent->create) { echo '<br /><center>'; echo '<input type="submit" class="button" value="' . $langs->trans('sendinvoicetoadherentActionCreateConfirm') . '" /> '; echo '<a href="' . dol_buildpath('/sendinvoicetoadherent/sendinvoicetoadherent.php?action=list', 2) . '" class="button" style="text-decoration:none;font-weight:normal;cusor:pointer;height:15px;padding-top:5px;">' . $langs->trans('Cancel') . '</a>'; echo '</center>'; } echo '</form>'; } $PDOdb->close(); llxFooter(''); }
function read_form($reader) { $token = $reader->peek(); switch ($token) { case '\'': $reader->next(); return _list(_symbol('quote'), read_form($reader)); case '`': $reader->next(); return _list(_symbol('quasiquote'), read_form($reader)); case '~': $reader->next(); return _list(_symbol('unquote'), read_form($reader)); case '~@': $reader->next(); return _list(_symbol('splice-unquote'), read_form($reader)); case '^': $reader->next(); $meta = read_form($reader); return _list(_symbol('with-meta'), read_form($reader), $meta); case '@': $reader->next(); return _list(_symbol('deref'), read_form($reader)); case ')': throw new Exception("unexpected ')'"); case '(': return read_list($reader); case ']': throw new Exception("unexpected ']'"); case '[': return read_list($reader, '_vector', '[', ']'); case '}': throw new Exception("unexpected '}'"); case '{': return read_hash_map($reader); default: return read_atom($reader); } }
} ### function }}} ### modes {{{ if ($mode == 'setavail') { //dd($form); $cbs = $form['cb']; // array $mode2 = $form['mode2']; foreach ($cbs as $cb) { print $cb; if ($mode2 == '1') { _set_ce_avail($cb, true); } else { _set_ce_avail($cb, false); } } print <<<EOS <script> //alert("Changed !!"); parent.document.location.reload(); </script> EOS; exit; } ### modes }}} pagehead($page_title); ptitle('CE List'); _style(); _list(); pagetail(); exit;
} else { $object->set_values($_POST); $object->save($PDOdb); setEventMessage('BDDSaved'); } _list($PDOdb); break; case 'edit': $object->load($PDOdb, GETPOST('id')); _card($PDOdb, $object); break; case 'new': _card($PDOdb, $object); break; default: _list($PDOdb); break; } function _card(&$PDOdb, &$object) { global $langs, $conf, $user, $db; if (empty($user->rights->query->bdd->use_other_db)) { return ''; } llxHeader(); dol_fiche_head(array(), 'bdd', 'BDD'); $tbs = new TTemplateTBS(); $object->connect(); $formCore = new TFormCore('auto', 'formBDD', 'post'); echo $formCore->hidden('action', 'save'); echo $formCore->hidden('id', $object->getId());