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

Diff for /loncom/interface/londocs.pm between versions 1.705 and 1.706

version 1.705, 2023/09/27 14:52:26 version 1.706, 2023/12/23 02:17:38
Line 5892  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 6147  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 and this is supplemental content set folderpath    # Set folderpath if we are not allowed to make changes and this is supplemental content
     if ((!$allowed) && ($supplementalflag)) {      if ((!$allowed) && ($supplementalflag)) {
         unless ($env{'form.folderpath'} =~ /^supplemental/) {          unless ($env{'form.folderpath'} =~ /^supplemental/) {
             $env{'form.folderpath'} = &supplemental_base();              $env{'form.folderpath'} = &supplemental_base();
Line 6509  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 6687  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 6716  SEDFFORM Line 6727  SEDFFORM
         </fieldset>          </fieldset>
         </form>          </form>
 CRSFORM  CRSFORM
               }
         }          }
   
         my $fromstoredjs;          my $fromstoredjs;
Line 6726  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 6984  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 7031  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 7087  NWEBFORM Line 7102  NWEBFORM
         </form>          </form>
   
 RESFORM  RESFORM
           }
   
 my $specialdocumentsform;  my $specialdocumentsform;
 my @specialdocumentsforma;  my @specialdocumentsforma;
Line 7180  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 8182  function toggleMap(caller) { Line 8202  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 8382  function toggleImportCrsres(caller) { Line 8409  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 8433  function populateDirSelects(form,locsel, Line 8467  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 8440  function populateDirSelects(form,locsel, Line 8475  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 8478  function populateDirSelects(form,locsel, Line 8523  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.705  
changed lines
  Added in v.1.706

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