--- loncom/interface/lonparmset.pm	2003/10/10 16:56:16	1.133
+++ loncom/interface/lonparmset.pm	2003/11/10 16:33:57	1.134
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.133 2003/10/10 16:56:16 www Exp $
+# $Id: lonparmset.pm,v 1.134 2003/11/10 16:33:57 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -518,20 +518,6 @@ sub print_td {
     $r->print('</td>'."\n");
 }
 
-sub get_env_multiple {
-    my ($name) = @_;
-    my @values;
-    if (defined($ENV{$name})) {
-        # exists is it an array
-        if (ref($ENV{$name})) {
-            @values=@{ $ENV{$name} };
-        } else {
-            $values[0]=$ENV{$name};
-        }
-    }
-    return(@values);
-}
-
 =pod
 
 =item B<extractResourceInformation>: Given the course data hash, extractResourceInformation extracts lots of information about the course's resources into a variety of hashes.
@@ -693,9 +679,9 @@ sub assessparms {
     $udom=$ENV{'form.udom'};
     unless ($udom) { $udom=$r->dir_config('lonDefDomain'); }
 
-    my @pscat=&get_env_multiple('form.pscat');
+    my @pscat=&Apache::loncommon::get_env_multiple('form.pscat');
     my $pschp=$ENV{'form.pschp'};
-    my @psprt=&get_env_multiple('form.psprt');
+    my @psprt=&Apache::loncommon::get_env_multiple('form.psprt');
     if (!@psprt) { $psprt[0]='0'; }
     my $showoptions=$ENV{'form.showoptions'};