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"; |