[BACK]Return to londropadd.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/Attic/londropadd.pm between versions 1.142 and 1.143

version 1.142, 2006/05/11 20:09:47 version 1.143, 2006/05/18 01:08:51
Line 39  use Apache::Constants qw(:common :http R Line 39  use Apache::Constants qw(:common :http R
 use Spreadsheet::WriteExcel;  use Spreadsheet::WriteExcel;
 use Apache::lonstathelpers();  use Apache::lonstathelpers();
 use Apache::lonlocal;  use Apache::lonlocal;
   use Apache::longroup;
   
 ###############################################################  ###############################################################
 ###############################################################  ###############################################################
Line 77  sub modifystudent { Line 78  sub modifystudent {
             } elsif ( ((!$section) && (!$csec)) || ($section ne $csec) ) {              } elsif ( ((!$section) && (!$csec)) || ($section ne $csec) ) {
                 my (undef,$end,$start)=split(/\_/,$roles{$course});                  my (undef,$end,$start)=split(/\_/,$roles{$course});
                 my $now=time;                  my $now=time;
                 # if this is an active role                   # if this is an active role
                 if (!($start && ($now<$start)) || !($end && ($now>$end))) {                  if (!($start && ($now<$start)) || !($end && ($now>$end))) {
                     my $reply=&Apache::lonnet::modifystudent                      my $reply=&Apache::lonnet::modifystudent
                         # dom  name  id mode pass     f     m     l     g                          # dom  name  id mode pass     f     m     l     g
Line 1936  sub show_drop_list { Line 1937  sub show_drop_list {
     my $cdom = $env{'course.'.$cid.'.domain'};      my $cdom = $env{'course.'.$cid.'.domain'};
     my $cnum = $env{'course.'.$cid,'.num'};      my $cnum = $env{'course.'.$cid,'.num'};
     my ($classgroups) = &Apache::loncoursedata::get_group_memberships(      my ($classgroups) = &Apache::loncoursedata::get_group_memberships(
                                                       $classlist,$cdom,$cnum);                                                $classlist,$keylist,$cdom,$cnum);
     #      #
     my $action = "drop";      my $action = "drop";
     $r->print(<<END);      $r->print(<<END);
Line 2198  sub upfile_drop_add { Line 2199  sub upfile_drop_add {
         my $flushc=0;          my $flushc=0;
         my %student=();          my %student=();
         # Get information about course groups          # Get information about course groups
         my %curr_groups = &Apache::loncommon::coursegroups();          my %curr_groups = &Apache::longroup::coursegroups();
         # Get new classlist          # Get new classlist
         foreach (@studentdata) {          foreach (@studentdata) {
             my %entries=&Apache::loncommon::record_sep($_);              my %entries=&Apache::loncommon::record_sep($_);
Line 2367  sub drop_student_list { Line 2368  sub drop_student_list {
   
 sub section_check_js {  sub section_check_js {
     my $groupslist;      my $groupslist;
     my %curr_groups = &Apache::loncommon::coursegroups();      my %curr_groups = &Apache::longroup::coursegroups();
     if (%curr_groups) {      if (%curr_groups) {
         $groupslist = join('","',sort(keys(%curr_groups)));          $groupslist = join('","',sort(keys(%curr_groups)));
     }      }
Removed from v.1.142  
changed lines
  Added in v.1.143

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