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

Diff for /loncom/interface/londocs.pm between versions 1.463 and 1.464

version 1.463, 2011/11/07 20:05:55 version 1.464, 2011/11/27 20:55:58
Line 2872  sub handler { Line 2872  sub handler {
     my $containertag;      my $containertag;
     my $uploadtag;      my $uploadtag;
   
   # Do we directly jump somewhere?
      if ($env{'form.command'} eq 'direct') {
          (my $mapurl) = &Apache::lonnet::decode_symb($env{'form.symb'});
          my $maptitle = &Apache::lonnet::gettitle($mapurl);
          $mapurl=~s{^.*/([^/]+)\.\w+$}{$1};
          $env{'form.folderpath'}=
                       'default&'.&Apache::lonhtmlcommon::entity_encode('Main Course Documents').
                       '&default&...::::&'.
                       &Apache::lonhtmlcommon::entity_encode($mapurl).'&'.
                           &Apache::lonhtmlcommon::entity_encode($maptitle).'::::';
      }
   
 # Where do we store these for when we come back?  # Where do we store these for when we come back?
     my $stored_folderpath='docs_folderpath';      my $stored_folderpath='docs_folderpath';
     if ($supplementalflag) {      if ($supplementalflag) {
        $stored_folderpath='docs_sup_folderpath';         $stored_folderpath='docs_sup_folderpath';
     }      }
          
 # No folderpath, no pagepath, see if we have something stored  # No folderpath, no pagepath, see if we have something stored
     if ((!$env{'form.folderpath'}) && (!$env{'form.pagepath'})) {      if ((!$env{'form.folderpath'}) && (!$env{'form.pagepath'})) {
         &Apache::loncommon::restore_course_settings($stored_folderpath,          &Apache::loncommon::restore_course_settings($stored_folderpath,
Line 2916  sub handler { Line 2928  sub handler {
                                                 {'pagepath' => 'scalar',                                                  {'pagepath' => 'scalar',
                                                  'folderpath' => 'scalar'});                                                   'folderpath' => 'scalar'});
   
          &Apache::lonnet::logthis("Folder: ".$env{'form.folderpath'});
   
   
     if ($env{'form.folderpath'}) {      if ($env{'form.folderpath'}) {
  my (@folderpath)=split('&',$env{'form.folderpath'});   my (@folderpath)=split('&',$env{'form.folderpath'});
  $env{'form.foldername'}=&unescape(pop(@folderpath));   $env{'form.foldername'}=&unescape(pop(@folderpath));
Removed from v.1.463  
changed lines
  Added in v.1.464

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