19 include_once (
"FDL/Class.Doc.php");
20 include_once (
"FDL/Class.DocAttr.php");
21 include_once (
"FDL/editutil.php");
36 if (($usefor ==
"D") && ($zonebodycard ==
"")) $zonebodycard =
"FDL:EDITBODYCARD";
44 if (
$doc->isConfidential()) {
45 redirect(
$action,
"FDL",
"FDL_CONFIDENTIAL&&id=" .
$doc->id);
47 $classid =
$doc->fromid;
57 if (($usefor ==
"D") && ($zonebodycard ==
"")) $zonebodycard =
"FDL:EDITBODYCARD";
61 if (!
$doc)
$action->exitError(sprintf(_(
"no privilege to create this kind (%d) of document") , $classid));
63 if (
$fdoc->control(
'icreate') !=
"")
$action->exitError(sprintf(_(
"no privilege to create interactivaly this kind (%s) of document") ,
$fdoc->title));
68 if (
$doc->isConfidential()) {
69 redirect(
$action,
"FDL",
"FDL_CONFIDENTIAL&&id=" .
$doc->id);
74 if (($usefor ==
"D") || ($usefor ==
"Q")) {
76 $zonebodycard =
"FDL:EDITBODYCARD";
80 $doc->setDefaultValues(
$fdoc->getDefValues() ,
false);
86 $doc->setDefaultValues(
$fdoc->getParams() ,
false);
93 if (!$vid) $vid =
$doc->getDefaultView(
true,
"id");
95 if ($vid) setHttpVar(
"vid", $vid);
101 if (($vid !=
"") && (
$doc->cvid > 0)) {
102 $err = $cvdoc->control(trim($vid));
103 if (
$err !=
"")
$action->exitError(
"CV:" . $cvdoc->title .
"\n" .
$err);
104 $tview = $cvdoc->getView($vid);
105 $doc->setMask($tview[
"CV_MSKID"]);
106 if ($zonebodycard ==
"") $zonebodycard = $tview[
"CV_ZVIEW"];
109 if (($vid ==
"") && ($mskid !=
"")) {
111 if ($mdoc->isAlive() && ($mdoc->control(
'view') ==
""))
$doc->setMask($mdoc->id);
115 include_once (
"FDL/modcard.php");
120 $msg =
$doc->preEdition();
121 if ($zonebodycard ==
"") {
122 if ((!
$docid) &&
$doc->defaultcreate !=
"") $zonebodycard =
$doc->defaultcreate;
123 else $zonebodycard =
$doc->defaultedit;
126 if ($zonebodycard ==
"") $zonebodycard =
"FDL:EDITBODYCARD";
127 $action->lay->Set(
"classid", $classid);
128 $action->lay->Set(
"usefor", $usefor);
130 if ($usefor ==
"D") {
131 $doc->SetWriteVisibility();
133 $jsfile =
$action->GetLayoutFile(
"editcard.js");
135 $jslay->Set(
"attrnid",
'[]');
136 $jslay->Set(
"attrntitle",
'[]');
137 $jslay->SetBlockData(
"RATTR", $tjsa);
138 $action->parent->AddJsCode($jslay->gen());
139 $action->lay->Set(
"ZONEBODYCARD",
$doc->viewDoc($zonebodycard));
145 $action->lay->Set(
"ZONEBODYCARD",
$doc->viewDoc($zonebodycard));
148 $action->lay->set(
"maxFileUpload", ini_get(
"max_file_uploads"));
149 $action->lay->Set(
"NOFORM", (preg_match(
"/[A-Z]+:[^:]+:U/", $zonebodycard, $reg)));
156 $attrn =
$doc->GetNeededAttributes(
$doc->usefor ==
'Q');
158 if (count($attrn) == 0) {
162 while (list($k, $v) = each($attrn)) {
164 $attrNtitle[] = addslashes($v->getLabel());
166 $sattrNid =
"['" . implode(
"','", $attrNid) .
"']";
167 $sattrNtitle =
"['" . implode(
"','", $attrNtitle) .
"']";
171 if (
$doc->usefor !=
"D") {
180 foreach (
$doc->paramRefresh as $k => $v) {
182 "jstain" =>
"['" . implode(
"','", $v[
"in"]) .
"']",
183 "jstaout" =>
"['" . implode(
"','", $v[
"out"]) .
"']",
190 $jsfile =
$action->GetLayoutFile(
"editcard.js");
192 $jslay->Set(
"attrnid", $sattrNid);
193 $jslay->Set(
"attrntitle", $sattrNtitle);
194 $jslay->SetBlockData(
"RATTR", $tjsa);
195 $action->parent->AddJsCode($jslay->gen());
199 if (
$doc->usefor !=
"D") {
200 if (
$doc->usefor ==
"Q") {
202 $doc->SpecRefreshGen(
true);
210 return (strlen($v) > 1);
215 if (
$a[
"cv_order"] == $b[
"cv_order"]) {
218 return (
$a[
"cv_order"] < $b[
"cv_order"]) ? -1 : 1;
232 foreach ($_POST as $k => $v) {
235 foreach ($_GET as $k => $v) {
238 if (is_array($ZONE_ARGS)) {
239 foreach ($ZONE_ARGS as $k => $v) {
244 foreach ($http as $k => $v) {
245 $oa =
$doc->getAttribute($k);
247 if (
$doc->getValue($k) ==
"") {
248 if ($oa->inArray() && (!is_array($v))) $v =
$doc->_val2array(str_replace(
'\n',
"\n", $v));
249 $doc->setValue($k, $v);