 |
Grades 3-4:
Ethics
THE TEN COMMANDMENTS
By Nancy Karkowsky
Explore the moral lessons of the Ten Commandments with timeless stories from the Bible, Talmud, and Jewish folklore. Presented in child-friendly, everyday English, each commandment is accompanied by hands-on activities to help students integrate the lessons into their own lives. A dramatic classroom experiment demonstrates before the children's own eyes why we know God is always there even though we cannot see, hear, or touch God.
|
#!/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
}
| |
Title-at-a-Glance
The Ten Commandments
|
Grades 3-4
|
96 pages
|
8" x 10"
|
103 illustrations
|
Includes activities
|
|
| |
|
|
If you do not
wish to order this title online, or you need more information call:
800-221-2755 or fax: 973-379-7280 |
| |
![[cover]](../covers/thetencommandments200x247.gif)
![[logo]](../../img/glance_red2.gif){kind=small}
