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> '. |
$output .= '<label><input type="radio" name="chooser_'.$element.'" value="crsres" onclick="toggleCrsFile(this.form,'."'$element','$numdirs'".')" />'.$lt{'uacf'}.'</label> '; |
'<label><input type="radio" name="chooser_'.$element.'" value="upload" onclick="toggleCrsUpload(this.form,'."'$element'".')" />'.$lt{'uanf'}.'</label> '. |
} |
'<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> '. |
|
'<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 .= ' <label><input type="radio" name="chooser_'.$element.'" value="search" onclick="opensearcher('."'$form','$element'$srchtitleelement".')" />'.$lt{'sear'}.'</label>'; |
$output .= ' <label><input type="radio" name="chooser_'.$element.'" value="search" onclick="opensearcher('."'$form','$element'$srchtitleelement".')" />'.$lt{'sear'}.'</label>'; |
} |
} |