PERL: БИБЛИОТЕКА ПРОГРАММИСТА


           

a shirt1 This baby is


# Проверка if ($count) {

$color = $colors[0] unless grep { $_ eq $color > ©colors;

$size = $sizes[0] unless grep { $_ eq $size } ©sizes;

param("shirt_color", $color);

param("shirt_size", $size);

продолжение

700   Глава 19 • Программирование CGI Пример 19.9 (продолжение)

unless ($active)  <

print hidden( shirt_size ) if $size, print hidden( shirt_color ) if $color, print hidden( shirt_count ) if $count, return,

print M( T-Shirt ),

print p( What a shirt1 This baby is decked out with all the options It comes with full luxury interior, cotton trim, and a collar , to make your eyes water1 Unit price \$33 00 ),

print h2( Options )

print p( How Many9 , textfield( shirt_count )),

print p( Size' , popup_menu( shirt_size , \@sizes ), Color7 , popup_menu( shirt_color , \@colors)),

shop_menu(),

# Страница для заказа свитеров sub sweater {

my $active = shift,

my ©sizes = qw(XL L M),

my ©colors = qw(Chartreuse Puce Lavender),

my ($size, $color, $count) =

(param( sweater_size ), param( sweater_color ), param( sweater_count

# Проверка if ($count) {

$color = $colors[0] unless grep { $_ eq $color } ©colors,

$size = $sizes[0] unless grep { $_ eq $size } ©sizes,

param( sweater_color , Scolor),

param( sweater_size , $size),

unless (Sactive) {

print hidden( sweater_size ) if $size, print hidden( sweater_color ) if $color, print hidden( sweater_count ) if $count, return,

print h1( Sweater ),

print p( Nothing implies pretty elegance more than this fine , sweater  Made by peasant workers from black market silk, it slides onto your lean form and cries out  Take me, , for I am a god'   Unit price \$49 99 ),



print h2( Options ),

print p( How Many?  ,   textfield( sweater_count ))

print p( Size9  ,     popup_menu( sweater_size ,    \@sizes)),

print p( Color' ,   popup_menu( sweater_color ,   \@colors)),

shop_menu(),

П Страница для подтверждения текущего заказа sub checkout {

my Sactive = shift,


Содержание  Назад  Вперед





Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий