ABLE BORDER='1' CELLPADDING='10' CELLSPACING='0' BGCOLOR='$EDIT_COLOR_1'>"; ECHO "
"; ECHO ""; ECHO ""; ECHO "Удаление вида"; ECHO "
"; ECHO "Внимание! Будут также удалены следующие данные:"; ECHO "
"; ECHO "
"; ECHO ""; ECHO ""; ECHO ""; ECHO ""; ECHO ""; ECHO ""; ECHO ""; ECHO ""; ECHO ""; ECHO ""; ECHO ""; ECHO ""; ECHO ""; ECHO "
Гербарные образцы$n_herbs
Публикации$n_publs
Файлы-приложения$n_files
"; ECHO "
"; ECHO "
"; ECHO ""; SHOW_BUTTON ("Удалить",$ACC_KIND_DEL,$kinds_arr[creator]); ECHO " "; ECHO ""; ECHO ""; ECHO ""; ARR_TRANZIT($kinds_arr,"kinds_arr"); ECHO ""; ECHO ""; ECHO "
"; ECHO ""; BREAK; /* ! */ /* ! */ /* ! */ CASE("Удалить"): /* ! */ $res = MYSQL($DB_NAME,"SELECT kind_name_r FROM kinds WHERE uniq_k = $uniq_k"); $res_len = MYSQL_NUMROWS($res); MYSQL_FREERESULT($res); IF ($res_len < 1): ECHO "
"; ECHO "Вид отсутствует или уже удален"; ECHO "
"; ELSE: $file_err = ""; /* ! */ IF ($file_err != "Y"): $res = MYSQL($DB_NAME,"SELECT herbs_files.uniq_f, herbs_files.file FROM herbs_files, herbs WHERE herbs_files.uniq_h = herbs.uniq_h AND herbs.uniq_k = $uniq_k"); $res_len = MYSQL_NUMROWS($res); $i=0; WHILE ($i < $res_len): $v_uniq = INTVAL(MYSQL_RESULT($res,$i,"herbs_files.uniq_f")); $v_file = TRIM(MYSQL_RESULT($res,$i,"herbs_files.file")); $v_file_path = "$FILEBASE_PATH_1/files_herbs/" . $v_file; IF (IS_FILE($v_file_path)): $fd = UNLINK ($v_file_path); CLEARSTATCACHE(); IF (!$fd): $i = 999999; /* ! */ $file_err = "Y"; ELSE: MYSQL($DB_NAME,"DELETE FROM herbs_files WHERE uniq_f = $v_uniq"); ENDIF; ELSE: MYSQL($DB_NAME,"DELETE FROM herbs_files WHERE uniq_f = $v_uniq"); ENDIF; $i++; ENDWHILE; MYSQL_FREERESULT($res); ENDIF; /* ! */ IF ($file_err != "Y"): MYSQL($DB_NAME,"DELETE FROM herbs WHERE uniq_k = $uniq_k"); ENDIF; /* ! */ IF ($file_err != "Y"): MYSQL($DB_NAME,"DELETE FROM kinds_publs WHERE uniq_k = $uniq_k"); ENDIF; /* ! */ IF ($file_err != "Y"): $res = MYSQL($DB_NAME,"SELECT uniq_f,file FROM kinds_files WHERE uniq_k = $uniq_k"); $res_len = MYSQL_NUMROWS($res); $i=0; WHILE ($i < $res_len): $v_uniq = INTVAL(MYSQL_RESULT($res,$i,"kinds_files.uniq_f")); $v_file = TRIM(MYSQL_RESULT($res,$i,"kinds_files.file")); $v_file_path = "$FILEBASE_PATH_1/files_kinds/" . $v_file; IF (IS_FILE($v_file_path)): $fd = UNLINK ($v_file_path); CLEARSTATCACHE(); IF (!$fd): $i = 999999; $file_err = "Y"; ELSE: MYSQL($DB_NAME,"DELETE FROM kinds_files WHERE uniq_f = $v_uniq"); ENDIF; ELSE: MYSQL($DB_NAME,"DELETE FROM kinds_files WHERE uniq_f = $v_uniq"); ENDIF; $i++; ENDWHILE; MYSQL_FREERESULT($res); ENDIF; IF ($file_err == "Y"): /* ! */ ECHO "
"; ECHO "Вид $kinds_arr[kind_name_r] не был удален, т.к. из-за сбоя не удалось удалить некоторые файлы-приложения"; ECHO "
"; Show_form($uniq_k); ELSE: /* ! */ MYSQL($DB_NAME,"DELETE FROM kinds WHERE uniq_k = $uniq_k"); ECHO "
"; ECHO "Вид $kinds_arr[kind_name_r] удален"; ECHO "
"; ENDIF; ENDIF; BREAK; /* ! */ /* ! */ /* ! */ CASE("Отказаться"): /* ! */ IF ($uniq_k != 0): Show_form($uniq_k); ELSE: /* ! */ ECHO "
"; ECHO "Регистрация нового вида прекращена"; ECHO "
"; ENDIF; BREAK; /* ! */ /* ! */ /* ! */ CASE("Список видов"): /* ! */ ECHO "

Список видов

"; $and_or = "AND"; $max_recs = "99999"; $filt_arr_k[edit_dt_2] = DATE("d.m.Y"); $list_rows = Make_list($and_or,$max_recs); IF ($list_rows < 1): ECHO "
"; ECHO "Список пуст"; ECHO "
"; ENDIF; BREAK; /* ! */ /* ! */ /* ! */ DEFAULT: /* ! */ IF ($uniq_k != 0): Show_form($uniq_k); ELSE: ECHO "

Список видов

"; $and_or = "AND"; $max_recs = "99999"; $filt_arr_k[edit_dt_2] = DATE("d.m.Y"); $list_rows = Make_list($and_or,$max_recs); IF ($list_rows < 1): ECHO "
"; ECHO "Список пуст"; ECHO "
"; ENDIF; ENDIF; BREAK; /* ! */ ENDSWITCH; ?>


[ Список видов | Поиск видов | Фильтр видов ]   [ Список образцов | Поиск образцов | Фильтр образцов ]  


(C) 2003 Казанский Государственный Университет
Работа выполнена при поддержке Российского Фонда Фундаментальных Исследований. Грант N 02-07-90230