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

Diff for /loncom/publisher/loncfile.pm between versions 1.129 and 1.129.2.3

version 1.129, 2024/05/21 02:57:16 version 1.129.2.3, 2024/09/26 23:04:06
Line 1247  sub phaseone { Line 1247  sub phaseone {
         } elsif ($env{'form.action'} eq 'decompress') {          } elsif ($env{'form.action'} eq 'decompress') {
     &Decompress1($r, $uname, $udom, $fn);      &Decompress1($r, $uname, $udom, $fn);
         } elsif ($env{'form.action'} eq 'archive') {          } elsif ($env{'form.action'} eq 'archive') {
             &Archive1($r,$fn);              if (($uname eq $env{'user.name'}) && ($udom eq $env{'user.domain'})) {
                   &Archive1($r,$fn);
               } else {
                   $r->print('<p class="LC_error">'
                            .&mt('Archiving of Authoring Spaces is only permitted by Author')
                            .'</p></form>'
                   );
               }
         } elsif ($env{'form.action'} eq 'copy') {          } elsif ($env{'form.action'} eq 'copy') {
     if ($newfilename) {      if ($newfilename) {
         &Copy1($r, $uname, $udom, $fn, $newfilename);          &Copy1($r, $uname, $udom, $fn, $newfilename);
Line 1679  sub phasetwo { Line 1686  sub phasetwo {
  }   }
  $dest = $dir."/.";   $dest = $dir."/.";
     } elsif ($env{'form.action'} eq 'archive') {      } elsif ($env{'form.action'} eq 'archive') {
         &Archive2($r,$uname,$udom,$fn,$identifier);          if (($env{'environment.canarchive'}) &&
               ($env{'user.name'} eq $uname) &&
               ($env{'user.domain'} eq $udom)) {
               &Archive2($r,$uname,$udom,$fn,$identifier);
           } else {
               $r->print(&mt('You do not have permission to export to an archive file in this Authoring Space'));
           }
         return;          return;
     } elsif ($env{'form.action'} eq 'rename' ||      } elsif ($env{'form.action'} eq 'rename' ||
      $env{'form.action'} eq 'move') {       $env{'form.action'} eq 'move') {
Line 1778  sub handler { Line 1791  sub handler {
     } elsif($ENV{'QUERY_STRING'} && $env{'form.phase'} ne 'two') {      } elsif($ENV{'QUERY_STRING'} && $env{'form.phase'} ne 'two') {
  #Just hijack the script only the first time around to inject the   #Just hijack the script only the first time around to inject the
  #correct information for further processing   #correct information for further processing
  $fn=&unescape($env{'form.decompress'});          if ($env{'form.decompress'} ne '') {
  $fn=&URLToPath($fn);      $fn=&unescape($env{'form.decompress'});
  $env{'form.action'}="decompress";      $fn=&URLToPath($fn);
       $env{'form.action'}="decompress";
           }
     } elsif ($env{'form.qualifiedfilename'}) {      } elsif ($env{'form.qualifiedfilename'}) {
  $fn=$env{'form.qualifiedfilename'};   $fn=$env{'form.qualifiedfilename'};
     } else {      } else {
Line 1813  sub handler { Line 1828  sub handler {
         ($env{'environment.canarchive'})) {          ($env{'environment.canarchive'})) {
         &Apache::loncommon::content_type($r,'text/plain');          &Apache::loncommon::content_type($r,'text/plain');
         $r->send_http_header;          $r->send_http_header;
         $r->print(&Archive3($archiveref));          if (($env{'user.name'} eq $uname) &&
               ($env{'user.domain'} eq $udom)) {
               $r->print(&Archive3($archiveref));
           } else {
               $r->print(&mt('You do not have permission to export to an archive file in this Authoring Space'));
           }
         return OK;          return OK;
     }      }
   
Line 2027  ENDJS Line 2047  ENDJS
     $trailfile =~ s{^/(priv/)}{$londocroot/$1};      $trailfile =~ s{^/(priv/)}{$londocroot/$1};
   
     # Breadcrumbs      # Breadcrumbs
     my $crsauthor;  
     my $text = 'Authoring Space';      my $text = 'Authoring Space';
     my $title = 'Authoring Space File Operation',      my $title = 'Authoring Space File Operation',
     my $href = &Apache::loncommon::authorspace(&url($fn));      my $href = &Apache::loncommon::authorspace(&url($fn));
     if ($env{'request.course.id'}) {  
         my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};  
         my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};  
         if ($href eq "/priv/$cdom/$cnum/") {  
             $text = 'Course Authoring Space';  
             $title = 'Course Authoring Space File Operation',  
             $crsauthor = 1;  
         }  
     }  
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
     &Apache::lonhtmlcommon::add_breadcrumb({      &Apache::lonhtmlcommon::add_breadcrumb({
         'text'  => $text,          'text'  => $text,
Line 2062  ENDJS Line 2072  ENDJS
     }      }
   
     if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) {      if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) {
         unless ($crsauthor) {          $r->print('<p class="LC_info">'
             $r->print('<p class="LC_info">'                   .&mt('Co-Author [_1]',$uname.':'.$udom)
                      .&mt('Co-Author [_1]',$uname.':'.$udom)                   .'</p>'
                      .'</p>'          );
             );  
         }  
     }      }
   
   
Line 2092  ENDJS Line 2100  ENDJS
  'Select Action'   => 'New Resource',   'Select Action'   => 'New Resource',
     );      );
     if ($action{$env{'form.action'}}) {      if ($action{$env{'form.action'}}) {
         if ($crsauthor) {          if ($env{'form.action'} eq 'archive') {
             my @disallowed = qw(page sequence rights library);  
             my $newtype;  
             if ($env{'form.action'} =~ /^new(\w+)file$/) {  
                 $newtype = $1;  
             } elsif ($env{'form.action'} eq 'newfile') {  
                 ($newtype) = ($env{'form.newfilename'} =~ m{\.([^/.]+)$});  
                 $newtype = lc($newtype);  
             }  
             if (($newtype ne '') &&  
                 (grep(/^\Q$newtype\E$/,@disallowed))) {  
                 $r->print('<p class="LC_error">'  
                          .&mt('Creation of a new file of type: [_1] is not permitted in Course Authoring Space',$newtype)  
                          .'</p>'  
                          .&Apache::loncommon::end_page()  
                 );  
                 return OK;  
             }  
             if ($env{'form.action'} eq 'archive') {  
                 $r->print('<p>'.&mt('Location').': '.&display($fn).'</p>'."\n".  
                           '<p class="LC_error">'.  
                           &mt('Export to an archive file is not permitted in Course Authoring Space').  
                           '</p>'."\n".  
                           &Apache::loncommon::end_page());  
                 return OK;   
             }  
         } elsif ($env{'form.action'} eq 'archive') {  
             if ($env{'environment.canarchive'}) {              if ($env{'environment.canarchive'}) {
                 if ($archive_earlyout) {                  if ($archive_earlyout) {
                     my $fname = &url($fn);                      my $fname = &url($fn);
Removed from v.1.129  
changed lines
  Added in v.1.129.2.3

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