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

version 1.142, 2006/05/11 20:09:47 version 1.148, 2006/11/22 22:53:41
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 176  sub print_main_menu { Line 177  sub print_main_menu {
             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,
Line 249  sub print_upload_manager_header { Line 250  sub print_upload_manager_header {
     #      #
     my $javascript_validations=&javascript_validations('auth',$krbdefdom,      my $javascript_validations=&javascript_validations('auth',$krbdefdom,
                                     $password_choice);                                      $password_choice);
     my $checked=(($env{'form.noFirstLine'})?' checked="1"':'');      my $checked=(($env{'form.noFirstLine'})?' CHECKED ':'');
     $r->print('<h3>'.&mt('Uploading Class List')."</h3>\n".      $r->print('<h3>'.&mt('Uploading Class List')."</h3>\n".
               "<hr>\n".                "<hr>\n".
               '<h3>'.&mt('Identify fields')."</h3>\n");                '<h3>'.&mt('Identify fields')."</h3>\n");
Line 268  sub print_upload_manager_header { Line 269  sub print_upload_manager_header {
     $r->print('<input type="button" value="Reverse Association" '.      $r->print('<input type="button" value="Reverse Association" '.
               'name="'.&mt('Reverse Association').'" '.                'name="'.&mt('Reverse Association').'" '.
               'onClick="javascript:this.form.associate.value=\'Reverse Association\';submit(this.form);" />');                'onClick="javascript:this.form.associate.value=\'Reverse Association\';submit(this.form);" />');
     $r->print('<label><input type="checkbox" name="noFirstLine" $checked />'.      $r->print('<label><input type="checkbox" name="noFirstLine"'.$checked.'/>'.
               &mt('Ignore First Line').'</label>');                &mt('Ignore First Line').'</label>');
     $r->print("<hr />\n".      $r->print("<hr />\n".
               '<script type="text/javascript" language="Javascript">'."\n".                '<script type="text/javascript" language="Javascript">'."\n".
Line 1171  sub print_html_classlist { Line 1172  sub print_html_classlist {
     if (! exists($env{'form.sortby'})) {      if (! exists($env{'form.sortby'})) {
         $env{'form.sortby'} = 'username';          $env{'form.sortby'} = 'username';
     }      }
     if ($env{'form.Status'} !~ /^(Any|Expired|Active)$/) {      if ($env{'form.Status'} !~ /^(Any|Expired|Active|Future)$/) {
         $env{'form.Status'} = 'Active';          $env{'form.Status'} = 'Active';
     }      }
     my $status_select = &Apache::lonhtmlcommon::StatusOptions      my $status_select = &Apache::lonhtmlcommon::StatusOptions
Line 1382  END Line 1383  END
         if($statusmode eq 'Expired') {          if($statusmode eq 'Expired') {
             print $CSVfile '"'.&mt('Students with expired roles').'"'."\n";              print $CSVfile '"'.&mt('Students with expired roles').'"'."\n";
         }          }
           if($statusmode eq 'Future') {
               print $CSVfile '"'.&mt('Students with future roles').'"'."\n";
           }
         if ($statusmode eq 'Any') {          if ($statusmode eq 'Any') {
             print $CSVfile '"'.join('","',map {              print $CSVfile '"'.join('","',map {
  &Apache::loncommon::csv_translate(&mt($_))   &Apache::loncommon::csv_translate(&mt($_))
Line 1641  sub print_modify_student_form { Line 1645  sub print_modify_student_form {
     my $date_table = &date_setting_table($starttime,$endtime);      my $date_table = &date_setting_table($starttime,$endtime);
     #      #
     if (! exists($env{'form.Status'}) ||       if (! exists($env{'form.Status'}) || 
         $env{'form.Status'} !~ /^(Any|Expired|Active)$/) {          $env{'form.Status'} !~ /^(Any|Expired|Active|Future)$/) {
         $env{'form.Status'} = 'crap';          $env{'form.Status'} = 'crap';
     }      }
     # Make sure student is enrolled in course      # Make sure student is enrolled in course
Line 1936  sub show_drop_list { Line 1940  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 2202  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 2371  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.148

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