loncom/interface/multidownload.pl - diff

Return to multidownload.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.2, 2007/04/05 00:50:32	version 1.3, 2007/04/05 16:18:22
Line 90 foreach my $stu (@stuchecked) {	Line 90 foreach my $stu (@stuchecked) {
print $fh $file_content;	print $fh $file_content;
close $fh;	close $fh;
} else {	} else {
print "problem creating file <br />";	print("problem creating file <br />");
}	}
}	}
}	}
}	}
print '<a href="../zipout/output.zip">Click to download</a>';	mkdir($doc_root."/zipout",0777);
	my $statement = "zip -r $doc_root/zipout/output.zip $doc_root/zipdir/* > /dev/null";
	system($statement);
	$statement = "rm -rf $doc_root/zipdir";
	system($statement);
	print('<a href="../zipout/output.zip">Click to download</a>');
return 1;	return 1;