#!/usr/bin/perl -wT # # mhelt_hdr_css.cgi # # First create HTML output type: text/plain # - examine the params to determine what extranet site this header is for # and then output it # Import the CGI module and create a query object to get the form input. use strict; use CGI::Carp qw(fatalsToBrowser); use CGI; use Env qw(REMOTE_ADDR); use File::Basename; use Getopt::Std; my $logfname = "/cgi-bin/hdr_errs"; my $DebugFlag; # Get the name of the program (Perl script) for use in a usage line. my ($progname, $path, $suffix) = fileparse($0); my $query = new CGI; my $user_ipaddr = $ENV{'REMOTE_ADDR'}; my( $name, $value); my $BaseDir; # main "routine" { my $project; my $subpage; my $section; print "Content-type: text/plain\n\n"; if (($user_ipaddr eq "165.247.50.147") || #($user_ipaddr eq "165.247.44.118") || ($user_ipaddr eq "165.247.46.22")) { $DebugFlag = 1; print "Your IP Address is $user_ipaddr...
\n"; print "Debugging turned on for you
\n"; } if ($DebugFlag) { print "These are the parameters I received:\n"; print $query->dump; } $project = $query->param('project'); $subpage = $query->param('subpage'); $section = $query->param('section'); # $DebugFlag = 1; if ($DebugFlag) { print "Parameters are: project is $project; subpage is $subpage; sect is $section
\n"; } if (! defined($project)) { print "Programming error\n"; exit; } if (($subpage ne "no") && ($subpage ne "yes")) { print "Programming error\n"; exit; } if ($subpage eq "yes") { $BaseDir=".."; } else { $BaseDir="."; } &output_header($project, $subpage, $section, $BaseDir); } # "main" # END OF THE MAIN function # ==================================================================== # sub output_header { my ($project, $subpage, $section, $base_dir) = @_; # name the params if ($subpage eq "yes") { &output_subheader($project, $subpage, $section, $base_dir); } else { &output_superheader($project, $subpage, $section, $base_dir); } }# output_header() # sub output_subheader { my ($project, $subpage, $section, $base_dir) = @_; # name the params print < END_OF_HEADER }# output_subheader() # sub output_superheader { my ($project, $subpage, $section, $base_dir) = @_; # name the params # Since this is a home page, the whole page is "wrapped" - therefore, we # just out put the homepageheader (and whatever divs are inside of it. print < HP_HEADER_START &output_masthead($project, $subpage, $section, $base_dir); &output_bulletbar($project, $subpage, $section, $base_dir); print < END_OF_HP_HEADER }# output_superheader() # sub output_masthead { my ($project, $subpage, $section, $base_dir) = @_; # name the params print < McGraw-Hill English Language Training (ELT) MASTHEAD_BKGND print < MASTHEAD_LINKS_START if ($subpage eq "yes") { print <Home | MASTHEAD_LINKS_HOME } print <Title Index | Author Index | Contact Us Global Home Logo MASTHEAD_LINKS }# output_masthead() # sub output_navrow { my ($project, $subpage, $section, $base_dir) = @_; # name the params print < NAVROW_REST }# output_navrow() # sub output_titlebar { my ($project, $subpage, $section, $base_dir) = @_; # name the params my ($section_graphic, $section_alt_tag); if ($section eq "Preschool") { $section_graphic = "mh_elt_preschool.jpg"; $section_alt_tag = "Preschool Title Bar"; } elsif ($section eq "Kinder") { $section_graphic = "mh_elt_primary.jpg"; $section_alt_tag = "Primary Title Bar"; } elsif ($section eq "Teenage") { $section_graphic = "teenage_adult.jpg"; $section_alt_tag = "Teenage/Adult Title Bar"; } elsif ($section eq "Business") { $section_graphic = "business_professional.jpg"; $section_alt_tag = "Business/Professional Title Bar"; } elsif ($section eq "Methodology") { $section_graphic = "methodology.jpg"; $section_alt_tag = "Methodology Title Bar"; } elsif ($section eq "Exams") { $section_graphic = "exams_testing.jpg"; $section_alt_tag = "Exams/Testing Title Bar"; } elsif ($section eq "Reading") { $section_graphic = "reading.jpg"; $section_alt_tag = "Reading Title Bar"; } elsif ($section eq "Writing") { $section_graphic = "writing.jpg"; $section_alt_tag = "Writing Title Bar"; } elsif ($section eq "Vocabulary") { $section_graphic = "vocabulary_idioms.jpg"; $section_alt_tag = "Vocabulary/Idioms Title Bar"; } elsif ($section eq "Listening") { $section_graphic = "listening_speaking.jpg"; $section_alt_tag = "Listening/Speaking Title Bar"; } elsif ($section eq "Grammar") { $section_graphic = "grammar.jpg"; $section_alt_tag = "Grammar Title Bar"; } elsif ($section eq "Author") { $section_graphic = "author_index.jpg"; $section_alt_tag = "Author Index Title Bar"; } elsif ($section eq "Title") { $section_graphic = "title_index.jpg"; $section_alt_tag = "Title Index Title Bar"; } elsif ($section eq "Contact") { $section_graphic = "contact_us.jpg"; $section_alt_tag = "Contact Us Title Bar"; } if (defined ($section_graphic)) { print < $section_alt_tag TITLEBAR } else { print <
HR } }# output_titlebar() # sub output_bulletbar { my ($project, $subpage, $section, $base_dir) = @_; # name the params my ($section_graphic, $section_alt_tag); print < Bullet BarBullet Bar BULLET_BAR }# output_bulletbar()
Bubbles
Gloria Kleinert
Beginning
Bubbles is an appealing new four-level series for a new generation of preschool children offering simple, easy-to-teach activities, a wide range of manual activities, and a focus on listening and speaking. Children from two to six years of age are guaranteed to have fun discovering the world and learning a new language with Bubbles, while their specific learning needs are also taken into account. The series incorporates current methodology and the most up-to-date research into child development, such as neurolinguistic programming, which promotes communication through visual, auditory, and kinesthetic channels.
Features
Child-centered, with an emphasis on discovery through play
TPR activities to stimulate learning
Charming illustrations that will delight preschool children
Appealing design
Cute songs, poems, and chants especially written for the series
Pull-out stories
An animal mascot that children will love for each level
Complete and easy-to-follow Teacher’s Guide
Level 1
Student Book
Teacher’s Guide
Audio Program CD
Flashcards
Level 2
Student Book
Teacher’s Guide
Audio Program CD
Flashcards
Level 3
Student Book
Teacher’s Guide
Audio Program CD
Flashcards
Level 4
Student Book
Teacher’s Guide
Audio Program CD
Flashcards
Level A NEW
Student Book
Teacher’s Guide
Audio Program CD
Flashcards
Level B NEW
Student Book
Teacher’s Guide
Audio Program CD
Flashcards
All Levels
Poster Pack

