[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.154 and 1.159

version 1.154, 2006/12/21 20:07:57 version 1.159, 2007/04/17 18:28:44
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 766  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 822  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 948  sub get_student_username_domain_form { Line 949  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 996  sub print_enroll_single_student_form { Line 997  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 1021  sub print_enroll_single_student_form { Line 1022  sub print_enroll_single_student_form {
         $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 1061  END Line 1062  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" />      <input type="text" name="cfirst" value="$uenv{'firstname'}" size="15" />
     </td></tr>      </td></tr>
 <tr><th>$lt{'mn'}:</th>  <tr><td class="LC_dropadd_labeltext"><label for="cmiddle">$lt{'mn'}</label>:</td>
     <td>      <td>
     <input type="text" name="cmiddle" value="$uenv{'middlename'}" size="15" />      <input type="text" name="cmiddle" value="$uenv{'middlename'}" size="15" />
     </td></tr>      </td></tr>
 <tr><th>$lt{'ln'}:</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" />      <input type="text" name="clast"value="$uenv{'lastname'}" size="15" />
     </td></tr>      </td></tr>
 <tr><th>$lt{'gen'}:</th>  <tr><td><label for="cgen">$lt{'gen'}</label>:</td>
     <td>      <td class="LC_dropadd_labeltext">
     <input type="text" name="cgen" value="$uenv{'generation'}" size="5" />      <input type="text" name="cgen" value="$uenv{'generation'}" size="5" />
     </td></tr>      </td></tr>
 <tr><th>$lt{'mail'}:</th>  <tr><td><label for="emailaddress">$lt{'mail'}</label>:</td>
     <td>      <td>
     <input type="text" name="emailaddress" value="$uenv{'permanentemail'}" size="20" />      <input type="text" name="emailaddress" value="$uenv{'permanentemail'}" size="20" />
     </td></tr>      </td></tr>
Line 1142  $user_data_html Line 1143  $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>  <p>
 $date_table  $date_table
 </p>  </p>
 <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"> 
Line 1233  sub print_html_classlist { Line 1234  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 2170  sub upfile_drop_add { Line 2171  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'));
Removed from v.1.154  
changed lines
  Added in v.1.159

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