--- loncom/imspackages/imsprocessor.pm	2004/04/08 09:19:39	1.7
+++ loncom/imspackages/imsprocessor.pm	2004/08/04 17:34:29	1.9
@@ -100,11 +100,14 @@ sub expand_zip {
     my ($tempdir,$filename) = @_;
     my $zipfile = "$tempdir/$filename";
     if ($filename =~ m|\.zip$|i) {
+    # unzip can cause an sh launch which can pass along all of %ENV
+    # which can be too large for /bin/sh to handle
+        my %oldENV=%ENV;
+        undef(%ENV);
         open(OUTPUT, "unzip -o $zipfile -d $tempdir  2> /dev/null |");
-        while (<OUTPUT>) {
-            print "$_<br />";
-        }
         close(OUTPUT);
+        %ENV=%oldENV;
+        undef(%oldENV);
     } else {
         return 'nozip';
     }
@@ -610,7 +613,7 @@ sub build_structure {
                         $curr_id ++;
                         $next_id ++;
                         $seqtext{$key} .= qq|></resource>
-<link from="$curr_id" to="$next_id index="$curr_id"></link>\n|;
+<link from="$curr_id" to="$next_id" index="$curr_id"></link>\n|;
                     } 
                 }
             }