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

Diff for /loncom/imspackages/imsprocessor.pm between versions 1.42 and 1.43

version 1.42, 2008/08/23 17:47:44 version 1.43, 2008/08/23 21:08:29
Line 409  sub target_resources { Line 409  sub target_resources {
 }  }
   
 sub copy_resources {  sub copy_resources {
     my ($context,$cms,$hrefs,$tempdir,$targets,$url,$crs,$cdom,$destdir,$timenow,$assessmentfiles) = @_;      my ($context,$cms,$hrefs,$tempdir,$targets,$url,$crs,$cdom,$destdir,$timenow,$assessmentfiles,$total) = @_;
     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 472  sub copy_resources { Line 472  sub copy_resources {
                         } elsif ($cms eq 'bb5' || $cms eq 'bb6') {                          } elsif ($cms eq 'bb5' || $cms eq 'bb6') {
                             $renameres = rename("$tempdir/$key/$file","$destdir/resfiles/$key/$file");                              $renameres = rename("$tempdir/$key/$file","$destdir/resfiles/$key/$file");
                         }                          }
                         if (!$renameres) {                          if ($renameres) {
                               if (ref($total) eq 'HASH') {
                                   $$total{'file'} ++;
                               }
                           } else {
                             &Apache::lonnet::logthis("IMS import error: $cms - renaming failed for file $file");                              &Apache::lonnet::logthis("IMS import error: $cms - renaming failed for file $file");
                         }                          }
                     } elsif ($cms eq 'webctce4') {                      } elsif ($cms eq 'webctce4') {
Line 491  sub copy_resources { Line 495  sub copy_resources {
                             }                              }
                             if (-e "$tempdir/$file") {                              if (-e "$tempdir/$file") {
                                 my $renameres = rename("$tempdir/$file","$destdir/resfiles/$copyfile");                                  my $renameres = rename("$tempdir/$file","$destdir/resfiles/$copyfile");
                                 if (!$renameres) {                                  if ($renameres) {
                                       if (ref($total) eq 'HASH') {
                                           $$total{'file'} ++;
                                       }
                                   } else {
                                     &Apache::lonnet::logthis("IMS import error: WebCT4 - renaming failed for file $file");                                      &Apache::lonnet::logthis("IMS import error: WebCT4 - renaming failed for file $file");
                                 }                                  }
                             }                              }
Removed from v.1.42  
changed lines
  Added in v.1.43

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