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

Diff for /loncom/interface/londocs.pm between versions 1.508 and 1.509

version 1.508, 2012/11/14 02:49:19 version 1.509, 2012/11/16 23:37:15
Line 312  sub group_import { Line 312  sub group_import {
     return &storemap($coursenum, $coursedom, $folder.'.'.$container,1);      return &storemap($coursenum, $coursedom, $folder.'.'.$container,1);
 }  }
   
 sub breadcrumbs {  
     my ($allowed,$crstype)=@_;  
     &Apache::lonhtmlcommon::clear_breadcrumbs();  
     my (@folders);  
     if ($env{'form.pagepath'}) {  
         @folders = split('&',$env{'form.pagepath'});  
     } else {  
         @folders=split('&',$env{'form.folderpath'});  
     }  
     my $folderpath;  
     my $plain='';  
     my $randompick=-1;  
     my $isencrypted=0;  
     my $ishidden=0;  
     my $is_random_order=0;  
     while (@folders) {  
  my $folder=shift(@folders);  
     my $foldername=shift(@folders);  
  if ($folderpath) {$folderpath.='&';}  
  $folderpath.=$folder.'&'.$foldername;  
         my $url;  
         if ($allowed) {  
             $url = '/adm/coursedocs?folderpath=';  
         } else {  
             $url = '/adm/supplemental?folderpath=';  
         }  
  $url .= &escape($folderpath);  
  my $name=&unescape($foldername);  
 # randompick number, hidden, encrypted, random order, is appended with ":"s to the foldername  
   $name=~s/\:(\d*)\:(\w*)\:(\w*):(\d*)$//;  
  if ($1 ne '') {  
            $randompick=$1;  
         } else {  
            $randompick=-1;  
         }  
         if ($2) { $ishidden=1; }  
         if ($3) { $isencrypted=1; }  
  if ($4 ne '') { $is_random_order = 1; }  
         if ($folder eq 'supplemental') {  
             $name = &mt('Supplemental '.$crstype.' Content');  
         }  
  &Apache::lonhtmlcommon::add_breadcrumb(  
       {'href'=>$url,  
        'title'=>$name,  
        'text'=>$name,  
        'no_mt'=>1,  
        });  
  $plain.=$name.' > ';  
     }  
     $plain=~s/\&gt\;\s*$//;  
     return (&Apache::lonhtmlcommon::breadcrumbs(undef,undef,0,'nohelp',  
        undef, undef, 1 ),$randompick,$ishidden,  
                                                $isencrypted,$plain,$is_random_order);  
 }  
   
 sub log_docs {  sub log_docs {
     return &Apache::lonnet::write_log('course','docslog',@_);      return &Apache::lonnet::write_log('course','docslog',@_);
 }  }
Line 464  sub docs_change_log { Line 409  sub docs_change_log {
     if ($supplementalflag) {      if ($supplementalflag) {
         $tid = 2;          $tid = 2;
     }      }
     my ($breadcrumbtrail) = &breadcrumbs($allowed,$crstype);      my ($breadcrumbtrail) = 
           &Apache::lonhtmlcommon::docs_breadcrumbs($allowed,$crstype,1);
     $r->print($breadcrumbtrail.      $r->print($breadcrumbtrail.
               &generate_edit_table($tid,\%orderhash,undef,$iconpath,$jumpto,                &generate_edit_table($tid,\%orderhash,undef,$iconpath,$jumpto,
               $readfile));                $readfile));
Line 1749  sub editor { Line 1695  sub editor {
                            : 'sequence';                             : 'sequence';
   
     my ($breadcrumbtrail,$randompick,$ishidden,$isencrypted,$plain,$is_random_order) =      my ($breadcrumbtrail,$randompick,$ishidden,$isencrypted,$plain,$is_random_order) =
         &breadcrumbs($allowed,$crstype);          &Apache::lonhtmlcommon::docs_breadcrumbs($allowed,$crstype,1);
     $r->print($breadcrumbtrail);      $r->print($breadcrumbtrail);
   
     my $jumpto = "uploaded/$coursedom/$coursenum/$folder.$container";      my $jumpto = "uploaded/$coursedom/$coursenum/$folder.$container";
Line 2459  $form_common."\n". Line 2405  $form_common."\n".
 $form_start.  $form_start.
 $form_common.'  $form_common.'
 <span class="LC_nobreak"><label><input type="checkbox" name="randomorder_'.$orderidx.'" onclick="'."this.form.changeparms.value='randomorder';this.form.submit()".'" '.$ro_set.' /> '.&mt('Random Order').' </label></span></form>';  <span class="LC_nobreak"><label><input type="checkbox" name="randomorder_'.$orderidx.'" onclick="'."this.form.changeparms.value='randomorder';this.form.submit()".'" '.$ro_set.' /> '.&mt('Random Order').' </label></span></form>';
       } elsif ($supplementalflag && !$allowed) {
           $url .= ($url =~ /\?/) ? 'amp;':'?';
           $url .= 'folderpath='.&HTML::Entities::encode($esc_path,'<>&"');
     }      }
     if ($ispage) {      if ($ispage) {
         my $pagename=&escape($pagetitle);          my $pagename=&escape($pagetitle);
Removed from v.1.508  
changed lines
  Added in v.1.509

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