Diff for /loncom/interface/londocs.pm between versions 1.704 and 1.708

version 1.704, 2023/07/20 22:12:39 version 1.708, 2024/01/08 18:17:50
Line 4734  END Line 4734  END
                 }                  }
                 $nomodal = 1;                  $nomodal = 1;
             }              }
         } elsif (($uploaded) && (!$allowed) && ($url ne '/adm/supplemental?')) {          } elsif (($uploaded) && ($url ne '/adm/supplemental?') && ($url ne '/adm/coursedocs?')) {
             my $embstyle=&Apache::loncommon::fileembstyle($extension);              my $embstyle=&Apache::loncommon::fileembstyle($extension);
             unless ($embstyle eq 'ssi') {              unless ($embstyle eq 'ssi') {
                 if (($embstyle eq 'img')                  if (($embstyle eq 'img')
Line 4840  $form_common."\n". Line 4840  $form_common."\n".
 '<span class="LC_nobreak"><label><input type="checkbox" name="randomorder_'.$orderidx.'" id="randomorder_'.$orderidx.'" onclick="checkForSubmit(this.form,'."'randomorder','settings'".');" '.$ro_set.$disabled.' /> '.&mt('Random Order').' </label></span>'.  '<span class="LC_nobreak"><label><input type="checkbox" name="randomorder_'.$orderidx.'" id="randomorder_'.$orderidx.'" onclick="checkForSubmit(this.form,'."'randomorder','settings'".');" '.$ro_set.$disabled.' /> '.&mt('Random Order').' </label></span>'.
 $form_end;   $form_end; 
         }          }
     } elsif ($supplementalflag && !$allowed) {      } elsif ($supplementalflag) {
         my $isexttool;          my $isexttool;
         if ($url=~m{^/adm/$coursedom/$coursenum/\d+/ext\.tool$}) {          if ($url=~m{^/adm/$coursedom/$coursenum/\d+/ext\.tool$}) {
             $url='/adm/wrapper'.$url;              $url='/adm/wrapper'.$url;
Line 4935  $form_end; Line 4935  $form_end;
                $anchor = '#'.&HTML::Entities::encode($anchor,'"<>&');                 $anchor = '#'.&HTML::Entities::encode($anchor,'"<>&');
            }             }
        }         }
        if ((!$supplementalflag) && ($nomodal) && ($hostname ne '')) {         if (($nomodal) && ($hostname ne '')) {
            $link = 'http://'.$hostname.$url;             $link = 'http://'.$hostname.$url;
        } else {         } else {
            $link = $url;             $link = $url;
        }         }
        $link = &js_escape($link.(($url=~/\?/)?'&amp;':'?').'inhibitmenu=yes'.$anchor);         my $inhibitmenu;
          if ((($supplementalflag) && ($allowed) && ($url =~ m{^/adm/wrapper/})) ||
              (($allowed) && (($url =~ m{^/adm/(viewclasslist|$match_domain/$match_username/aboutme)(\?|$)}) ||
                              ($url =~ m{^/public/$match_domain/$match_courseid/syllabus(\?|$)})))) {
              $inhibitmenu = 'only_body=1';
          } else {
              $inhibitmenu = 'inhibitmenu=yes';
          }
          $link = &js_escape($link.(($url=~/\?/)?'&amp;':'?').$inhibitmenu.$anchor);
        if ($allowed && !$env{'request.role.adv'} && !$isfolder && !$ispage && !$uploaded) {         if ($allowed && !$env{'request.role.adv'} && !$isfolder && !$ispage && !$uploaded) {
            if ((&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i) {             if ((&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i) {
                $nolink = 1;                 $nolink = 1;
Line 5884  sub handler { Line 5892  sub handler {
                'Load_Map','Supplemental','Score_Upload_Form',                 'Load_Map','Supplemental','Score_Upload_Form',
                'Adding_Pages','Importing_LON-CAPA_Resource',                 'Adding_Pages','Importing_LON-CAPA_Resource',
                'Importing_IMS_Course','Uploading_From_Harddrive',                 'Importing_IMS_Course','Uploading_From_Harddrive',
                        'Course_Roster','Web_Page','Dropbox','Simple_Problem') {                         'Course_Roster','Web_Page','Dropbox','Simple_Problem',
                          'Standard_Problem','Course_Resources',
                          'Search_LON-CAPA_Resource','Import_Stored_Links') {
  $help{$topic}=&Apache::loncommon::help_open_topic('Docs_'.$topic);   $help{$topic}=&Apache::loncommon::help_open_topic('Docs_'.$topic);
     }      }
     # Composite help files      # Composite help files
Line 6059  sub handler { Line 6069  sub handler {
     }      }
     if ($env{'form.forcesupplement'}) { $supplementalflag=1; }      if ($env{'form.forcesupplement'}) { $supplementalflag=1; }
     if ($env{'form.forcestandard'})   { $supplementalflag=0; }      if ($env{'form.forcestandard'})   { $supplementalflag=0; }
     unless ($allowed) { $supplementalflag=1; }      unless (($supplementalflag) ||
     unless ($standard) { $supplementalflag=1; }              ($r->uri =~ m{^/adm/coursedocs/showdoc/uploaded/\Q$coursedom\E/\Q$coursenum\E/docs/})) {
           unless ($allowed) { $supplementalflag=1; }
           unless ($standard) { $supplementalflag=1; }
       }
     my $toolsflag=0;      my $toolsflag=0;
     if ($env{'form.tools'}) { $toolsflag=1; }      if ($env{'form.tools'}) { $toolsflag=1; }
   
Line 6136  sub handler { Line 6149  sub handler {
             &Apache::loncommon::validate_folderpath($supplementalflag,$allowed,$coursenum,$coursedom);              &Apache::loncommon::validate_folderpath($supplementalflag,$allowed,$coursenum,$coursedom);
         }          }
     }      }
      
 # If we are not allowed to make changes, all we can see are supplemental docs  # Set folderpath if we are not allowed to make changes and this is supplemental content
     if (!$allowed) {      if ((!$allowed) && ($supplementalflag)) {
         unless ($env{'form.folderpath'} =~ /^supplemental/) {          unless ($env{'form.folderpath'} =~ /^supplemental/) {
             $env{'form.folderpath'} = &supplemental_base();              $env{'form.folderpath'} = &supplemental_base();
         }          }
Line 6369  sub handler { Line 6382  sub handler {
         if ($supplementalflag) {          if ($supplementalflag) {
             my $title = &HTML::Entities::encode($env{'form.title'},'\'"<>&');              my $title = &HTML::Entities::encode($env{'form.title'},'\'"<>&');
             my $brcrum = &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);              my $brcrum = &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
             $args = {'bread_crumbs' => $brcrum};              $args = {'bread_crumbs' => $brcrum,
                        'bread_crumbs_nomenu' => 1};
         } else {          } else {
             $args = {'force_register' => $showdoc};              $args = {'force_register' => $showdoc};
         }          }
Line 6398  sub handler { Line 6412  sub handler {
             }              }
         }          }
         my $brcrum = &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype);          my $brcrum = &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype);
           my $args = {'bread_crumbs' => $brcrum};
           unless (($env{'form.folderpath'} eq '') ||
                   ($env{'form.folder'} eq 'supplemental')) {
               $args->{'bread_crumbs_nomenu'} = 1;
           }
         $r->print(&Apache::loncommon::start_page("Supplemental $crstype Content",undef,          $r->print(&Apache::loncommon::start_page("Supplemental $crstype Content",undef,
                                                 {'bread_crumbs' => $brcrum,}));                                                   $args));
     } else {      } else {
         my ($breadtext,$breadtitle,$helpitem);          my ($breadtext,$breadtitle,$helpitem);
         $breadtext = "$crstype Editor";          $breadtext = "$crstype Editor";
Line 6484  sub handler { Line 6503  sub handler {
   
   if ($allowed && $toolsflag) {    if ($allowed && $toolsflag) {
       $r->print(&startContentScreen('tools'));        $r->print(&startContentScreen('tools'));
       $r->print(&generate_admin_menu($crstype,$canedit));        $r->print(&generate_admin_menu($crstype,$canedit,$coursenum,$coursedom));
       $r->print(&endContentScreen());        $r->print(&endContentScreen());
   } elsif ((!$showdoc) && (!$uploadphase)) {    } elsif ((!$showdoc) && (!$uploadphase)) {
 # -----------------------------------------------------------------------------  # -----------------------------------------------------------------------------
Line 6492  sub handler { Line 6511  sub handler {
  'copm' => 'All documents out of a published map into this folder',   'copm' => 'All documents out of a published map into this folder',
                 'upfi' => 'Upload File',                  'upfi' => 'Upload File',
                 'upld' => 'Upload Content',                  'upld' => 'Upload Content',
                 'srch' => 'Search',                  'srch' => 'Search Repository',
                 'impo' => 'Import',                  'impo' => 'Import from Repository',
  'lnks' => 'Import from Stored Links',   'lnks' => 'Import from Stored Links',
                 'impm' => 'Import from Assembled Map',                  'impm' => 'Import from Assembled Map',
                 'imcr' => 'Import from Course Resources',                  'imcr' => 'Import from Course Resources',
Line 6670  FUFORM Line 6689  FUFORM
         </form>          </form>
   
 SEDFFORM  SEDFFORM
         my $importcrsresform;          my ($importcrsresform,$checkcrsres);
         my ($numdirs,$pickfile) =           if ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.crsauthor'}) {
             &Apache::loncommon::import_crsauthor_form('coursepath','coursefile',              $checkcrsres = 1;
                                                       "resize_scrollbox('contentscroll','1','0');",          } elsif ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.crsauthor'} ne '0') {
                                                       undef,'res');              my %domdefs=&Apache::lonnet::get_domain_defaults($coursedom);
         if ($pickfile) {              if ($domdefs{'crsauthor'}) {
             $importcrsresform=(<<CRSFORM);                  $checkcrsres = 1;
               }
           }
           if ($checkcrsres) {
               my ($numdirs,$pickfile) = 
                   &Apache::loncommon::import_crsauthor_form('coursepath','coursefile',
                                                             "resize_scrollbox('contentscroll','1','0');",
                                                             undef,'res');
               if ($pickfile) {
                   $importcrsresform=(<<CRSFORM);
         <a class="LC_menubuttons_link" href="javascript:toggleImportCrsres('res');">          <a class="LC_menubuttons_link" href="javascript:toggleImportCrsres('res');">
         $lt{'imcr'}</a>$help{'Course_Resources'}          $lt{'imcr'}</a>$help{'Course_Resources'}
         <form action="/adm/coursedocs" method="post" name="crsresimportform" onsubmit="return validImportCrsRes();">          <form action="/adm/coursedocs" method="post" name="crsresimportform" onsubmit="return validImportCrsRes();">
Line 6699  SEDFFORM Line 6727  SEDFFORM
         </fieldset>          </fieldset>
         </form>          </form>
 CRSFORM  CRSFORM
               }
         }          }
   
         my $fromstoredjs;          my $fromstoredjs;
Line 6709  CRSFORM Line 6738  CRSFORM
         }          }
   
  my @importpubforma = (   my @importpubforma = (
  { '<img class="LC_noBorder LC_middle" src="/res/adm/pages/src.png" alt="'.$lt{srch}.'"  onclick="javascript:groupsearch()" />' => $pathitem."<a class='LC_menubuttons_link' href='javascript:groupsearch()'>$lt{'srch'}</a>" },   { '<img class="LC_noBorder LC_middle" src="/res/adm/pages/src.png" alt="'.$lt{srch}.'"  onclick="javascript:groupsearch()" />' => $pathitem."<a class='LC_menubuttons_link' href='javascript:groupsearch()'>$lt{'srch'}</a>$help{'Search_LON-CAPA_Resource'}" },
  { '<img class="LC_noBorder LC_middle" src="/res/adm/pages/res.png" alt="'.$lt{impo}.'"  onclick="javascript:groupimport();"/>' => "<a class='LC_menubuttons_link' href='javascript:groupimport();'>$lt{'impo'}</a>$help{'Importing_LON-CAPA_Resource'}" },   { '<img class="LC_noBorder LC_middle" src="/res/adm/pages/res.png" alt="'.$lt{impo}.'"  onclick="javascript:groupimport();"/>' => "<a class='LC_menubuttons_link' href='javascript:groupimport();'>$lt{'impo'}</a>$help{'Importing_LON-CAPA_Resource'}" },
  { '<img class="LC_noBorder LC_middle" src="/res/adm/pages/wishlist.png" alt="'.$lt{lnks}.'" onclick="javascript:'.$fromstoredjs.';" />' => '<a class="LC_menubuttons_link" href="javascript:'.$fromstoredjs.';">'.$lt{'lnks'}.'</a>' },   { '<img class="LC_noBorder LC_middle" src="/res/adm/pages/wishlist.png" alt="'.$lt{lnks}.'" onclick="javascript:'.$fromstoredjs.';" />' => '<a class="LC_menubuttons_link" href="javascript:'.$fromstoredjs.';">'.$lt{'lnks'}.'</a>'.$help{'Import_Stored_Links'} },
         { '<img class="LC_noBorder LC_middle" src="/res/adm/pages/sequence.png" alt="'.$lt{impm}.'" onclick="javascript:toggleMap(\'map\');" />' => $importpubform },          { '<img class="LC_noBorder LC_middle" src="/res/adm/pages/sequence.png" alt="'.$lt{impm}.'" onclick="javascript:toggleMap(\'map\');" />' => $importpubform },
         );          );
         if ($pickfile) {          if ($importcrsresform) {
             push(@importpubforma,{ '<img class="LC_noBorder LC_middle" src="/res/adm/pages/res.png" alt="'.$lt{imcr}.'"  onclick="javascript:toggleImportCrsres(\'res\');" />' => $importcrsresform});              push(@importpubforma,{ '<img class="LC_noBorder LC_middle" src="/res/adm/pages/impcrsau.png" alt="'.$lt{imcr}.'"  onclick="javascript:toggleImportCrsres(\'res\');" />' => $importcrsresform});
  }   }
  $importpubform = &create_form_ul(&create_list_elements(@importpubforma));   $importpubform = &create_form_ul(&create_list_elements(@importpubforma));
         my $extresourcesform =          my $extresourcesform =
Line 6967  NWEBFORM Line 6996  NWEBFORM
                 }                  }
             }              }
         }          }
         $pickdir .= '<option value="course">'.&mt('Course Resource').'</option>'."\n".          if ($checkcrsres) {
                     '</select><br />'."\n".              $pickdir .= '<option value="course">'.&mt('Course Resource').'</option>'."\n";
           }
           $pickdir .= '</select><br />'."\n".
                     $lt{'dire'}.                      $lt{'dire'}.
                     '<select name="authorpath" onchange="toggleCrsResTitle();">'.                      '<select name="authorpath" onchange="toggleCrsResTitle();">'.
                     '<option value=""></option>'.                      '<option value=""></option>'.
                     '</select><br />'."\n";                      '</select><br />'."\n";
   
         my %seltemplate_menus;          my %seltemplate_menus;
         my @files = &Apache::lonhomework::get_template_list('problem');          my @files = &Apache::lonhomework::get_template_list('problem');
         my @noexamplelink = ('blank.problem','blank.library','script.library');          my @noexamplelink = ('blank.problem','blank.library','script.library');
