Diff for /loncom/interface/spreadsheet/lonspreadsheet.pm between versions 1.45 and 1.49

version 1.45, 2006/04/10 22:52:36 version 1.49, 2006/10/31 18:35:51
Line 266  sub handler { Line 266  sub handler {
     $env{'form.sdomain'} = $domain;      $env{'form.sdomain'} = $domain;
     my $section = &Apache::lonnet::getsection($domain,$name,      my $section = &Apache::lonnet::getsection($domain,$name,
       $env{'request.course.id'});        $env{'request.course.id'});
     my $group;      my @groups;
     my @groups = ();  
     if (($env{'user.name'} eq $name) && ($env{'user.domain'} eq $domain)) {      if (($env{'user.name'} eq $name) && ($env{'user.domain'} eq $domain)) {
         @groups=&Apache::lonnet::sort_course_groups(          @groups = &Apache::lonnet::sort_course_groups($env{'request.course.id'},
                                                  $env{'request.course.groups'},                                      split(':',$env{'request.course.groups'}));
                                                  $env{'request.course.id'});  
     } else {      } else {
         my $grouplist = &Apache::lonnet::get_users_groups($domain,$name,          @groups = &Apache::lonnet::get_users_groups($domain,$name,
                                                     $env{'request.course.id'});                                                      $env{'request.course.id'});
         if ($grouplist) {  
             @groups=&Apache::lonnet::sort_course_groups($grouplist,  
                                                     $env{'request.course.id'});  
         }  
     }  
     if (@groups > 0) {  
         $group = $groups[0];  
     }      }
   
     ##      ##
Line 405  ENDSCRIPT Line 396  ENDSCRIPT
           faq   => 134,            faq   => 134,
           bug   => 'Spreadsheet'});            bug   => 'Spreadsheet'});
     $r->print(&Apache::loncommon::start_page('Grades Spreadsheet',$js).      $r->print(&Apache::loncommon::start_page('Grades Spreadsheet',$js).
               &Apache::lonhtmlcommon::breadcrumbs(undef,'Spreadsheet').                &Apache::lonhtmlcommon::breadcrumbs('Spreadsheet',
     'Spreadsheet_About').
               '<form action="'.$r->uri.'" name="sheet" method="post">');                '<form action="'.$r->uri.'" name="sheet" method="post">');
     $r->print(&hiddenfield('sname'  ,$env{'form.sname'}).      $r->print(&hiddenfield('sname'  ,$env{'form.sname'}).
               &hiddenfield('sdomain',$env{'form.sdomain'}).                &hiddenfield('sdomain',$env{'form.sdomain'}).
Line 467  ENDSCRIPT Line 459  ENDSCRIPT
     my $spreadsheet = undef;      my $spreadsheet = undef;
     if ($sheettype eq 'classcalc') {      if ($sheettype eq 'classcalc') {
         $spreadsheet = Apache::classcalc->new($name,$domain,$filename,undef,          $spreadsheet = Apache::classcalc->new($name,$domain,$filename,undef,
       $section,$group);        $section,\@groups);
     } elsif ($sheettype eq 'studentcalc') {      } elsif ($sheettype eq 'studentcalc') {
         $spreadsheet = Apache::studentcalc->new($name,$domain,$filename,undef,          $spreadsheet = Apache::studentcalc->new($name,$domain,$filename,undef,
  $section,$group);   $section,\@groups);
     } elsif ($sheettype eq 'assesscalc' &&       } elsif ($sheettype eq 'assesscalc' && 
              defined($symb) &&                defined($symb) && 
              $allowed_to_edit) {               $allowed_to_edit) {
         $spreadsheet = Apache::assesscalc->new($name,$domain,$filename,$symb,          $spreadsheet = Apache::assesscalc->new($name,$domain,$filename,$symb,
        $section,$group);         $section,\@groups);
     } else {      } else {
         return HTTP_NOT_ACCEPTABLE;          return HTTP_NOT_ACCEPTABLE;
     }      }
Line 558  END Line 550  END
         $r->rflush();          $r->rflush();
         $spreadsheet->display($r);          $spreadsheet->display($r);
     }      }
     $r->print('</form></body></html>');      $r->print('</form>'.&Apache::loncommon::end_page());
     $spreadsheet->clear_package();      $spreadsheet->clear_package();
     return OK;      return OK;
 }  }

Removed from v.1.45  
changed lines
  Added in v.1.49


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