![[cover]](../covers/atopicalbible200x246.jpg)
"My students got a lot out of A Topical Bible .
They enjoyed the fact that these stories directly related to issues
they're confronting. The text didn't feel far away or strange; it was
accessible and friendly.
Saul Korewa
Teacher
Utah School of Jewish Studies
Salt Lake City, UT
|
|
Did you know that the moral framework found in the Bible can offer practical guidance to real-life issues confronting today's young people?
A Topical Bible uses biblical texts to guide students as they wrestle with real-life social and ethical problems. Each chapter presents a major contemporary issue and examines it through the lens of the Bible.
Contents
- Repairing a Damaged Relationship:
Jacob's Reconciliation with Esau; Joseph and His Brothers
- Accepting Personal Responsibility:
The Tree of Knowledge; David and Bathsheba
- Questioning Authority:
Abraham and the Cities of the Plain; Job
- Sexual Equality:
The Creation of Humankind; The Daughters of Zelophehad
- Identifying with the Suffering of Others:
The Awakening of Moses; Esther
- Welcoming Change and Challenge:
Moses and the Burning Bush; King Saul
- A Time for Action:
Crossing the Sea of Reeds; Deborah and the Canaanites
The engaging stories are illustrated with dramatic contemporary photographs and whimsical cartoons. Step-by-step questions guide students through the text and demonstrate its relevance to modern life.
#!/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
($sku)
BLAH
}
Teaching 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
}
Curriculum Call-Out
Introduce 6th and 7th grade students to text study with topics of interest to teenagers. Plenty of opportunity for learning through role playing.
|
|
