#!/usr/local/bin/webwork-perl/

use lib '.'; use webworkInit; # WeBWorKInitLine
require 5.001;
use strict;

use Global;
use Auth;
use CGI qw(:standard);

# get information from CGI inputs  (see also below for additional information)
my $Course 	= param('course');
my $User	= param('user');
my $Session_key = param('key');

&Global::getCourseEnvironment(param('course'));

my $keyFile = &Global::getCourseKeyFile($Course);
&verify_key($User, $Session_key, "$keyFile", $Course);

my $scriptDirectory = $Global::scriptDirectory;
require "${scriptDirectory}$Global::HTMLglue_pl";
                                             

print &htmlTOP('tips'),
    h1('Tips'), 
    '<UL>', '<LI>', join('<LI>', &Global::all_tips), '</UL>',
    end_html;