Now you can evaluate your students’ progress in Hineni at the end of each school year. A six-page foldout sheet for each book in the Hineni series reviews key prayer vocabulary, concepts, Jewish values, grammatical constructs, and ritual practices. With the Hineni assessment sheets you can:
- Assess students’ retention of material presented throughout the year
- Offer review, reinforcement, or remediation to students who need it
- Place students in suitable Hebrew groups or classes for the following school year
- Report to parents about their child’s progress
- Encourage teacher and student accountability
Hineni 1 Assessment - Set of 5
#!/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
}
Hineni 2 Assessment - Set of 5
#!/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
}
Hineni 3 Assessment - Set of 5
#!/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
}
|