version 1.89, 2003/11/06 22:49:59
|
version 1.90, 2003/11/07 21:04:37
|
Line 500 sub print_upload_manager_footer {
|
Line 500 sub print_upload_manager_footer {
|
my $locform = &Apache::loncommon::authform_local(%param); |
my $locform = &Apache::loncommon::authform_local(%param); |
my $domform = &domain_form($defdom); |
my $domform = &domain_form($defdom); |
my $date_table = &date_setting_table(); |
my $date_table = &date_setting_table(); |
$r->print(<<ENDPICK); |
my $Str = "</table>\n"; |
</table> |
$Str .= &hidden_input('nfields',$i); |
<input type="hidden" name="nfields" value="$i"> |
$Str .= &hidden_input('keyfields',$keyfields); |
<input type="hidden" name="keyfields" value="$keyfields"> |
$Str .= '<h3>'.&mt('Login Type')."</h3>\n"; |
<h3>Login Type</h3> |
$Str .= "<p>\n". |
<p>Note: this will not take effect if the user already exists</p> |
&mt('Note: this will not take effect if the user already exists'). |
<p> |
"</p><p>\n"; |
$krbform |
$Str .= $krbform."\n</p><p>\n". |
</p> |
$intform."\n</p><p>\n". |
<p> |
$locform."\n</p>\n"; |
$intform |
$Str .= '<h3>'.&mt('LON-CAPA Domain for Students')."</h3>\n"; |
</p> |
$Str .= "<p>\n".&mt('LON-CAPA domain: [_1]',$domform)."\n</p>\n"; |
<p> |
$Str .= "<h3>".&mt('Starting and Ending Dates')."</h3>\n"; |
$locform |
$Str .= "<p>\n".$date_table."</p>\n"; |
</p> |
$Str .= "<h3>".&mt('Full Update')."</h3>\n"; |
<h3>LON-CAPA Domain for Students</h3> |
$Str .= '<input type="checkbox" name="fullup" value="yes">'. |
LON-CAPA domain: $domform <p> |
' '.&mt('Full update (also print list of users not enrolled anymore)'). |
<h3>Starting and Ending Dates</h3> |
"</p>\n"; |
<p> |
$Str .= "<h3>".&mt('Student Number')."</h3>\n"; |
$date_table |
$Str .= "<p>\n".'<input type="checkbox" name="forceid" value="yes">'; |
</p> |
$Str .= &mt('Disable ID/Student Number Safeguard and Force Change '. |
<h3>Full Update</h3> |
'of Conflicting IDs (only do if you know what you are doing)'). |
<input type=checkbox name=fullup value=yes> Full update |
"\n</p><p>\n"; |
(also print list of users not enrolled anymore)<p> |
$Str .= '<input type="button" onClick="javascript:verify(this.form)" '. |
<h3>ID/Student Number</h3> |
'value="Update Courselist" />'."<br />\n"; |
<input type=checkbox name=forceid value=yes> |
$Str .= &mt('Note: for large courses, this operation may be time '. |
Disable ID/Student Number Safeguard and Force Change of Conflicting IDs |
'consuming'); |
(only do if you know what you are doing)<p> |
$r->print($Str); |
<input type="button" onClick="javascript:verify(this.form)" value="Update Courselist" /><br /> |
return; |
Note: for large courses, this operation may be time consuming. |
|
ENDPICK |
|
} |
} |
|
|
# ======================================================= Menu Phase Two Upload |
############################################################### |
|
############################################################### |
sub print_upload_manager_form { |
sub print_upload_manager_form { |
my $r=shift; |
my $r=shift; |
my $firstLine; |
my $firstLine; |
my $datatoken; |
my $datatoken; |
if (!$ENV{'form.datatoken'}) { |
if (!$ENV{'form.datatoken'}) { |
$datatoken=&Apache::loncommon::upfile_store($r); |
$datatoken=&Apache::loncommon::upfile_store($r); |
} else { |
} else { |
$datatoken=$ENV{'form.datatoken'}; |
$datatoken=$ENV{'form.datatoken'}; |
&Apache::loncommon::load_tmp_file($r); |
&Apache::loncommon::load_tmp_file($r); |
} |
} |
my @records=&Apache::loncommon::upfile_record_sep(); |
my @records=&Apache::loncommon::upfile_record_sep(); |
if($ENV{'form.noFirstLine'}){$firstLine=shift(@records);} |
if($ENV{'form.noFirstLine'}){ |
|
$firstLine=shift(@records); |
|
} |
my $total=$#records; |
my $total=$#records; |
my $distotal=$total+1; |
my $distotal=$total+1; |
my $today=time; |
my $today=time; |
Line 557 sub print_upload_manager_form {
|
Line 558 sub print_upload_manager_form {
|
my $i; |
my $i; |
my $keyfields; |
my $keyfields; |
if ($total>=0) { |
if ($total>=0) { |
my @d=(['username','Username'], |
my @field=(['username',&mt('Username')], |
['names','Last Name, First Names'], |
['names',&mt('Last Name, First Names')], |
['fname','First Name'], |
['fname',&mt('First Name')], |
['mname','Middle Names/Initials'], |
['mname',&mt('Middle Names/Initials')], |
['lname','Last Name'], |
['lname',&mt('Last Name')], |
['gen','Generation'], |
['gen',&mt('Generation')], |
['id','ID/Student Number'], |
['id',&mt('ID/Student Number')], |
['sec','Group/Section'], |
['sec',&mt('Group/Section')], |
['ipwd','Initial Password'], |
['ipwd',&mt('Initial Password')], |
['email','EMail Address']); |
['email',&mt('EMail Address')]); |
if ($ENV{'form.upfile_associate'} eq 'reverse') { |
if ($ENV{'form.upfile_associate'} eq 'reverse') { |
&Apache::loncommon::csv_print_samples($r,\@records); |
&Apache::loncommon::csv_print_samples($r,\@records); |
$i=&Apache::loncommon::csv_print_select_table($r,\@records,\@d); |
$i=&Apache::loncommon::csv_print_select_table($r,\@records, |
foreach (@d) { $keyfields.=$_->[0].','; } |
\@field); |
|
foreach (@field) { |
|
$keyfields.=$_->[0].','; |
|
} |
chop($keyfields); |
chop($keyfields); |
} else { |
} else { |
unshift(@d,['none','']); |
unshift(@field,['none','']); |
$i=&Apache::loncommon::csv_samples_select_table($r,\@records,\@d); |
$i=&Apache::loncommon::csv_samples_select_table($r,\@records, |
|
\@field); |
my %sone=&Apache::loncommon::record_sep($records[0]); |
my %sone=&Apache::loncommon::record_sep($records[0]); |
$keyfields=join(',',sort(keys(%sone))); |
$keyfields=join(',',sort(keys(%sone))); |
} |
} |
Line 582 sub print_upload_manager_form {
|
Line 587 sub print_upload_manager_form {
|
&print_upload_manager_footer($r,$i,$keyfields,$defdom,$today,$halfyear); |
&print_upload_manager_footer($r,$i,$keyfields,$defdom,$today,$halfyear); |
} |
} |
|
|
# ======================================================= Enroll single student |
############################################################### |
|
############################################################### |
sub enroll_single_student { |
sub enroll_single_student { |
my $r=shift; |
my $r=shift; |
# Remove non alphanumeric values from section |
# Remove non alphanumeric values from section |