Пособие по написанию WAP-сайтов


Рассмотрение приложения Restaurant - часть 4


&ltoption value=\"ChinaGarden\"&gtChina Garden&lt/option&gt &ltoption value=\"GoldenDragon\"&gtGolden Dragon&lt/option&gt &ltoption value=\"PlumTree\"&gtPlum Tree Inn&lt/option&gt

&lt/select&gt

&lt/p&gt

&lt/card&gt

&lt/wml&gt"; }

elsif ($RestType eq "FastFood")

{ $Deck = "Content-type: text/vnd.wap.wml

&lt?xml version=\"1.0\"?&gt &lt!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\" \"http://www.wapforum.org/DTD/wml_1.1.xml\"&gt

&ltwml&gt

&lthead&gt

&ltmeta http-equiv=\"Cache-Control\" content=\"max-age=0\" forua=\"true\"/&gt

&lt/head&gt

&ltcard id=\"GetFastFood\"&gt

&ltdo type=\"accept\" label=\"Pick\"&gt &ltgo href=\"RestCallFastFoodWML.pl? \$(RestName)\" /&gt &lt/do&gt

&ltdo type=\"options\" label=\"Back\"&gt &ltgo href=\"../RestaurantCall/ RestaurantCall.wml\" /&gt &lt/do&gt

&ltp align=\"center\"&gt

Restaurants&ltbr/&gt Fast Food&ltbr/&gt

&lt/p&gt

&ltp align=\"left\" mode=\"nowrap\"&gt

&ltselect name=\"RestName\"&gt

&ltoption value=\"BurgerKing\"&gtBurger King&lt/option&gt &ltoption value=\"McDonalds\"&gtMcDonald's &lt/option&gt &ltoption value=\"TopSpot\"&gtTop Spot &lt/option&gt

&lt/select&gt

&lt/p&gt

&lt/card&gt

&lt/wml&gt"; }

elsif ($RestType eq "HealthFood")

{ $Deck = "Content-type: text/vnd.wap.wml

&lt?xml version=\"1.0\"?&gt &lt!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\" \"http://www.wapforum.org/DTD/wml_1.1.xml\"&gt




Начало  Назад  Вперед



Книжный магазин