Да, и ещё...

yes 19.05.2003 10:19

Форма для добавления/удаления баннеров из крутилки:

@admin[]
$allban[^table::load[/banner.cfg]]
$group_hash[^allban.hash[group_id][$.distinct(1)]]
$id_hash[^allban.hash[id][$.distinct(1)]]
<table cellpadding=5>
<tr>
<td colspan=2 align=center><b>Панель управления баннеропоказами.</b></td>
</tr>
<tr>
<td width=200 height=25 bgcolor="#FFCC00">
<b>Добавить баннер:</b>
</td>
<td height=25 bgcolor="#FFCC00">
<b>Удалить баннер:</b>
</td>
</tr>
<tr>
<td valign=top>
<form metod=post>
Группа: <br>
<select name=newgroups>
^group_hash.foreach[key;value]{
<OPTION value=$key>$key
}
</select> или создать новую
<input name=newgroupn size=1><br>
Путь: <br><input name=newpath style="width: 100%"><br>
Число показов: <br><input name=newlimit style="width: 100%"><br>
Ширина изображения: <br><input name=neww style="width: 100%"><br>
Высота изображения: <br><input name=newh style="width: 100%"><br>
Ссылка: <br><input name=newlink style="width: 100%"><br><br>
<div align=center><input type=submit value=Добавить name=newpost></div>
</form>
</td>
<td valign=top>
<form method=post>
Выбрать баннер:<br>
<select name=delban>
^allban.menu{
<OPTION value=$allban.id>Баннер: $allban.id Группа: $allban.group_id Стандарт: $allban.w x $allban.h
}
</select>
<br>
<div align=center><input type=submit value=Удалить name=delpost></div>
</form>
</td>
</tr>
<tr>
<td colspan=2 height=25 bgcolor="#FFCC00"></td>
</tr>
</table>
<br><br>
#######
####Обработка
####Добавление баннера
^if(def $form:newpost){
 ^if(def $form:newpath && def $form:newlimit && def $form:neww && def $form:newh && def $form:newlink){
  ^if(def $form:newgroupn){$groupid[$form:newgroupn]}{
   ^if(def $form:newgroups){$groupid[$form:newgroups]}{}
  }
 $max[0]
 ^allban.menu{
 ^if($allban.id > $max){$max[$allban.id]}
 }
 $newid[^eval($max+1)]
 ^allban.append{$newid	$form:newpath	$groupid	0	$form:newlimit	$form:neww	$form:newh	$form:newlink}
 ^allban.sort{$allban.id}
 ^allban.save[/banner.cfg]
 }{Необходимо заполнить всё поля!
 }
}{
}
####Удаление баннера
^if(def $form:delpost && def $form:delban){
$delban[^allban.select($allban.id != $form:delban)]
^delban.sort{$delban.id}
^delban.save[/banner.cfg]
}{
}

---