\n"; echo "\n"; echo "Warning: record not found!
\n"; echo "(maybe it was just deleted)
\n"; echo "serial_id was $serial_id
\n"; echo "

\n"; display_menu2($modify_array,$pick_next,$pick_prev); // Menu: Next, Previous, First, Last... exit; } echo "

Viewing $pick_id of $pick_max

\n"; display_menu2($modify_array,$pick_next,$pick_prev); // Menu: Next, Previous, First, Last... echo "
"; display_javascript(); display_form1($input_array); // DISPLAY THE FORM echo "
"; display_menu3($modify_array,$pick_next,$pick_prev,$serial_id); // menu: Update, Delete, Main } /******************************************************************************* * * Function Name: get_picklist * Author: Peter R. Schmidt * Description: Fetch a row using the picklist * * Input Arg 1: the modify_array * * Return Arg: input_array, rows found * *******************************************************************************/ function get_picklist($modify_array) { $cnt_found = 0; $serial_id = 0; $input_array = array ( "type_code" => "", "tape_num" => "", "title" => "", "hours" => "", "comment" => "" ); $connect_id = database_connection(); // ESTABLISH A DATABASE CONNECTION if ($connect_id) { $pick_id = $modify_array[pick_id]; $pick_list = preg_split("/\|/",$modify_array[pick_list]); // CONVERT PICKLIST INTO ARRAY $serial_id = $pick_list[$pick_id-1]; // DECREMENT OFFSET BY 1 $where_clause = "where serial_id = $serial_id"; list ($statmt_id,$cnt_found) = cnt_and_query("vhs",$where_clause); if ($cnt_found == 1) { $row = ifx_fetch_row($statmt_id); if ($row) { $serial_id = $row[serial_id]; $type_code = chop($row[type_code]); $tape_num = $row[tape_num]; $title = chop($row[title]); $hours = $row[hours]; $comment = chop($row[comment]); $input_array = array ( "type_code" => $type_code, "tape_num" => $tape_num, "title" => $title, "hours" => $hours, "comment" => $comment ); $ret_val = 1; } } } return array ($input_array,$cnt_found,$serial_id); } /******************************************************************************* * * Function: modify_mode_2 * Author: Peter R. Schmidt * Description: Modify a record * *******************************************************************************/ function modify_mode2 ($input_array,$modify_array) { $sql_txt = "update vhs set\n"; $sql_txt .= "type_code = '$input_array[type_code]',\n"; $sql_txt .= "tape_num = '$input_array[tape_num]',\n"; $sql_txt .= "title = '$input_array[title]',\n"; $sql_txt .= "hours = '$input_array[hours]',\n"; $sql_txt .= "comment = '$input_array[comment]'\n"; $sql_txt .= "where serial_id = $modify_array[serial_id];"; $connect_id = database_connection(); // ESTABLISH A DATABASE CONNECTION if ($connect_id) { $statmt_id = ifx_query($sql_txt,$connect_id); // UPDATE RECORD if (!$statmt_id) { echo "Unable to execute Informix sql statement
\n"; echo "$sql_txt
\n"; exit; } $flag_insert = 1; } if ($flag_insert) { echo "

Record Updated.

\n"; echo "
"; } modify_mode1($modify_array); } /******************************************************************************* * * Function: delete_mode_2 * Author: Peter R. Schmidt * Description: Delete a record * *******************************************************************************/ function delete_mode1 ($modify_array) { $sql_txt = "delete from vhs where serial_id = $modify_array[serial_id];"; $connect_id = database_connection(); // ESTABLISH A DATABASE CONNECTION if ($connect_id) { $statmt_id = ifx_query($sql_txt,$connect_id); // DELETE RECORD if (!$statmt_id) { echo "Unable to execute Informix sql statement
\n"; echo "$sql_txt
\n"; exit; } $flag_insert = 1; } if ($flag_insert) { echo "

Record Deleted.

\n"; echo "

"; } $pick_id = $modify_array[pick_id]; $pick_next = ($pick_id + 1); // CALCULATE NEXT $pick_prev = ($pick_id - 1); // CALCULATE PREVIOUS display_menu2($modify_array,$pick_next,$pick_prev); // Menu: Next, Previous, First, Last... } ?>