Adult: Jewish Thought

GENOCIDE
Critical Issues of the Holocaust
Edited by Alex Grobman, Daniel Landes, and Sybil Milton
A Rossel Book


 [COVER]
Fifty essays assess the impact of the Holocaust on the modern world. Ideal for college and adult education classes.

#!/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  [ORDER THIS]
($sku)
BLAH } sub printsale{ my($itemnum,$sku,$price,$saleprice)=@_; print<\$$price On Sale! \$$saleprice  [ORDER THIS]
($sku)
BLAH }


If you do not wish to order this title online, or you need more information call: 800-221-2755 or fax: 973-379-7280




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