parser

Написать ответ на текущее сообщение

 

 
   команды управления поиском

"Админка Lite" Light > что можно изменить, чтобы стало лучше?

Bobych v.3 29.04.2004 02:47 / 29.04.2004 03:12

Файл доступен по стандартной авторизации Apache, поэтому все элементарно просто:
@CLASS
catalogadmin

@SelectMessage[]
^MAIN:pSQL.server{
	$NotModerated[^table::sql{
	SELECT uuid, url, title, flag
	FROM catalog
	WHERE flag = '0'
# flag - это такое поле типа "is_published"
	}]

	<DIV ID=heading>Выбор объявления для редактирования</DIV>
	<DIV ID=form>
	<FORM action="admin.html?EditMessage" method="post">
	^NotModerated.menu{
		<input type=radio name="uuid" value="$NotModerated.uuid" /><BR/>
		<input type=text name="title" value="$NotModerated.title" /><BR/>
		<input type=text name="url" value="$NotModerated.url" /><BR/>
		}[<HR />] 
		
	<input type=submit value="Выбрать" />
	</FORM>
	</DIV>
}

@EditMessage[uniqueNumber]

^MAIN:pSQL.server{
	
	^if(def $uniqueNumber){
	$EditingMessage[^table::sql{
	SELECT uuid, url, title, descr, keywords, category, flag
	FROM catalog
	WHERE uuid = "$uniqueNumber" 
	}]

	<DIV ID=heading>Редактирование объявления</DIV>
	<DIV ID=form>
	<FORM action="admin.html?UpdateMessage" method="post">
	Название: <input type=text name="title" value="$EditingMessage.title" /><BR/>
	УРЛ: <input type=text name="url" value="$EditingMessage.url" /><BR/>
	Описание: <input type=text name="descr" value="$EditingMessage.descr" /><BR/>
	Ключи: <input type=text name="keywords" value="$EditingMessage.keywords" /><BR/>
	Флаг: <input type=text name="flag" value="$EditingMessage.flag" />
	Категория: <input type=text name="category" value="$EditingMessage.category" />
	<input type=hidden value="$uniqueNumber" name="uuid" />
	<input type=submit value="Изменить объявление" />
	</FORM>
	</DIV>
	}
}

@UpdateMessage[uuid;url;title;descr;keywords;category;flag]

^MAIN:pSQL.server{
	^void:sql{
	UPDATE catalog
	SET title = "$title"
	AND url = "$url"
	AND descr = "$descr"
	AND keywords = "$keywords"
	AND category = "$category"
	AND flag = "$flag"
	WHERE uuid = "$uuid"
	}
	<DIV ID=heading>Объявление успешно изменено</DIV>
}
Комментарии по коду, если это можно назвать кодом, - приветствуются %)

  • "Админка Lite" Light > что можно изменить, чтобы стало лучше?, Bobych v.3 29.04.2004 02:47 / 29.04.2004 03:12