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

Diff for /loncom/interface/londocs.pm between versions 1.529 and 1.530

version 1.529, 2013/01/09 04:31:57 version 1.530, 2013/01/09 17:22:51
Line 337  sub group_import { Line 337  sub group_import {
                       );                        );
         &apply_fixups($folder,1,$coursedom,$coursenum,\%import_errors,\%updated);          &apply_fixups($folder,1,$coursedom,$coursenum,\%import_errors,\%updated);
         if (keys(%import_errors) > 0) {          if (keys(%import_errors) > 0) {
             $fixuperrors =               $fixuperrors =
                 '<p span class="LC_warning">'."\n".                  '<p span class="LC_warning">'."\n".
                 &mt('The following files are either dependencies of a web page or references within a folder and/or composite page for which errors occurred during import:')."\n".                  &mt('The following files are either dependencies of a web page or references within a folder and/or composite page for which errors occurred during import:')."\n".
                 '<ul>'."\n";                  '<ul>'."\n";
Line 1066  sub do_paste_from_buffer { Line 1066  sub do_paste_from_buffer {
                    copies   => \%copies,                     copies   => \%copies,
                    docmoves => \%docmoves,                     docmoves => \%docmoves,
                    mapmoves => \%mapmoves,                     mapmoves => \%mapmoves,
                 );                    );
     $result =      $result =
         &apply_fixups($folder,$is_map,$coursedom,$coursenum,$errors,          &apply_fixups($folder,$is_map,$coursedom,$coursenum,$errors,
                       \%updated,\%info,\%moves,$prefixchg,$oldurl,$url,'paste');                        \%updated,\%info,\%moves,$prefixchg,$oldurl,$url,'paste');
Line 1872  sub editor { Line 1872  sub editor {
     push(@imports, [$name, $url, $residx]);      push(@imports, [$name, $url, $residx]);
  }   }
     }      }
     ($errtext,$fatal,my $fixuperrors) =              ($errtext,$fatal,my $fixuperrors) =
                 &group_import($coursenum, $coursedom, $folder,$container,                  &group_import($coursenum, $coursedom, $folder,$container,
                               'londocs',@imports);                                'londocs',@imports);
     return $errtext if ($fatal);      return $errtext if ($fatal);
Line 3305  sub handler { Line 3305  sub handler {
        if ($env{'form.symb'} ne '') {         if ($env{'form.symb'} ne '') {
            $env{'form.folderpath'}=             $env{'form.folderpath'}=
                &Apache::loncommon::symb_to_docspath($env{'form.symb'});                 &Apache::loncommon::symb_to_docspath($env{'form.symb'});
            &Apache::lonnet::appenv({'docs.exit.'.$env{'request.course.id'} =>              &Apache::lonnet::appenv({'docs.exit.'.$env{'request.course.id'} =>
                $env{'form.command'}.'_'.$env{'form.symb'}});                 $env{'form.command'}.'_'.$env{'form.symb'}});
        } elsif ($env{'form.supppath'} ne '') {         } elsif ($env{'form.supppath'} ne '') {
            $env{'form.folderpath'}=$env{'form.supppath'};             $env{'form.folderpath'}=$env{'form.supppath'};
            &Apache::lonnet::appenv({'docs.exit.'.$env{'request.course.id'} =>              &Apache::lonnet::appenv({'docs.exit.'.$env{'request.course.id'} =>
                $env{'form.command'}.'_'.$env{'form.supppath'}});                 $env{'form.command'}.'_'.$env{'form.supppath'}});
        }         }
    } elsif ($env{'form.command'} eq 'editdocs') {     } elsif ($env{'form.command'} eq 'editdocs') {
Line 4417  sub editing_js { Line 4417  sub editing_js {
     my $toplevelsupp = &supplemental_base();      my $toplevelsupp = &supplemental_base();
   
     my $backtourl;      my $backtourl;
     if ($env{'docs.exit.'.$env{'request.course.id'}} =~ /^direct_(.+)$/) {         if ($env{'docs.exit.'.$env{'request.course.id'}} =~ /^direct_(.+)$/) {
         my $caller = $1;           my $caller = $1;
         if ($caller =~ /^supplemental/) {          if ($caller =~ /^supplemental/) {
             $backtourl = '/adm/supplemental?folderpath='.&escape($caller);              $backtourl = '/adm/supplemental?folderpath='.&escape($caller);
         } else {          } else {
Removed from v.1.529  
changed lines
  Added in v.1.530

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