--- loncom/interface/loncommon.pm	2004/01/13 18:54:07	1.159.2.1
+++ loncom/interface/loncommon.pm	2003/12/26 21:17:37	1.164
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.159.2.1 2004/01/13 18:54:07 albertel Exp $
+# $Id: loncommon.pm,v 1.164 2003/12/26 21:17:37 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -762,7 +762,30 @@ sub select_form {
     return $selectform;
 }
 
-
+sub select_level_form {
+    my ($deflevel,$name)=@_;
+    unless ($deflevel) { $deflevel=0; }
+    return &select_form($deflevel,$name,(
+					 0 => 'Not specified',
+					 1 => 'Grade 1',
+					 2 => 'Grade 2',
+					 3 => 'Grade 3',
+					 4 => 'Grade 4',
+					 5 => 'Grade 5',
+					 6 => 'Grade 6',
+					 7 => 'Grade 7',
+					 8 => 'Grade 8',
+					 9 => 'Grade 9',
+					 10 => 'Grade 10',
+					 11 => 'Grade 11',
+					 12 => 'Grade 12',
+					 13 => 'Grade 13',
+					 14 => '100 Level',
+					 15 => '200 Level',
+					 16 => '300 Level',
+					 17 => '400 Level',
+					 18 => 'Graduate Level'));
+}
 #-------------------------------------------
 
 =pod
@@ -1120,7 +1143,7 @@ sub authform_local{
               @_,
               );
     my $jscall = "javascript:changed_radio('loc',$in{'formname'});";
-    my $result.=&mt('[_1] Local Authentication with arguement [_2]',
+    my $result.=&mt('[_1] Local Authentication with argument [_2]',
                     '<input type="radio" name="login" value="loc" '.
                         'onchange="'.$jscall.'" onclick="'.$jscall.'" />',
                     '<input type="text" size="10" name="locarg" value="" '.
@@ -1298,7 +1321,7 @@ sub keyword {
 
 =item * get_related_words
 
-Look up a word in the thesaurus.  Takes a scalar arguement and returns
+Look up a word in the thesaurus.  Takes a scalar argument and returns
 an array of words.  If the keyword is not in the thesaurus, an empty array
 will be returned.  The order of the words returned is determined by the
 database which holds them.
@@ -1904,21 +1927,6 @@ sub maketime {
          $th{'day'},$th{'month'}-1,$th{'year'}-1900,0,0,$th{'dlsav'}));
 }
 
-
-#########################################
-#
-# Retro-fixing of un-backward-compatible time format
-
-sub unsqltime {
-    my $timestamp=shift;
-    if ($timestamp=~/^(\d+)\-(\d+)\-(\d+)\s+(\d+)\:(\d+)\:(\d+)$/) {
-       $timestamp=&maketime(
-	   'year'=>$1,'month'=>$2,'day'=>$3,
-           'hours'=>$4,'minutes'=>$5,'seconds'=>$6);
-    }
-    return $timestamp;
-}
-
 #########################################
 
 sub findallcourses {
@@ -2472,7 +2480,7 @@ sub record_sep {
         }
     } elsif ($ENV{'form.upfiletype'} eq 'tab') {
         my $i=0;
-        foreach (split(/\t/,$record)) {
+        foreach (split(/\t+/,$record)) {
             my $field=$_;
             $field=~s/^(\"|\')//;
             $field=~s/(\"|\')$//;