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

Diff for /loncom/interface/londocs.pm between versions 1.598 and 1.600

version 1.598, 2016/01/26 14:30:25 version 1.600, 2016/03/27 20:22:52
Line 685  sub group_import { Line 685  sub group_import {
                 } else {                  } else {
                     $fname =~ s/\W/_/g;                      $fname =~ s/\W/_/g;
                 }                  }
                 if (length($fname > 15)) {                  if (length($fname) > 15) {
                     $fname = substr($fname,0,14);                      $fname = substr($fname,0,14);
                 }                  }
                 my $initialtext = &mt('Replace with your own content.');                  my $initialtext = &mt('Replace with your own content.');
Line 4990  sub handler { Line 4990  sub handler {
             }              }
             my $tabidstr = join("','",@tabids);              my $tabidstr = join("','",@tabids);
             %ltitools = &Apache::lonnet::get_domain_ltitools($coursedom);              %ltitools = &Apache::lonnet::get_domain_ltitools($coursedom);
               my $posslti = keys(%ltitools);
             my $exttoolurl = "/adm/$coursedom/$coursenum/new/exttool";              my $exttoolurl = "/adm/$coursedom/$coursenum/new/exttool";
     $script .= &editing_js($udom,$uname,$supplementalflag).      $script .= &editing_js($udom,$uname,$supplementalflag,$posslti).
                        &history_tab_js().                         &history_tab_js().
                        &inject_data_js().                         &inject_data_js().
                        &Apache::lonhtmlcommon::resize_scrollbox_js('docs',$tabidstr,$tid).                         &Apache::lonhtmlcommon::resize_scrollbox_js('docs',$tabidstr,$tid).
Line 6087  END Line 6088  END
 }  }
   
 sub editing_js {  sub editing_js {
     my ($udom,$uname,$supplementalflag) = @_;      my ($udom,$uname,$supplementalflag,$posslti) = @_;
     my %js_lt = &Apache::lonlocal::texthash(      my %js_lt = &Apache::lonlocal::texthash(
                                           p_mnf => 'Name of New Folder',                                            p_mnf => 'Name of New Folder',
                                           t_mnf => 'New Folder',                                            t_mnf => 'New Folder',
Line 6161  sub editing_js { Line 6162  sub editing_js {
         $backtourl = '/adm/navmaps';          $backtourl = '/adm/navmaps';
     }      }
   
     my $fieldsets = "'ext','tool','doc'";      my $fieldsets = "'ext','doc'";
       if ($posslti) {
           $fieldsets .= ",'tool'";
       }
     unless ($main_container_page) {      unless ($main_container_page) {
         $fieldsets .=",'ims'";          $fieldsets .=",'ims'";
     }      }
     if ($supplementalflag) {      if ($supplementalflag) {
         $fieldsets = "'suppext','supptool','suppdoc'";          $fieldsets = "'suppext','suppdoc'";
           if ($posslti) {
               $fieldsets .= ",'supptool'";
           }
     }      }
   
     return <<ENDNEWSCRIPT;      return <<ENDNEWSCRIPT;
Removed from v.1.598  
changed lines
  Added in v.1.600

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