|
version 1.395, 2007/04/16 19:00:38
|
version 1.396, 2007/04/25 00:16:51
|
|
Line 953 sub processGroup {
|
Line 953 sub processGroup {
|
| my @stuchecked = &Apache::loncommon::get_env_multiple('form.stuinfo'); |
my @stuchecked = &Apache::loncommon::get_env_multiple('form.stuinfo'); |
| my $total = scalar(@stuchecked)-1; |
my $total = scalar(@stuchecked)-1; |
| |
|
| foreach (@stuchecked) { |
foreach my $student (@stuchecked) { |
| my ($uname,$udom,$fullname) = split(/:/); |
my ($uname,$udom,$fullname) = split(/:/,$student); |
| $env{'form.student'} = $uname; |
$env{'form.student'} = $uname; |
| $env{'form.userdom'} = $udom; |
$env{'form.userdom'} = $udom; |
| $env{'form.fullname'} = $fullname; |
$env{'form.fullname'} = $fullname; |
|
Line 1626 sub show_problem {
|
Line 1626 sub show_problem {
|
| $result.='</td></tr></table><br />'; |
$result.='</td></tr></table><br />'; |
| return $result; |
return $result; |
| } |
} |
| |
sub files_exist { |
| |
my ($r, $symb) = @_; |
| |
my $files_exist = 0; |
| |
my @students = &Apache::loncommon::get_env_multiple('form.stuinfo'); |
| |
foreach my $student (@students) { |
| |
my ($uname,$udom,$fullname) = split(/:/,$student); |
| |
my %record = &Apache::lonnet::restore($symb,$env{'request.course.id'},$udom,$uname); |
| |
my ($string,$timestamp)= &get_last_submission(\%record); |
| |
foreach (@$string) { |
| |
my ($partid,$respid) = /^resource\.([^\.]*)\.([^\.]*)\.submission/; |
| |
my $files=&get_submitted_files($udom,$uname,$partid,$respid,\%record); |
| |
if (@$files) { |
| |
$files_exist = 1; |
| |
return $files_exist; |
| |
} |
| |
} |
| |
} |
| |
return $files_exist; |
| |
} |
| sub download_all_link { |
sub download_all_link { |
| my ($r,$symb) = @_; |
my ($r,$symb) = @_; |
| my $all_students = |
my $all_students = |
|
Line 1678 sub submission {
|
Line 1696 sub submission {
|
| &sub_page_kw_js($request) if ($env{'form.handgrade'} eq 'yes'); |
&sub_page_kw_js($request) if ($env{'form.handgrade'} eq 'yes'); |
| $env{'form.probTitle'} = $env{'form.probTitle'} eq '' ? |
$env{'form.probTitle'} = $env{'form.probTitle'} eq '' ? |
| &Apache::lonnet::gettitle($symb) : $env{'form.probTitle'}; |
&Apache::lonnet::gettitle($symb) : $env{'form.probTitle'}; |
| &download_all_link($request,$symb); |
if (&files_exist($request, $symb)) { |
| |
&download_all_link($request, $symb); |
| |
} |
| $request->print('<h3> <font color="#339933">Submission Record</font></h3>'."\n". |
$request->print('<h3> <font color="#339933">Submission Record</font></h3>'."\n". |
| '<font size=+1> <b>Resource: </b>'.$env{'form.probTitle'}.'</font>'."\n"); |
'<font size=+1> <b>Resource: </b>'.$env{'form.probTitle'}.'</font>'."\n"); |
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to grades.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework