--- loncom/interface/lonuserutils.pm 2009/03/12 17:30:55 1.85 +++ loncom/interface/lonuserutils.pm 2009/04/04 21:47:41 1.86 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Utility functions for managing LON-CAPA user accounts # -# $Id: lonuserutils.pm,v 1.85 2009/03/12 17:30:55 bisitz Exp $ +# $Id: lonuserutils.pm,v 1.86 2009/04/04 21:47:41 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -341,7 +341,7 @@ sub print_upload_manager_header { &hidden_input('fileupload',$env{'form.fileupload'}). &hidden_input('upfiletype',$env{'form.upfiletype'}). &hidden_input('upfile_associate',$env{'form.upfile_associate'})); - $r->print(''. + $r->print(''. &mt('Ignore First Line').''); $r->print('".&mt('Full Update')."\n". - ''. + ''. ' '.&mt('Display students with current/future access who are not in the uploaded file.').''.&mt('Students selected from this list can be dropped.').''."\n"; } if ($context eq 'course' || $context eq 'domain') { @@ -838,13 +838,13 @@ sub forceid_change { my ($context) = @_; my $output = "".&mt('Student/Employee ID')."\n". - "\n".''. + "\n".''. &mt('Disable Student/Employee ID Safeguard and force change of conflicting IDs'). ''."\n". &mt('(only do if you know what you are doing.)')."\n"; if ($context eq 'domain') { $output .= ''. + ' value="yes" />'. &mt('Update Student/Employee ID in courses in which user is active/future student,[_1](if forcing change).',''). ''."\n"; } @@ -2212,15 +2212,15 @@ END foreach my $item (@linkdests) { my $checkedstr = ''; if ($item eq $usernamelink) { - $checkedstr = ' checked="checked" '; + $checkedstr = ' checked="checked"'; } - $output .= ' '.$lt{$item}.''; + $output .= ' '.$lt{$item}.''; } my $checkwin; if ($env{'form.userwin'}) { - $checkwin = 'checked = "checked"'; + $checkwin = ' checked="checked"'; } - $output .= ''.$lt{'owin'}.''; + $output .= ''.$lt{'owin'}.''; } $output .= "\n".''."\n". &Apache::loncommon::start_data_table(). @@ -2537,7 +2537,7 @@ END } } $r->print(''); + 'actionlist" value="'.$checkval.'" />'); } else { $r->print(' '); } @@ -3259,7 +3259,7 @@ sub show_drop_list { $check_uncheck_js - + END my ($indexhash,$keylist) = &make_keylist_array(); my $studentcount = 0; @@ -3377,7 +3377,7 @@ END # $r->print(&Apache::loncommon::start_data_table_row()); $r->print(<<"END"); - + $username $domain $id @@ -3397,9 +3397,9 @@ END ); $r->print(<<"END"); - - - + + + END return; } @@ -3410,7 +3410,7 @@ END sub print_first_users_upload_form { my ($r,$context) = @_; my $str; - $str = ''; + $str = ''; $str .= ''; $str .= ''; $str .= ''.&mt('Upload a file containing information about users').''."\n"; @@ -3429,7 +3429,7 @@ sub print_first_users_upload_form { $str .= ' '. &mt('Ignore First Line')."\n"; $str .= ''."\n"; + &mt('Next').'" />'."\n"; $str .= &Apache::loncommon::end_page(); $r->print($str); return;
'. + ''. ' '.&mt('Display students with current/future access who are not in the uploaded file.').''.&mt('Students selected from this list can be dropped.').''."\n"; } if ($context eq 'course' || $context eq 'domain') { @@ -838,13 +838,13 @@ sub forceid_change { my ($context) = @_; my $output = "".&mt('Student/Employee ID')."\n". - "\n".''. + "\n".''. &mt('Disable Student/Employee ID Safeguard and force change of conflicting IDs'). ''."\n". &mt('(only do if you know what you are doing.)')."\n"; if ($context eq 'domain') { $output .= ''. + ' value="yes" />'. &mt('Update Student/Employee ID in courses in which user is active/future student,[_1](if forcing change).',''). ''."\n"; } @@ -2212,15 +2212,15 @@ END foreach my $item (@linkdests) { my $checkedstr = ''; if ($item eq $usernamelink) { - $checkedstr = ' checked="checked" '; + $checkedstr = ' checked="checked"'; } - $output .= ' '.$lt{$item}.''; + $output .= ' '.$lt{$item}.''; } my $checkwin; if ($env{'form.userwin'}) { - $checkwin = 'checked = "checked"'; + $checkwin = ' checked="checked"'; } - $output .= ''.$lt{'owin'}.''; + $output .= ''.$lt{'owin'}.''; } $output .= "\n".''."\n". &Apache::loncommon::start_data_table(). @@ -2537,7 +2537,7 @@ END } } $r->print(''); + 'actionlist" value="'.$checkval.'" />'); } else { $r->print(' '); } @@ -3259,7 +3259,7 @@ sub show_drop_list { $check_uncheck_js - + END my ($indexhash,$keylist) = &make_keylist_array(); my $studentcount = 0; @@ -3377,7 +3377,7 @@ END # $r->print(&Apache::loncommon::start_data_table_row()); $r->print(<<"END"); - + $username $domain $id @@ -3397,9 +3397,9 @@ END ); $r->print(<<"END"); - - - + + + END return; } @@ -3410,7 +3410,7 @@ END sub print_first_users_upload_form { my ($r,$context) = @_; my $str; - $str = ''; + $str = ''; $str .= ''; $str .= ''; $str .= ''.&mt('Upload a file containing information about users').''."\n"; @@ -3429,7 +3429,7 @@ sub print_first_users_upload_form { $str .= ' '. &mt('Ignore First Line')."
'. ' '.&mt('Display students with current/future access who are not in the uploaded file.').''.&mt('Students selected from this list can be dropped.').'
\n".''. + "\n".''. &mt('Disable Student/Employee ID Safeguard and force change of conflicting IDs'). ''."\n". &mt('(only do if you know what you are doing.)')."\n"; if ($context eq 'domain') { $output .= ''. + ' value="yes" />'. &mt('Update Student/Employee ID in courses in which user is active/future student,[_1](if forcing change).',''). ''."\n"; } @@ -2212,15 +2212,15 @@ END foreach my $item (@linkdests) { my $checkedstr = ''; if ($item eq $usernamelink) { - $checkedstr = ' checked="checked" '; + $checkedstr = ' checked="checked"'; } - $output .= ' '.$lt{$item}.''; + $output .= ' '.$lt{$item}.''; } my $checkwin; if ($env{'form.userwin'}) { - $checkwin = 'checked = "checked"'; + $checkwin = ' checked="checked"'; } - $output .= ''.$lt{'owin'}.''; + $output .= ''.$lt{'owin'}.''; } $output .= "\n".''."\n". &Apache::loncommon::start_data_table(). @@ -2537,7 +2537,7 @@ END } } $r->print(''); + 'actionlist" value="'.$checkval.'" />'); } else { $r->print(' '); } @@ -3259,7 +3259,7 @@ sub show_drop_list { $check_uncheck_js - + END my ($indexhash,$keylist) = &make_keylist_array(); my $studentcount = 0; @@ -3377,7 +3377,7 @@ END # $r->print(&Apache::loncommon::start_data_table_row()); $r->print(<<"END"); - + $username $domain $id @@ -3397,9 +3397,9 @@ END ); $r->print(<<"END");
\n".''. &mt('Disable Student/Employee ID Safeguard and force change of conflicting IDs'). ''."\n". &mt('(only do if you know what you are doing.)')."\n"; if ($context eq 'domain') { $output .= ''. + ' value="yes" />'. &mt('Update Student/Employee ID in courses in which user is active/future student,[_1](if forcing change).',''). ''."\n"; } @@ -2212,15 +2212,15 @@ END foreach my $item (@linkdests) { my $checkedstr = ''; if ($item eq $usernamelink) { - $checkedstr = ' checked="checked" '; + $checkedstr = ' checked="checked"'; } - $output .= ' '.$lt{$item}.''; + $output .= ' '.$lt{$item}.''; } my $checkwin; if ($env{'form.userwin'}) { - $checkwin = 'checked = "checked"'; + $checkwin = ' checked="checked"'; } - $output .= '
- + END my ($indexhash,$keylist) = &make_keylist_array(); my $studentcount = 0; @@ -3377,7 +3377,7 @@ END # $r->print(&Apache::loncommon::start_data_table_row()); $r->print(<<"END"); -
- - -