[LON-CAPA-cvs] cvs: loncom /imspackages imsprocessor.pm

[raeburn]

raeburn		Tue May 11 05:57:52 2004 EDT

  Modified files:              
    /loncom/imspackages	imsprocessor.pm 
  Log:
  Suppress display of output from unzip. Fix bug.
  
  
Index: loncom/imspackages/imsprocessor.pm
diff -u loncom/imspackages/imsprocessor.pm:1.7 loncom/imspackages/imsprocessor.pm:1.8
--- loncom/imspackages/imsprocessor.pm:1.7	Thu Apr  8 05:19:39 2004
+++ loncom/imspackages/imsprocessor.pm	Tue May 11 05:57:52 2004
@@ -101,9 +101,6 @@
     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 @@
                         $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|;
                     } 
                 }
             }