#% :$modstr: #% :$parts_str: #% :$pa_parts_str: #% "; echo "
Please don't change other parameters when you are changing the Installed PostAmp field.
OR Press the Back button of your browser to edit your input
"; send_common_trailer(); exit; } #---------------------------------------------------------------- # PostAmp installation $vars['tmpPostAmpType'] = POSTAMP_TYPE; $vars['old_tmpPostAmpType'] = POSTAMP_TYPE; $res = check_connection_change( 'item_type', 'selected_crate', 'selected_slot', 'tmpPostAmpType', 'postamp_sernum', 'workdate', $vars ); if($res['error']) { $errflag = 1; $parts_str .= "" ."$res[error]\n" ."\n"; } elseif($res['steps']) { while(list($i, $step) = each($res['steps'])) { $parts_str .= "" ."$step[action]" ."$step[part_description] $step[part_id]" ."" . ($step[action]=="install"? "in":"from") . " $step[base_description] $step[base_id]" ."slot $step[point]" ."on $step[date]" ."\n"; } } #================================================================ if($modstr || $parts_str || $comment) { echo "

PAD Crate $selected_crate, slot $selected_slot" .( $postamp_sernum ? ", PostAmp " . numeric_to_string($postamp_sernum, POSTAMP_TYPE, &$err) : "" ) ."

" ##---------------- . postamp_stage2_vars($vars) ##---------------- . ($modstr ? "\n" ."\n" ."\n" ."\n" ."\n" ."\n" ."\n" ."\n" . $modstr ."
You want to changefromtowork date
\n" ."\n" : "" ) ##---------------- . ($parts_str ? "". "\n" ."\n" ."\n" ."\n" . $parts_str ."
You want to
\n" ."\n" : "" ) ##---------------- . ($comment ? "". "

Your comment is:

\n"
			 ."$comment

\n" ."\n" : "" ) ##---------------- . ($errflag ? "" : "\n" ) ."\n" .' OR Press the Back button of your browser' .' to edit your input
'; ; } else { echo "

PAD Crate $selected_crate, slot $selected_slot" .( $postamp_sernum ? ", PostAmp " . numeric_to_string($postamp_sernum, POSTAMP_TYPE, &$err) : "" ) ."

\n"; echo " You didn't modify anything.
"; } send_common_trailer(); exit; } ################################################################ if($confirm) { ## HTML-escape all posted data and reset vars in current scope esc_r($HTTP_POST_VARS); extract($HTTP_POST_VARS, EXTR_OVERWRITE); $err = ''; $op = 'edit_pad_crate'; if(!start_transaction($conn,$op,$scriptid,$comment)) { $err .= "Can't start transaction."; } else { ## ---------------------------------------------------------------- if($comment) { $q = pg_exec( $conn, "INSERT INTO item_comment" ." (tn,sernum,workdate)" ." values" ." (currval('tn'),$sernum,'now');" ); if(!$q) { $err .= "Error setting comment.
\n"; } } #---------------------------------------------------------------- # Cables & PostAmp vars $err .= postamp_write_db($postamp_sernum, $HTTP_POST_VARS); # ---------------------------------------------------------------- # PostAmp installation $vars = $HTTP_POST_VARS; $vars['tmpPostAmpType'] = POSTAMP_TYPE; $vars['old_tmpPostAmpType'] = POSTAMP_TYPE; $res = check_connection_change( 'item_type', 'selected_crate', 'selected_slot', 'tmpPostAmpType', 'postamp_sernum', 'workdate', $vars ); if($res['error']) { $err .= "Error verifying 'Installed in' vars: $res[error].
\n"; } elseif($res['steps']) { while(list($i, $step) = each($res['steps'])) { $err .= edit_set_connection($step); } } ## ================================================================ if(!$err) { if(!pg_exec($conn, "COMMIT;")) { $err .= "Error commiting changes."; } } } ################################################################ ## Exit on a error. But, if DB has been successfully modified ## just continue to display an updated page. if($err) { pg_exec($conn, "ROLLBACK;"); echo "
\n" ."$err
\n" ."Database has not been modified. \n" ."
\n" ; send_common_trailer(); exit; } } ################################################################ # Query DB about current item parameters if($selected_crate != "") { #---------------------------------------------------------------- # Get PostAmp numbers $res = edit_get_parts_of_types( array($sernum), array(POSTAMP_TYPE) ); if($res['error']) { echo "
\n$res[error]\n
\n"; } $pa_parts =& $res['data'][$sernum]; $PAIds = array(); $pa_list = array(); $slot_list = array(); reset($pa_parts); while( list($key, $val) = each($pa_parts) ) { if($val['part']) { $pa_list[$key] = $val['part']['part_id']; $slot_list[$val['part']['part_id']] = $key; $PAIds[$key] = "PA ". $val['part']['part_id']; } } #---------------------------------------------------------------- # Get cable numbers $topAnalogIds = array(); $botAnalogIds = array(); $eclIds = array(); $res = edit_get_parts_of_types( $pa_list, array( ANALOG_CABLE_TYPE, ECL_CABLE_TYPE ) ); if($res['error']) { echo "
\n$res[error]\n
\n"; } $raw_cables =& $res['data']; reset($raw_cables); while( list($pa_num, $val) = each($raw_cables) ) { # PA input, ch 0-7 $tmp =& $val[10]['part']; if($tmp) { $topAnalogIds[$slot_list[$pa_num]] = format_default_id($tmp['part_id']) . postamp_analogue_letter($tmp['part_point']); } # PA input, ch 8-15 $tmp =& $val[20]['part']; if($tmp) { $botAnalogIds[$slot_list[$pa_num]] = format_default_id($tmp['part_id']) . postamp_analogue_letter($tmp['part_point']); } # PA output $tmp =& $val[30]['part']; if($tmp) { $eclIds[$slot_list[$pa_num]] = $tmp['part_id']; } } #echo "
\n";
#print_r($res);
#echo "
\n"; $dbd = array( 'PAIds' => $PAIds, 'topAnalogIds' => $topAnalogIds, 'botAnalogIds' => $botAnalogIds, 'eclIds' => $eclIds ); $dbd = urlencode(base64_encode(serialize($dbd))); #---------------------------------------------------------------- # All information required for the picture is ready. # Get info for the text part of the page, if a slot is selected. $pa_data = array(); if( $selected_slot != "") { $err = ''; $postamp_sernum = $pa_list[$selected_slot]; if($postamp_sernum) { $pa_id = numeric_to_string( $postamp_sernum, POSTAMP_TYPE, &$err ); if($err) { echo "$err\n"; } $pa_tmp = postamp_query_db( $pa_id, POSTAMP_TYPE, $postamp_sernum ); if($pa_tmp['error']) { echo "$pa_tmp[error]\n"; } else { $pa_data = $pa_tmp['data']; } } } } ##================================================================ # EARLIER region in a map definition takes precedence # In the opposite, visible regions are drawn later. # Another thing to remember is that the image generator uses # two coordinate systems. $selection = $selected_crate != "" ? "selected_crate=$selected_crate" . ( $selected_slot != "" ? "&selected_slot=$selected_slot" : "" ) : "" ; $selection_img = $selection != "" ? $selection . "&dbd=$dbd" : ""; $imgscript = "pad_crate_image.php"; $imagedefault = "$imgscript?$selection_img"; $imagedefault = ereg_replace('\?$', '', $imagedefault); $str = ' '; echo js($str) . '

