#!/usr/bin/perl

use lib '/ww/webwork/development/'; # mainWeBWorKDirectory;

use CGI_Lite;
use Global;
use Auth;

local($cgi) = new CGI_Lite() unless  $ARGV[0];
local(%inputs) = $cgi->parse_form_data()unless $ARGV[0];

&Global::getCourseEnvironment($inputs{'course'});
$scriptDirectory   = $Global::scriptDirectory;
$databaseDirectory = $Global::databaseDirectory;
$templateDirectory = $Global::templateDirectory;

require "${scriptDirectory}$Global::DBglue_pl";
require "${scriptDirectory}$Global::FILE_pl";
require "${scriptDirectory}$Global::HTMLglue_pl";

my $keyFile = &Global::getCourseKeyFile($inputs{'course'});
&verify_key($inputs{'user'}, $inputs{'key'}, "$keyFile", $inputs{'course'});
my $permissionsFile = &Global::getCoursePermissionsFile($inputs{'course'});
my $permissions = &get_permissions($inputs{'user'}, $permissionsFile);
if ($permissions != $Global::instructor_permissions ) {
print "permissions = $permissions instructor_permissions = $instructor_permissions\n";
	print &html_NO_PERMISSION;
	
	exit(0);
	}
####################################Page 1####################################
unless ($inputs{'pPS'}) {
    print &htmlTOP("Test a Problem Set");
    print "<HR><h3 align=\"center\">Welcome to the Test a Problem Set Page</h3>";

    print "<form action=\"${cgiURL}profProbSet.pl\">\n";

    print "Enter as student: <input type=\"text\" name=\"login\" VALUE=\"\" SIZE=11 MAXLENGTH=11> (use login name)<BR>\n";
    print "<input type=\"hidden\" name=\"pPS\" value=1>\n";
    print &sessionKeyInputs;
    print "<br><input type=\"submit\" value=\"Continue\"></form>";
}
###############################PAGE 2####################################
elsif ($inputs{'pPS'}==1) {
    print &htmlTOP("Test a Problem Set: Page 2");

    @keys=&getAllProbSetKeysForStudentLogin($inputs{'login'});
    print "@keys\n";


############################################ START HERE
    foreach $key (@keys) {
	$setNumber=&getSetNumber($key);
    }
############################################
}