loncom/imspackages/imsprocessor.pm - diff

Return to imsprocessor.pm CVS log

Up to [LON-CAPA] / loncom / imspackages

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