--- loncom/interface/londocs.pm	2005/04/07 06:56:23	1.174
+++ loncom/interface/londocs.pm	2005/04/07 07:34:52	1.175
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.174 2005/04/07 06:56:23 albertel Exp $
+# $Id: londocs.pm,v 1.175 2005/04/07 07:34:52 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -272,22 +272,8 @@ sub exportcourse {
         &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                             ['archive','discussion']);
 
-        my @exportitems = ();
-        if (defined($env{'form.archive'})) {
-            if (ref($env{'form.archive'}) eq 'ARRAY') {
-                @exportitems = @{$env{'form.archive'}};
-            } else {
-                $exportitems[0] = $env{'form.archive'};
-            }
-        }
-        my @discussions = ();
-        if (defined($env{'form.discussion'})) {
-            if (ref($env{'form.discussion'}) eq 'ARRAY') {
-                @discussions = $env{'form.discussion'};
-            } else {
-                $discussions[0] = $env{'form.discussion'};
-            }
-        }
+        my @exportitems = &Apache::loncommon::get_env_multiple('form.archive');
+        my @discussions = &Apache::loncommon::get_env_multiple('form.discussion');
         if (@exportitems == 0 && @discussions == 0) {
             $outcome = '<br />As you did not select any content items or discussions for export, an IMS package has not been created.  Please <a href="javascript:history.go(-1)">go back</a> to select either content items or discussions for export';
         } else {