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; |