Commit ffb9e43f authored by Robert Ricci's avatar Robert Ricci

Add -g option to turn on $makescorefile

parent 93f0b534
......@@ -26,6 +26,13 @@ my @lettergrades = (
my $threshold = 0.05;
my $makescorefile = 0;
if (scalar(@ARGV) == 1) {
if ($ARGV[0] == "-g") {
$makescorefile = 1;
}
}
my @students = `list-students`;
chomp @students;
......@@ -67,9 +74,6 @@ if ($allstudents[0] > $allstudents[1] + $threshold) {
print "Top score is $topscore\n";
my $makescorefile = 1;
foreach my $student (sort keys %scores) {
print "##### $student\n";
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment