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

Diff for /loncom/imspackages/imsimport.pm between versions 1.47 and 1.49

version 1.47, 2015/06/09 21:22:51 version 1.49, 2023/07/23 13:33:52
Line 38  use HTML::Entities(); Line 38  use HTML::Entities();
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::lonupload;  use Apache::lonupload;
 use File::Basename();  use File::Basename();
   use File::Path();
 use LONCAPA;  use LONCAPA;
   
 # ----------------------------------------------------------------  Jscript One  # ----------------------------------------------------------------  Jscript One
Line 640  sub display_three { Line 641  sub display_three {
         );          );
         my $londocroot = $r->dir_config('lonDocRoot');          my $londocroot = $r->dir_config('lonDocRoot');
         if ($destdir =~ m{^\Q$londocroot/priv/$udom/$uname/$dirpath\E}) {          if ($destdir =~ m{^\Q$londocroot/priv/$udom/$uname/$dirpath\E}) {
             system (" rm -r -f $destdir/temp");              &File::Path::remove_tree("$destdir/temp",{ safe => 1 });
         }          }
     } elsif ($manifest_result eq 'nomanifest') {      } elsif ($manifest_result eq 'nomanifest') {
         $r->print(          $r->print(
Line 772  END_JS Line 773  END_JS
     }      }
   
     my $title = 'Upload IMS package to Authoring Space';      my $title = 'Upload IMS package to Authoring Space';
       my $crsauthor;
       if ($env{'request.course.id'}) {
           my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
           my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
           if (($udom eq $cdom) && ($uname eq $cnum)) {
               $title = 'Upload IMS package to Course Authoring Space';
               $crsauthor = 1;
           }
       }
   
     $r->print(&Apache::loncommon::start_page($title, $javascript));      $r->print(&Apache::loncommon::start_page($title, $javascript));
   
     if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) {      unless ($crsauthor) {
         $r->print('<p><span class="LC_info">'          if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) {
                   .&mt('Co-Author [_1]',$uname.':'.$udom)              $r->print('<p><span class="LC_info">'
                   .'</span></p>'                        .&mt('Co-Author [_1]',$uname.':'.$udom)
         );                        .'</span></p>'
               );
           }
     }      }
     if ($env{'form.phase'} eq 'two') {      if ($env{'form.phase'} eq 'two') {
         my $flag = &Apache::lonupload::phasetwo($r,$fn,'imsimport');          my $flag = &Apache::lonupload::phasetwo($r,$fn,'imsimport');
Removed from v.1.47  
changed lines
  Added in v.1.49

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