#!/usr/bin/perl use CGI; use CGI::Carp qw(fatalsToBrowser); $query= new CGI; my($group, $level, $section); my($head, $footer); ## Get cookies first $group = $query->cookie('group'); $level = $query->cookie('level'); $section = $query->cookie('section'); print "Content-type:text/html\n\n"; ##The html for this page my($error); $error= <

Sherlock Error

Sorry.

There appears to be an error in your login id or password. Please check them and try again. If you are still unsuccessful, please contact the SiteMage.

EOT if($group eq ""){ print "$error"; exit; } if($level>3){ print "

Sherlock Protection

Since you have completed the Sherlock Casebooks this section is no longer necessary. If you wish to view other posts or the solution, please go to the review section. Thank you.

"; exit; } $head= < Virtual Sherlock: PBL Board

PBL Steps Review Casebook EOT $footer= <

Now divide up the amongst your group mates and perform your searches. You could start your self directed learning by looking at the Resources page.

When you are ready, post the results of your findings, starting with the facts and ending with self directed learning - the research you have done - in the SELF DIRECTED LEARNING page.

Once you have done this, you will be able to

proceed to the next level
view the postings of other groups

Resources Goals Casebook PBL Board Discussion Post Review

Examples of posts

Example of PBL Board

Example of Self Directed Learning

Example of Discussion

EOT print "$head"; ##The interactive html ##Plain text for all levels that are not accessable. links for only the level accessable. ## do see other levels at the other levels. Have pop-up window once past the level for the result. ##cool stuff. ##print rows of tables according to section print ""; print ""; print ""; if ($section>1){ print ""; }else{ print ""; } if ($section>2){ print ""; }else{ if ($section==2){ print ""; }else{ print ""; }} if ($section>3){ print ""; }else{ if ($section==3){ print ""; }else{ print ""; }} if ($section>4){ print ""; }else{ if ($section==4){ print ""; }else{ print ""; }} if ($section==5){ print ""; }else{ print ""; } print "

The PBL Process	"; print " Start with the facts and work your way down
Facts
Facts
Ideas/Hypotheses
Ideas/Hypotheses
Ideas/Hypotheses
Learning Issues
Learning Issues
Learning Issues
Ideas/Hypotheses
Action Plan
Action Plan
Self-Directed Learning
Self-Directed Learning

"; print "$footer";