+END
}
sub phase_two_header {
@@ -733,7 +714,10 @@ sub menu_phase_two_drop {
# ============================================== view classlist
sub menu_phase_two_view {
my $r=shift;
- $r->print("
Current Classlist
");
+ $r->print(<Current Classlist
+CSV format
+END
my $cid=$ENV{'request.course.id'};
my ($error,%currentlist)=&get_current_classlist
($ENV{'course.'.$cid.'.domain'},$ENV{'course.'.$cid.'.num'});
@@ -892,6 +876,32 @@ END
END
}
+#
+# Print out the initial form to get the courselist file
+#
+sub print_first_courselist_upload_form {
+ my $r=shift;
+ my $upfile_select=&Apache::loncommon::upfile_select_html();
+ my $create_classlist_help =
+ &Apache::loncommon::help_open_topic("Course_Create_Class_List",
+ "How do I create a class list from a spreadsheet");
+ my $create_csv_help =
+ &Apache::loncommon::help_open_topic("Course_Convert_To_CSV",
+ "How do I create a CSV file from a spreadsheet");
+ $r->print(<
+
+