[BACK]Return to imsprocessor.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / imspackages

Diff for /loncom/imspackages/imsprocessor.pm between versions 1.30 and 1.32

version 1.30, 2005/10/25 13:54:46 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 393  sub copy_resources { Line 393  sub copy_resources {
                         $copyfile = $fpath.$copyfile;                          $copyfile = $fpath.$copyfile;
                         my $fileresult;                          my $fileresult;
                         if (-e $source) {                          if (-e $source) {
                             $fileresult = &Apache::lonnet::process_coursefile('copy',$crs,$cdom,$chome,$copyfile,$source);                              $fileresult = &Apache::lonnet::process_coursefile('copy',$crs,$cdom,$copyfile,$source);
                         }                          }
                     }                      }
                 }                  }
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;
             if (-e $source) {              if (-e $source) {
                 $fileresult = &Apache::lonnet::process_coursefile('copy',$cname,$cdom,$chome,$copyfile,$source);                  $fileresult = &Apache::lonnet::process_coursefile('copy',$cname,$cdom,$copyfile,$source);
             }              }
             return $fileresult;              return $fileresult;
         } elsif ($context eq 'CSTR') {          } elsif ($context eq 'CSTR') {
Removed from v.1.30  
changed lines
  Added in v.1.32

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>