version 1.21, 2005/06/09 18:41:08
|
version 1.23, 2005/07/10 02:31:30
|
Line 178 sub display_actions_box() {
|
Line 178 sub display_actions_box() {
|
} |
} |
|
|
my %threshold = ( |
my %threshold = ( |
av_attempts => 0, |
av_attempts => 2, |
degdiff => 0.01, |
degdiff => 0.5, |
numstudents => 0, |
numstudents => 2, |
); |
); |
|
|
my $pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain); |
my $pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain); |
Line 264 END
|
Line 264 END
|
@bombs = sort { &cmp_title($a,$b,\%res_title) } @bombs; |
@bombs = sort { &cmp_title($a,$b,\%res_title) } @bombs; |
foreach my $bomb (@bombs) { |
foreach my $bomb (@bombs) { |
if ($bombnum %2 == 1) { |
if ($bombnum %2 == 1) { |
$rowColor = $rowColor1; |
$rowColor = $rowColor1; |
} else { |
} else { |
$rowColor = $rowColor2; |
$rowColor = $rowColor2; |
} |
} |
Line 567 sub getitems {
|
Line 567 sub getitems {
|
foreach my $value (values(%{$handgrade})) { |
foreach my $value (values(%{$handgrade})) { |
if ($value eq 'yes') { $handgradeable=1; last; } |
if ($value eq 'yes') { $handgradeable=1; last; } |
} |
} |
next if (!$handgradeable); |
if ($handgradeable) { |
|
foreach my $student (keys(%$classlist)) { |
foreach my $student (keys(%$classlist)) { |
my ($uname,$udom) = split(/:/,$student); |
my ($uname,$udom) = split(/:/,$student); |
my %status=&Apache::grades::student_gradeStatus($url,$symb,$udom,$uname,$partlist); |
my %status=&Apache::grades::student_gradeStatus($url,$symb,$udom,$uname,$partlist); |
my $submitted = 0; |
my $submitted = 0; |
my $ungraded = 0; |
my $ungraded = 0; |
foreach (keys(%status)) { |
foreach (keys(%status)) { |
$submitted = 1 if ($status{$_} ne 'nothing'); |
$submitted = 1 if ($status{$_} ne 'nothing'); |
$ungraded = 1 if ($status{$_} =~ /^ungraded/); |
$ungraded = 1 if ($status{$_} =~ /^ungraded/); |
my ($foo,$partid,$foo1) = split(/\./,$_); |
my ($foo,$partid,$foo1) = split(/\./,$_); |
if ($status{'resource.'.$partid.'.submitted_by'} ne '') { |
if ($status{'resource.'.$partid.'.submitted_by'} ne '') { |
$submitted = 0; |
$submitted = 0; |
} |
} |
} |
} |
next if (!$submitted || !$ungraded); |
next if (!$submitted || !$ungraded); |
$ctr ++; |
$ctr ++; |
} |
} |
if ($ctr) { |
if ($ctr) { |
$$ungraded{$symb}{count} = $ctr; |
$$ungraded{$symb}{count} = $ctr; |
$$ungraded{$symb}{title} = $title; |
$$ungraded{$symb}{title} = $title; |
push(@{$tograde}, $symb); |
push(@{$tograde}, $symb); |
} |
} |
} |
} |
} |
|
|
# Check for bombs |
# Check for bombs |
if ($resource->getErrors()) { |
if ($resource->getErrors()) { |
my $errors = $resource->getErrors(); |
my $errors = $resource->getErrors(); |
$errors =~ s/^,//; |
$errors =~ s/^,//; |
my @bombs = split(/,/, $errors); |
my @bombs = split(/,/, $errors); |
my $errorcount = scalar(@bombs); |
my $errorcount = scalar(@bombs); |
my $errorlink = '<a href="/adm/email?display='. |
my $errorlink = '<a href="/adm/email?display='. |