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

Diff for /loncom/homework/edit.pm between versions 1.155 and 1.156

version 1.155, 2017/10/04 12:55:09 version 1.156, 2022/12/31 14:08:59
Line 1225  sub browse_or_search { Line 1225  sub browse_or_search {
             $allonly = $crsonly;              $allonly = $crsonly;
         }          }
         my ($numdirs,$pickfile) =          my ($numdirs,$pickfile) =
             &Apache::loncommon::import_crsauthor_form($form,'coursepath_'.$element,'coursefile_'.$element,undef,$allonly,$element);              &Apache::loncommon::import_crsauthor_form('coursepath_'.$element,'coursefile_'.$element,undef,$allonly,$element);
         if ($pickfile) {          $importcrsres=(<<CRSRES);
             $importcrsres=(<<CRSRES);  
         <fieldset id="importcrsresform_$element" style="display:inline;">          <fieldset id="importcrsresform_$element" style="display:inline;">
         <legend>$lt{'uacf'}</legend>          <legend>$lt{'uacf'}</legend>
         $pickfile          $pickfile
         <input type="button" name="crsres" value="$lt{'sefi'}" onclick="updateCrsFile(this.form,'$element');" />          <input type="button" name="crsres" value="$lt{'sefi'}" onclick="updateCrsFile(this.form,'$element');" />
         </fieldset>          </fieldset>
 CRSRES  CRSRES
         }  
         my %subdirs;          my %subdirs;
         my $toppath="/priv/$cdom/$cnum";          my $toppath="/priv/$cdom/$cnum";
         my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};          my $exclude = &Apache::lonnet::priv_exclude();
         &Apache::lonnet::recursedirs(1,'priv',$londocroot,$toppath,'',\%subdirs);          &Apache::lonnet::recursedirs(1,1,'',$exclude,'',$toppath,'',\%subdirs);
         my $numcrsdirs = keys(%subdirs);          my $numcrsdirs = keys(%subdirs);
         my $pickdir;          my $pickdir = $lt{'dire'}.'<select name="crsauthorpath_'.$element.'">'."\n".
         if ($numcrsdirs) {  
             $pickdir = $lt{'dire'}.'<select name="crsauthorpath_'.$element.'">'."\n".  
                                    '<option value="/">/</option>'."\n";                                     '<option value="/">/</option>'."\n";
           if ($numcrsdirs) {
             foreach my $key (sort { lc($a) cmp lc($b) } (keys(%subdirs))) {              foreach my $key (sort { lc($a) cmp lc($b) } (keys(%subdirs))) {
                 $pickdir .= '<option value="'.$key.'">'.$key.'</option>'."\n";                  $pickdir .= '<option value="'.$key.'">'.$key.'</option>'."\n";
             }              }
             $pickdir .= '</select><br />';  
         } else {  
             $pickdir = '<input type="hidden" name="crsauthorpath_'.$element.'" value="/" />'."\n";  
         }          }
           $pickdir .= '</select><br />';
         my $uploadfile =(<<CRSUPL);          my $uploadfile =(<<CRSUPL);
         <fieldset id="uploadcrsresform_$element" style="display:inline;">          <fieldset id="uploadcrsresform_$element" style="display:inline;">
         <legend>$lt{'uanf'}</legend>          <legend>$lt{'uanf'}</legend>
Line 1278  CRSUPL Line 1273  CRSUPL
         $output = '<a href="javascript:toggleChooser(document.'.$form.",'$element'".');">'.          $output = '<a href="javascript:toggleChooser(document.'.$form.",'$element'".');">'.
                   &mt('Choose File').'</a>'.                    &mt('Choose File').'</a>'.
                   '<div id="chooser_'.$element.'" style="display:none" class="LC_left_float">'.                    '<div id="chooser_'.$element.'" style="display:none" class="LC_left_float">'.
                   '<fieldset><legend>'.&mt('Choose File').'</legend>';                    '<fieldset><legend>'.&mt('Choose File').'</legend>'.
         if ($numdirs) {                    '<label><input type="radio" name="chooser_'.$element.'" value="crsres" onclick="toggleCrsFile(this.form,'."'$element'".')" />'.$lt{'uacf'}.'</label>&nbsp;'.
             $output .= '<label><input type="radio" name="chooser_'.$element.'" value="crsres" onclick="toggleCrsFile(this.form,'."'$element','$numdirs'".')" />'.$lt{'uacf'}.'</label>&nbsp;';                    '<label><input type="radio" name="chooser_'.$element.'" value="upload" onclick="toggleCrsUpload(this.form,'."'$element'".')" />'.$lt{'uanf'}.'</label>&nbsp;'.
         }                    '<label><input type="radio" name="chooser_'.$element.'" value="import" onclick="toggleResImport(this.form,'."'$element'".');openbrowser('."'$form','$element'$bretitleelement)".'" />'.$lt{'impo'}.'</label>';
         $output .= '<label><input type="radio" name="chooser_'.$element.'" value="upload" onclick="toggleCrsUpload(this.form,'."'$element','$numcrsdirs'".')" />'.$lt{'uanf'}.'</label>&nbsp;'.  
                    '<label><input type="radio" name="chooser_'.$element.'" value="import" onclick="toggleResImport(this.form,'."'$element'".');openbrowser('."'$form','$element'$bretitleelement)".'" />'.$lt{'impo'}.'</label>';  
         if ($usesearch) {          if ($usesearch) {
             $output .= '&nbsp;<label><input type="radio" name="chooser_'.$element.'" value="search" onclick="opensearcher('."'$form','$element'$srchtitleelement".')" />'.$lt{'sear'}.'</label>';              $output .= '&nbsp;<label><input type="radio" name="chooser_'.$element.'" value="search" onclick="opensearcher('."'$form','$element'$srchtitleelement".')" />'.$lt{'sear'}.'</label>';
         }          }
Removed from v.1.155  
changed lines
  Added in v.1.156

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