#!/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()
4th Edition
Interactions Mosaic
Listening/Speaking
Lida R. Baker, Robert Baldwin, Laurie Blass, Jami Handreddy, Paul Most, Judith Tanka, Emily Austin Thrush and Elizabeth Whalley
Beginning to low Advanced
The listening/speaking strand of the Interactions Mosaic 4th Edition series gives students the opportunity to improve their listening, speaking, and conversation skills over five language proficiency levels. Each student text—the activities of which are structured around thematic chapters—can be used individually or as part of a set.
Features
In This Chapter gives students a preview of the upcoming material
Listening to Conversations—in the first three levels—presents an introductory conversation and focuses on the rhythm and intonation of natural language through stress and reduction activities
Before You Listen, Listen, and After You Listen—in the first three levels—activate students’ prior knowledge through prelistening questions and vocabulary review, guides them to listen for main ideas and specific information, and reinforces their understanding through comprehension questions and vocabulary review. In the upper two levels, it prepares students for lectures by having them consider and discuss the topic and predict the main ideas of the lecture
Note-taking strategies begin with writing key words, categorizing, and outlining; then advances to identifying cause and effect, paraphrases, and summaries; then progresses to identifying pros and cons, etc.
Real-life listening and video news broadcasts immerse students in authentic language by connecting the classroom to real life through real-world situations. Scaffolding and follow-up activities reinforce listening and speaking skills
Pair work and group work encourage peer teaching and correction and maximize opportunities for discussion and negotiation
Pronunciation and speaking activities build students’ confidence by linking understanding to production and enhancing their fluency by providing a variety of role-play, presentation, and small-group discussion opportunities
Focus on Testing practices test-taking strategies vital for success on standardized tests
Students can benefit from additional practice activities at the on-line learning center
elt_l_imls.jpg
#!/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()