syntax error at (eval 186) line 82, near "; # } # # elsif ($user_type ne 'Learner') { # # $content = qq(

The Portfolio can only be used by LiteracyLink learners.

); # # } else" syntax error at (eval 186) line 89, near "} }"
print qq||; my $dbh; $| = 1; # No output buffering. use strict; use LitLink::Login qw(IsLoggedIn DBConnect); use LitLink::Portfolio; use LitLink::Util; use CGI; $dbh = DBConnect(); my $cgi = new CGI; my $title = "LiteracyLink - GED Module Activity"; # This breadcrumb trail contains no link for GED Portfolio. # There's no way to pass the right parameters to it at this point, # so that particular crumb is left off. # Later, when we know we have the right input information, the # breadcrumbs are set correctly. my $breadcrumbs = qq(LiteracyLink > Home Space > Portfolio > GED Module Activity); my $section_header_graphic = "/newimages/headers/portfolio_masthead.gif"; my $section_header_graphic_alt = "Portfolio"; my $help_topics = "portfolio,_default"; my $login_required = 1; # set to 1 for yes, 0 for no. my ($user_id, $content) = IsLoggedIn($cgi, $dbh, $login_required); my ($user_type) = LitLink::Login::UserType($dbh, $user_id); my $module_area = $cgi->param('area') || undef; my $unit = $cgi->param('unit') || undef; my $activity = $cgi->param('act') || undef; if ($content) { # If $content contains something at this point, it's an error message. # Do nothing; the message will be displayed to the user. } else { # If $user_id is defined, then the user is logged in. # $mode_line and $get_local are correct for logged-in users, # default values for guests. # Define appropriate content here: # Setting the breadcrumbs correctly, now that $unit and $module_area are established. # The values for $unit and $module_area might be bad or undefined, but that is unlikely # if the user followed a link to get to this page. # If the user was tinkering with the URL, then the breadcrumbs may produce a funky # GED Portfolio link. But that's okay because they can only see their own work, # and the other portfolio pages will tell them no work has been saved yet if they # stumble across an odd set of params. $breadcrumbs = qq(LiteracyLink > Home Space > Portfolio > GED Module > GED Module Activity); if (!$module_area || !$unit || !$activity) { $content = $LitLink::Util::message{'page_missing_params'}; $content .= $LitLink::Util::INTERNAL_ERROR; # } # # elsif ($user_type ne 'Learner') { # # $content = qq(

The Portfolio can only be used by LiteracyLink learners.

); # # } else { $content = qq(

GED Module Activity

); $content .= LitLink::Portfolio::ModuleActivity($dbh, $user_id, $module_area, $unit, $activity); } } print qq||; print LitLink::Login::PersonalizedPageTop($dbh, $user_id, $title, $help_topics, $section_header_graphic, $section_header_graphic_alt, $breadcrumbs); print qq| |; print $content; print qq| |; print $LitLink::Login::PAGE_BOTTOM;