<?php
/*
<LICENSE>
This file is part of AGENCY.
AGENCY is Copyright (c) 2003-2022 by Ken Tanzer and Downtown Emergency
Service Center (DESC).
All rights reserved.
For more information about AGENCY, see http://agency-software.org/
For more information about DESC, see http://www.desc.org/.
AGENCY is free software: you can redistribute it and/or modify
it under the terms of version 3 of the GNU General Public License
as published by the Free Software Foundation.
AGENCY 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 AGENCY. If not, see <http://www.gnu.org/licenses/>.
For additional information, see the README.copyright file that
should be included in this distribution.
</LICENSE>
*/
/*
* These awkwardly named functions are for multiple child records.
* They are adapted from disability-specific functions for the
* same purpose.
*/
function blank_generics_add($rec,$def,$child_object)
{
$multi=$def['multi'][$child_object];
$multi_fields = $multi['multi_fields'];
$c_def = get_def($child_object);
$user_field = $multi['field'];
$f_def = $c_def['fields'][$user_field];
$a = array_keys($c_def['fields']);
$table = $f_def['lookup']['table'];
$lookup_field = $f_def['lookup']['value_field'];
$order=is_array($multi['other_codes']) ? implode($multi['other_codes'],"','") : '';
$order="$lookup_field IN ('$order'), description";
$order=orr($multi['sel_order'],$order);
$order = ($order and ($order!='TABLE_ORDER')) ? "ORDER BY $order" : '';
$sql=orr($multi['sel_sql'],"SELECT * FROM $table");
$codes=agency_query("$sql $order");
$template_rec=blank_generic($c_def,array(),$dummy_control);
// This is a hack to this crap, and the way the checkboxes are being munged into this weird multi_field
$template_rec[$multi_fields]=NULL;
while ($item=sql_fetch_assoc($codes)) {
$code=$item[$lookup_field];
$fake_field = "multi_{$child_object}_multi_$code";
foreach($a as $field) {
if ($field=="added_by" || $field == "changed_by") {
$rec[$fake_field][$field]=$GLOBALS["UID"];
} elseif($field==$user_field) {
$rec[$fake_field][$field] = $code;
} elseif ($file==$multi_fields) {
$rec[$fake_field][$field] = null;
} else {
$rec[$fake_field][$field] = $template_rec[$field];
}
}
}
if ($multi['confirm_none']) {
$rec["multi_{$child_object}_multi_no_multi_records"] = array($user_field=>"multi_{$child_object}_multi_no_multi_records", $multi_fields=>false);
}
return $rec;
}
function add_generics_fields($def,$child_object)
{
$c_def = get_def($child_object);
$multi=$def['multi'][$child_object];
$user_field = $multi['field'];
$f_def = $c_def['fields'][$user_field];
$table = $f_def['lookup']['table'];
$codes=agency_query(orr($multi['sel_sql'],"SELECT * FROM $table"));
$multi_fields=$multi['multi_fields'];
while($rec=sql_fetch_assoc($codes))
{
$code=$rec[$user_field];
$fake_field = "multi_$child_object". '_multi_' . $code;
$label=$rec["description"];
switch ( $rec['value_type_code'] ) {
case 'YESNO' :
$format = 'radio';
break;
default :
$format = 'check';
}
$def["fields"][$fake_field]=array("data_type"=>"multi_rec",
"display_add"=>"multi_disp",
"label_add"=>$label,
// changing to array:
"multi_field"=>$multi_fields,
"multi_type"=>'boolean',
'multi_format'=>$format,
'default'=>$f_def['default'],
'null_ok'=>sql_true($f_def['null_ok']));
}
if ($multi['confirm_none']) {
$def['fields']["multi_{$child_object}_multi_no_multi_records"] = array("data_type"=>"multi_rec",
"display_add"=>"multi_disp",
"label_add"=>'Check this box ONLY if the '.$def['singular'].' has no known ' .$c_def['plural'],
"multi_field"=>$multi_fields,
"multi_type"=>"boolean");
}
return $def;
}
function valid_generics($action,$big_rec,&$def,&$mesg,&$valid,$child_object)
{
if ($action !=='add') { return; }
$subdef = get_def($child_object);
$multi=$def['multi'][$child_object];
$multi_fields=$multi['multi_fields'];
$user_field=$multi['field'];
$any_subs = false;
foreach($big_rec as $key=>$rec) {
if ( (!($def['fields'][$key]['data_type']=='array')) and is_array($rec) and preg_match('/^multi_'.$child_object.'_multi/',$key) and ($key !== "multi_{$child_object}_multi_no_multi_records")) {
$any_subs = $any_subs ? true : sql_true($rec[$multi_fields]);
if (sql_true($rec[$multi_fields])) {
// FIXME: this came up for validating service_activity records, which need field (service_by) from parent service_reach
// which wasn't available of course in $rec.
// I tried this $tmp_rec=array_replace_recursive($big_rec,$rec);
// But it then complained about required fields being missing.
// We could tweak that away by adding null_oks in the $subdef
// Another option is to have some kind of 'inherits' option in the config file
// which would add certain fields to the rec. You'd probably still need to tweak the $subdef
// For now I just munged it in by passing through $rec_last
// This will be a problem if the validity also relied on $rec_last
// Although for adds there will never be one.
// But the validity might still want it for edits.
$tmp_rec=$rec;
foreach ($tmp_rec as $skey=>$value) {
$subdef['fields'][$skey]['not_valid_flag']=false;
// this terrible bit of code is borrowed from post_generics
// Need to fill in certain fields for validity checking
// that are absent until posting
// It will fail for that awful info_additional stuff
if ($skey==$multi_fields and stristr($skey,'_date')) {
$tmp_rec[$skey]=dateof('now','SQL');
}
}
foreach ($multi['inherited_fields'] as $k=>$v) {
$tmp_rec[$k]=eval( 'return ' . $v .';');
}
if (array_key_exists($def['id_field'],$subdef['fields'])) {
//if (be_null($rec[$def['id_field']])) {
if (sql_true(orr($rec[$def['id_field']],sql_true()))) {
$subdef['fields'][$def['id_field']]['null_ok']=true;
} else {
$tmp_rec[$def['id_field']]=$big_rec[$def['id_field']];
}
}
$tmp_msg='';
$valid=valid_generic($tmp_rec,$subdef,$tmp_msg,$action,$big_rec); // Munging pass $big_rec as $rec_last
$mesg.=$tmp_msg;
foreach ($tmp_rec as $skey=>$value) {
if ($subdef['fields'][$skey]['not_valid_flag']) {
$def['fields'][$key]['not_valid_flag']=true;
}
}
}
if ( ( ($def['fields'][$key]['multi_format']=='radio' and be_null($rec[$multi_fields]))
or ($def['fields'][$key]['multi_format']=='checkbox' and ~!sql_true($rec[$multi_fields])))
and (!$subdef['fields'][$key]['null_ok']===true)) {
$mesg .= oline('Must specify ' . value_generic($rec[$user_field],$subdef,$user_field,$action));
$valid=false;
$def['fields'][$key]['not_valid_flag']=true;
}
$comment_field=$subdef['fields'][$user_field]['require_comment_field'];
if (sql_true($rec[$multi_fields]) and in_array($rec[$user_field],$subdef['fields'][$user_field]['require_comment_codes']) and be_null($rec[$comment_field])) {
$mesg .= oline('Comment required for ' . $subdef['singular'] . ' of ' . value_generic($rec[$user_field],$subdef,$user_field,$action));
$valid=false;
$def['fields'][$key]['not_valid_flag']=true;
}
}
}
if (!$any_subs && $multi['allow_none'] && $multi['confirm_none'] && !sql_true($big_rec["multi_{$child_object}_multi_no_multi_records"][$multi_fields])) {
$def['fields']["multi_{$child_object}_multi_no_multi_records"]['not_valid_flag']=true;
$valid = false;
$mesg .= oline('Choose ' . $subdef['plural'] . ' or specify "No ' . $subdef['plural'] . '"');
} elseif ($multi['confirm_none'] && $any_subs && sql_true($big_rec["multi_{$child_object}_multi_no_multi_records"][$multi_fields])) {
$def['fields']["multi_{$child_object}_multi_no_multi_records"]['not_valid_flag']=true;
$valid = false;
$mesg .= oline('You can\'t specify "No ' . $subdef['plural'] . '" in addition to another ' . $subdef['singular'] . '!');
} elseif (!$any_subs && !$multi['allow_none']) {
$valid = false;
$mesg .= oline('You must specify at least one ' . $subdef['singular'] . '!');
}
}
function form_generics_row_header($key,$rec,$def) {
// Pulling in the $rec to be able to maintain the proper order of labels
$c_def=$def['multi'][$key];
$child_def=get_def($key);
$fields=$c_def['visible_fields'];
// if (be_null($fields)) { return ''; }
foreach ($rec as $k=>$v) {
// Any one of the recs will do, so find the first one and stop
if (preg_match('/multi_'.$key.'_multi/',$k)) {
$sub_rec=$v;
break;
}
}
foreach ($sub_rec as $k=>$v) {
if ($k=='service_site_manual_other') {
$skip=true;
} else {
$skip=false;
}
if ($skip) {
continue;
}
if (in_array($k,$fields) or ($k==$c_def['field'])) {
$labels[]=label_generic($k,$child_def,'add') . (($q=$child_def['fields'][$k]['comment']) ? oline() . span(smaller(italic($q))) : '');
}
}
//array_unshift($labels,''); // Blank header for multi_field
array_unshift($labels,''); // Blank header for checkbox
return header_row($labels);
}
function form_generics_row($key,$rec,$def,$child_object)
{
static $group_last;
static $object_last;
$action='add';
$control=array(
'object'=>$child_object,
'action'=>$action,
);
if ($object_last!=$child_object) {
$object_last=$child_object;
$group_last='';
}
$c_def = get_def($child_object);
$multi=$def['multi'][$child_object];
$multi_fields=$multi['multi_fields'];
$user_field = $multi['field'];
$sub = $rec[$user_field];
$sub2 = strstr($sub,'no_multi_records') ? $sub : "multi_{$child_object}_multi_$sub";
$label = $def["fields"][$key]["label_add"];
if ($def['fields'][$key]['not_valid_flag']) {
$label = span($label,'class="engineFormError"');
}
$comment_field=$c_def['fields'][$user_field]['require_comment_field'];
if (($group_field=$c_def['fields'][$user_field]['lookup_group'])) {
$group_lookup=$c_def['fields'][$user_field]['lookup'];
$group_table=$group_lookup['table'];
$group_value_field=$group_lookup['value_field'];
$group=sql_assign("SELECT $group_field FROM $group_table",array($user_field=>$sub));
if ($group_last!=$group) {
$group_content=bold($group);
$group_last=$group;
}
}
$col_count=0;
foreach($rec as $key=>$value) {
$classes=array('engineValueContainer');
// if (in_array($key,array($multi_fields,$comment_field))) {
if (in_array($key,array($multi_fields))) {
continue;
}
if (($key==$comment_field) and in_array($rec[$user_field],$c_def['fields'][$user_field]['require_comment_codes'])) {
continue;
}
if ($key=='service_site_manual_other') {
$is_other_field=true;
} else {
$is_other_field=false;
}
if ($is_other_field) {
continue;
}
if (in_array($value,$c_def['fields'][$user_field]['require_comment_codes'])) {
$comment=smaller(' (please describe) ')
. formvartext("rec[$sub2][$comment_field]",$rec[$comment_field]);
} else {
$comment='';
}
$label.=$comment;
if (in_array($key,$multi['visible_fields'])) {
if (($key=='service_site_manual_code') and in_array('service_site_manual_other',$multi['visible_fields'])) {
$other='service_site_manual_other';
$other_f=form_field_generic($other,$rec[$other],$c_def,$control,$Java_Engine,"rec[$sub2]");
$other_f = oline() . $other_f;
} else {
$other_f='';
}
$class = ($key=='minutes') ? 'class="summableMinutes"' : '';
// FIXME: this class needs to be specified in config
if ($key=='amount') {
$classes[]='summableAmounts';
}
$class='class="'.implode(" ",$classes).'"';
if (true or $action=='add') {
$c_def['fields'][$key]['add_main_objects']=true;
}
$additional[]=cell(form_field_generic($key,$rec[$key],$c_def,$control,$Java_Engine,"rec[$sub2]").$comment . $other_f,$class); // FIXME: control?
$col_count++;
} elseif ($key==$multi_fields) {
switch ($def['fields'][$sub2]['multi_format']) {
case 'radio' :
$formval = sql_true($value) ? 'Y' : (sql_false($value) ? 'N' : NULL);
if ($def['fields'][$sub2]['null_ok']) {
$wipeout = formradio_wipeout("rec[$sub2][$key]");
}
$additional[] = rightcell($wipeout . yes_no_radio("rec[$sub2][$key]",'',$formval)).leftcell($label);
$col_count++;
break;
default :
$additional[] .= rightcell(formcheck("rec[$sub2][$key]",sql_true($value))).leftcell($label);
$col_count++;
}
} elseif (is_array($multi['visible_fields_conditional'][$sub]) and in_array($key,$multi['visible_fields_conditional'][$sub])) {
//$extra[]=rightcell($key).leftcell(form_field_generic($key,$rec[$key],$c_def,$control,$Java_Engine,"rec[$sub2]"));
$class='class="'.implode(' ',$classes).'"';
if ($action=='add') {
$c_def['fields'][$key]['add_main_objects']=true;
}
$extra[]=row(rightcell(label_generic($key,$c_def,'add')).leftcell(form_field_generic($key,$rec[$key],$c_def,$control,$Java_Engine,"rec[$sub2]")));
} else {
$hidden[] = hiddenvar("rec[$sub2][$key]",$value);
}
}
$out .= row(
rightcell(formcheck("rec[$sub2][$multi_fields]",sql_true($rec[$multi_fields])))
.leftcell($label)
.implode('',$hidden)
.implode('',$additional)
);
if ($extra) {
$span=count($multi['visible_fields']);
$out.=row(topcell(italic(bold('Additional Information for '.$label)),'colspan="2"').cell(table(implode('',$extra)),'colspan="'.$span.'"'),'class="AdditionalInformation"');
}
$out = $group_content ? row(cell($group_content,'colspan='.$col_count)) . $out : $out;
return $out;
}
function post_generics($multi_records,$new_rec,$def,&$mesg,$child_object)
{
$c_def = get_def($child_object);
$table = $c_def["table_post"];
$multi=$def['multi'][$child_object];
$multi_fields=$multi['multi_fields'];
$sing = $c_def['singular'];
$cid=$new_rec[$def['id_field']];
if (!(is_numeric($cid)))
{
$mesg .=oline("Error: Cannot post $sing records, no ".$def['singular']." ID given to post_generics");
return false;
}
$count=0;
$big_rec=$new_rec; // This is for eval purposes, for inherits
foreach($multi_records as $sub=>$rec)
{
$post_by_reference = in_array($def['id_field'], array_keys($rec)) ? FALSE : TRUE;
//if (sql_true($rec[$multi_fields]) && $sub !== "multi_{$child_object}_multi_no_records")
if ((!be_null($rec[$multi_fields])) && ($sub !== "multi_{$child_object}_multi_no_records"))
{
$fields=$def["fields"][$sub];
$label=$fields["label"];
if (!$post_by_reference) {
$rec[$def['id_field']]=$cid;
} else {
$ref_def=get_def('reference');
}
unset($rec[$c_def['id_field']]);
unset($rec['source']); //genericize?
unset($rec['is_deleted']);
foreach($rec as $key=>$value)
{
//if ($key=="added_at" || $key=="changed_at" || $key==$multi_fields)
if ($key==$multi_fields and stristr($key,'_date'))
{
//unset($rec[$key]);
//$rec["FIELD:$key"]="CURRENT_TIMESTAMP";
$rec[$key]=dateof('now','SQL');
}
foreach ($multi['inherited_fields'] as $k=>$v) {
$rec[$k]=eval( 'return ' . $v .';');
}
}
$c_def['post_with_transactions']=false; // already in transaction from parent record
//$result=agency_query(sql_insert($table,$rec));
$result=post_generic($rec,$c_def,$mesg);
if (!$result)
{
$mesg .= oline("Your attempt to post a {$label} record failed.");
log_error("Error in {$action}ing, using post_generics_multi(). Here was the record: "
. dump_array($rec));
//continue;
return false;
}
if ($post_by_reference) {
$ref_rec=array(
'from_table'=>$def['object'],
'from_id_field'=>$def['id_field'],
'from_id'=>$cid,
'to_table'=>$c_def['object'],
'to_id_field'=>$c_def['id_field'],
'to_id'=>$result[$c_def['id_field']],
'added_by'=>$result['added_by'],
'changed_by'=>$result['changed_by']);
$ref_def['post_with_transactions']=false; // already in transaction from parent record
$result=post_generic($ref_rec,$ref_def,$mesg);
if (!$result) {
$mesg .= oline("Error posting by reference. Here was the reference: " . dump_array($ref_rec));
//continue;
return false;
}
}
$count++;
}
else
{
//don't post a new record if there is nothing to post
}
}
$mesg .= oline("You succesfully posted $count $sing records.");
return true;
}
function info_additional_config_array( &$def ) {
$multi=array('sub_title' => 'Additional Information',
'multi_fields'=>'info_additional_value',
'object' => 'info_additional',
'field' => 'info_additional_type_code',
'blank_fn'=>'blank_generics_add',
'add_fields_fn'=>'add_generics_fields',
'form_row_fn'=>'form_generics_row',
'valid_fn'=>'valid_generics',
'post_fn'=>'post_generics',
'sel_sql'=>"SELECT * FROM info_additional_type WHERE '{$def['object']}' = ANY(applicable_tables)",
'allow_none'=>true);
$infos=agency_query($multi['sel_sql']);
if (sql_num_rows($infos) > 0 ) {
$def['multi_records']=true;
$def['multi']['info_additional']=$multi;
return true;
} else {
return false;
}
}
?>