Line 7014  NWEBFORM Line 7044  NWEBFORM
                                                                 "toggleExampleText();",'template').'<br />';                                                                  "toggleExampleText();",'template').'<br />';
         my $templatepreview =  '<a href="#" target="sample" onclick="javascript:getExample(600,420,\'yes\',true);  return false;">'.          my $templatepreview =  '<a href="#" target="sample" onclick="javascript:getExample(600,420,\'yes\',true);  return false;">'.
                                '<span id="newresexample">'.&mt('Example').'</span></a>';                                 '<span id="newresexample">'.&mt('Example').'</span></a>';
         my $crsresform=(<<RESFORM);          my $crsresform;
           if (($env{'user.author'}) || ($checkcrsres)) {
               $crsresform=(<<RESFORM);
         <a class="LC_menubuttons_link" href="javascript:toggleCrsRes('res');">          <a class="LC_menubuttons_link" href="javascript:toggleCrsRes('res');">
         $lt{'stpr'}</a>$help{'Course_Resource'}          $lt{'stpr'}</a>$help{'Standard_Problem'}
         <form action="/adm/coursedocs" method="post" name="courseresform">          <form action="/adm/coursedocs" method="post" name="courseresform">
         <fieldset id="crsresform" style="display:none;">          <fieldset id="crsresform" style="display:none;">
         <legend>$lt{'stpr'}</legend>          <legend>$lt{'stpr'}</legend>
Line 7070  NWEBFORM Line 7102  NWEBFORM
         </form>          </form>
   
 RESFORM  RESFORM
           }
   
 my $specialdocumentsform;  my $specialdocumentsform;
 my @specialdocumentsforma;  my @specialdocumentsforma;
