Учебное пособие (1075724), страница 46
Текст из файла (страница 46)
Но в XSLTForms она неподдерживается, поэтому приходится использовать чуть более сложный способ.Атрибут ref="//upgrade[last()]/@id" указывает, что данные будут сохранятьсяв последний элемент «upgrade» (функция last() возвращает номер последнегоэлемента), в атрибут «id».Атрибутvalue="concat(string(index('repeat_upgrades')),'_',string(now()))"содержит вычисляемое значение для сохранения. Уникальный id определяется какконкатенация текущей даты и времени (функция now()) и номера нового элемента435в xforms:repeat (функция index возвращает номер текущего элемента вxforms:repeat, аргументом является атрибут id элемента xforms:repeat).Поскольку now() возвращает время с точностью до секунды, то значениепотеряет уникальность, только если мы в течение секунды создадим элемент(например третий по счету, тогда id=3_время), удалим один из предыдущихэлементов и снова создадим элемент (он также третий по счету, id=3_время), чтомаловероятно.</xforms:action></xforms:trigger></td></tr><tr><td colspan="3" align="center"><xforms:trigger>Кнопка сохранения данных.<xforms:label>Сохранить</xforms:label><xforms:action ev:event="DOMActivate" if="isvalid(instance('computer_instance'))">Элемент xforms:action задает обработчик события при нажатии на кнопку.Атрибут if="is-valid(instance('computer_instance'))" означает, что вложенныевxforms:action действия будут выполнены, только если значение атрибута if (XPathвыражение) истинно.Здесь проверяется, что данные в инстансе «computer_instance» (то естьданные в нашей форме) должны быть введены без ошибок.
Функция is-validвозвращает истинное значение, только если все данные в инстансе заполненыправильно, то есть выполняются все ограничения на данные, заданные вэлементах xforms:bind.<!-- Данные передаются на сервер и сохраняются всессионной переменной -->436<xforms:send submission="submit_id" />ТаккакXSLTFormsнеподдерживаетрежимсохраненияданных«replace="all"» (при котором форма после сохранения заменяется результатомработы серверного сценария), то приходится использовать «двухшаговое»сохранение данных.Первый шаг состоит в отправке данных с помощью команды xforms:send,которая отправляет данные в соответствии с заданным элементом submission. Спомощью атрибута submission="submit_id" мы ссылаемся на заданный в моделиэлемент submission с атрибутом id="submit_id".В нашем случае мы передаем данные серверному сценарию, которыйпрдварительно сохраняет их в сессионной переменной.
Сессия уникальна врамках соединения браузера с веб-приложением, поэтому использованиесессионной переменной кажется наиболее правильным решением для временногохранения данных.Это предварительное сохранение данных (presave).Передача данных происходит в асинхронном режиме, форма остается втекущем окне браузера.<!-- Данные читаются из сессионной переменной,проверяются и сохраняются в БД --><xforms:load show="replace" resource="{$DataSaveURI}"/>На втором шаге с помощью команды xforms:load мы загружаем в текущееокно результаты работы другого серверного сценария, заменяя этим форму втекущем окне бразера.Этот сценарий читает предварительно сохраненные данные из сессионнойпеременной и осуществляет дополнительную проверку данных (которую,возможно, не удалось реализовать средствами XForms).
В случае ошибоквыводится сообщение об ошибках и кнопка возврата к форме редактирования,если ошибок нет, то данные сохраняются в БД.</xforms:action></xforms:trigger>437<xforms:trigger><xforms:label>Отменить</xforms:label><xforms:load ev:event="DOMActivate" show="replace"resource="{$ListURI}"/>Кнопка осуществляет переход на сценарий, выводящий список данных,форма не сохраняется.</xforms:trigger></td></tr></table></div>};7.3.5.5.3 Сценарий data_computer_1.1.xqlСценарий предназначен для работы с данными.По структуре он очень похож на рассмотренный ранее сценарий дляпроцессоров, есть только некоторые особенности, связанные с «двухшаговым»сохранением.Пролог сценария стандартный:xquery version "1.0";(: Импорт стандартных модулей :)declare namespace request="http://exist-db.org/xquery/request";declare namespace response="http://exist-db.org/xquery/response";declare namespace session="http://exist-db.org/xquery/session";(: Импорт модулей приложения :)import module namespace xrx_example ="http://iu5.bmstu.ru/edu/xrx_example" at "module.xqm";(: Формат, в котором результат должен отображаться в браузере :)declare option exist:serialize "method=xhtml media-type=text/htmlindent=no";(: Идентификатор модуля :)declare variable $module_id {"computer"};(: Версия модуля :)438declare variable $module_ver {"1.1"};(: Название сессионной переменной для временного хранения данныхформы :)declare variable $current_data {"current_data"};В основном запросе читаются возможные HTTP-параметры, по нимпроизводится ветвление с помощью вложенных операторов IF и вызываютсянеобходимые функции обработки данных (добавление, удаление и т.д.):(: ++++++++++++++++++++++++++++++++++++++++++++++ :)(: Основной запрос :)(: ++++++++++++++++++++++++++++++++++++++++++++++ :)let$newParam := xs:string(request:get-parameter("new","0")),$newUpgradeParam := xs:string(request:getparameter("newupgrade","0")),$saveParam := xs:string(request:get-parameter("save","0")),$presaveParam := xs:string(request:get-parameter("presave","0")),$idParam := xs:string(request:get-parameter("id","0")),$nameParam := xs:string(request:getparameter("processor_name","0")),$deleteidParam := xs:string(request:getparameter("deleteid","0")),$DataListURI := xrx_example:PathURI_list($module_id, $module_ver)Чтение HTTP-параметров и сохранение во временные переменные.returnif($newParam = '1')(: Создание нового экземпляра :)then(let $newDataId := xrx_example:MakeUniqueName()return local:NewData($newDataId))Если был передан HTTP-параметр «new=1», то возвращается пустой XMLэлемент «computer».
Этот режим используется в форме при добавлении нового439компьютера. Особенностью является то, что запрос с этим параметромотправляется из XForms-формы при инициализации данных.else if($newUpgradeParam = '1')(: Создание нового экземпляра для upgrade :)then(let $NewUpgrade := local:NewUpgradeData()return $NewUpgrade)Если был передан HTTP-параметр «newupgrade=1», то возвращается пустойXML-элемент «upgrade».
Этот режим используется в XForms-форме придобавлении модернизации компьютера.else if($saveParam = '1')(: Сохранение данных :)then(local:SaveData($DataListURI))Если был передан HTTP-параметр «save=1», то выполняется проверка исохранение в БД данных, предварительно сохраненных в сессионной переменной.else if($presaveParam = '1')(: Сохранение данных во временной переменной :)then(local:PreSaveData())Если был передан HTTP-параметр «presave=1», то данные предварительносохраняются в сессионной переменной.else if($deleteidParam != '0')(: Удаление данных :)then(local:DeleteData($deleteidParam, $DataListURI))440Если был передан HTTP-параметр «deleteid=id удаляемого компьютера», товызывается функция удаления данных.else if($idParam != '0')(: Чтение данных для редактирования в форме :)then(let$DataPath :=concat(xrx_example:PathURI_data_list_in_db($module_id),xrx_example:MakeUniqueFileNameExtXml($idParam)),$FileData := doc($DataPath)//computerreturn $FileData)Если был передан HTTP-параметр «id=id компьютера», то возвращаютсяданные о соответствующем компьютере.else ()(: ++++++++++++++++++++++++++++++++++++++++++++++ :)Локальные функции:(: ++++++++++++++++++++++++++++++++++++++++++++++ :)(: Создание нового элемента данных :)(: ++++++++++++++++++++++++++++++++++++++++++++++ :)declare function local:NewData($idParam as xs:string) as node(){let $FirstUpgradeId := xrx_example:MakeUniqueName()return<computer id="{$idParam}"><computer_name/><processor_id/><op/><hdd/><server>false</server><upgrades><upgrade/>441</upgrades></computer>};Возвращается новый XML-элемент, соответствующий компьютеру.(: ++++++++++++++++++++++++++++++++++++++++++++++ :)(: Создание нового элемента данных для модернизации :)(: ++++++++++++++++++++++++++++++++++++++++++++++ :)declare function local:NewUpgradeData() as node(){<upgrades><upgrade id=""><upgrade_date/><upgrade_description/></upgrade></upgrades>};ВозвращаетсяновыйXML-элемент,соответствующиймодернизациикомпьютера.(: ++++++++++++++++++++++++++++++++++++++++++++++ :)(: Сообщения об ошибках :)(: ++++++++++++++++++++++++++++++++++++++++++++++ :)declare function local:CheckErrors($Data as node()) as node()*{(if(($Data//op mod 2) != 0)then (<p>Объем ОП должен быть четным числом</p>)else ()),(if(($Data//hdd mod 2) != 0)then (<p>Объем жесткого диска должен быть четным числом</p>)else ())};442Функция осуществляет поиск ошибок в заполненных XML-данных формы.ВкачествепараметрафункцияполучаетXML-элемент«computer»,содержащий заполненные данные формы.Функция возвращает последовательность элементов «p», содержащихсообщение об ошибках.
Если ошибок нет, то последовательность пустая.В нашем примере осуществляется проверка элементов на четность. Этоучебный пример, так как проверить четность элементов можно с помощьюXForms.Здесь хотелось показать, как может быть в принципе организованадополнительная серверная проверка данных.(: ++++++++++++++++++++++++++++++++++++++++++++++ :)(: Сохранение данных :)(: ++++++++++++++++++++++++++++++++++++++++++++++ :)declare function local:SaveData($DataListURI as xs:string) asnode()*{let(: В сессионной переменной хранится строка, поэтому необходимосделать преобразование к элементу :)$TempData := element temp {session:get-attribute($current_data)},Данные читаются из сессионной переменной.Функция session:get-attribute возвращает значение сессионной переменной,параметром функции является название переменной.Поскольку функция session:get-attribute возвращает значение сессионнойперменной в виде строки, то для преобразования в XML-элемент используетсяконструкция element.$Data := $TempData//computer,$id := xs:string($Data/@id),$Errors := local:CheckErrors($Data)Поиск ошибок с помощью приведенной выше функции local:CheckErrors исохранение в переменную $Errors.443returnif(count($Errors) = 0)(: Сохранение данных :)then(xrx_example:SaveFileInCollection(xrx_example:PathURI_data_list_in_db($module_id), $id, $Data),xrx_example:redirect($DataListURI)Если ошибок нет, то данные о компьютере сохраняются в виде отдельногофайлаXMLвколлекции«computers»,спомощьюфункцииxrx_example:SaveFileInCollection.После сохранения данных с помощью функции xrx_example:redirect()осуществляется перенаправление на XQuery-сценарий, реализующий выводсписка компьютеров.)(: Сообщения об ошибках :)else(xrx_example:ShowErrorReturnForm($module_id, $module_ver, "Ошибкапри сохранении данных", $Errors))В переменную $Errors сохраняются сообщения об ошибках.
Если количествоошибок больше нуля, то выводится сообщение об ошибках с помощью функцииxrx_example:ShowErrorReturnForm().};(: ++++++++++++++++++++++++++++++++++++++++++++++ :)(: Предварительное сохранение данных :)(: ++++++++++++++++++++++++++++++++++++++++++++++ :)declare function local:PreSaveData() as node()*{В режиме предварительного сохранения данные читаются из HTTP-запроса исохраняются в сессионной переменной.444session:create(),Если сессия не создана, то она создается.session:set-attribute($current_data, ""),Очистка сессионной переменной.
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
