loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/grades.pm between versions 1.393 and 1.396

-version 1.393, 2007/03/14 23:39:39
+version 1.396, 2007/04/25 00:16:51
  Line 953  sub processGroup {
      my @stuchecked = &Apache::loncommon::get_env_multiple('form.stuinfo');
      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.userdom'}        = $udom;
  	$env{'form.fullname'}       = $fullname;
  Line 1626  sub show_problem {
      $result.='</td></tr></table><br />';
      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 {
+     my ($r,$symb) = @_;
+     my $all_students =
+ 	join("\n", &Apache::loncommon::get_env_multiple('form.stuinfo'));
+     my $parts =
+ 	join("\n",&Apache::loncommon::get_env_multiple('form.vPart'));
+     my $identifier = &Apache::loncommon::get_cgi_id();
+     &Apache::lonnet::appenv('cgi.'.$identifier.'.students' => $all_students,
+                             'cgi.'.$identifier.'.symb' => $symb,
+                             'cgi.'.$identifier.'.parts' => $parts,);
+     $r->print('<a href="/cgi-bin/multidownload.pl?'.$identifier.'">'.
+ 	      &mt('Download All Submitted Documents').'</a>');
+     return
+ }
  # --------------------------- show submissions of a student, option to grade
  sub submission {
- Line 1661  sub submission {
+ Line 1696  sub submission {
  	&sub_page_kw_js($request) if ($env{'form.handgrade'} eq 'yes');
  	$env{'form.probTitle'} = $env{'form.probTitle'} eq '' ?
  	    &Apache::lonnet::gettitle($symb) : $env{'form.probTitle'};
+ 	if (&files_exist($request, $symb)) {
+ 	    &download_all_link($request, $symb);
+ 	}
  	$request->print('<h3>&nbsp;<font color="#339933">Submission Record</font></h3>'."\n".
  			'<font size=+1>&nbsp;<b>Resource: </b>'.$env{'form.probTitle'}.'</font>'."\n");

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.393
changed lines
	Added in v.1.396