\n"; # print_r($cres); # echo "\n"; 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[part_description] $step[part_id]" ."" . ($step[action]=="install"? "in":"from") . " $step[base_description] $step[base_id]" ."at point $step[point]" ."on $step[date]" ."\n"; } } #---------------------------------------------------------------- $res = check_change( array('m','dm','b','db','chi2'), 'fit_date', $HTTP_POST_VARS); if($res['error']) { $errflag = 1; } if($res['diff']) { $datestring = ($res['error'])? "$res[error]" : ($res['diff']['fit_date']) ; $from_table = "" ."" ."" ."" ."" ."" ."
M = " . ($res['diff']['old_m']) . "
dM = " . ($res['diff']['old_dm']) . "
B = " . ($res['diff']['old_b']) . "
dB = " . ($res['diff']['old_db']) . "
chi2 = " . ($res['diff']['old_chi2']) . "
"; $m_str = parcheck('M',$res['diff']['m'], &$errflag); $dm_str = parcheck('dM',$res['diff']['dm'], &$errflag); $b_str = parcheck('B', $res['diff']['b'], &$errflag); $db_str = parcheck('dB', $res['diff']['db'], &$errflag); $to_table = "" ."" ."" ."" ."" ."" ."
M = $m_str
dM = $dm_str
B = $b_str
dB = $db_str
chi2 = " . ($res['diff']['chi2']) . "
"; $modstr .= "" ."Thermistor pars" ."$from_table" ."$to_table" ."$datestring" ."\n"; } ################################################################ if($modstr || $parts_str || $comment) { echo "

$self_name $item_id

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

Your comment is:

\n"
			 ."$comment

\n" ."
\n" ##---------------- # . ($auth_user ? "

You are: $auth_user

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

$self_name $item_id

\n"; echo "\n" ."\n" ."\n" ."You didn't modify anything. " ."\n" ; } 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_thermistor'; 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"; } } ## ---------------------------------------------------------------- $res = check_change4('status', $HTTP_POST_VARS); if($res['error']) { $err .= "Error verifying 'status' vars: $res[error].
\n"; } elseif($res['diff']) { $err .= edit_set_selected( $sernum, $status, $status_date, 'status', 'statuses', 'status'); } ################ ## ---------------------------------------------------------------- $res = check_change( array('m','dm','b','db','chi2'), 'fit_date', $HTTP_POST_VARS); if($res['error']) { $err .= "Error verifying thermistor pars: $res[error].
\n"; } elseif($res['diff']) { $err .= edit_set_values( $sernum, 'thermistor_pars', $fit_date, array( 'm' => $m, 'dm' => $dm, 'b' => $b, 'db' => $db, 'chi2' => $chi2 ) ); } ## ---------------------------------------------------------------- $cres = check_connection_change( 'base_type', 'base_id', 'point', 'part_type', 'part_id', 'base_date', $HTTP_POST_VARS); if($cres['error']) { $err .= "Error verifying 'Installed in' vars: $cres[error].
\n"; } elseif($cres['steps']) { while(list($i, $step) = each($cres['steps'])) { $err .= edit_set_connection($step); } } ## ================================================================ if(!$err) { if(!pg_exec($conn, "COMMIT;")) { $err .= "Error commiting changes."; } } } ################################################################ ## Exit on a error. But, if DB is 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" ."\n" ."\n" ."
\n" ; send_common_trailer(); exit; } } ################################################################ # Query DB about current item parameters ## ================================================================ ## Prepare status info $res = edit_get_status($item_id, $item_type); if($statusarr['error']) { echo "$res[error]
"; } $status = $res['status']; $status_date = $res['date']; $status_set = $res['isset']; $status_options = $res['options']; ## ================================================================ ## Where is the item installed? $res = edit_get_base($sernum); if($statusarr['error']) { echo "$res[error]
"; } $base_sernum = $res['base_sernum']; $base_id = ( $res['base_sernum']? format_default_id($res['base_sernum']) : "" ); $base_date = $res['date']; $point = $res['point']; $arroptions = $res['arroptions']; ## Check the assumption that thermistors can only be installed ## in gas box lids while(list($row, $option) = each($arroptions)) { list($bt, $bn, $pt, $sel) = $option; ## echo "$bt, $bn, $point, $selected
\n"; ($bt == 20) or die("Unexpected base_type $bt"); } ## Generate the options string for connection point. $point_opts = "\n" : " selected>\n"); for($ipoint = 1; $ipoint<=8; $ipoint++) { ## Shift internal connected_at addressing to ## thermistor position number at the picture $point_opts .= "" : ">") ."$ipoint\n"; } $old_point = $point ? $point - 4 : ""; ## ---------------------------------------------------------------- ## Parameters $res = edit_get_value( $sernum, 'thermistor_pars', array('m','dm','b','db','chi2') ); if($res['error']) { echo "$res[error]
"; } $fit_date = $res['date']; $chi2 = $res['chi2']; $m = $res['m']; $b = $res['b']; $dm = $res['dm']; $db = $res['db']; ## ---------------------------------------------------------------- $comments = get_comments($sernum); ################################################################ # Display a form with current parameters as default values echo "

$self_name $item_id

\n"; echo "
\n" ."\n" ."\n" # ---------------------------------------------------------------- ."\n" ."\n" # -------------------------------- ."\n" # ---------------- ."
\n" ."Status:" ."\n" ."\n" ."\n" . ($status_set? "" : "(default) " ) ."\n" ."Status change date: " ."\n" ."\n" ."\n" ."
\n" ."Installed in " . ($base_sernum ? "\n" ."gas box lid " : "gas box lid " ) ."\n" ."\n" ."\n" ."\n" ."\n" ############ ." At point " ."\n" ."\n" # ---- ."\n" ."\n" ."\n" ."\n" ."\n" # ---- ."Install date: " ."\n" ."\n" ."\n" ."
\n" # ---------------------------------------------------------------- .'
The calibration is defined as follows:
(RealTemperature) = M*(ThermistorReading) + B
where "RealTemperature" is the actual temperature around the thermistor, and ThermistorReading is what the thermistor says the temperature is. The parameters M, B and their errors are obtained from a straight line fit to the calibration data. All temperatures are in Celsius.
' # -------------------------------- ."
\n" ."\n" ."" ."" ."\n" ."\n" ."\n" # ---- ."\n" ."" ."\n" ."\n" # ---- ."\n" ."" ."" ."\n" ."
M: " ."\n" ."\n" ." +- " ."\n" ."\n" ."" ."
\n" ." Date of the measurement
\n" ."\n" ."\n" ."
\n" ."
B: " ."\n" ."\n" ." +- " ."\n" ."\n" ."
Chi2
(optional): 		" ."\n" ."\n" ."
\n" ."
\n" # -------------------------------- ."

\n" ."Note: if you enter/change a field that has " ."corresponding date field the latter is mandatory.
\n" ."Date format examples: " ."\"2001-03-16 15:55\", or " ."\"Mar 16, 2001 15:55\" " ."(time is optional).
\n" ."You can also say \"now\" " ."or \"yesterday\"." ."

\n" # -------------------------------- ."

\n" ."Comment to add
\n" .' ' ."

\n" # ---------------- ."
\n" ."\n" ."\n" ."
\n" # ---------------------------------------------------------------- ."
\n" .( $comments ? "

\n" ."Existing comments about " ."$self_name $item_id:\n" . $comments : "" ) ."
\n" # ---------------------------------------------------------------- ."
\n" ; ################################################################ ?>