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

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

version 1.156, 2022/12/31 14:08:59 version 1.157, 2023/03/27 18:41:06
Line 1214  sub browse_or_search { Line 1214  sub browse_or_search {
             upfi => 'Upload File',              upfi => 'Upload File',
             dire => 'Directory',              dire => 'Directory',
             news => 'New sub-directory',              news => 'New sub-directory',
               empd => 'No suitable resources found',
         );          );
         my ($importcrsres,$uploadfile,$allonly);          my ($importcrsres,$uploadfile,$allonly);
         if ($only) {          if ($only) {
Line 1229  sub browse_or_search { Line 1230  sub browse_or_search {
         $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>
           <div id="hascrsres_$element" style="padding:0;clear:both;margin:0;border:0;display:none;">
           <p>
         $pickfile          $pickfile
         <input type="button" name="crsres" value="$lt{'sefi'}" onclick="updateCrsFile(this.form,'$element');" />          </p><p>
           <input type="button" name="crsres_$element" value="$lt{'sefi'}" onclick="updateCrsFile(this.form,'$element');" />
           </p>
           </div>
           <div id="nocrsres_$element" style="padding:0;clear:both;margin:0;border:0display:none;">
           <p>
           $lt{'empd'}
           </p>
           </div>
         </fieldset>          </fieldset>
 CRSRES  CRSRES
         my %subdirs;          my %subdirs;
         my $toppath="/priv/$cdom/$cnum";          my $toppath="/priv/$cdom/$cnum";
         my $exclude = &Apache::lonnet::priv_exclude();          my $exclude = &Apache::lonnet::priv_exclude();
         &Apache::lonnet::recursedirs(1,1,'',$exclude,'',$toppath,'',\%subdirs);          &Apache::lonnet::recursedirs(1,1,'',$exclude,'',0,$toppath,'',\%subdirs);
         my $numcrsdirs = keys(%subdirs);          my $numcrsdirs = keys(%subdirs);
         my $pickdir = $lt{'dire'}.'<select name="crsauthorpath_'.$element.'">'."\n".          my $pickdir = $lt{'dire'}.'<select name="crsauthorpath_'.$element.'">'."\n".
                                    '<option value="/">/</option>'."\n";                                     '<option value="/">/</option>'."\n";
Removed from v.1.156  
changed lines
  Added in v.1.157

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