--- loncom/interface/Attic/londropadd.pm	2003/07/29 20:00:56	1.80
+++ loncom/interface/Attic/londropadd.pm	2003/08/14 14:16:42	1.81
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to drop and add students in courses 
 #
-# $Id: londropadd.pm,v 1.80 2003/07/29 20:00:56 matthew Exp $
+# $Id: londropadd.pm,v 1.81 2003/08/14 14:16:42 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -198,6 +198,7 @@ to this page if the data selected is ins
 <input type="hidden" name="associate"  value="" />
 <input type="hidden" name="datatoken"  value="$datatoken" />
 <input type="hidden" name="fileupload" value="$ENV{'form.fileupload'}" />
+<input type="hidden" name="noFirstLine" value="$ENV{'form.noFirstLine'}" />
 <input type="hidden" name="upfiletype" value="$ENV{'form.upfiletype'}" />
 <input type="hidden" name="upfile_associate" 
                                        value="$ENV{'form.upfile_associate'}" />
@@ -524,6 +525,7 @@ sub print_upload_manager_form {
     &print_upload_manager_header($r,$datatoken,$distotal,$krbdefdom);
     my $i;
     my $keyfields;
+    my $dummy;
     if ($total>=0) {
 	my @d=(['username','Username'],
                ['names','Last Name, First Names'],
@@ -535,6 +537,10 @@ sub print_upload_manager_form {
                ['sec','Group/Section'],
 	       ['ipwd','Initial Password'],
                ['email','EMail Address']);
+	if($ENV{'form.noFirstLine'}){
+	    ($dummy,@records)=@records;
+	}
+
 	if ($ENV{'form.upfile_associate'} eq 'reverse') {	
 	    &Apache::loncommon::csv_print_samples($r,\@records);
 	    $i=&Apache::loncommon::csv_print_select_table($r,\@records,\@d);
@@ -1528,6 +1534,7 @@ $upfile_select
 <input type=submit name="fileupload" value="Upload Courselist">
 <input type="hidden" name="action" value="upload" />
 <input type="hidden" name="state"  value="got_file" />
+<input type="checkbox" name="noFirstLine" /> Ignore First Line<br />
 </p>
 $create_classlist_help <br />
 $create_csv_help