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

Diff for /loncom/interface/londocs.pm between versions 1.583 and 1.586

version 1.583, 2014/08/25 00:55:27 version 1.586, 2014/10/15 07:24:43
Line 2810  sub editor { Line 2810  sub editor {
                     my ($name,$url)=split(/\:/,$LONCAPA::map::resources[$res]);                      my ($name,$url)=split(/\:/,$LONCAPA::map::resources[$res]);
                     $name=&LONCAPA::map::qtescape($name);                      $name=&LONCAPA::map::qtescape($name);
                     $url=&LONCAPA::map::qtescape($url);                      $url=&LONCAPA::map::qtescape($url);
                     next unless ($name && $url);                      next unless $url;
                     my %denied =                      my %denied =
                         &action_restrictions($coursenum,$coursedom,$url,                          &action_restrictions($coursenum,$coursedom,$url,
                                              $env{'form.folderpath'},\%curr_groups);                                               $env{'form.folderpath'},\%curr_groups);
Line 3358  sub entryline { Line 3358  sub entryline {
   
     $renametitle=~s/\\/\\\\/g;      $renametitle=~s/\\/\\\\/g;
     $renametitle=~s/\&quot\;/\\\"/g;      $renametitle=~s/\&quot\;/\\\"/g;
       $renametitle=~s/"/%22/g;
     $renametitle=~s/ /%20/g;      $renametitle=~s/ /%20/g;
     $oldtitle = $renametitle;      $oldtitle = $renametitle;
     $renametitle=~s/\'/\\\'/g;      $renametitle=~s/\'/\\\'/g;
Line 5467  sub decompression_info { Line 5468  sub decompression_info {
     unshift(@hiddens,$pathitem);      unshift(@hiddens,$pathitem);
     foreach my $item (@hiddens) {      foreach my $item (@hiddens) {
         if ($env{'form.'.$item}) {          if ($env{'form.'.$item}) {
             my $value = $env{'form.'.$item};  
             $hiddenelem .= '<input type="hidden" name="'.$item.'" value="'.              $hiddenelem .= '<input type="hidden" name="'.$item.'" value="'.
                            &HTML::Entities::encode($env{'form.'.$item},'<>&"').'" />'."\n";                             &HTML::Entities::encode($env{'form.'.$item},'<>&"').'" />'."\n";
         }          }
Line 5536  sub remove_archive { Line 5536  sub remove_archive {
                 $archiveidx = $position-1;                  $archiveidx = $position-1;
             }              }
             $env{'form.cmd'} = 'remove_'.$archiveidx;              $env{'form.cmd'} = 'remove_'.$archiveidx;
             my ($title,$url,@rrest) =               my ($title,$url,@rrest) =
                 split(/:/,$LONCAPA::map::resources[$LONCAPA::map::order[$archiveidx]]);                  split(/:/,$LONCAPA::map::resources[$LONCAPA::map::order[$archiveidx]]);
             if ($url eq $env{'form.archiveurl'}) {              if ($url eq $env{'form.archiveurl'}) {
                 if (&handle_edit_cmd($docuname,$docudom)) {                  if (&handle_edit_cmd($docuname,$docudom)) {
Removed from v.1.583  
changed lines
  Added in v.1.586

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