--- loncom/imspackages/imsprocessor.pm	2004/04/08 09:19:39	1.7
+++ loncom/imspackages/imsprocessor.pm	2004/05/11 09:57:52	1.8
@@ -101,9 +101,6 @@ sub expand_zip {
     my $zipfile = "$tempdir/$filename";
     if ($filename =~ m|\.zip$|i) {
         open(OUTPUT, "unzip -o $zipfile -d $tempdir  2> /dev/null |");
-        while (<OUTPUT>) {
-            print "$_<br />";
-        }
         close(OUTPUT);
     } else {
         return 'nozip';
@@ -610,7 +607,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|;
                     } 
                 }
             }