p_bubbles.jpg
Bubbles Plus
Bubbles A and B Plus is an integrated skills series that can stand alone or be used as supplementary material for Bubbles 1-4. It presents traditional preschool topics in theme-based units and includes phonics, handwriting, numbers, and math concepts. In Bubbles A Plus, students practice writing all the letters of the alphabet, including short vowels, and words that begin with them. Bubbles B Plus covers consonant blends, digraphs, and long vowels in the context of each unit. The audio program provides unique phonics chants as well as the topic and concept songs.
#!/usr/bin/perl -wT # # mhelt_ftr_css.cgi # # Import the CGI module and create a query object to get the form input. use strict; use Data::Dumper; use CGI::Carp qw(fatalsToBrowser); use CGI; use Env qw(REMOTE_ADDR); use File::Basename; use Getopt::Std; use File::stat; use Time::localtime; my $logfname = "/cgi-bin/hdr_errs"; my $DebugFlag; # Get the name of the program (Perl script) for use in a usage line. my ($progname, $path, $suffix) = fileparse($0); my $query = new CGI; my $user_ipaddr = $ENV{'REMOTE_ADDR'}; my( $name, $value); my $BaseDir; # main "routine" { my $project; my $subpage; my $section; my $shortpage; print "Content-type: text/plain\n\n"; if (($user_ipaddr eq "165.247.50.147") || #($user_ipaddr eq "165.247.44.118") || ($user_ipaddr eq "165.247.46.22")) { $DebugFlag = 1; print "Your IP Address is $user_ipaddr...
\n"; print "Debugging turned on for you
\n"; } if ($DebugFlag) { print "These are the parameters I received:\n"; print $query->dump; } $project = $query->param('project'); $subpage = $query->param('subpage'); $section = $query->param('section'); $shortpage = $query->param('shortpage'); # $DebugFlag = 1; my $doc_uri = $ENV{'DOCUMENT_URI'}; if ($DebugFlag) { print "Parameters are: project is $project; subpage is $subpage; sect is $section; shortpage is $shortpage
\n"; print "doc_uri is $doc_uri
\n"; } if ($subpage eq "yes") { $BaseDir=".."; } else { $BaseDir="."; } &output_ftr($project, $subpage, $section, $shortpage, $BaseDir); } # "main" # END OF THE MAIN function # ==================================================================== # sub output_ftr { my ($project, $subpage, $section, $shortpage, $base_dir) = @_; # name the params # Begin footer section print < END_OF_FOOTER }# output_ftr() # sub output_hr { my ($project, $subpage, $section, $shortpage, $base_dir) = @_; # name the params # following works - # color is good because MJ provides Rule.gif w/proper section color print < Rule HR }# output_hr() # sub output_links { my ($project, $subpage, $section, $shortpage, $base_dir) = @_; # name the params print < CELL_END }# output_links() # sub output_copyright { my ($project, $subpage, $section, $shortpage, $base_dir) = @_; # name the params print <

© Copyright 2008 The McGraw-Hill Companies, Inc.
COPYRIGHT }# output_copyright()