[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.144

version 1.142, 2006/05/11 20:09:47 version 1.144, 2006/07/03 04:14:21
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 166  sub print_main_menu { Line 167  sub print_main_menu {
             permission => &Apache::lonnet::auto_run($cnum,$cdom),              permission => &Apache::lonnet::auto_run($cnum,$cdom),
             url  => '/adm/populate',              url  => '/adm/populate',
             },              },
           { text => 'Create a new group',  #          { text => 'Create a new group',
             help => 'Course_Create_Group',  #            help => 'Course_Create_Group',
             permission => $grp_manage_permission,  #            permission => $grp_manage_permission,
             url => '/adm/coursegroups?refpage=enrl&action=create',  #            url => '/adm/coursegroups?refpage=enrl&action=create',
             },  #            },
           { text => 'Modify an existing group',  #          { text => 'Modify an existing group',
             help => 'Course_Modify_Group',  #            help => 'Course_Modify_Group',
             permission => $grp_manage_permission,  #            permission => $grp_manage_permission,
             url => '/adm/coursegroups?refpage=enrl&action=modify',  #            url => '/adm/coursegroups?refpage=enrl&action=modify',
             },  #            },
           { text => 'Delete an existing group',  #          { text => 'Delete an existing group',
             help => 'Course_Delete_Group',  #            help => 'Course_Delete_Group',
             permission => $grp_manage_permission,  #            permission => $grp_manage_permission,
             url => '/adm/coursegroups?refpage=enrl&action=delete',  #            url => '/adm/coursegroups?refpage=enrl&action=delete',
             },  #            },
           { text => 'Enter an existing group',  #          { text => 'Enter an existing group',
             help => 'Course_Display_Group',  #            help => 'Course_Display_Group',
             permission => $grp_view_permission,  #            permission => $grp_view_permission,
             url => '/adm/coursegroups?refpage=enrl&action=view',  #            url => '/adm/coursegroups?refpage=enrl&action=view',
             },  #            },
           );            );
     my $menu_html = '';      my $menu_html = '';
     foreach my $menu_item (@menu) {      foreach my $menu_item (@menu) {
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.144

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