(PERL) редактроание

Anna85
Дата: 11.10.2006 09:42:17
Ребята, нужно сделать редактирование. Есть определенная таблица, в которой 21 столбец и множество строк. Я выбираю определенную строку, нажимаю ссылку редактирование, попадаю на другую страницу на которой есть шапка этой таблицы и нужная строка, с котой можно производить редактирование. Все вроде работает как надо, другая табличка появляется, но туда можно записать только что-то новое, потому что данные вбранной строки почему то в табличке не отбражаются. Хочу привести код:
 if( $a =~ /edit/ )
  {
                               print <<"EOT";           
  <FORM NAME="mainformk" ACTION="/cgi-bin/del.pl" METHOD="get">
EOT
$NUM = $Query->param( "NUM" );
$INPUT_NUM_DOC = $Query->param( "INPUT_NUM_DOC" );
$DATE_POST = $Query->param( "DATE_POST" );
$NUM_DOC = $Query->param( "NUM_DOC" );
$NUM_DOC_IN_EERD = $Query->param( "NUM_DOC_IN_EERD" );
$NAIMENOVANIE = $Query->param( "NAIMENOVANIE" );
$ADRES_POST = $Query->param( "ADRES_POST" );
$INN = $Query->param( "INN" );
$PREDMET = $Query->param( "PREDMET" );
$SROK = $Query->param( "SROK" );
$YSLOV_AF_PROLONG = $Query->param( "YSLOV_AF_PROLONG" );
$SROK_PROLONG = $Query->param( "SROK_PROLONG" );
$PROTOKOL = $Query->param( "PROTOKOL" );
$DOLZHNOST = $Query->param( "DOLZHNOST" );
$TYPE_DOC = $Query->param( "TYPE_DOC" );
$VID_DOC = $Query->param( "VID_DOC" );
$PLANE_PLATEZHEI = $Query->param( "PLANE_PLATEZHEI" );
$PRICE_DOC = $Query->param( "PRICE_DOC" );
$NUM_DOPOLNIT_SOGL = $Query->param( "NUM_DOPOLNIT_SOGL" );
$STATYS_DOC = $Query->param( "STATYS_DOC" );
$PRIMECHANIE = $Query->param( "PRIMECHANIE" );

                                 print <<"EOT";                          
<h2><p align="left"><strong>                                                Журнал учета договоров</strong></h2></p>
  <TABLE WIDTH="100%" BORDER="1">
 <tr>                                                              
 	<td><p align="center"><strong>Порядковый номер записи в журнале учета договоров</strong></td>
	<td><p align="center"><strong>Входящий номер документа, дата регистрации канцелярией</strong></td>
	<td><p align="center"><strong>Дата поступления договора для учета специалистом юридического отдела</strong></td>
	<td><p align="center"><strong>Номер договора, дата</strong></p></td>
	<td><p align="center"><strong>Номер договора в ЭЕРД</strong></p></td>
	<td><p align="center"><strong>Наименование организации-контрагента</strong></p></td>
	<td><p align="center"><strong>Почтовый адрес контрагента</strong></p></td>
	<td><p align="center"><strong>ИНН</strong></p></td>
	<td><p align="center"><strong>Предмет договора</strong></p></td>
	<td><p align="center"><strong>Срок действия договора</strong></p></td>
	<td><p align="center"><strong>Наличие условия об автоматической пролонгации</strong></p></td>
	<td><p align="center"><strong>Срок действия договора с учетом пролонгации</strong></p></td>
	<td><p align="center"><strong>Наличие протокола разноласий (протокола согласования разногласий)</strong></p></td>
	<td><p align="center"><strong>Должность и ФИО Исполнителя, Инициатора, Куратора, Координатора</strong></p></td>
	<td><p align="center"><strong>Тип договора (поставка, оказание услуги т. д.)</strong></p></td>
	<td><p align="center"><strong>Вид договора (доходный/ расходный)</strong></p></td>
	<td><p align="center"><strong>План платежей</strong></p></td>
	<td><p align="center"><strong>Цена договора</strong></p></td>
	<td><p align="center"><strong>Наличие и номера дополнительных соглашений</strong></p></td>
	<td><p align="center"><strong>Статус договора (оформляемый, исполняемый, закрытый)</strong></p></td>
	<td><p align="center"><strong>Примечание</strong></p></td>
</tr>
<tr>
 	<td><INPUT NAME="NUM" TYPE="text" SIZE="10%" VALUE="$NUM"></td>
	<td><INPUT NAME="INPUT_NUM_DOC" TYPE="text" SIZE="10%" VALUE="$INPUT_NUM_DOC"></td>
	<td><INPUT NAME="DATE_POST" TYPE="text" SIZE="11%" VALUE="$DATE_POST"></td>
	<td><INPUT NAME="NUM_DOC" TYPE="text" SIZE="10%" VALUE="$NUM_DOC"></td>
 	<td><INPUT NAME="NUM_DOC_IN_EERD" TYPE="text" SIZE="10%" VALUE="$NUM_DOC_IN_EERD"></td>
	<td><INPUT NAME="NAIMENOVANIE" TYPE="text" SIZE="12%" VALUE="$NAIMENOVANIE"></td>
	<td><INPUT NAME="ADRES_POST" TYPE="text" SIZE="10%" VALUE="$ADRES_POST"></td>
	<td><INPUT NAME="INN" TYPE="text" SIZE="10%" VALUE="$INN"></td>
	<td><INPUT NAME="PREDMET" TYPE="text" SIZE="10%" VALUE="$PREDMET"></td>
	<td><INPUT NAME="SROK" TYPE="text" SIZE="10%" VALUE="$SROK"></td>
	<td><INPUT NAME="YSLOV_AF_PROLONG" TYPE="text" SIZE="14%" VALUE="$YSLOV_AF_PROLONG"></td>
	<td><INPUT NAME="SROK_PROLONG" TYPE="text" SIZE="10%" VALUE="$SROK_PROLONG"></td>
	<td><INPUT NAME="PROTOKOL" TYPE="text" SIZE="11%" VALUE="$PROTOKOL"></td>
	<td><INPUT NAME="DOLZHNOST" TYPE="text" SIZE="12%" VALUE="$DOLZHNOST"></td>
	<td><INPUT NAME="TYPE_DOC" TYPE="text" SIZE="10%" VALUE="$TYPE_DOC"></td>
	<td><INPUT NAME="VID_DOC" TYPE="text" SIZE="10%" VALUE="$VID_DOC"></td>
	<td><INPUT NAME="PLANE_PLATEZHEI" TYPE="text" SIZE="10%" VALUE="$PLANE_PLATEZHEI"></td> 
	<td><INPUT NAME="PRICE_DOC" TYPE="text" SIZE="10%" VALUE="$PRICE_DOC"></td>
	<td><INPUT NAME="NUM_DOPOLNIT_SOGL" TYPE="text" SIZE="14%" VALUE="$NUM_DOPOLNIT_SOGL"></td>
	<td><INPUT NAME="STATYS_DOC" TYPE="text" SIZE="13%" VALUE="$STATYS_DOC"></td>
	<td><INPUT NAME="PRIMECHANIE" TYPE="text" SIZE="10%" VALUE="$PRIMECHANIE"></td>
	
	
</tr>	


</table>
 <br>
       <input type="submit" value="Перезаписать" name="write">  
            

   </form>

Кому интересно, в прикрепленном файле, код полностью.
Помогите пожалуста....
oraweb
Дата: 11.10.2006 13:41:39
1. Передавать все данные строки из первой таблицы нет надобности. Достаточно передать ($NUM или $INPUT_NUM_DOC, в зависимости от того, что является уникальным в базе). Соответственно, вторая таблица делает Select строки для которой … WHERE num=$NUM (или INPUT_NUM_DOC=$INPUT_NUM_DOC)
И полученные данные грузить в таблицу для редактирования.
2. Метод GET имеет ограничения по передачи кол-ва символов, поэтому лучше использовать POST
3. В идеале HTML (шапки и таблицы описать один раз) и грузить в нее данные и 1 стр. и 2-ой, как для отображения, так и для редактирования.
Anna85
Дата: 11.10.2006 14:11:57
oraweb

И полученные данные грузить в таблицу для редактирования.

У меня проблема только в том как грузить эти данные обратно для редактирования?