Line 7163  NGFFORM Line 7196  NGFFORM
         @gradingforma=(          @gradingforma=(
         {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/simpprob.png" alt="'.$lt{sipr}.'" onclick="javascript:makesmpproblem();" />'=>$newsmpproblemform},          {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/simpprob.png" alt="'.$lt{sipr}.'" onclick="javascript:makesmpproblem();" />'=>$newsmpproblemform},
         {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/dropbox.png" alt="'.$lt{drbx}.'" onclick="javascript:makedropbox();" />'=>$newdropboxform},          {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/dropbox.png" alt="'.$lt{drbx}.'" onclick="javascript:makedropbox();" />'=>$newdropboxform},
         {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/scoreupfrm.png" alt="'.$lt{scuf}.'" onclick="javascript:makeexamupload();" />'=>$newexuploadform},          {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/scoreupfrm.png" alt="'.$lt{scuf}.'" onclick="javascript:makeexamupload();" />'=>$newexuploadform}
         {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/simpprob.png" alt="'.$lt{stpr}.'" onclick="javascript:toggleCrsRes(\'res\');" />'=>$crsresform},  
         );          );
           if ($crsresform) {
               push(@gradingforma,
                    {'<img class="LC_noBorder LC_middle" src="/res/adm/pages/simpprob.png" alt="'.$lt{stpr}.'" onclick="javascript:toggleCrsRes(\'res\');" />'=>$crsresform}
               );
           }
         $gradingform = &create_form_ul(&create_list_elements(@gradingforma));          $gradingform = &create_form_ul(&create_list_elements(@gradingforma));
   
         @communityforma=(          @communityforma=(
Line 7179  NGFFORM Line 7216  NGFFORM
   
 my %orderhash = (  my %orderhash = (
                 'aa' => ['Upload',$fileuploadform],                  'aa' => ['Upload',$fileuploadform],
                 'bb' => ['Import',$importpubform],                  'bb' => ['External',$externalform],
                 'cc' => ['External',$externalform],                  'cc' => ['Import',$importpubform],
                 'dd' => ['Assessment',$gradingform],                  'dd' => ['Assessment',$gradingform],
                 'ff' => ['Other',$specialdocumentsform],                  'ff' => ['Other',$specialdocumentsform],
                 );                  );
Line 7560  sub remove_archive { Line 7597  sub remove_archive {
 }  }
   
 sub generate_admin_menu {  sub generate_admin_menu {
     my ($crstype,$canedit) = @_;      my ($crstype,$canedit,$coursenum,$coursedom) = @_;
     my $lc_crstype = lc($crstype);      my $lc_crstype = lc($crstype);
     my ($home,$other,%outhash)=&authorhosts();      my ($home,$other,%outhash)=&authorhosts();
     my %lt= ( # do not translate here      my %lt= ( # do not translate here
Line 7568  sub generate_admin_menu { Line 7605  sub generate_admin_menu {
                                          'cv'   => 'Check/Set Resource Versions',                                           'cv'   => 'Check/Set Resource Versions',
                                          'ls'   => 'List Resource Identifiers',                                           'ls'   => 'List Resource Identifiers',
                                          'ct'   => 'Display/Set Shortened URLs for Deep-linking',                                           'ct'   => 'Display/Set Shortened URLs for Deep-linking',
                                            'ca'   => "Enter $crstype Authoring Space",
                                          'imse' => 'Export contents to IMS Archive',                                           'imse' => 'Export contents to IMS Archive',
                                          'dcd'  => "Copy $crstype Content to Authoring Space",                                           'dcd'  => "Copy $crstype Content to Authoring Space",
             );              );
Line 7628  sub generate_admin_menu { Line 7666  sub generate_admin_menu {
                 ]                  ]
         });          });
     if ($canedit) {      if ($canedit) {
           my ($crsauname,$crsaudom,$crshome);
           if (($coursenum ne '') && ($coursedom ne '')) {
               my $crsauthorurl = "/priv/$coursedom/$coursenum/";
               ($crsauname,$crsaudom,$crshome) = &Apache::lonnet::constructaccess($crsauthorurl);
               if (($crsauname eq $coursenum) && ($crsaudom eq $coursedom)) {
                   my @ids=&Apache::lonnet::current_machine_ids();
                   my $linkurl;
                   if (grep(/^\Q$crshome\E$/,@ids)) {
                       $linkurl = $crsauthorurl;
                   } else {
                       $linkurl =
                           &Apache::lonhtmlcommon::jump_to_editres($crsauthorurl,$crshome,1);
                   }
                   if ((ref($menu[0]) eq 'HASH') && (ref($menu[0]->{'items'}) eq 'ARRAY')) {
                        push(@{$menu[0]->{items}},
                        {   linktext   => $lt{'ca'},
                            url        => $linkurl,
                            permission => 'F',
                            help       => 'Docs_Course_Authorspace',
                            icon       => 'impcrsau.png',
                            linktitle  => $lt{'ca'},
                        });
                   }
               }
           }
         push(@menu,          push(@menu,
         {   categorytitle=>'Export',          {   categorytitle=>'Export',
             items =>[              items =>[
Line 8165  function toggleMap(caller) { Line 8228  function toggleMap(caller) {
             }              }
         }          }
         document.getElementById('importmapform').style.display=disp;          document.getElementById('importmapform').style.display=disp;
           if (disp == 'block') {
               if (document.getElementById('importcrsresform')) {
                   if (document.getElementById('importcrsresform').style.display == 'block') {
                       document.getElementById('importcrsresform').style.display = 'none';
                   }
               }
           }
         resize_scrollbox('contentscroll','1','1');          resize_scrollbox('contentscroll','1','1');
     }      }
     return;      return;
Line 8365  function toggleImportCrsres(caller) { Line 8435  function toggleImportCrsres(caller) {
             }              }
         }          }
         document.getElementById('importcrsresform').style.display=disp;          document.getElementById('importcrsresform').style.display=disp;
           if (disp == 'block') {
               if (document.getElementById('importmapform')) {
                   if (document.getElementById('importmapform').style.display == 'block') {
                       document.getElementById('importmapform').style.display = 'none';
                   }
               }
           }
         resize_scrollbox('contentscroll','1','0');          resize_scrollbox('contentscroll','1','0');
     }      }
     return;      return;
Line 8416  function populateDirSelects(form,locsel, Line 8493  function populateDirSelects(form,locsel,
                 }                  }
             }              }
         }          }
           var templateradio = document.courseresform.elements['newresusetemp'];
         if (athome) {          if (athome) {
             if (document.getElementById('stdprobswitch')) {              if (document.getElementById('stdprobswitch')) {
                 document.getElementById('stdprobswitch').style.display = 'none';                  document.getElementById('stdprobswitch').style.display = 'none';
Line 8423  function populateDirSelects(form,locsel, Line 8501  function populateDirSelects(form,locsel,
             if (document.getElementById('newstdproblem')) {              if (document.getElementById('newstdproblem')) {
                 document.getElementById('newstdproblem').style.display = 'none';                  document.getElementById('newstdproblem').style.display = 'none';
             }              }
               var canedit = '$canedit';
               if (canedit) {
                   if (templateradio.length > 1) {
                       for (var i=0; i<templateradio.length; i++) {
                           templateradio[i].disabled = false;
                       }
                   }
                   document.courseresform.newresourcename.disabled = false;
                   document.courseresform.newcrs.disabled = false;
               }
             var http = new XMLHttpRequest();              var http = new XMLHttpRequest();
             var url = "/adm/courseauthor";              var url = "/adm/courseauthor";
             var params = "role="+role+"&rec="+recurse+"&nonempty="+nonemptydir+"&addtop=1";              var params = "role="+role+"&rec="+recurse+"&nonempty="+nonemptydir+"&addtop=1";
Line 8461  function populateDirSelects(form,locsel, Line 8549  function populateDirSelects(form,locsel,
             if (document.getElementById('newstdproblem')) {              if (document.getElementById('newstdproblem')) {
                 document.getElementById('newstdproblem').style.display = 'none';                  document.getElementById('newstdproblem').style.display = 'none';
             }              }
               if (templateradio.length > 1) {
                   for (var i=0; i<templateradio.length; i++) {
                       templateradio[i].disabled = true;
                   }
               }
               document.courseresform.newresourcename.disabled = true;
               document.courseresform.newcrs.disabled = true;
         }          }
     }      }
     return;      return;

Removed from v.1.704  
changed lines
  Added in v.1.708


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