THE HIGH HOLY DAYS MAHZOR
A Prayer Service for Young Children and Their Families

A prayer book created specifically for young children. Large Hebrew print, watercolor illustrations, and simplified liturgy invite each child to participate in the High Holy Day services. The complimentary Leader's Guide enhances observance with songs, stories, and sermons. #!/usr/local/bin/perl $FNAME=$ENV{DOCUMENT_ROOT}. "/dbase/products.txt"; #$FNAME="products.txt"; &behrfun($ARGV[0]); sub behrfun{ my $sku=shift; print "Content-type: text/html\n\n"; $m=&findme($sku); unless($m->{'price'}){ &errprint; } } if($m->{salep}){ printsale($m->{itemno},$m->{sku},$m->{price},$m->{salep}); }else{ printresult($m->{itemno},$m->{sku},$m->{price},$m->{salep}); } sub errprint{ print "[Error: Price not found]\n"; } sub findme{ my $sku=shift; my $f; my @j; open (FHAN,"<$FNAME") or print "can't open file"; $k=; # @j=split(/\t/,$k); # foreach $i (0..30){ # print "$i: $j[$i]\n"; # } while(){ @j=split(/\t/); if($j[15] eq $sku){ $f= { 'itemno' => $. - 2, 'price' => $j[1], 'salep' => $j[2], 'sku' => $j[15] }; close(FHAN); return $f; } } close(FHAN); } sub printresult{ my($itemnum,$sku,$price,$saleprice)=@_; print<\$$price ($sku) BLAH } sub printsale{ my($itemnum,$sku,$price,$saleprice)=@_; print<\$$price On Sale! \$$saleprice ($sku) BLAH } Complimentary Leader's Guide #!/usr/local/bin/perl $FNAME=$ENV{DOCUMENT_ROOT}. "/dbase/products.txt"; #$FNAME="products.txt"; &behrfun($ARGV[0]); sub behrfun{ my $sku=shift; print "Content-type: text/html\n\n"; $m=&findme($sku); unless($m->{'price'}){ &errprint; } } if($m->{salep}){ printsale($m->{itemno},$m->{sku},$m->{price},$m->{salep}); }else{ printresult($m->{itemno},$m->{sku},$m->{price},$m->{salep}); } sub errprint{ print "[Error: Price not found]\n"; } sub findme{ my $sku=shift; my $f; my @j; open (FHAN,"<$FNAME") or print "can't open file"; $k=; # @j=split(/\t/,$k); # foreach $i (0..30){ # print "$i: $j[$i]\n"; # } while(){ @j=split(/\t/); if($j[15] eq $sku){ $f= { 'itemno' => $. - 2, 'price' => $j[1], 'salep' => $j[2], 'sku' => $j[15] }; close(FHAN); return $f; } } close(FHAN); } sub printresult{ my($itemnum,$sku,$price,$saleprice)=@_; print<\$$price ($sku) BLAH } sub printsale{ my($itemnum,$sku,$price,$saleprice)=@_; print<\$$price On Sale! \$$saleprice ($sku) BLAH }

© 2010 Behrman House, Inc., Springfield, NJ. (800) 221-2755 Home | Privacy Policy| Contact Us