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

Diff for /loncom/interface/loncommon.pm between versions 1.1075.2.127.2.3 and 1.1075.2.127.2.4

version 1.1075.2.127.2.3, 2017/11/01 02:54:35 version 1.1075.2.127.2.4, 2017/11/16 15:06:35
Line 81  use LWP::UserAgent; Line 81  use LWP::UserAgent;
 use Crypt::DES;  use Crypt::DES;
 use DynaLoader; # for Crypt::DES version  use DynaLoader; # for Crypt::DES version
 use File::Copy();  use File::Copy();
 use File::Path::Tiny();  use File::Path();
   
 # ---------------------------------------------- Designs  # ---------------------------------------------- Designs
 use vars qw(%defaultdesign);  use vars qw(%defaultdesign);
Line 12149  sub process_decompression { Line 12149  sub process_decompression {
                                 if (-f "$dir/$tempdir/$item") {                                  if (-f "$dir/$tempdir/$item") {
                                     unlink("$dir/$tempdir/$item");                                      unlink("$dir/$tempdir/$item");
                                 } elsif (-d "$dir/$tempdir/$item") {                                  } elsif (-d "$dir/$tempdir/$item") {
                                     &File::Path::Tiny::rm("$dir/$tempdir/$item");                                      &File::Path::remove_tree("$dir/$tempdir/$item",{ safe => 1 });
                                 }                                  }
                             }                              }
                         }                          }
Line 12159  sub process_decompression { Line 12159  sub process_decompression {
                                     if (-f "$dir/$item") {                                      if (-f "$dir/$item") {
                                         unlink("$dir/$item");                                          unlink("$dir/$item");
                                     } elsif (-d "$dir/$item") {                                      } elsif (-d "$dir/$item") {
                                         &File::Path::Tiny::rm("$dir/$item");                                          &File::Path::remove_tree("$dir/$item",{ safe => 1 });
                                     }                                      }
                                     &File::Copy::move("$dir/$tempdir/$item","$dir/$item");                                      &File::Copy::move("$dir/$tempdir/$item","$dir/$item");
                                 }                                  }
                             }                              }
                         }                          }
                         if (&File::Copy::move("$dir/$tempdir/$file","$dir/$file")) {                          if (&File::Copy::move("$dir/$tempdir/$file","$dir/$file")) {
                             &File::Path::Tiny::rm("$dir/$tempdir");                              &File::Path::remove_tree("$dir/$tempdir",{ safe => 1 });
                         }                          }
                     }                      }
                 } else {                  } else {
Line 12811  sub process_extracted_files { Line 12811  sub process_extracted_files {
                                                             '.'.$containers{$outer},1,1);                                                              '.'.$containers{$outer},1,1);
                                 unless ($errtext) {                                  unless ($errtext) {
                                     if (-e "$prefix$dir/$docstype/$mapinner{$outer}/$newidx/$title") {                                      if (-e "$prefix$dir/$docstype/$mapinner{$outer}/$newidx/$title") {
                                         $result .= '<li>'.&mt('File: [_1] added to course',$docstitle).'</li>'."\n";                                          $result .= '<li>'.&mt('File: [_1] added to course',
                                                                 &HTML::Entities::encode($docstitle,'<>&"')).
                                                      '</li>'."\n";
                                     }                                      }
                                 }                                  }
                             } else {                              } else {
Line 12884  sub process_extracted_files { Line 12886  sub process_extracted_files {
                         }                          }
                         if ($fullpath ne '') {                          if ($fullpath ne '') {
                             if (-e "$prefix$path") {                              if (-e "$prefix$path") {
                                 system("mv $prefix$path $fullpath/$title");                                  unless (rename("$prefix$path","$fullpath/$title")) {
                                        $warning .= &mt('Failed to rename dependency').'<br />';
                                   }
                             }                              }
                             if (-e "$fullpath/$title") {                              if (-e "$fullpath/$title") {
                                 my $showpath;                                  my $showpath;
Line 13186  sub upfile_store { Line 13190  sub upfile_store {
     $env{'form.upfile'}=~s/\n+/\n/gs;      $env{'form.upfile'}=~s/\n+/\n/gs;
     $env{'form.upfile'}=~s/\n+$//gs;      $env{'form.upfile'}=~s/\n+$//gs;
   
     my $datatoken=$env{'user.name'}.'_'.$env{'user.domain'}.      my $datatoken = &valid_datatoken($env{'user.name'}.'_'.$env{'user.domain'}.
  '_enroll_'.$env{'request.course.id'}.'_'.time.'_'.$$;                               '_enroll_'.$env{'request.course.id'}.'_'.
                                        time.'_'.$$);
       return if ($datatoken eq '');
     {      {
         my $datafile = $r->dir_config('lonDaemons').          my $datafile = $r->dir_config('lonDaemons').
                            '/tmp/'.$datatoken.'.tmp';                             '/tmp/'.$datatoken.'.tmp';
Line 15652  sub init_user_environment { Line 15658  sub init_user_environment {
   
     my %userenv = &Apache::lonnet::dump('environment',$domain,$username);      my %userenv = &Apache::lonnet::dump('environment',$domain,$username);
     my ($tmp) = keys(%userenv);      my ($tmp) = keys(%userenv);
     if ($tmp !~ /^(con_lost|error|no_such_host)/i) {      if ($tmp =~ /^(con_lost|error|no_such_host)/i) {
     } else {  
  undef(%userenv);   undef(%userenv);
     }      }
     if (($userenv{'interface'}) && (!$form->{'interface'})) {      if (($userenv{'interface'}) && (!$form->{'interface'})) {
Removed from v.1.1075.2.127.2.3  
changed lines
  Added in v.1.1075.2.127.2.4

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