[BACK]Return to lonuserutils.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonuserutils.pm between versions 1.72 and 1.73.2.2

version 1.72, 2008/10/15 13:00:24 version 1.73.2.2, 2009/01/05 17:03:13
Line 329  sub print_upload_manager_header { Line 329  sub print_upload_manager_header {
                                 $env{'request.role.domain'},$context,                                  $env{'request.role.domain'},$context,
                                 $groupslist);                                  $groupslist);
     my $checked=(($env{'form.noFirstLine'})?' checked="checked" ':'');      my $checked=(($env{'form.noFirstLine'})?' checked="checked" ':'');
     $r->print(&mt('Total number of records found in file: <b>[_1]</b>.',$distotal).      $r->print(&mt('Total number of records found in file: [_1]','<b>'.$distotal.'</b>').
               "<br />\n");                "<br />\n");
     $r->print('<div class="LC_left_float"><h3>'.      $r->print('<div class="LC_left_float"><h3>'.
               &mt('Identify fields in uploaded list')."</h3>\n");                &mt('Identify fields in uploaded list')."</h3>\n");
Line 341  sub print_upload_manager_header { Line 341  sub print_upload_manager_header {
               &hidden_input('fileupload',$env{'form.fileupload'}).                &hidden_input('fileupload',$env{'form.fileupload'}).
               &hidden_input('upfiletype',$env{'form.upfiletype'}).                &hidden_input('upfiletype',$env{'form.upfiletype'}).
               &hidden_input('upfile_associate',$env{'form.upfile_associate'}));                &hidden_input('upfile_associate',$env{'form.upfile_associate'}));
       $r->print('<br /><label><input type="checkbox" name="noFirstLine"'.$checked.'/>'.
                 &mt('Ignore First Line').'</label><br />');
     $r->print('<br /><input type="button" value="'.&mt('Reverse Association').'" '.      $r->print('<br /><input type="button" value="'.&mt('Reverse Association').'" '.
               'name="Reverse Association" '.                'name="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.'/>'.  
               &mt('Ignore First Line').'</label>');  
     $r->print("<br /><br />\n".      $r->print("<br /><br />\n".
               '<script type="text/javascript" language="Javascript">'."\n".                '<script type="text/javascript" language="Javascript">'."\n".
               $javascript."\n".$javascript_validations.'</script>');                $javascript."\n".$javascript_validations.'</script>');
Line 743  sub print_upload_manager_footer { Line 743  sub print_upload_manager_footer {
         $Str .= '<p>'.&mt('Change authentication for existing users in domain "[_1]" to these settings?',$defdom).'&nbsp;<span class="LC_nobreak"><label><input type="radio" name="changeauth" value="No" checked="checked" />'.&mt('No').'</label>&nbsp;&nbsp;<label><input type="radio" name="changeauth" value="Yes" />'.&mt('Yes').'</label></span></p>';           $Str .= '<p>'.&mt('Change authentication for existing users in domain "[_1]" to these settings?',$defdom).'&nbsp;<span class="LC_nobreak"><label><input type="radio" name="changeauth" value="No" checked="checked" />'.&mt('No').'</label>&nbsp;&nbsp;<label><input type="radio" name="changeauth" value="Yes" />'.&mt('Yes').'</label></span></p>'; 
     } else {      } else {
         $Str .= "<p>\n".          $Str .= "<p>\n".
             &mt('Note: this will not take effect if the user already exists').              &mt('Note: This will not take effect if the user already exists.').
             &Apache::loncommon::help_open_topic('Auth_Options').              &Apache::loncommon::help_open_topic('Auth_Options').
             "</p>\n";              "</p>\n";
     }      }
Line 797  sub print_upload_manager_footer { Line 797  sub print_upload_manager_footer {
     if ($context eq 'course' || $context eq 'domain') {      if ($context eq 'course' || $context eq 'domain') {
         $Str .= &forceid_change($context);          $Str .= &forceid_change($context);
     }      }
     $Str .= '</div><div class="LC_clear_float_footer"><br /><input type="button"'.  
               'onClick="javascript:verify(this.form,this.form.csec)" '.  
         'value="'.&mt('Update Users').'" />'."<br />\n";  
     if ($context eq 'course') {  
         $Str .= &mt('Note: for large courses, this operation may be time consuming');  
     }  
     $Str .= '</div>';      $Str .= '</div>';
       $Str .= '<div class="LC_clear_float_footer">';
       if ($context eq 'course') {
           $Str .= '<div class="LC_info">'
                  .&mt('Note: For large courses, this operation may be time consuming.')
                  .'</div>';
       }
       $Str .= '<input type="button"'
              .'onClick="javascript:verify(this.form,this.form.csec)" '
              .'value="'.&mt('Update Users').'" />'."\n"
              .'</div>';
     $r->print($Str);      $r->print($Str);
     return;      return;
 }  }
Line 1312  sub print_userlist { Line 1316  sub print_userlist {
         ($cnum,$cdom) = &get_course_identity();          ($cnum,$cdom) = &get_course_identity();
         $r->print(&section_group_filter($cnum,$cdom));          $r->print(&section_group_filter($cnum,$cdom));
     }      }
       if ($env{'form.phase'} eq '') {
           $r->print('<br /><br />'.&list_submit_button(&mt('Display List of Users')).
                     "\n</p>\n".
                     '<input type="hidden" name="phase" value="" /></form>');
           return;
       }
     if (!(($context eq 'domain') && ($env{'form.roletype'} eq 'course'))) {      if (!(($context eq 'domain') && ($env{'form.roletype'} eq 'course'))) {
         $r->print('&nbsp;'.&list_submit_button(&mt('Update Display')).          $r->print('&nbsp;'.&list_submit_button(&mt('Update Display')).
                   "\n</p>\n");                    "\n</p>\n");
Line 3036  sub results_header_row { Line 3046  sub results_header_row {
     }      }
     if ($context eq 'course') {      if ($context eq 'course') {
         if ($mode eq 'csv' || $mode eq 'excel') {          if ($mode eq 'csv' || $mode eq 'excel') {
             $description = &mt('Course - ').$env{'course.'.$env{'request.course.id'}.'.description'}.': ';              $description = &mt('Course - [_1]:',$env{'course.'.$env{'request.course.id'}.'.description'}).' ';
         }          }
         if ($statusmode eq 'Expired') {          if ($statusmode eq 'Expired') {
             $description .= &mt('Users in course with expired [_1] roles',$showfilter);              $description .= &mt('Users in course with expired [_1] roles',$showfilter);
Line 3095  sub results_header_row { Line 3105  sub results_header_row {
         }           } 
     } elsif ($context eq 'author') {      } elsif ($context eq 'author') {
         $description =           $description = 
             &mt('Author space for <span class="LC_cusr_emph">[_1]</span>',              &mt('Author space for [_1]'
         &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'})).':&nbsp;&nbsp;';                  ,'<span class="LC_cusr_emph">'
                   .&Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'})
                   .'</span>')
               .':&nbsp;&nbsp;';
         if ($statusmode eq 'Expired') {          if ($statusmode eq 'Expired') {
             $description .= &mt('Co-authors with expired [_1] roles',$showfilter);              $description .= &mt('Co-authors with expired [_1] roles',$showfilter);
         } elsif ($statusmode eq 'Future') {          } elsif ($statusmode eq 'Future') {
Line 3112  sub results_header_row { Line 3125  sub results_header_row {
         }          }
     } elsif ($context eq 'domain') {      } elsif ($context eq 'domain') {
         my $domdesc = &Apache::lonnet::domain($env{'request.role.domain'},'description');          my $domdesc = &Apache::lonnet::domain($env{'request.role.domain'},'description');
         $description = &mt('Domain - ').$domdesc.': ';          $description = &mt('Domain - [_1]:',$domdesc).' ';
         if ($env{'form.roletype'} eq 'domain') {          if ($env{'form.roletype'} eq 'domain') {
             if ($statusmode eq 'Expired') {              if ($statusmode eq 'Expired') {
                 $description .= &mt('Users in domain with expired [_1] roles',$showfilter);                  $description .= &mt('Users in domain with expired [_1] roles',$showfilter);
Line 3367  sub print_first_users_upload_form { Line 3380  sub print_first_users_upload_form {
     $str .= '<input type="hidden"   name="state"  value="got_file" />';      $str .= '<input type="hidden"   name="state"  value="got_file" />';
     $str .= "<h3>".&mt('Upload a file containing information about users')."</h3>\n";      $str .= "<h3>".&mt('Upload a file containing information about users')."</h3>\n";
     $str .= &Apache::loncommon::upfile_select_html();      $str .= &Apache::loncommon::upfile_select_html();
     $str .= "<p>\n";      $str .= '<p>';
     $str .= '<input type="submit" name="fileupload" value="'.  
         &mt('Upload file of users').'">'."\n";  
     $str .= '<label><input type="checkbox" name="noFirstLine" /> '.  
         &mt('Ignore First Line')."</label></p>\n";  
     $str .= &Apache::loncommon::help_open_topic("Course_Create_Class_List",      $str .= &Apache::loncommon::help_open_topic("Course_Create_Class_List",
                          &mt("How do I create a users list from a spreadsheet")).                           &mt("How do I create a users list from a spreadsheet")).
                              "<br />\n";                               "<br />\n";
     $str .= &Apache::loncommon::help_open_topic("Course_Convert_To_CSV",      $str .= &Apache::loncommon::help_open_topic("Course_Convert_To_CSV",
                            &mt("How do I create a CSV file from a spreadsheet")).                             &mt("How do I create a CSV file from a spreadsheet"));
                                "<br />\n";      $str .= "</p>\n";
       $str .= "<p>\n";
       $str .= '<label><input type="checkbox" name="noFirstLine" /> '.
           &mt('Ignore First Line')."</label></p>\n";
       $str .= '<input type="submit" name="fileupload" value="'.
           &mt('Go to next step').'">'."<br />\n";
     $str .= &Apache::loncommon::end_page();      $str .= &Apache::loncommon::end_page();
     $r->print($str);      $r->print($str);
     return;      return;
Line 3629  sub upfile_drop_add { Line 3643  sub upfile_drop_add {
                     ne &LONCAPA::clean_username($entries{$fields{'username'}})) {                      ne &LONCAPA::clean_username($entries{$fields{'username'}})) {
                     $r->print('<br />'.                      $r->print('<br />'.
       &mt('<b>[_1]</b>: Unacceptable username for user [_2] [_3] [_4] [_5]',        &mt('<b>[_1]</b>: Unacceptable username for user [_2] [_3] [_4] [_5]',
           $entries{$fields{'username'}},$fname,$mname,$lname,$gen).            $entries{$fields{'username'}},$fname,$mname,$lname,$gen));
                               '</b>');  
                     next;                      next;
                 } else {                  } else {
                     if ($entries{$fields{'domain'}}                       if ($entries{$fields{'domain'}} 
                         ne &LONCAPA::clean_domain($entries{$fields{'domain'}})) {                          ne &LONCAPA::clean_domain($entries{$fields{'domain'}})) {
                         $r->print('<br />'. '<b>'.$entries{$fields{'domain'}}.                          $r->print('<br />'. '<b>'.$entries{$fields{'domain'}}.
                                   '</b>: '.&mt('Unacceptable domain for user [_2] [_3] [_4] [_5]',$fname,$mname,$lname,$gen).'</b>');                                    '</b>: '.&mt('Unacceptable domain for user [_2] [_3] [_4] [_5]',$fname,$mname,$lname,$gen));
                         next;                          next;
                     }                      }
                     my $username = $entries{$fields{'username'}};                      my $username = $entries{$fields{'username'}};
Removed from v.1.72  
changed lines
  Added in v.1.73.2.2

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