[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.152 and 1.161

version 1.152, 2006/12/21 19:41:03 version 1.161, 2007/06/04 11:36:46
Line 106  sub domain_form { Line 106  sub domain_form {
     # Set up domain and server selection forms      # Set up domain and server selection forms
     #      #
     # Get the domains      # Get the domains
     my @domains = &Apache::loncommon::get_domains();      my @domains = &Apache::lonnet::all_domains();
     # build up the menu information to be passed to       # build up the menu information to be passed to 
     # &Apache::loncommon::linked_select_forms      # &Apache::loncommon::linked_select_forms
     my %select_menus;      my %select_menus;
Line 117  sub domain_form { Line 117  sub domain_form {
         $select_menus{$dom}->{'default'}= 'default';          $select_menus{$dom}->{'default'}= 'default';
         $select_menus{$dom}->{'select2'}->{'default'} = 'default';          $select_menus{$dom}->{'select2'}->{'default'} = 'default';
         # Now build up the other items in the second menu          # Now build up the other items in the second menu
         my %servers = &Apache::loncommon::get_library_servers($dom);          my %servers = &Apache::lonnet::get_servers($dom,'library');
         foreach my $server (keys(%servers)) {          foreach my $server (keys(%servers)) {
             $select_menus{$dom}->{'select2'}->{$server}               $select_menus{$dom}->{'select2'}->{$server} 
                                             = "$server $servers{$server}";                                              = "$server $servers{$server}";
Line 180  sub print_main_menu { Line 180  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 => 'Re-enable a deleted group',
               help => 'Course_Reenable_Group',
               permission => $grp_manage_permission,
               url => '/adm/coursegroups?refpage=enrl&action=reenable',
               },
           { 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 761  sub enroll_single_student { Line 766  sub enroll_single_student {
         if (lc($desiredhost) eq 'default') {          if (lc($desiredhost) eq 'default') {
             $desiredhost = undef;              $desiredhost = undef;
         } else {          } else {
             my %home_servers =&Apache::loncommon::get_library_servers($domain);              my %home_servers =&Apache::lonnet::get_servers($domain,'library');
             if (! exists($home_servers{$desiredhost})) {              if (! exists($home_servers{$desiredhost})) {
                 $r->print('<font color="#ff0000">'.&mt('Error').':</font>'.                  $r->print('<font color="#ff0000">'.&mt('Error').':</font>'.
                           &mt('Invalid home server specified'));                            &mt('Invalid home server specified'));
Line 817  sub enroll_single_student { Line 822  sub enroll_single_student {
     } else {      } else {
         $r->print(&mt('Invalid username or domain'));          $r->print(&mt('Invalid username or domain'));
     }          }    
       $r->print("<p><a href='/adm/dropadd?action=enrollstudent'>".&mt("Enroll another student")."</a></p>");
 }  }
   
 sub setup_date_selectors {  sub setup_date_selectors {
Line 880  sub date_setting_table { Line 886  sub date_setting_table {
     my ($startform,$endform)=&setup_date_selectors($starttime,$endtime,$mode);      my ($startform,$endform)=&setup_date_selectors($starttime,$endtime,$mode);
     my $dateDefault = '<nobr>'.      my $dateDefault = '<nobr>'.
         '<label><input type="checkbox" name="makedatesdefault" /> '.          '<label><input type="checkbox" name="makedatesdefault" /> '.
         &mt('make these dates the default for future enrollment').'</label>';          &mt('make these dates the default for future enrollment').
    '</label></nobr>';
     if ($mode eq 'create_enrolldates' || $mode eq 'create_defaultdates') {      if ($mode eq 'create_enrolldates' || $mode eq 'create_defaultdates') {
         $dateDefault = '&nbsp;';          $dateDefault = '&nbsp;';
     }      }
Line 943  sub get_student_username_domain_form { Line 950  sub get_student_username_domain_form {
 <input type="hidden" name="state"  value="gotusername" />  <input type="hidden" name="state"  value="gotusername" />
 <h3>$lt{'eos'}</h3>  <h3>$lt{'eos'}</h3>
 <table>  <table>
 <tr><th>$lt{'usr'}:</th>  <tr><td class="LC_dropadd_labeltext"><label for="cuname">$lt{'usr'}</label>:</td>
     <td><input type="text" name="cuname"  size="15" /></td></tr>      <td><input type="text" name="cuname"  size="15" /></td></tr>
 <tr><th>$lt{'dom'}:</th>  <tr><td class="LC_dropadd_labeltext"><label for="cudomain">$lt{'dom'}</label>:</td>
     <td>$domform</td></tr>      <td>$domform</td></tr>
 <tr><th>&nbsp;</th>  <tr><td>&nbsp;</td>
     <td>      <td>
     <input type="submit" name="Begin Enrollment" value="$lt{'been'}" />      <input type="submit" name="Begin Enrollment" value="$lt{'been'}" />
     </td></tr>      </td></tr>
Line 991  sub print_enroll_single_student_form { Line 998  sub print_enroll_single_student_form {
         #          #
         # Set up domain selection form          # Set up domain selection form
         my $homeserver_form = '';          my $homeserver_form = '';
         my %servers = &Apache::loncommon::get_library_servers($domain);          my %servers = &Apache::lonnet::get_servers($domain,'library');
         $homeserver_form = '<select name="lcserver" size="1">'."\n".          $homeserver_form = '<select name="lcserver" size="1">'."\n".
             '<option value="default" selected>default</option>'."\n";              '<option value="default" selected>default</option>'."\n";
         while (my ($servername,$serverdescription) = each (%servers)) {          while (my ($servername,$serverdescription) = each (%servers)) {
Line 1014  sub print_enroll_single_student_form { Line 1021  sub print_enroll_single_student_form {
    );     );
  my $authhelp=&Apache::loncommon::help_open_topic('Auth_Options');   my $authhelp=&Apache::loncommon::help_open_topic('Auth_Options');
         $user_data_html = <<END;          $user_data_html = <<END;
 <h3>$lt{'udf'} $username\@$domain</h3>  <h3>$lt{'udf'} $username:$domain</h3>
 <table>  <table>
 <tr><th>$lt{'fn'}:</th>  <tr><td class="LC_dropadd_labeltext"><label for="cfirst">$lt{'fn'}</label>:</td>
     <td><input type="text" name="cfirst"  size="15"></td></tr>      <td><input type="text" name="cfirst"  size="15" /></td></tr>
 <tr><th>$lt{'mn'}:</th>  <tr><td class="LC_dropadd_labeltext"><label for="cmiddle">$lt{'mn'}</label>:</td>
     <td><input type="text" name="cmiddle" size="15"></td></tr>      <td><input type="text" name="cmiddle" size="15" /></td></tr>
 <tr><th>$lt{'ln'}:</th>  <tr><td class="LC_dropadd_labeltext"><label for="clast">$lt{'ln'}</label>:</td>
     <td><input type="text" name="clast"   size="15"></td></tr>      <td><input type="text" name="clast"   size="15" /></td></tr>
 <tr><th>$lt{'gen'}:</th>  <tr><td class="LC_dropadd_labeltext"><label for="cgen">$lt{'gen'}</label>:</td>
     <td><input type="text" name="cgen"    size="5"> </td></tr>      <td><input type="text" name="cgen"    size="5"  /> </td></tr>
 <tr><th>$lt{'hs'}:</th>  <tr><td class="LC_dropadd_labeltext"><label for="lcserver">$lt{'hs'}</label>:</td>
     <td>$homeserver_form</td></tr>      <td>$homeserver_form</td></tr>
 <tr><th>$lt{'mail'}:</th>  <tr><td class="LC_dropadd_labeltext"><label for="emailaddress">$lt{'mail'}</label>:</td>
     <td><input type="text" name="emailaddress" size="20" /></td></tr>      <td><input type="text" name="emailaddress" size="20" /></td></tr>
 </table>  </table>
 <h3>$lt{'pswd'}</h3>  <h3>$lt{'pswd'}</h3>
Line 1053  END Line 1060  END
                        'mail' => "Email Address",                         'mail' => "Email Address",
    );     );
         $user_data_html = <<END;          $user_data_html = <<END;
 <h3>$lt{'udf'} $username\@$domain</h3>  <h3>$lt{'udf'} $username:$domain</h3>
 <input type="hidden" name="lcserver" value="default" />  <input type="hidden" name="lcserver" value="default" />
 <table>  <table>
 <tr><th>$lt{'fn'}:</th>  <tr><td class="LC_dropadd_labeltext"><label for="cfirst">$lt{'fn'}</label>:</td>
     <td>      <td><input type="text" name="cfirst" value="$uenv{'firstname'}" size="15" /></td></tr>
     <input type="text" name="cfirst" value="$uenv{'firstname'}" size="15" />  <tr><td class="LC_dropadd_labeltext"><label for="cmiddle">$lt{'mn'}</label>:</td>
     </td></tr>      <td><input type="text" name="cmiddle" value="$uenv{'middlename'}" size="15" /></td></tr>
 <tr><th>$lt{'mn'}:</th>  <tr><td class="LC_dropadd_labeltext"><label for="clast">$lt{'ln'}</label>:</td>
     <td>      <td><input type="text" name="clast" value="$uenv{'lastname'}" size="15" /></td></tr>
     <input type="text" name="cmiddle" value="$uenv{'middlename'}" size="15" />  <tr><td class="LC_dropadd_labeltext"><label for="cgen">$lt{'gen'}</label>:</td>
     </td></tr>      <td><input type="text" name="cgen" value="$uenv{'generation'}" size="5"  /> </td></tr>
 <tr><th>$lt{'ln'}:</th>  <tr><td class="LC_dropadd_labeltext"><label for="emailaddress">$lt{'mail'}</label>:</td>
     <td>      <td><input type="text" name="emailaddress" value="$uenv{'permanentemail'}" size="20" /></td></tr>
     <input type="text" name="clast"value="$uenv{'lastname'}" size="15" />  
     </td></tr>  
 <tr><th>$lt{'gen'}:</th>  
     <td>  
     <input type="text" name="cgen" value="$uenv{'generation'}" size="5" />  
     </td></tr>  
 <tr><th>$lt{'mail'}:</th>  
     <td>  
     <input type="text" name="emailaddress" value="$uenv{'permanentemail'}" size="20" />  
     </td></tr>  
 </table>  </table>
 END  END
     }      }
Line 1137  $user_data_html Line 1134  $user_data_html
   
 <h3>$lt{'cd'}</h3>  <h3>$lt{'cd'}</h3>
   
 <p>$lt{'gs'}: <input type="text" name="csec" size="5" />  <p><label for="csec">$lt{'gs'}</label>: <input type="text" name="csec" size="5" />
 <p>  
 $date_table  
 </p>  </p>
   $date_table
 <h3>$lt{'idsn'}</h3>  <h3>$lt{'idsn'}</h3>
 <p>  <p>
 $lt{'idsn'}: <input type="text" name="cstid" size="10">  <label for="cstid">$lt{'idsn'}</label>: <input type="text" name="cstid" size="10" />
 </p><p>  </p><p>
 <label>  <label>
 <input type="checkbox" name="forceid" value="yes">   <input type="checkbox" name="forceid" value="yes" /> 
 $lt{'disn'}  $lt{'disn'}
 </label>  </label>
 </p><p>  </p><p>
 <input type="button" onClick="verify(this.form,this.form.csec)" value="$lt{'eas'}">  <input type="button" onClick="verify(this.form,this.form.csec)" value="$lt{'eas'}" />
 </p>  </p>
 END  END
     return;      return;
Line 1228  sub print_html_classlist { Line 1224  sub print_html_classlist {
             $output_selector .= "\n".$option;              $output_selector .= "\n".$option;
         }          }
         $output_selector .= '</select>';          $output_selector .= '</select>';
         $r->print(&mt('Output Format: [_1]',$output_selector).('&nbsp;'x3));          $r->print('<label>'.&mt('Output Format: [_1]',$output_selector).'</label>'.('&nbsp;'x3));
     }      }
     $r->print(&mt('Student Status: [_1]',$status_select)."\n");      $r->print('<label>'.&mt('Student Status: [_1]',$status_select)."</label>\n");
     $r->print('<input type="submit" value="'.&mt('Update Display').'" />'.      $r->print('<input type="submit" value="'.&mt('Update Display').'" />'.
               "\n</p>\n");                "\n</p>\n");
     #      #
Line 1704  $info{'lastname'} $info{'generation'}, $ Line 1700  $info{'lastname'} $info{'generation'}, $
 <input type="text" name="generation" value="$info{'generation'}" /></td></tr>  <input type="text" name="generation" value="$info{'generation'}" /></td></tr>
 </table>  </table>
 </p><p>  </p><p>
 <b>$lt{'sid'}</b>: <input type="text" name="id" value="$info{'id'}" size="12"/>  <b>$lt{'sid'}</b>: <input type="text" name="id" value="$info{'id'}" size="12" />
 </p><p>  </p><p>
 <label>  <label>
 <input type="checkbox" name="forceid" >   <input type="checkbox" name="forceid" /> 
 $lt{'disn'}  $lt{'disn'}
 </label>  </label>
 </p><p>  </p><p>
 <b>$lt{'sec'}</b>: <input type="text" name="section" value="$section" size="14"/>  <b>$lt{'sec'}</b>: <input type="text" name="section" value="$section" size="14" />
 </p>  </p>
 <p>$current_date_description</p>  <p>$current_date_description</p>
 <p>$date_table</p>  <p>$date_table</p>
Line 2165  sub upfile_drop_add { Line 2161  sub upfile_drop_add {
     if (lc($desiredhost) eq 'default') {      if (lc($desiredhost) eq 'default') {
         $desiredhost = undef;          $desiredhost = undef;
     } else {      } else {
         my %home_servers = &Apache::loncommon::get_library_servers($domain);          my %home_servers = &Apache::lonnet::get_servers($domain,'library');
         if (! exists($home_servers{$desiredhost})) {          if (! exists($home_servers{$desiredhost})) {
             $r->print('<font color="#ff0000">'.&mt('Error').'</font>'.              $r->print('<font color="#ff0000">'.&mt('Error').'</font>'.
                       &mt('Invalid home server specified'));                        &mt('Invalid home server specified'));
Line 2199  sub upfile_drop_add { Line 2195  sub upfile_drop_add {
             $amode = ''; # This causes the loop below to be skipped              $amode = ''; # This causes the loop below to be skipped
         }          }
     }      }
     if ( $domain eq &clean_domain($domain)      if ( $domain eq &LONCAPA::clean_domain($domain)
  && ($amode ne '')) {   && ($amode ne '')) {
         #######################################          #######################################
         ##         Enroll Students           ##          ##         Enroll Students           ##
Removed from v.1.152  
changed lines
  Added in v.1.161

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