PAD Crates

Select a crate and slot on the image, then scroll down to view/edit details. ' # .("
Selected crate: $selected_crate, sernum=$sernum, item_id=$item_id
\n") # ."
selection = ". htmlspecialchars($selection_img)."
\n" . '

PAD Crates '; #================ if($selected_crate != "") { # Slots go on top of the map: for( $i = 1; $i < 25; $i++) { # Shift by $magX,$magY to the rack coordinate system $x1 = $magX + $slot_origs[$i]; $y1 = $magY + $slot1_Y; $x2 = $x1 + $slot_dx; $y2 = $y1 + $slot_dy; echo "\n"; } #---------------- # Mark non-sensitive areas echo "\n"; $poly1 = ($selected_crate < 6) ? $top_pts : $bottom_pts; $poly2 = ($selected_crate % 2) ? $left_pts : $right_pts; #---------------- $coord_str = ""; reset($poly1); while( list($key, $val) = each($poly1) ) { $coord_str .= "$val,"; } $coord_str = ereg_replace(",$", "", $coord_str); echo "\n"; #---------------- $coord_str = ""; reset($poly2); while( list($key, $val) = each($poly2) ) { $coord_str .= "$val,"; } $coord_str = ereg_replace(",$", "", $coord_str); echo "\n"; } #================ reset($origs); while(list($key, $val) = each($origs)) { list($x1, $y1) = $val; $x2 = $x1 + $crate_dx; $y2 = $y1 + $crate_dy; echo "\n"; } #================ echo "\n"; #---------------------------------------------------------------- # Here the "edit details" part goes. if( ($selected_crate != "") && ($selected_slot != "") ) { echo "

PAD Crate $selected_crate, slot $selected_slot

" .href2($postamp_sernum, "Installed PostAmp:") ." " # ---------------------------------------------------------------- . ($pa_data? postamp_mainpage($pa_data) : "") # ---------------------------------------------------------------- # Common workdate ."

Please enter the effective date of modifications to be submitted. If different updated entries should have different effective dates please do several separate submits.

" # ---------------- ."
\n" ."
\n" ." \n" ."
\n" # ---------------- ."
\n" .( $pa_data['comments'] ? "
\n" ."Existing comments about " ."PostAmp $pa_id:\n" . $pa_data['comments'] : "" ) ."
\n" # ---------------------------------------------------------------- ."
\n" ; #echo "
\n pa_data = 
\n";
#print_r($pa_data);
#echo "
\n"; } #---------------------------------------------------------------- echo "
\n"; ## The top-level one. ?>