[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.96 and 1.99

version 1.96, 2003/12/27 23:38:13 version 1.99, 2004/01/15 19:27:05
Line 42  use Apache::lonlocal; Line 42  use Apache::lonlocal;
 ###############################################################  ###############################################################
 ###############################################################  ###############################################################
 sub header {  sub header {
     my $bodytag=&Apache::loncommon::bodytag('Enrollment Manager');      my $bodytag=&Apache::loncommon::bodytag('Enrollment Manager').
    &Apache::loncommon::help_open_faq(9).
    &Apache::loncommon::help_open_bug('Instructor Interface');
     my $title = &mt('LON-CAPA Enrollment Manager');      my $title = &mt('LON-CAPA Enrollment Manager');
     return(<<ENDHEAD);      return(<<ENDHEAD);
 <html>  <html>
Line 143  sub print_main_menu { Line 145  sub print_main_menu {
          'view'      => 'View Class List',           'view'      => 'View Class List',
          'drop'      => 'Drop Students',           'drop'      => 'Drop Students',
          'populate'  => 'Automated Enrollment Manager');           'populate'  => 'Automated Enrollment Manager');
       my %help=();
       foreach ('Course_Drop_Student','Course_Add_Student',
        'Course_Modify_Student_Data','Course_View_Class_List',
        'Course_Create_Class_List') {
    $help{$_}=&Apache::loncommon::help_open_topic($_);
       }
   
     $r->print(<<END);      $r->print(<<END);
 <p>  <p>
 <font size="+1">  <font size="+1">
     <a href="/adm/dropadd?action=upload">$Text{'upload'}</a>  <a href="/adm/dropadd?action=upload">$Text{'upload'}</a>
 </font>  </font>$help{'Course_Create_Class_List'}
 </p><p>  </p><p>
 <font size="+1">  <font size="+1">
     <a href="/adm/dropadd?action=enrollstudent">$Text{'enrollone'}</a>      <a href="/adm/dropadd?action=enrollstudent">$Text{'enrollone'}</a>
 </font>      </font>$help{'Course_Add_Student'}
 </p><p>  </p><p>
 <font size="+1">  <font size="+1">
     <a href="/adm/dropadd?action=modifystudent">$Text{'modify'}</a>      <a href="/adm/dropadd?action=modifystudent">$Text{'modify'}</a>
 </font>      </font>$help{'Course_Modify_Student_Data'}
 </p><p>  </p><p>
 <font size="+1">  <font size="+1">
     <a href="/adm/dropadd?action=classlist">$Text{'view'}</a>      <a href="/adm/dropadd?action=classlist">$Text{'view'}</a>
 </font>      </font>$help{'Course_View_Class_List'}
 </p><p>  </p><p>
 <font size="+1">  <font size="+1">
     <a href="/adm/dropadd?action=drop">$Text{'drop'}</a>      <a href="/adm/dropadd?action=drop">$Text{'drop'}</a>
 </font>      </font>$help{'Course_Drop_Student'}
 </p><p>  </p><p>
 <font size="+1">  <font size="+1">
     <a href="/adm/populate">$Text{'populate'}</a>      <a href="/adm/populate">$Text{'populate'}</a>
Line 182  sub hidden_input { Line 190  sub hidden_input {
 sub print_upload_manager_header {  sub print_upload_manager_header {
     my ($r,$datatoken,$distotal,$krbdefdom)=@_;      my ($r,$datatoken,$distotal,$krbdefdom)=@_;
     my $javascript;      my $javascript;
       #
     if (! exists($ENV{'form.upfile_associate'})) {      if (! exists($ENV{'form.upfile_associate'})) {
         $ENV{'form.upfile_associate'} = 'forward';          $ENV{'form.upfile_associate'} = 'forward';
     }      }
Line 197  sub print_upload_manager_header { Line 206  sub print_upload_manager_header {
     } else {      } else {
  $javascript=&upload_manager_javascript_forward_associate();   $javascript=&upload_manager_javascript_forward_associate();
     }      }
     my $javascript_validations=&javascript_validations('auth',$krbdefdom);      #
       # Deal with restored settings
       my $password_choice = '';
       if (exists($ENV{'form.ipwd_choice'}) &&
           $ENV{'form.ipwd_choice'} ne '') {
           # If a column was specified for password, assume it is for an
           # internal password.  This is a bug waiting to be filed (could be
           # local or krb auth instead of internal) but I do not have the 
           # time to mess around with this now.
           $password_choice = 'int';        
       }
       #
       my $javascript_validations=&javascript_validations('auth',$krbdefdom,
                                       $password_choice);
     my $checked=(($ENV{'form.noFirstLine'})?' checked="1"':'');      my $checked=(($ENV{'form.noFirstLine'})?' checked="1"':'');
     $r->print('<h3>'.&mt('Uploading Class List')."</h3>\n".      $r->print('<h3>'.&mt('Uploading Class List')."</h3>\n".
               "<hr>\n".                "<hr>\n".
Line 231  sub javascript_validations { Line 253  sub javascript_validations {
     my $authheader;      my $authheader;
     if ($mode eq 'auth') {      if ($mode eq 'auth') {
         my %param = ( formname => 'studentform',          my %param = ( formname => 'studentform',
                       kerb_def_dom => $krbdefdom );                        kerb_def_dom => $krbdefdom,
                         curr_authtype => $curr_authtype);
         $authheader = &Apache::loncommon::authform_header(%param);          $authheader = &Apache::loncommon::authform_header(%param);
     } elsif ($mode eq 'createcourse') {      } elsif ($mode eq 'createcourse') {
         my %param = ( formname => 'ccrs',          my %param = ( formname => 'ccrs',
                   kerb_def_dom => $krbdefdom );                    kerb_def_dom => $krbdefdom,
                         curr_authtype => $curr_authtype );
         $authheader = &Apache::loncommon::authform_header(%param);          $authheader = &Apache::loncommon::authform_header(%param);
     } elsif ($mode eq 'modifycourse') {      } elsif ($mode eq 'modifycourse') {
         my %param = ( formname => 'cmod',          my %param = ( formname => 'cmod',
Line 263  sub javascript_validations { Line 287  sub javascript_validations {
     my $function_name =(<<END);      my $function_name =(<<END);
 function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail) {  function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail) {
 END  END
     my $auth_checks = (<<END);      my $auth_checks;
     var foundatype=0;  
 END  
     if ($mode eq 'createcourse') {      if ($mode eq 'createcourse') {
         $auth_checks .= (<<END);          $auth_checks .= (<<END);
     if (document.ccrs.autoadds[0].checked == true) {      if (vf.autoadds[0].checked == true) {
         if (current.radiovalue == null || current.radiovalue == 'nochange') {          if (current.radiovalue == null || current.radiovalue == 'nochange') {
             alert('$alert{'authen'}');              alert('$alert{'authen'}');
             return;              return;
Line 277  END Line 299  END
 END  END
     } else {      } else {
         $auth_checks .= (<<END);          $auth_checks .= (<<END);
       var foundatype=0;
     if (founduname==0) {      if (founduname==0) {
  alert('$alert{'username'}');   alert('$alert{'username'}');
         return;          return;
Line 289  END Line 312  END
     }      }
 END  END
     }      }
     if ( ($mode eq 'createcourse') || ($mode eq 'modifycourse') ) {      if ($mode eq 'createcourse') {
         $auth_checks .= "          $auth_checks .= "
     foundatype=1";      if ( (vf.autoadds[0].checked == true) &&
         if ($mode eq 'createcourse') {           (vf.elements[current.argfield].value == null || vf.elements[current.argfield].value == '') ) {
             $auth_checks .= "  ";
     if ( (document.ccrs.autoadds[0].checked == true) &&      } elsif ($mode eq 'modifycourse') {
          (document.ccrs.elements[current.argfield].value == null || document.ccrs.elements[current.argfield].value == '') ) {";          $auth_checks .= " 
         } elsif ($mode eq 'modifycourse') {      if (vf.elements[current.argfield].value == null || vf.elements[current.argfield].value == '') {
             $auth_checks .= "   ";
     if (document.ccrs.elements[current.argfield].value == null || document.cmod.elements[current.argfield].value == '') }";      }
         }      if ( ($mode eq 'createcourse') || ($mode eq 'modifycourse') ) {
         $auth_checks .= (<<END);          $auth_checks .= (<<END);
             var alertmsg = '';          var alertmsg = '';
             switch (current.radiovalue) {          switch (current.radiovalue) {
                 case 'krb':              case 'krb':
                     alertmsg = '$alert{'krb'}';                  alertmsg = '$alert{'krb'}';
                     break;                  break;
                 default:              default:
                     alertmsg = '';                  alertmsg = '';
             }          }
             if (alertmsg != '') {          if (alertmsg != '') {
                 alert(alertmsg);              alert(alertmsg);
                 return;              return;
             }  
         }          }
     }      }
 END  END
Line 555  sub print_upload_manager_footer { Line 577  sub print_upload_manager_footer {
                   kerb_def_dom => $krbdefdom,                    kerb_def_dom => $krbdefdom,
                   kerb_def_auth => $krbdef                    kerb_def_auth => $krbdef
                   );                    );
       if (exists($ENV{'form.ipwd_choice'}) &&
           defined($ENV{'form.ipwd_choice'}) &&
           $ENV{'form.ipwd_choice'} ne '') {
           $param{'curr_authtype'} = 'int';
       }
     my $krbform = &Apache::loncommon::authform_kerberos(%param);      my $krbform = &Apache::loncommon::authform_kerberos(%param);
     my $intform = &Apache::loncommon::authform_internal(%param);      my $intform = &Apache::loncommon::authform_internal(%param);
     my $locform = &Apache::loncommon::authform_local(%param);      my $locform = &Apache::loncommon::authform_local(%param);
Line 595  sub print_upload_manager_footer { Line 622  sub print_upload_manager_footer {
 ###############################################################  ###############################################################
 sub print_upload_manager_form {  sub print_upload_manager_form {
     my $r=shift;      my $r=shift;
   
     my $firstLine;      my $firstLine;
     my $datatoken;      my $datatoken;
     if (!$ENV{'form.datatoken'}) {      if (!$ENV{'form.datatoken'}) {
Line 611  sub print_upload_manager_form { Line 639  sub print_upload_manager_form {
     my $distotal=$total+1;      my $distotal=$total+1;
     my $today=time;      my $today=time;
     my $halfyear=$today+15552000;      my $halfyear=$today+15552000;
       #
       # Restore memorized settings
       &Apache::loncommon::restore_course_settings
           ('enrollment_upload',{ 'username_choice' => 'scalar', # column settings
                                  'names_choice' => 'scalar',
                                  'fname_choice' => 'scalar',
                                  'mname_choice' => 'scalar',
                                  'lname_choice' => 'scalar',
                                  'gen_choice' => 'scalar',
                                  'id_choice' => 'scalar',
                                  'sec_choice' => 'scalar',
                                  'ipwd_choice' => 'scalar',
                                  'email_choice' => 'scalar',
                              });
       #
       # Determine kerberos parameters as appropriate
     my $defdom=$ENV{'course.'.$ENV{'request.course.id'}.'.domain'};      my $defdom=$ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
     my ($krbdef,$krbdefdom) =      my ($krbdef,$krbdefdom) =
         &Apache::loncommon::get_kerberos_defaults($defdom);          &Apache::loncommon::get_kerberos_defaults($defdom);
       #
     &print_upload_manager_header($r,$datatoken,$distotal,$krbdefdom);      &print_upload_manager_header($r,$datatoken,$distotal,$krbdefdom);
     my $i;      my $i;
     my $keyfields;      my $keyfields;
     if ($total>=0) {      if ($total>=0) {
         my @field=(['username',&mt('Username')],          my @field=
                    ['names',&mt('Last Name, First Names')],              (['username',&mt('Username'),     $ENV{'form.username_choice'}],
                    ['fname',&mt('First Name')],               ['names',&mt('Last Name, First Names'),$ENV{'form.names_choice'}],
                    ['mname',&mt('Middle Names/Initials')],               ['fname',&mt('First Name'),      $ENV{'form.fname_choice'}],
                    ['lname',&mt('Last Name')],               ['mname',&mt('Middle Names/Initials'),$ENV{'form.mname_choice'}],
                    ['gen',&mt('Generation')],               ['lname',&mt('Last Name'),       $ENV{'form.lname_choice'}],
                    ['id',&mt('ID/Student Number')],               ['gen',  &mt('Generation'),      $ENV{'form.gen_choice'}],
                    ['sec',&mt('Group/Section')],               ['id',   &mt('ID/Student Number'),$ENV{'form.id_choice'}],
                    ['ipwd',&mt('Initial Password')],               ['sec',  &mt('Group/Section'),   $ENV{'form.sec_choice'}],
                    ['email',&mt('EMail Address')]);               ['ipwd', &mt('Initial Password'),$ENV{'form.ipwd_choice'}],
                ['email',&mt('EMail Address'),   $ENV{'form.email_choice'}]);
  if ($ENV{'form.upfile_associate'} eq 'reverse') {   if ($ENV{'form.upfile_associate'} eq 'reverse') {
     &Apache::loncommon::csv_print_samples($r,\@records);      &Apache::loncommon::csv_print_samples($r,\@records);
     $i=&Apache::loncommon::csv_print_select_table($r,\@records,      $i=&Apache::loncommon::csv_print_select_table($r,\@records,
Line 1747  sub upfile_drop_add { Line 1793  sub upfile_drop_add {
         }          }
     }      }
     #      #
       # Store the field choices away
       foreach my $field (qw/username names 
                          fname mname lname gen id sec ipwd email/) {
           $ENV{'form.'.$field.'_choice'}=$fields{$field};
       }
       &Apache::loncommon::store_course_settings('enrollment_upload',
                                                 { 'username_choice' => 'scalar',
                                                   'names_choice' => 'scalar',
                                                   'fname_choice' => 'scalar',
                                                   'mname_choice' => 'scalar',
                                                   'lname_choice' => 'scalar',
                                                   'gen_choice' => 'scalar',
                                                   'id_choice' => 'scalar',
                                                   'sec_choice' => 'scalar',
                                                   'ipwd_choice' => 'scalar',
                                                   'email_choice' => 'scalar' });
   
       #
     my ($startdate,$enddate) = &get_dates_from_form();      my ($startdate,$enddate) = &get_dates_from_form();
     if ($ENV{'form.makedatesdefault'}) {      if ($ENV{'form.makedatesdefault'}) {
         $r->print(&make_dates_default($startdate,$enddate));          $r->print(&make_dates_default($startdate,$enddate));
Removed from v.1.96  
changed lines
  Added in v.1.99

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