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

Diff for /loncom/interface/londocs.pm between versions 1.113 and 1.114

version 1.113, 2004/04/06 23:05:29 version 1.114, 2004/04/07 20:36:54
Line 258  sub group_import { Line 258  sub group_import {
     return &storemap($coursenum, $coursedom, $folder.'.sequence');      return &storemap($coursenum, $coursedom, $folder.'.sequence');
 }  }
   
 sub editor {  sub breadcrumbs {
     my ($r,$coursenum,$coursedom,$folder,$allowed)=@_;      my ($where)=@_;
       &Apache::lonhtmlcommon::clear_breadcrumbs();
       if ($where =~ /^default/) {
    &Apache::lonhtmlcommon::add_breadcrumb({'href'=>'/adm/coursedocs',
       'title'=>'Main Course Documents',
       'text' =>'Main Course Documents'});
       } elsif ($where =~ /^supplemental/) {
    &Apache::lonhtmlcommon::add_breadcrumb({'href'=>'/adm/coursedocs',
       'title'=>'Supplemental Course Documents',
       'text' =>'Supplemental Course Documents'});
   
       } else {
    &Apache::lonhtmlcommon::add_breadcrumb({'href'=>'/adm/coursedocs',
    'title'=>$where,
    'text' =>$where});
       }
     if ($ENV{'form.foldername'}) {      if ($ENV{'form.foldername'}) {
  $r->print('<h3>Folder: '.$ENV{'form.foldername'}.'</h3>');   my @folders;
    if (defined($ENV{'form.folders'})) {
       @folders=@{$ENV{'form.folders'}};
    }
    @folders=(@folders,$ENV{'form.folder'},
     &Apache::lonnet::escape($ENV{'form.foldername'}));
   
    my $folderpath;
    while (@folders) {
       my $folder=shift(@folders);
       my $foldername=shift(@folders);
       if ($folderpath) {$folderpath.='&';}
       $folderpath.=$folder.'&'.$foldername;
       my $url='/adm/coursedocs?folderpath='.
    &Apache::lonnet::escape($folderpath);
       &Apache::lonhtmlcommon::add_breadcrumb(
         {'href'=>$url,
          'title'=>&Apache::lonnet::unescape($foldername),
          'text'=>&Apache::lonnet::unescape($foldername)});
          
     
    }
     }      }
       return &Apache::lonhtmlcommon::breadcrumbs();
   }
   
   sub editor {
       my ($r,$coursenum,$coursedom,$folder,$allowed)=@_;
   
       $r->print(&breadcrumbs($folder));
     my $errtext='';      my $errtext='';
     my $fatal=0;      my $fatal=0;
     ($errtext,$fatal)=      ($errtext,$fatal)=
Line 455  END Line 498  END
     my $uploaded=($url=~/^\/*uploaded\//);      my $uploaded=($url=~/^\/*uploaded\//);
     my $icon=&Apache::loncommon::icon($url);      my $icon=&Apache::loncommon::icon($url);
     my $isfolder=0;      my $isfolder=0;
       my $folderarg;
     if ($uploaded) {      if ($uploaded) {
        if ($extension eq 'sequence') {         if ($extension eq 'sequence') {
   $icon=$iconpath.'/folder_closed.gif';    $icon=$iconpath.'/folder_closed.gif';
           $url=~/$coursenum\/([\/\w]+)\.sequence$/;            $url=~/$coursenum\/([\/\w]+)\.sequence$/;
           $url='/adm/coursedocs?folder='.$1;            $url='/adm/coursedocs?';
     $folderarg=$1;
           $isfolder=1;            $isfolder=1;
        } else {         } else {
   $url=&Apache::lonnet::tokenwrapper($url);    $url=&Apache::lonnet::tokenwrapper($url);
Line 478  END Line 523  END
  $url=&Apache::lonnet::clutter($url);   $url=&Apache::lonnet::clutter($url);
  $url.=(($url=~/\?/)?'&':'?').'symb='.&Apache::lonnet::escape($symb);   $url.=(($url=~/\?/)?'&':'?').'symb='.&Apache::lonnet::escape($symb);
     }      }
     if ($isfolder) { $url.='&foldername='.      if ($isfolder) {
        &Apache::lonnet::escape($foldertitle); }   my $foldername=&Apache::lonnet::escape($foldertitle);
    my $folderpath=$ENV{'form.folderpath'};
    if ($folderpath) { $folderpath.='&' };
    $folderpath.=$folderarg.'&'.$foldername;
    $url.='folderpath='.&Apache::lonnet::escape($folderpath);
       }
     $line.='<td bgcolor="#FFFFBB"><a href="'.$url.'"><img src="'.$icon.      $line.='<td bgcolor="#FFFFBB"><a href="'.$url.'"><img src="'.$icon.
  '" border="0"></a></td>'.   '" border="0"></a></td>'.
         "<td bgcolor='#FFFFBB'><a href='$url'>$title</a></td></tr>";          "<td bgcolor='#FFFFBB'><a href='$url'>$title</a></td></tr>";
Line 901  sub handler { Line 951  sub handler {
     my $events='';      my $events='';
     my $showdoc=0;      my $showdoc=0;
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
        ['folder','foldername']);      ['folderpath']);
       if ($ENV{'form.folderpath'}) {
    my (@folderpath)=split('&',$ENV{'form.folderpath'});
    $ENV{'form.foldername'}=&Apache::lonnet::unescape(pop(@folderpath));
    $ENV{'form.folder'}=pop(@folderpath);
    $ENV{'form.folders'}=\@folderpath;
       }
     if ($r->uri=~/^\/adm\/coursedocs\/showdoc\/(.*)$/) {      if ($r->uri=~/^\/adm\/coursedocs\/showdoc\/(.*)$/) {
        $showdoc=$1;         $showdoc=$1;
     }      }
Removed from v.1.113  
changed lines
  Added in v.1.114

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