loncom/imspackages/imsprocessor.pm - diff

Return to imsprocessor.pm CVS log

Up to [LON-CAPA] / loncom / imspackages

version 1.31, 2005/10/27 17:07:23	version 1.32, 2005/10/27 18:19:36
Line 365 sub target_resources {	Line 365 sub target_resources {
}	}

sub copy_resources {	sub copy_resources {
my ($context,$cms,$hrefs,$tempdir,$targets,$url,$crs,$cdom,$chome,$destdir,$timenow) = @_;	my ($context,$cms,$hrefs,$tempdir,$targets,$url,$crs,$cdom,$destdir,$timenow) = @_;
if ($context eq 'DOCS') {	if ($context eq 'DOCS') {
foreach my $key (sort keys %{$hrefs}) {	foreach my $key (sort keys %{$hrefs}) {
if (grep/^$key$/,@{$targets}) {	if (grep/^$key$/,@{$targets}) {
Line 4005 sub retrieve_image {	Line 4005 sub retrieve_image {
print $fh $contents;	print $fh $contents;
close($fh);	close($fh);
if ($context eq 'DOCS') {	if ($context eq 'DOCS') {
my $chome = &Apache::lonnet::homeserver($cname,$cdom);
my $copyfile = $dirname.'/'.$filename;	my $copyfile = $dirname.'/'.$filename;
my $source = "$docroot/$res/webimages/$filename";	my $source = "$docroot/$res/webimages/$filename";
my $fileresult;	my $fileresult;