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

version 1.96, 2003/12/27 23:38:13 version 1.98, 2004/01/15 03:18:19
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 263  sub javascript_validations { Line 271  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 283  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 296  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
Removed from v.1.96  
changed lines
  Added in v.1.98

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