$preamp_name
\n"
."\n"
."\n"
."\n"
."\n"
."\n"
."\n"
."\n";
}
$daughter_str = "";
if($daughter) {
for($ipr = 1; $ipr <=4; $ipr++) {
$ipoint = 100*$iplane + 10 + $ipr;
$preamp_sernum = $preamp_parts[$ipoint]['part']['set']=='t'?
$preamp_parts[$ipoint]['part']['part_id'] : ''
;
$preamp_id = $preamp_sernum ?
format_default_id($preamp_sernum) : ''
;
$preamp_name = href2($preamp_sernum, $preamp_parts[$ipoint]['point_name']);
$daughter_str .= "$preamp_name
\n"
."\n"
."\n"
."\n"
."\n"
."\n"
."\n"
." | \n";
}
}
$wp_str = ""
. href2($plane_sernum, $plane_name)
."
\n"
."\n"
."\n"
."\n"
."\n"
." | \n"
;
$emptycell_str = ""
." | \n";
##----------------------------------------------------------------
if($daughter && $above) {
$first_row_cells = $daughter_str;
$second_row_cells = $preamp_str;
}
else {
$first_row_cells = $preamp_str;
$second_row_cells = $daughter_str;
}
##----------------------------------------------------------------
if($left) {
$str .= "\n"
. $first_row_cells
. $wp_str
. $emptycell_str
."
\n"
. ( $daughter?
"\n"
. $second_row_cells
."
\n"
: ""
);
}
else {
$str .= "\n"
. $emptycell_str
. $wp_str
. $first_row_cells
."
\n"
. ( $daughter?
"\n"
. $second_row_cells
."
\n"
: ""
);
}
}
return $str;
}
################################################################
if($send) {
$errflag = 0;
$modstr = "";
## strip spaces where they should be ignored
mytrim( array( 'status_date', 'parts_lastdate',
'preamps_lastdate', 'mod_base',
'mod_lid', 'mod_cathode'
),
$HTTP_POST_VARS
);
## HTML-escape all posted data
esc_r($HTTP_POST_VARS);
## Define PC/DC wire plain types and reset vars in current scope
## Loop up to the max possible number of planes
for($plane=1; $plane <= 8; $plane++) {
$id = ${"plane$plane"};
$old_id = ${"old_plane$plane"};
## ----------------
if($id) {
if('' == edit_std_id(&$id, 1)) {
# DC wire plane
$HTTP_POST_VARS["plane${plane}_type"] = 1;
}
elseif('' == edit_std_id(&$id, 18)) {
# PC wire plane
$HTTP_POST_VARS["plane${plane}_type"] = 18;
}
else {
$errflag = 1;
$modstr .= "\n"
."Invalid id $id for plane $plane.\n"
."
\n";
}
}
else {
# Type does not matter, but check_connection_change()
# want it to be set
$HTTP_POST_VARS["plane${plane}_type"] = 1;
}
## ----------------
if($old_id) {
if('' == edit_std_id(&$old_id, 1)) {
# DC wire plane
$HTTP_POST_VARS["old_plane${plane}_type"] = 1;
}
elseif('' == edit_std_id(&$old_id, 18)) {
# PC wire plane
$HTTP_POST_VARS["old_plane${plane}_type"] = 18;
}
else {
$errflag = 1;
$modstr .= "\n"
."Invalid id $old_id for plane $plane.\n"
."
\n";
}
}
else {
# Type does not matter, but check_connection_change()
# want it to be set
$HTTP_POST_VARS["old_plane${plane}_type"] = 1;
}
}
extract($HTTP_POST_VARS, EXTR_OVERWRITE);
##================================
$comment=chop($comment);
$modstr .= change4_str( "Status", 'status',
$errflag, $HTTP_POST_VARS);
##----------------
if($old_mod_type != $mod_type) {
$modstr .= ""
."| Module type | "
."$old_mod_type | "
."$mod_type | "
." | "
."
\n";
}
################################################################
if($mod_base != $old_mod_base) {
$cres = check_connection_change( 'item_type', 'item_id',
'mod_base_point',
'mod_base_type', 'mod_base',
'parts_lastdate',
$HTTP_POST_VARS);
if($cres['error']) {
$errflag = 1;
$parts_str .= ""
."\n$cres[error]\n \n"
." |
\n";
}
elseif($cres['steps']) {
while(list($i, $step) = each($cres['steps'])) {
$parts_str .= ""
."| $step[action] | "
."$step[point_name] | "
."$step[part_description] $step[part_id] | "
.""
. ($step[action]=="install"? "in":"from")
. " $step[base_description] $step[base_id] | "
."on $step[date] | "
."
\n";
}
}
}
##================================================================
if($mod_lid != $old_mod_lid) {
$cres = check_connection_change( 'item_type', 'item_id',
'mod_lid_point',
'mod_lid_type', 'mod_lid',
'parts_lastdate',
$HTTP_POST_VARS);
if($cres['error']) {
$errflag = 1;
$parts_str .= ""
."\n$cres[error]\n \n"
." |
\n";
}
elseif($cres['steps']) {
while(list($i, $step) = each($cres['steps'])) {
$parts_str .= ""
."| $step[action] | "
."$step[point_name] | "
."$step[part_description] $step[part_id] | "
.""
. ($step[action]=="install"? "in":"from")
. " $step[base_description] $step[base_id] | "
."on $step[date] | "
."
\n";
}
}
}
##================================================================
if($mod_cathode != $old_mod_cathode) {
$cres = check_connection_change( 'item_type', 'item_id',
'mod_cathode_point',
'mod_cathode_type', 'mod_cathode',
'parts_lastdate',
$HTTP_POST_VARS);
if($cres['error']) {
$errflag = 1;
$parts_str .= ""
."\n$cres[error]\n \n"
." |
\n";
}
elseif($cres['steps']) {
while(list($i, $step) = each($cres['steps'])) {
$parts_str .= ""
."| $step[action] | "
."$step[point_name] | "
."$step[part_description] $step[part_id] | "
.""
. ($step[action]=="install"? "in":"from")
. " $step[base_description] $step[base_id] | "
."on $step[date] | "
."
\n";
}
}
}
##================================================================
## Loop up to the max possible number of planes
$planevars = '';
for($plane=1; $plane <= 8; $plane++) {
if(${"plane$plane"} == ${"old_plane$plane"}) {
continue;
}
$cres = check_connection_change( 'item_type', 'item_id',
"plane${plane}_point",
"plane${plane}_type", "plane$plane",
'parts_lastdate',
$HTTP_POST_VARS);
if($cres['error']) {
$errflag = 1;
$parts_str .= ""
."\n$cres[error]\n \n"
." |
\n";
}
elseif($cres['steps']) {
while(list($i, $step) = each($cres['steps'])) {
$parts_str .= ""
."| $step[action] | "
."$step[point_name] | "
."$step[part_description] $step[part_id] | "
.""
. ($step[action]=="install"? "in":"from")
. " $step[base_description] $step[base_id] | "
."on $step[date] | "
."
\n";
}
$planevars .= ""
."\n"
."\n"
."\n"
."\n"
."\n"
."\n"
;
}
}
##================================================================
$preamp_vars = '';
for($iplane=1; $iplane <= 8; $iplane++) {
for($ipr=1; $ipr <=4; $ipr++) {
for($idaughter=0; $idaughter <= 10; $idaughter +=10) {
$ipoint = 100*$iplane + $idaughter + $ipr;
if(${"preamp$ipoint"} == ${"old_preamp$ipoint"}) {
continue;
}
$cres = check_connection_change( 'item_type', 'item_id',
"preamp${ipoint}_point",
"preamp${ipoint}_type",
"preamp$ipoint",
'preamps_lastdate',
$HTTP_POST_VARS);
if($cres['error']) {
$errflag = 1;
$parts_str .= ""
."\n$cres[error]\n \n"
." |
\n";
}
elseif($cres['steps']) {
while(list($i, $step) = each($cres['steps'])) {
$parts_str .= ""
."| $step[action] | "
."$step[point_name] | "
."$step[part_description] $step[part_id] | "
.""
. ($step[action]=="install"? "in":"from")
. " $step[base_description] $step[base_id] | "
."on $step[date] | "
."
\n";
}
$preamp_vars .= ""
."\n"
."\n"
."\n"
."\n"
."\n"
."\n"
;
}
}
}
}
################################################################
if($modstr || $parts_str || $comment) {
echo "$self_name $item_id
\n";
echo "