|
The journey of the Jewish people from the beginning of the Diaspora to the present day, presented in simple story form. This volume picks up where Introduction to Jewish History leaves off, rounding out a comprehensive two-year course in Jewish history.
Contents include:
- Jewish Life in Middle Ages
- Ashkenazic Jewry
- Sephardic Jewry
- The Enlightenment
- The Emancipation
- The Birth of Zionism
- The Jewish World Today
And much more
The continuity of Jewish values and the survival of the Jewish people are brought to life in this vivid, richly illustrated book.
#!/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]](http://www.behrmanhouse.com/img/order.gif)
($sku)
BLAH
}
sub printsale{
my($itemnum,$sku,$price,$saleprice)=@_;
print<\$$price
On Sale! \$$saleprice
![[ORDER THIS]](http://www.behrmanhouse.com/img/order.gif)
($sku)
BLAH
}
Student Activity Book
#!/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]](http://www.behrmanhouse.com/img/order.gif)
($sku)
BLAH
}
sub printsale{
my($itemnum,$sku,$price,$saleprice)=@_;
print<\$$price
On Sale! \$$saleprice
![[ORDER THIS]](http://www.behrmanhouse.com/img/order.gif)
($sku)
BLAH
}
| |
Teacher'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
![[ORDER THIS]](http://www.behrmanhouse.com/img/order.gif)
($sku)
BLAH
}
sub printsale{
my($itemnum,$sku,$price,$saleprice)=@_;
print<\$$price
On Sale! \$$saleprice
![[ORDER THIS]](http://www.behrmanhouse.com/img/order.gif)
($sku)
BLAH
}
|
|