Cradle
Select a module on the image to view/edit details.
.')
";
#================================================================
function module_cabling_table($plane_order, $cable_parts, $rotate) {
if(!$plane_order) return "";
list( $top_str, $bottom_str) =
$rotate ?
array("Module Lid", "Module Base")
: array("Module Base", "Module Lid") ;
$str = "
\n"
;
return $str;
}
################################################################
if($select) {
##================================================================
if($send) {
## strip spaces where they should be ignored
mytrim( array( 'module_sernum', 'change_date'), $HTTP_POST_VARS);
for($iplane=1; $iplane <= 8; $iplane++) {
for($ipr=1; $ipr <=4; $ipr++) {
for($idaughter=0; $idaughter <= 10; $idaughter +=10) {
$ipoint = 10000 + 100*$iplane + $idaughter + $ipr;
mytrim( array( "cable$ipoint" ), $HTTP_POST_VARS );
}
}
}
## HTML-escape all posted data and reset vars in current scope
esc_r($HTTP_POST_VARS);
extract($HTTP_POST_VARS, EXTR_OVERWRITE);
$comment=chop($comment);
$errflag = 0;
$parts_str = "";
##================
$cres = check_connection_change( 'base_type', 'base_id',
'module_point',
'module_type', 'module_sernum',
'change_date',
$HTTP_POST_VARS);
if($cres['error']) {
$errflag = 1;
$parts_str = "
| "
."$cres[error]"
." |
\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] | "
."on $step[date] | "
."
\n";
}
}
##================================================================
$cable_vars = '';
for($iplane=1; $iplane <= 8; $iplane++) {
for($ipr=1; $ipr <=4; $ipr++) {
for($idaughter=0; $idaughter <= 10; $idaughter +=10) {
$ipoint = 10000 + 100*$iplane + $idaughter + $ipr;
if(${"cable$ipoint"} == ${"old_cable$ipoint"}) {
if(!$reconnect_cables) {
continue;
}
## Skip this only if both cable ids undefined
elseif( (${"cable$ipoint"} == "" ) &&
(${"old_cable$ipoint"} == "" ) )
{
continue;
}
}
$cres = check_connection_change( 'module_type', 'module_sernum',
"cable${ipoint}_point",
"cable_type",
"cable$ipoint",
'change_date',
$HTTP_POST_VARS,
'cable_item_point');
if($cres['error']) {
$errflag = 1;
$parts_str .= "
"
."\n$cres[error]\n \n"
.( eregi('request.*complete', $cres['error']) ?
"Hint: you can't connect cables"
." without installing a chamber module."
: ""
)
." |
\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";
}
$cable_vars .= ""
."
\n"
."
\n"
."
\n"
."
\n"
;
}
}
}
}
################################################################
if($modstr || $parts_str || $comment) {
echo "
\n"
;
send_common_trailer();
exit;
}
} # //confirm
################################################################
## Query DB for current values
##----------------------------------------------------------------
$res = edit_get_part($sernum, $select);
if($res['error']) {
echo "
$res[error]\n";
}
$module_sernum = $res['part_sernum'];
$module_type = $res['type'];
$module_date = $res['date'];
## ----------------
## Get info for the installed module.
if($module_sernum) {
$q = pg_exec( $conn,
"SELECT * FROM "
." ( SELECT type FROM chamber_mod_type "
." WHERE sernum=$module_sernum"
." ORDER BY workdate DESC LIMIT 1) AS a"
." NATURAL JOIN chamber_mod_types;"
);
if(!$q) {
echo "
Error getting pars for module $module_sernum\n";
}
$req_type = pg_result($q, 0, 'description');
$plane_order = pg_result($q, 0, 'plane_order');
}
##----------------------------------------------------------------
## Get cabling info
if($module_sernum) {
$res = edit_get_parts_of_types(array($module_sernum), array(8));
$cable_parts =& $res['data'][$module_sernum];
$cable_date = $res['last_date'];
}
else {
$res = edit_get_connection_scheme(4, 0, array(8));
$cable_parts =& $res['data'];
}
if($res['error']) {
echo "
\n$res[error]\n
\n";
}
## ----------------------------------------------------------------
$comments = get_comments($sernum);
##================================================================
$str = "