|
version 1.1237, 2016/04/02 04:30:20
|
version 1.1269, 2017/01/02 19:44:06
|
|
Line 72 use Apache::lonuserstate();
|
Line 72 use Apache::lonuserstate();
|
| use Apache::courseclassifier(); |
use Apache::courseclassifier(); |
| use LONCAPA qw(:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
| use DateTime::TimeZone; |
use DateTime::TimeZone; |
| use DateTime::Locale::Catalog; |
use DateTime::Locale; |
| use Encode(); |
use Encode(); |
| use Text::Aspell; |
use Text::Aspell; |
| use Authen::Captcha; |
use Authen::Captcha; |
|
Line 267 BEGIN {
|
Line 267 BEGIN {
|
| next if ($line =~ /^\#/); |
next if ($line =~ /^\#/); |
| chomp($line); |
chomp($line); |
| my ($extension,$category)=(split(/\s+/,$line,2)); |
my ($extension,$category)=(split(/\s+/,$line,2)); |
| push @{$category_extensions{lc($category)}},$extension; |
push(@{$category_extensions{lc($category)}},$extension); |
| } |
} |
| close($fh); |
close($fh); |
| } |
} |
|
Line 590 sub coursebrowser_javascript {
|
Line 590 sub coursebrowser_javascript {
|
| if (formname == 'ccrs') { |
if (formname == 'ccrs') { |
| var ownername = document.forms[formid].ccuname.value; |
var ownername = document.forms[formid].ccuname.value; |
| var ownerdom = document.forms[formid].ccdomain.options[document.forms[formid].ccdomain.selectedIndex].value; |
var ownerdom = document.forms[formid].ccdomain.options[document.forms[formid].ccdomain.selectedIndex].value; |
| url += '&cloner='+ownername+':'+ownerdom+'&crscode='+document.forms[formid].crscode.value; |
url += '&cloner='+ownername+':'+ownerdom; |
| |
if (type == 'Course') { |
| |
url += '&crscode='+document.forms[formid].crscode.value; |
| |
} |
| } |
} |
| if (formname == 'requestcrs') { |
if (formname == 'requestcrs') { |
| url += '&crsdom=$domainfilter&crscode=$instcode'; |
url += '&crsdom=$domainfilter&crscode=$instcode'; |
|
Line 878 sub selectcourse_link {
|
Line 881 sub selectcourse_link {
|
| my $linktext = &mt('Select Course'); |
my $linktext = &mt('Select Course'); |
| if ($selecttype eq 'Community') { |
if ($selecttype eq 'Community') { |
| $linktext = &mt('Select Community'); |
$linktext = &mt('Select Community'); |
| |
} elsif ($selecttype eq 'Placement') { |
| |
$linktext = &mt('Select Placement Test'); |
| } elsif ($selecttype eq 'Course/Community') { |
} elsif ($selecttype eq 'Course/Community') { |
| $linktext = &mt('Select Course/Community'); |
$linktext = &mt('Select Course/Community'); |
| $type = ''; |
$type = ''; |
|
Line 938 ENDSCRT
|
Line 943 ENDSCRT
|
| } |
} |
| |
|
| sub select_timezone { |
sub select_timezone { |
| my ($name,$selected,$onchange,$includeempty)=@_; |
my ($name,$selected,$onchange,$includeempty,$disabled)=@_; |
| my $output='<select name="'.$name.'" '.$onchange.'>'."\n"; |
my $output='<select name="'.$name.'" '.$onchange.$disabled.'>'."\n"; |
| if ($includeempty) { |
if ($includeempty) { |
| $output .= '<option value=""'; |
$output .= '<option value=""'; |
| if (($selected eq '') || ($selected eq 'local')) { |
if (($selected eq '') || ($selected eq 'local')) { |
|
Line 960 sub select_timezone {
|
Line 965 sub select_timezone {
|
| } |
} |
| |
|
| sub select_datelocale { |
sub select_datelocale { |
| my ($name,$selected,$onchange,$includeempty)=@_; |
my ($name,$selected,$onchange,$includeempty,$disabled)=@_; |
| my $output='<select name="'.$name.'" '.$onchange.'>'."\n"; |
my $output='<select name="'.$name.'" '.$onchange.$disabled.'>'."\n"; |
| if ($includeempty) { |
if ($includeempty) { |
| $output .= '<option value=""'; |
$output .= '<option value=""'; |
| if ($selected eq '') { |
if ($selected eq '') { |
|
Line 969 sub select_datelocale {
|
Line 974 sub select_datelocale {
|
| } |
} |
| $output .= '> </option>'; |
$output .= '> </option>'; |
| } |
} |
| |
my @languages = &Apache::lonlocal::preferred_languages(); |
| my (@possibles,%locale_names); |
my (@possibles,%locale_names); |
| my @locales = DateTime::Locale::Catalog::Locales; |
my @locales = DateTime::Locale->ids(); |
| foreach my $locale (@locales) { |
foreach my $id (@locales) { |
| if (ref($locale) eq 'HASH') { |
if ($id ne '') { |
| my $id = $locale->{'id'}; |
my ($en_terr,$native_terr); |
| if ($id ne '') { |
my $loc = DateTime::Locale->load($id); |
| my $en_terr = $locale->{'en_territory'}; |
if (ref($loc)) { |
| my $native_terr = $locale->{'native_territory'}; |
$en_terr = $loc->name(); |
| my @languages = &Apache::lonlocal::preferred_languages(); |
$native_terr = $loc->native_name(); |
| if (grep(/^en$/,@languages) || !@languages) { |
if (grep(/^en$/,@languages) || !@languages) { |
| if ($en_terr ne '') { |
if ($en_terr ne '') { |
| $locale_names{$id} = '('.$en_terr.')'; |
$locale_names{$id} = '('.$en_terr.')'; |
|
Line 992 sub select_datelocale {
|
Line 998 sub select_datelocale {
|
| } |
} |
| } |
} |
| $locale_names{$id} = Encode::encode('UTF-8',$locale_names{$id}); |
$locale_names{$id} = Encode::encode('UTF-8',$locale_names{$id}); |
| push (@possibles,$id); |
push(@possibles,$id); |
| } |
} |
| } |
} |
| } |
} |
| foreach my $item (sort(@possibles)) { |
foreach my $item (sort(@possibles)) { |
|
Line 1012 sub select_datelocale {
|
Line 1018 sub select_datelocale {
|
| } |
} |
| |
|
| sub select_language { |
sub select_language { |
| my ($name,$selected,$includeempty) = @_; |
my ($name,$selected,$includeempty,$noedit) = @_; |
| my %langchoices; |
my %langchoices; |
| if ($includeempty) { |
if ($includeempty) { |
| %langchoices = ('' => 'No language preference'); |
%langchoices = ('' => 'No language preference'); |
|
Line 1024 sub select_language {
|
Line 1030 sub select_language {
|
| } |
} |
| } |
} |
| %langchoices = &Apache::lonlocal::texthash(%langchoices); |
%langchoices = &Apache::lonlocal::texthash(%langchoices); |
| return &select_form($selected,$name,\%langchoices); |
return &select_form($selected,$name,\%langchoices,undef,$noedit); |
| } |
} |
| |
|
| =pod |
=pod |
|
Line 1048 sub list_languages {
|
Line 1054 sub list_languages {
|
| if ($code) { |
if ($code) { |
| my $selector = $supported_codes{$id}; |
my $selector = $supported_codes{$id}; |
| my $description = &plainlanguagedescription($id); |
my $description = &plainlanguagedescription($id); |
| push (@lang_choices, [$selector, $description]); |
push(@lang_choices, [$selector, $description]); |
| } |
} |
| } |
} |
| return \@lang_choices; |
return \@lang_choices; |
|
Line 1088 linked_select_forms takes the following
|
Line 1094 linked_select_forms takes the following
|
| =item * $onchangesecond, additional javascript call to execute for an onchange |
=item * $onchangesecond, additional javascript call to execute for an onchange |
| event for the second <select> tag |
event for the second <select> tag |
| |
|
| |
=item * $suffix, to differentiate separate uses of select2data javascript |
| |
objects in a page. |
| |
|
| =back |
=back |
| |
|
| Below is an example of such a hash. Only the 'text', 'default', and |
Below is an example of such a hash. Only the 'text', 'default', and |
|
Line 1142 sub linked_select_forms {
|
Line 1151 sub linked_select_forms {
|
| $hashref, |
$hashref, |
| $menuorder, |
$menuorder, |
| $onchangefirst, |
$onchangefirst, |
| $onchangesecond |
$onchangesecond, |
| |
$suffix |
| ) = @_; |
) = @_; |
| my $second = "document.$formname.$secondselectname"; |
my $second = "document.$formname.$secondselectname"; |
| my $first = "document.$formname.$firstselectname"; |
my $first = "document.$formname.$firstselectname"; |
|
Line 1150 sub linked_select_forms {
|
Line 1160 sub linked_select_forms {
|
| my $result = ''; |
my $result = ''; |
| $result.='<script type="text/javascript" language="JavaScript">'."\n"; |
$result.='<script type="text/javascript" language="JavaScript">'."\n"; |
| $result.="// <![CDATA[\n"; |
$result.="// <![CDATA[\n"; |
| $result.="var select2data = new Object();\n"; |
$result.="var select2data${suffix} = new Object();\n"; |
| $" = '","'; |
$" = '","'; |
| my $debug = ''; |
my $debug = ''; |
| foreach my $s1 (sort(keys(%$hashref))) { |
foreach my $s1 (sort(keys(%$hashref))) { |
| $result.="select2data.d_$s1 = new Object();\n"; |
$result.="select2data${suffix}['d_$s1'] = new Object();\n"; |
| $result.="select2data.d_$s1.def = new String('". |
$result.="select2data${suffix}['d_$s1'].def = new String('". |
| $hashref->{$s1}->{'default'}."');\n"; |
$hashref->{$s1}->{'default'}."');\n"; |
| $result.="select2data.d_$s1.values = new Array("; |
$result.="select2data${suffix}['d_$s1'].values = new Array("; |
| my @s2values = sort(keys( %{ $hashref->{$s1}->{'select2'} } )); |
my @s2values = sort(keys( %{ $hashref->{$s1}->{'select2'} } )); |
| if (ref($hashref->{$s1}->{'order'}) eq 'ARRAY') { |
if (ref($hashref->{$s1}->{'order'}) eq 'ARRAY') { |
| @s2values = @{$hashref->{$s1}->{'order'}}; |
@s2values = @{$hashref->{$s1}->{'order'}}; |
| } |
} |
| $result.="\"@s2values\");\n"; |
$result.="\"@s2values\");\n"; |
| $result.="select2data.d_$s1.texts = new Array("; |
$result.="select2data${suffix}['d_$s1'].texts = new Array("; |
| my @s2texts; |
my @s2texts; |
| foreach my $value (@s2values) { |
foreach my $value (@s2values) { |
| push @s2texts, $hashref->{$s1}->{'select2'}->{$value}; |
push(@s2texts, $hashref->{$s1}->{'select2'}->{$value}); |
| } |
} |
| $result.="\"@s2texts\");\n"; |
$result.="\"@s2texts\");\n"; |
| } |
} |
| $"=' '; |
$"=' '; |
| $result.= <<"END"; |
$result.= <<"END"; |
| |
|
| function select1_changed() { |
function select1${suffix}_changed() { |
| // Determine new choice |
// Determine new choice |
| var newvalue = "d_" + $first.value; |
var newvalue = "d_" + $first.options[$first.selectedIndex].value; |
| // update select2 |
// update select2 |
| var values = select2data[newvalue].values; |
var values = select2data${suffix}[newvalue].values; |
| var texts = select2data[newvalue].texts; |
var texts = select2data${suffix}[newvalue].texts; |
| var select2def = select2data[newvalue].def; |
var select2def = select2data${suffix}[newvalue].def; |
| var i; |
var i; |
| // out with the old |
// out with the old |
| for (i = 0; i < $second.options.length; i++) { |
$second.options.length = 0; |
| $second.options[i] = null; |
// in with the new |
| } |
|
| // in with the nuclear |
|
| for (i=0;i<values.length; i++) { |
for (i=0;i<values.length; i++) { |
| $second.options[i] = new Option(values[i]); |
$second.options[i] = new Option(values[i]); |
| $second.options[i].value = values[i]; |
$second.options[i].value = values[i]; |
|
Line 1199 function select1_changed() {
|
Line 1207 function select1_changed() {
|
| </script> |
</script> |
| END |
END |
| # output the initial values for the selection lists |
# output the initial values for the selection lists |
| $result .= "<select size=\"1\" name=\"$firstselectname\" onchange=\"select1_changed();$onchangefirst\">\n"; |
$result .= "<select size=\"1\" name=\"$firstselectname\" onchange=\"select1${suffix}_changed();$onchangefirst\">\n"; |
| my @order = sort(keys(%{$hashref})); |
my @order = sort(keys(%{$hashref})); |
| if (ref($menuorder) eq 'ARRAY') { |
if (ref($menuorder) eq 'ARRAY') { |
| @order = @{$menuorder}; |
@order = @{$menuorder}; |
|
Line 1767 RESIZE
|
Line 1775 RESIZE
|
| } |
} |
| |
|
| sub colorfuleditor_js { |
sub colorfuleditor_js { |
| |
my $browse_or_search; |
| |
my $respath; |
| |
my ($cnum,$cdom) = &crsauthor_url(); |
| |
if ($cnum) { |
| |
$respath = "/res/$cdom/$cnum/"; |
| |
my %js_lt = &Apache::lonlocal::texthash( |
| |
sunm => 'Sub-directory name', |
| |
save => 'Save page to make this permanent', |
| |
); |
| |
&js_escape(\%js_lt); |
| |
$browse_or_search = <<"END"; |
| |
|
| |
function toggleChooser(form,element,titleid,only,search) { |
| |
var disp = 'none'; |
| |
if (document.getElementById('chooser_'+element)) { |
| |
var curr = document.getElementById('chooser_'+element).style.display; |
| |
if (curr == 'none') { |
| |
disp='inline'; |
| |
if (form.elements['chooser_'+element].length) { |
| |
for (var i=0; i<form.elements['chooser_'+element].length; i++) { |
| |
form.elements['chooser_'+element][i].checked = false; |
| |
} |
| |
} |
| |
toggleResImport(form,element); |
| |
} |
| |
document.getElementById('chooser_'+element).style.display = disp; |
| |
} |
| |
} |
| |
|
| |
function toggleCrsFile(form,element,numdirs) { |
| |
if (document.getElementById('chooser_'+element+'_crsres')) { |
| |
var curr = document.getElementById('chooser_'+element+'_crsres').style.display; |
| |
if (curr == 'none') { |
| |
if (numdirs) { |
| |
form.elements['coursepath_'+element].selectedIndex = 0; |
| |
if (numdirs > 1) { |
| |
window['select1'+element+'_changed'](); |
| |
} |
| |
} |
| |
} |
| |
document.getElementById('chooser_'+element+'_crsres').style.display = 'block'; |
| |
|
| |
} |
| |
if (document.getElementById('chooser_'+element+'_upload')) { |
| |
document.getElementById('chooser_'+element+'_upload').style.display = 'none'; |
| |
if (document.getElementById('uploadcrsres_'+element)) { |
| |
document.getElementById('uploadcrsres_'+element).value = ''; |
| |
} |
| |
} |
| |
return; |
| |
} |
| |
|
| |
function toggleCrsUpload(form,element,numcrsdirs) { |
| |
if (document.getElementById('chooser_'+element+'_crsres')) { |
| |
document.getElementById('chooser_'+element+'_crsres').style.display = 'none'; |
| |
} |
| |
if (document.getElementById('chooser_'+element+'_upload')) { |
| |
var curr = document.getElementById('chooser_'+element+'_upload').style.display; |
| |
if (curr == 'none') { |
| |
if (numcrsdirs) { |
| |
form.elements['crsauthorpath_'+element].selectedIndex = 0; |
| |
form.elements['newsubdir_'+element][0].checked = true; |
| |
toggleNewsubdir(form,element); |
| |
} |
| |
} |
| |
document.getElementById('chooser_'+element+'_upload').style.display = 'block'; |
| |
} |
| |
return; |
| |
} |
| |
|
| |
function toggleResImport(form,element) { |
| |
var choices = new Array('crsres','upload'); |
| |
for (var i=0; i<choices.length; i++) { |
| |
if (document.getElementById('chooser_'+element+'_'+choices[i])) { |
| |
document.getElementById('chooser_'+element+'_'+choices[i]).style.display = 'none'; |
| |
} |
| |
} |
| |
} |
| |
|
| |
function toggleNewsubdir(form,element) { |
| |
var newsub = form.elements['newsubdir_'+element]; |
| |
if (newsub) { |
| |
if (newsub.length) { |
| |
for (var j=0; j<newsub.length; j++) { |
| |
if (newsub[j].checked) { |
| |
if (document.getElementById('newsubdirname_'+element)) { |
| |
if (newsub[j].value == '1') { |
| |
document.getElementById('newsubdirname_'+element).type = "text"; |
| |
if (document.getElementById('newsubdir_'+element)) { |
| |
document.getElementById('newsubdir_'+element).innerHTML = '<br />$js_lt{sunm}'; |
| |
} |
| |
} else { |
| |
document.getElementById('newsubdirname_'+element).type = "hidden"; |
| |
document.getElementById('newsubdirname_'+element).value = ""; |
| |
document.getElementById('newsubdir_'+element).innerHTML = ""; |
| |
} |
| |
} |
| |
break; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
|
| |
function updateCrsFile(form,element) { |
| |
var directory = form.elements['coursepath_'+element]; |
| |
var filename = form.elements['coursefile_'+element]; |
| |
var path = directory.options[directory.selectedIndex].value; |
| |
var file = filename.options[filename.selectedIndex].value; |
| |
form.elements[element].value = '$respath'; |
| |
if (path == '/') { |
| |
form.elements[element].value += file; |
| |
} else { |
| |
form.elements[element].value += path+'/'+file; |
| |
} |
| |
unClean(); |
| |
if (document.getElementById('previewimg_'+element)) { |
| |
document.getElementById('previewimg_'+element).src = form.elements[element].value; |
| |
var newsrc = document.getElementById('previewimg_'+element).src; |
| |
} |
| |
if (document.getElementById('showimg_'+element)) { |
| |
document.getElementById('showimg_'+element).innerHTML = '($js_lt{save})'; |
| |
} |
| |
toggleChooser(form,element); |
| |
return; |
| |
} |
| |
|
| |
function uploadDone(suffix,name) { |
| |
if (name) { |
| |
document.forms["lonhomework"].elements[suffix].value = name; |
| |
unClean(); |
| |
toggleChooser(document.forms["lonhomework"],suffix); |
| |
} |
| |
} |
| |
|
| |
\$(document).ready(function(){ |
| |
|
| |
\$(document).delegate('form :submit', 'click', function( event ) { |
| |
if ( \$( this ).hasClass( "LC_uploadcrsres" ) ) { |
| |
var buttonId = this.id; |
| |
var suffix = buttonId.toString(); |
| |
suffix = suffix.replace(/^crsupload_/,''); |
| |
event.preventDefault(); |
| |
document.lonhomework.target = 'crsupload_target_'+suffix; |
| |
document.lonhomework.action = '/adm/coursepub?LC_uploadcrsres='+suffix; |
| |
\$(this.form).submit(); |
| |
document.lonhomework.target = ''; |
| |
if (document.getElementById('crsuploadto_'+suffix)) { |
| |
document.lonhomework.action = document.getElementById('crsuploadto_'+suffix).value; |
| |
} |
| |
return false; |
| |
} |
| |
}); |
| |
}); |
| |
END |
| |
} |
| return <<"COLORFULEDIT" |
return <<"COLORFULEDIT" |
| <script type="text/javascript"> |
<script type="text/javascript"> |
| // <![CDATA[> |
// <![CDATA[> |
|
Line 1949 sub colorfuleditor_js {
|
Line 2113 sub colorfuleditor_js {
|
| } |
} |
| } |
} |
| |
|
| |
$browse_or_search |
| |
|
| // ]]> |
// ]]> |
| </script> |
</script> |
|
Line 2001 sub insert_folding_button {
|
Line 2165 sub insert_folding_button {
|
| value=\"".&mt('Hide')."\" onclick=\"fold_box('$curDepth','$lastresource')\">"; |
value=\"".&mt('Hide')."\" onclick=\"fold_box('$curDepth','$lastresource')\">"; |
| } |
} |
| |
|
| |
sub crsauthor_url { |
| |
my ($url) = @_; |
| |
if ($url eq '') { |
| |
$url = $ENV{'REQUEST_URI'}; |
| |
} |
| |
my ($cnum,$cdom); |
| |
if ($env{'request.course.id'}) { |
| |
my ($audom,$auname) = ($url =~ m{^/priv/($match_domain)/($match_name)/}); |
| |
if ($audom ne '' && $auname ne '') { |
| |
if (($env{'course.'.$env{'request.course.id'}.'.num'} eq $auname) && |
| |
($env{'course.'.$env{'request.course.id'}.'.domain'} eq $audom)) { |
| |
$cnum = $auname; |
| |
$cdom = $audom; |
| |
} |
| |
} |
| |
} |
| |
return ($cnum,$cdom); |
| |
} |
| |
|
| |
sub import_crsauthor_form { |
| |
my ($form,$firstselectname,$secondselectname,$onchangefirst,$only,$suffix,$disabled) = @_; |
| |
return (0) unless ($env{'request.course.id'}); |
| |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
| |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
| |
my $crshome = $env{'course.'.$env{'request.course.id'}.'.home'}; |
| |
return (0) unless (($cnum ne '') && ($cdom ne '')); |
| |
my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'}; |
| |
my @ids=&Apache::lonnet::current_machine_ids(); |
| |
my ($output,$is_home,$relpath,%subdirs,%files,%selimport_menus); |
| |
|
| |
if (grep(/^\Q$crshome\E$/,@ids)) { |
| |
$is_home = 1; |
| |
} |
| |
$relpath = "/priv/$cdom/$cnum"; |
| |
&Apache::lonnet::recursedirs($is_home,'priv',$londocroot,$relpath,'',\%subdirs,\%files); |
| |
my %lt = &Apache::lonlocal::texthash ( |
| |
fnam => 'Filename', |
| |
dire => 'Directory', |
| |
); |
| |
my $numdirs = scalar(keys(%files)); |
| |
my (%possexts,$singledir,@singledirfiles); |
| |
if ($only) { |
| |
map { $possexts{$_} = 1; } split(/\s*,\s*/,$only); |
| |
} |
| |
my (%nonemptydirs,$possdirs); |
| |
if ($numdirs > 1) { |
| |
my @order; |
| |
foreach my $key (sort { lc($a) cmp lc($b) } (keys(%files))) { |
| |
if (ref($files{$key}) eq 'HASH') { |
| |
my $shown = $key; |
| |
if ($key eq '') { |
| |
$shown = '/'; |
| |
} |
| |
my @ordered = (); |
| |
foreach my $file (sort { lc($a) cmp lc($b) } (keys(%{$files{$key}}))) { |
| |
if ($only) { |
| |
my ($ext) = ($file =~ /\.([^.]+)$/); |
| |
unless ($possexts{lc($ext)}) { |
| |
next; |
| |
} |
| |
} |
| |
$selimport_menus{$key}->{'select2'}->{$file} = $file; |
| |
push(@ordered,$file); |
| |
} |
| |
if (@ordered) { |
| |
push(@order,$key); |
| |
$nonemptydirs{$key} = 1; |
| |
$selimport_menus{$key}->{'text'} = $shown; |
| |
$selimport_menus{$key}->{'default'} = ''; |
| |
$selimport_menus{$key}->{'select2'}->{''} = ''; |
| |
$selimport_menus{$key}->{'order'} = \@ordered; |
| |
} |
| |
} |
| |
} |
| |
$possdirs = scalar(keys(%nonemptydirs)); |
| |
if ($possdirs > 1) { |
| |
my @order = sort { lc($a) cmp lc($b) } (keys(%nonemptydirs)); |
| |
$output = $lt{'dire'}. |
| |
&linked_select_forms($form,'<br />'. |
| |
$lt{'fnam'},'', |
| |
$firstselectname,$secondselectname, |
| |
\%selimport_menus,\@order, |
| |
$onchangefirst,'',$suffix).'<br />'; |
| |
} elsif ($possdirs == 1) { |
| |
$singledir = (keys(%nonemptydirs))[0]; |
| |
if (ref($selimport_menus{$singledir}->{'order'}) eq 'ARRAY') { |
| |
@singledirfiles = @{$selimport_menus{$singledir}->{'order'}}; |
| |
} |
| |
delete($selimport_menus{$singledir}); |
| |
} |
| |
} elsif ($numdirs == 1) { |
| |
$singledir = (keys(%files))[0]; |
| |
foreach my $file (sort { lc($a) cmp lc($b) } (keys(%{$files{$singledir}}))) { |
| |
if ($only) { |
| |
my ($ext) = ($file =~ /\.([^.]+)$/); |
| |
unless ($possexts{lc($ext)}) { |
| |
next; |
| |
} |
| |
} |
| |
push(@singledirfiles,$file); |
| |
} |
| |
if (@singledirfiles) { |
| |
$possdirs == 1; |
| |
} |
| |
} |
| |
if (($possdirs == 1) && (@singledirfiles)) { |
| |
my $showdir = $singledir; |
| |
if ($singledir eq '') { |
| |
$showdir = '/'; |
| |
} |
| |
$output = $lt{'dire'}. |
| |
'<select name="'.$firstselectname.'">'. |
| |
'<option value="'.$singledir.'">'.$showdir.'</option>'."\n". |
| |
'</select><br />'. |
| |
$lt{'fnam'}.'<select name="'.$secondselectname.'">'."\n". |
| |
'<option value="" selected="selected">'.$lt{'se'}.'</option>'."\n"; |
| |
foreach my $file (@singledirfiles) { |
| |
$output .= '<option value="'.$file.'">'.$file.'</option>'."\n"; |
| |
} |
| |
$output .= '</select><br />'."\n"; |
| |
} |
| |
return ($possdirs,$output); |
| |
} |
| |
|
| =pod |
=pod |
| |
|
| =head1 Excel and CSV file utility routines |
=head1 Excel and CSV file utility routines |
|
Line 2260 sub multiple_select_form {
|
Line 2548 sub multiple_select_form {
|
| |
|
| =pod |
=pod |
| |
|
| =item * &select_form($defdom,$name,$hashref,$onchange) |
=item * &select_form($defdom,$name,$hashref,$onchange,$readonly) |
| |
|
| Returns a string containing a <select name='$name' size='1'> form to |
Returns a string containing a <select name='$name' size='1'> form to |
| allow a user to select options from a ref to a hash containing: |
allow a user to select options from a ref to a hash containing: |
| option_name => displayed text. An optional $onchange can include |
option_name => displayed text. An optional $onchange can include |
| a javascript onchange item, e.g., onchange="this.form.submit();" |
a javascript onchange item, e.g., onchange="this.form.submit();". |
| |
An optional arg -- $readonly -- if true will cause the select form |
| |
to be disabled, e.g., for the case where an instructor has a section- |
| |
specific role, and is viewing/modifying parameters. |
| |
|
| See lonrights.pm for an example invocation and use. |
See lonrights.pm for an example invocation and use. |
| |
|
|
Line 2451 sub select_level_form {
|
Line 2742 sub select_level_form {
|
| |
|
| =pod |
=pod |
| |
|
| =item * &select_dom_form($defdom,$name,$includeempty,$showdomdesc,$onchange,$incdoms,$excdoms) |
=item * &select_dom_form($defdom,$name,$includeempty,$showdomdesc,$onchange,$incdoms,$excdoms,$disabled) |
| |
|
| Returns a string containing a <select name='$name' size='1'> form to |
Returns a string containing a <select name='$name' size='1'> form to |
| allow a user to select the domain to preform an operation in. |
allow a user to select the domain to preform an operation in. |
|
Line 2468 The optional $incdoms is a reference to
|
Line 2759 The optional $incdoms is a reference to
|
| |
|
| The optional $excdoms is a reference to an array of domains which will be excluded from the available options. |
The optional $excdoms is a reference to an array of domains which will be excluded from the available options. |
| |
|
| |
The optional $disabled argument, if true, adds the disabled attribute to the select tag. |
| |
|
| =cut |
=cut |
| |
|
| #------------------------------------------- |
#------------------------------------------- |
| sub select_dom_form { |
sub select_dom_form { |
| my ($defdom,$name,$includeempty,$showdomdesc,$onchange,$incdoms,$excdoms) = @_; |
my ($defdom,$name,$includeempty,$showdomdesc,$onchange,$incdoms,$excdoms,$disabled) = @_; |
| if ($onchange) { |
if ($onchange) { |
| $onchange = ' onchange="'.$onchange.'"'; |
$onchange = ' onchange="'.$onchange.'"'; |
| } |
} |
| |
if ($disabled) { |
| |
$disabled = ' disabled="disabled"'; |
| |
} |
| my (@domains,%exclude); |
my (@domains,%exclude); |
| if (ref($incdoms) eq 'ARRAY') { |
if (ref($incdoms) eq 'ARRAY') { |
| @domains = sort {lc($a) cmp lc($b)} (@{$incdoms}); |
@domains = sort {lc($a) cmp lc($b)} (@{$incdoms}); |
|
Line 2486 sub select_dom_form {
|
Line 2782 sub select_dom_form {
|
| if (ref($excdoms) eq 'ARRAY') { |
if (ref($excdoms) eq 'ARRAY') { |
| map { $exclude{$_} = 1; } @{$excdoms}; |
map { $exclude{$_} = 1; } @{$excdoms}; |
| } |
} |
| my $selectdomain = "<select name=\"$name\" size=\"1\"$onchange>\n"; |
my $selectdomain = "<select name=\"$name\" size=\"1\"$onchange$disabled>\n"; |
| foreach my $dom (@domains) { |
foreach my $dom (@domains) { |
| next if ($exclude{$dom}); |
next if ($exclude{$dom}); |
| $selectdomain.="<option value=\"$dom\" ". |
$selectdomain.="<option value=\"$dom\" ". |
|
Line 2862 sub authform_kerberos {
|
Line 3158 sub authform_kerberos {
|
| @_, |
@_, |
| ); |
); |
| my ($check4,$check5,$krbcheck,$krbarg,$krbver,$result,$authtype, |
my ($check4,$check5,$krbcheck,$krbarg,$krbver,$result,$authtype, |
| $autharg,$jscall); |
$autharg,$jscall,$disabled); |
| my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'}); |
my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'}); |
| if ($in{'kerb_def_auth'} eq 'krb5') { |
if ($in{'kerb_def_auth'} eq 'krb5') { |
| $check5 = ' checked="checked"'; |
$check5 = ' checked="checked"'; |
| } else { |
} else { |
| $check4 = ' checked="checked"'; |
$check4 = ' checked="checked"'; |
| } |
} |
| |
if ($in{'readonly'}) { |
| |
$disabled = ' disabled="disabled"'; |
| |
} |
| $krbarg = $in{'kerb_def_dom'}; |
$krbarg = $in{'kerb_def_dom'}; |
| if (defined($in{'curr_authtype'})) { |
if (defined($in{'curr_authtype'})) { |
| if ($in{'curr_authtype'} eq 'krb') { |
if ($in{'curr_authtype'} eq 'krb') { |
|
Line 2913 sub authform_kerberos {
|
Line 3212 sub authform_kerberos {
|
| if (defined($in{'mode'})) { |
if (defined($in{'mode'})) { |
| if ($in{'mode'} eq 'modifycourse') { |
if ($in{'mode'} eq 'modifycourse') { |
| if ($authnum == 1) { |
if ($authnum == 1) { |
| $authtype = '<input type="radio" name="login" value="krb" />'; |
$authtype = '<input type="radio" name="login" value="krb"'.$disabled.' />'; |
| } |
} |
| } |
} |
| } |
} |
|
Line 2922 sub authform_kerberos {
|
Line 3221 sub authform_kerberos {
|
| if ($authtype eq '') { |
if ($authtype eq '') { |
| $authtype = '<input type="radio" name="login" value="krb" '. |
$authtype = '<input type="radio" name="login" value="krb" '. |
| 'onclick="'.$jscall.'" onchange="'.$jscall.'"'. |
'onclick="'.$jscall.'" onchange="'.$jscall.'"'. |
| $krbcheck.' />'; |
$krbcheck.$disabled.' />'; |
| } |
} |
| if (($can_assign{'krb4'} && $can_assign{'krb5'}) || |
if (($can_assign{'krb4'} && $can_assign{'krb5'}) || |
| ($can_assign{'krb4'} && !$can_assign{'krb5'} && |
($can_assign{'krb4'} && !$can_assign{'krb5'} && |
|
Line 2935 sub authform_kerberos {
|
Line 3234 sub authform_kerberos {
|
| '<label>'.$authtype, |
'<label>'.$authtype, |
| '</label><input type="text" size="10" name="krbarg" '. |
'</label><input type="text" size="10" name="krbarg" '. |
| 'value="'.$krbarg.'" '. |
'value="'.$krbarg.'" '. |
| 'onchange="'.$jscall.'" />', |
'onchange="'.$jscall.'"'.$disabled.' />', |
| '<label><input type="radio" name="krbver" value="4" '.$check4.' />', |
'<label><input type="radio" name="krbver" value="4" '.$check4.$disabled.' />', |
| '</label><label><input type="radio" name="krbver" value="5" '.$check5.' />', |
'</label><label><input type="radio" name="krbver" value="5" '.$check5.$disabled.' />', |
| '</label>'); |
'</label>'); |
| } elsif ($can_assign{'krb4'}) { |
} elsif ($can_assign{'krb4'}) { |
| $result .= &mt |
$result .= &mt |
|
Line 2946 sub authform_kerberos {
|
Line 3245 sub authform_kerberos {
|
| '<label>'.$authtype, |
'<label>'.$authtype, |
| '</label><input type="text" size="10" name="krbarg" '. |
'</label><input type="text" size="10" name="krbarg" '. |
| 'value="'.$krbarg.'" '. |
'value="'.$krbarg.'" '. |
| 'onchange="'.$jscall.'" />', |
'onchange="'.$jscall.'"'.$disabled.' />', |
| '<label><input type="hidden" name="krbver" value="4" />', |
'<label><input type="hidden" name="krbver" value="4" />', |
| '</label>'); |
'</label>'); |
| } elsif ($can_assign{'krb5'}) { |
} elsif ($can_assign{'krb5'}) { |
|
Line 2956 sub authform_kerberos {
|
Line 3255 sub authform_kerberos {
|
| '<label>'.$authtype, |
'<label>'.$authtype, |
| '</label><input type="text" size="10" name="krbarg" '. |
'</label><input type="text" size="10" name="krbarg" '. |
| 'value="'.$krbarg.'" '. |
'value="'.$krbarg.'" '. |
| 'onchange="'.$jscall.'" />', |
'onchange="'.$jscall.'"'.$disabled.' />', |
| '<label><input type="hidden" name="krbver" value="5" />', |
'<label><input type="hidden" name="krbver" value="5" />', |
| '</label>'); |
'</label>'); |
| } |
} |
|
Line 2969 sub authform_internal {
|
Line 3268 sub authform_internal {
|
| kerb_def_dom => 'MSU.EDU', |
kerb_def_dom => 'MSU.EDU', |
| @_, |
@_, |
| ); |
); |
| my ($intcheck,$intarg,$result,$authtype,$autharg,$jscall); |
my ($intcheck,$intarg,$result,$authtype,$autharg,$jscall,$disabled); |
| my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'}); |
my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'}); |
| |
if ($in{'readonly'}) { |
| |
$disabled = ' disabled="disabled"'; |
| |
} |
| if (defined($in{'curr_authtype'})) { |
if (defined($in{'curr_authtype'})) { |
| if ($in{'curr_authtype'} eq 'int') { |
if ($in{'curr_authtype'} eq 'int') { |
| if ($can_assign{'int'}) { |
if ($can_assign{'int'}) { |
|
Line 2999 sub authform_internal {
|
Line 3301 sub authform_internal {
|
| if (defined($in{'mode'})) { |
if (defined($in{'mode'})) { |
| if ($in{'mode'} eq 'modifycourse') { |
if ($in{'mode'} eq 'modifycourse') { |
| if ($authnum == 1) { |
if ($authnum == 1) { |
| $authtype = '<input type="radio" name="login" value="int" />'; |
$authtype = '<input type="radio" name="login" value="int"'.$disabled.' />'; |
| } |
} |
| } |
} |
| } |
} |
|
Line 3007 sub authform_internal {
|
Line 3309 sub authform_internal {
|
| $jscall = "javascript:changed_radio('int',$in{'formname'});"; |
$jscall = "javascript:changed_radio('int',$in{'formname'});"; |
| if ($authtype eq '') { |
if ($authtype eq '') { |
| $authtype = '<input type="radio" name="login" value="int" '.$intcheck. |
$authtype = '<input type="radio" name="login" value="int" '.$intcheck. |
| ' onchange="'.$jscall.'" onclick="'.$jscall.'" />'; |
' onchange="'.$jscall.'" onclick="'.$jscall.'"'.$disabled.' />'; |
| } |
} |
| $autharg = '<input type="password" size="10" name="intarg" value="'. |
$autharg = '<input type="password" size="10" name="intarg" value="'. |
| $intarg.'" onchange="'.$jscall.'" />'; |
$intarg.'" onchange="'.$jscall.'"'.$disabled.' />'; |
| $result = &mt |
$result = &mt |
| ('[_1] Internally authenticated (with initial password [_2])', |
('[_1] Internally authenticated (with initial password [_2])', |
| '<label>'.$authtype,'</label>'.$autharg); |
'<label>'.$authtype,'</label>'.$autharg); |
| $result.="<label><input type=\"checkbox\" name=\"visible\" onclick='if (this.checked) { this.form.intarg.type=\"text\" } else { this.form.intarg.type=\"password\" }' />".&mt('Visible input').'</label>'; |
$result.='<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.intarg.type='."'text'".' } else { this.form.intarg.type='."'password'".' }"'.$disabled.' />'.&mt('Visible input').'</label>'; |
| return $result; |
return $result; |
| } |
} |
| |
|
|
Line 3024 sub authform_local {
|
Line 3326 sub authform_local {
|
| kerb_def_dom => 'MSU.EDU', |
kerb_def_dom => 'MSU.EDU', |
| @_, |
@_, |
| ); |
); |
| my ($loccheck,$locarg,$result,$authtype,$autharg,$jscall); |
my ($loccheck,$locarg,$result,$authtype,$autharg,$jscall,$disabled); |
| my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'}); |
my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'}); |
| |
if ($in{'readonly'}) { |
| |
$disabled = ' disabled="disabled"'; |
| |
} |
| if (defined($in{'curr_authtype'})) { |
if (defined($in{'curr_authtype'})) { |
| if ($in{'curr_authtype'} eq 'loc') { |
if ($in{'curr_authtype'} eq 'loc') { |
| if ($can_assign{'loc'}) { |
if ($can_assign{'loc'}) { |
|
Line 3054 sub authform_local {
|
Line 3359 sub authform_local {
|
| if (defined($in{'mode'})) { |
if (defined($in{'mode'})) { |
| if ($in{'mode'} eq 'modifycourse') { |
if ($in{'mode'} eq 'modifycourse') { |
| if ($authnum == 1) { |
if ($authnum == 1) { |
| $authtype = '<input type="radio" name="login" value="loc" />'; |
$authtype = '<input type="radio" name="login" value="loc"'.$disabled.' />'; |
| } |
} |
| } |
} |
| } |
} |
|
Line 3063 sub authform_local {
|
Line 3368 sub authform_local {
|
| if ($authtype eq '') { |
if ($authtype eq '') { |
| $authtype = '<input type="radio" name="login" value="loc" '. |
$authtype = '<input type="radio" name="login" value="loc" '. |
| $loccheck.' onchange="'.$jscall.'" onclick="'. |
$loccheck.' onchange="'.$jscall.'" onclick="'. |
| $jscall.'" />'; |
$jscall.'"'.$disabled.' />'; |
| } |
} |
| $autharg = '<input type="text" size="10" name="locarg" value="'. |
$autharg = '<input type="text" size="10" name="locarg" value="'. |
| $locarg.'" onchange="'.$jscall.'" />'; |
$locarg.'" onchange="'.$jscall.'"'.$disabled.' />'; |
| $result = &mt('[_1] Local Authentication with argument [_2]', |
$result = &mt('[_1] Local Authentication with argument [_2]', |
| '<label>'.$authtype,'</label>'.$autharg); |
'<label>'.$authtype,'</label>'.$autharg); |
| return $result; |
return $result; |
|
Line 3078 sub authform_filesystem {
|
Line 3383 sub authform_filesystem {
|
| kerb_def_dom => 'MSU.EDU', |
kerb_def_dom => 'MSU.EDU', |
| @_, |
@_, |
| ); |
); |
| my ($fsyscheck,$result,$authtype,$autharg,$jscall); |
my ($fsyscheck,$result,$authtype,$autharg,$jscall,$disabled); |
| my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'}); |
my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'}); |
| |
if ($in{'readonly'}) { |
| |
$disabled = ' disabled="disabled"'; |
| |
} |
| if (defined($in{'curr_authtype'})) { |
if (defined($in{'curr_authtype'})) { |
| if ($in{'curr_authtype'} eq 'fsys') { |
if ($in{'curr_authtype'} eq 'fsys') { |
| if ($can_assign{'fsys'}) { |
if ($can_assign{'fsys'}) { |
|
Line 3092 sub authform_filesystem {
|
Line 3400 sub authform_filesystem {
|
| } else { |
} else { |
| $result = &mt('Currently Filesystem Authenticated.'); |
$result = &mt('Currently Filesystem Authenticated.'); |
| return $result; |
return $result; |
| } |
} |
| } |
} |
| } else { |
} else { |
| if ($authnum == 1) { |
if ($authnum == 1) { |
|
Line 3105 sub authform_filesystem {
|
Line 3413 sub authform_filesystem {
|
| if (defined($in{'mode'})) { |
if (defined($in{'mode'})) { |
| if ($in{'mode'} eq 'modifycourse') { |
if ($in{'mode'} eq 'modifycourse') { |
| if ($authnum == 1) { |
if ($authnum == 1) { |
| $authtype = '<input type="radio" name="login" value="fsys" />'; |
$authtype = '<input type="radio" name="login" value="fsys"'.$disabled.' />'; |
| } |
} |
| } |
} |
| } |
} |
|
Line 3114 sub authform_filesystem {
|
Line 3422 sub authform_filesystem {
|
| if ($authtype eq '') { |
if ($authtype eq '') { |
| $authtype = '<input type="radio" name="login" value="fsys" '. |
$authtype = '<input type="radio" name="login" value="fsys" '. |
| $fsyscheck.' onchange="'.$jscall.'" onclick="'. |
$fsyscheck.' onchange="'.$jscall.'" onclick="'. |
| $jscall.'" />'; |
$jscall.'"'.$disabled.' />'; |
| } |
} |
| $autharg = '<input type="text" size="10" name="fsysarg" value=""'. |
$autharg = '<input type="text" size="10" name="fsysarg" value=""'. |
| ' onchange="'.$jscall.'" />'; |
' onchange="'.$jscall.'"'.$disabled.' />'; |
| $result = &mt |
$result = &mt |
| ('[_1] Filesystem Authenticated (with initial password [_2])', |
('[_1] Filesystem Authenticated (with initial password [_2])', |
| '<label><input type="radio" name="login" value="fsys" '. |
'<label><input type="radio" name="login" value="fsys" '. |
| $fsyscheck.'onchange="'.$jscall.'" onclick="'.$jscall.'" />', |
$fsyscheck.'onchange="'.$jscall.'" onclick="'.$jscall.'"'.$disabled.' />', |
| '</label><input type="password" size="10" name="fsysarg" value="" '. |
'</label><input type="password" size="10" name="fsysarg" value="" '. |
| 'onchange="'.$jscall.'" />'); |
'onchange="'.$jscall.'"'.$disabled.' />'); |
| return $result; |
return $result; |
| } |
} |
| |
|
|
Line 3145 sub get_assignable_auth {
|
Line 3453 sub get_assignable_auth {
|
| my $context; |
my $context; |
| if ($env{'request.role'} =~ /^au/) { |
if ($env{'request.role'} =~ /^au/) { |
| $context = 'author'; |
$context = 'author'; |
| } elsif ($env{'request.role'} =~ /^dc/) { |
} elsif ($env{'request.role'} =~ /^(dc|dh)/) { |
| $context = 'domain'; |
$context = 'domain'; |
| } elsif ($env{'request.course.id'}) { |
} elsif ($env{'request.course.id'}) { |
| $context = 'course'; |
$context = 'course'; |
|
Line 3866 category
|
Line 4174 category
|
| |
|
| sub filecategorytypes { |
sub filecategorytypes { |
| my ($cat) = @_; |
my ($cat) = @_; |
| return @{$category_extensions{lc($cat)}}; |
if (ref($category_extensions{lc($cat)}) eq 'ARRAY') { |
| |
return @{$category_extensions{lc($cat)}}; |
| |
} else { |
| |
return (); |
| |
} |
| } |
} |
| |
|
| =pod |
=pod |
|
Line 5014 sub check_ip_acc {
|
Line 5326 sub check_ip_acc {
|
| return 1; |
return 1; |
| } |
} |
| my $allowed; |
my $allowed; |
| my $ip=$env{'request.host'} || $ENV{'REMOTE_ADDR'} || $clientip; |
my $ip=$ENV{'REMOTE_ADDR'} || $clientip || $env{'request.host'}; |
| |
|
| my $name; |
my $name; |
| my %access = ( |
my %access = ( |
|
Line 5418 sub CSTR_pageheader {
|
Line 5730 sub CSTR_pageheader {
|
| $lastitem = $thisdisfn; |
$lastitem = $thisdisfn; |
| } |
} |
| |
|
| |
my ($crsauthor,$title); |
| |
if (($env{'request.course.id'}) && |
| |
($env{'course.'.$env{'request.course.id'}.'.num'} eq $uname) && |
| |
($env{'course.'.$env{'request.course.id'}.'.domain'} eq $udom)) { |
| |
$crsauthor = 1; |
| |
$title = &mt('Course Authoring Space'); |
| |
} else { |
| |
$title = &mt('Authoring Space'); |
| |
} |
| |
|
| my $output = |
my $output = |
| '<div>' |
'<div>' |
| .&Apache::loncommon::help_open_menu('','',3,'Authoring') #FIXME: Broken? Where is it? |
.&Apache::loncommon::help_open_menu('','',3,'Authoring') #FIXME: Broken? Where is it? |
| .'<b>'.&mt('Authoring Space:').'</b> ' |
.'<b>'.$title.'</b> ' |
| .'<form name="dirs" method="post" action="'.$formaction |
.'<form name="dirs" method="post" action="'.$formaction |
| .'" target="_top">' #FIXME lonpubdir: target="_parent" |
.'" target="_top">' #FIXME lonpubdir: target="_parent" |
| .&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv/'.$udom,undef,undef); |
.&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv/'.$udom,undef,undef); |
|
Line 5432 sub CSTR_pageheader {
|
Line 5754 sub CSTR_pageheader {
|
| .$lastitem |
.$lastitem |
| .'</span>'; |
.'</span>'; |
| } |
} |
| $output .= |
|
| '<br />' |
if ($crsauthor) { |
| #FIXME lonpubdir: &Apache::lonhtmlcommon::crumbs($uname.$thisdisfn.'/','_top','/priv','','+1',1)."</b></tt><br />" |
$output .= '</form>'.&Apache::lonmenu::constspaceform(); |
| .&Apache::lonhtmlcommon::select_recent('construct','recent','this.form.action=this.form.recent.value;this.form.submit()') |
} else { |
| .'</form>' |
$output .= |
| .&Apache::lonmenu::constspaceform() |
'<br />' |
| .'</div>'; |
#FIXME lonpubdir: &Apache::lonhtmlcommon::crumbs($uname.$thisdisfn.'/','_top','/priv','','+1',1)."</b></tt><br />" |
| |
.&Apache::lonhtmlcommon::select_recent('construct','recent','this.form.action=this.form.recent.value;this.form.submit()') |
| |
.'</form>' |
| |
.&Apache::lonmenu::constspaceform(); |
| |
} |
| |
$output .= '</div>'; |
| |
|
| return $output; |
return $output; |
| } |
} |
|
Line 5534 sub bodytag {
|
Line 5861 sub bodytag {
|
| if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
| if ($env{'request.role'} !~ /^cr/) { |
if ($env{'request.role'} !~ /^cr/) { |
| $role = &Apache::lonnet::plaintext($role,&course_type()); |
$role = &Apache::lonnet::plaintext($role,&course_type()); |
| |
} elsif ($role =~ m{^cr/($match_domain)/\1-domainconfig/(\w+)$}) { |
| |
if ($env{'request.role.desc'}) { |
| |
$role = $env{'request.role.desc'}; |
| |
} else { |
| |
$role = &mt('Helpdesk[_1]',' '.$2); |
| |
} |
| |
} else { |
| |
$role = (split(/\//,$role,4))[-1]; |
| } |
} |
| if ($env{'request.course.sec'}) { |
if ($env{'request.course.sec'}) { |
| $role .= (' 'x2).'- '.&mt('section:').' '.$env{'request.course.sec'}; |
$role .= (' 'x2).'- '.&mt('section:').' '.$env{'request.course.sec'}; |
|
Line 5582 sub bodytag {
|
Line 5917 sub bodytag {
|
| if (($crstype eq 'Placement') && (!$env{'request.role.adv'})) { |
if (($crstype eq 'Placement') && (!$env{'request.role.adv'})) { |
| undef($role); |
undef($role); |
| } else { |
} else { |
| $role = '<span class="LC_nobreak">('.$role.')</span>' if $role; |
$role = '<span class="LC_nobreak">('.$role.')</span>' if ($role && !$env{'browser.mobile'}); |
| } |
} |
| |
|
| if ($env{'request.state'} eq 'construct') { $forcereg=1; } |
if ($env{'request.state'} eq 'construct') { $forcereg=1; } |
|
Line 5630 sub bodytag {
|
Line 5965 sub bodytag {
|
| $args->{'bread_crumbs'}); |
$args->{'bread_crumbs'}); |
| } elsif ($forcereg) { |
} elsif ($forcereg) { |
| $bodytag .= &Apache::lonmenu::innerregister($forcereg,undef, |
$bodytag .= &Apache::lonmenu::innerregister($forcereg,undef, |
| $args->{'group'}); |
$args->{'group'}, |
| |
$args->{'hide_buttons'}); |
| } else { |
} else { |
| $bodytag .= |
$bodytag .= |
| &Apache::lonmenu::prepare_functions($env{'request.noversionuri'}, |
&Apache::lonmenu::prepare_functions($env{'request.noversionuri'}, |
|
Line 5886 div.LC_confirm_box .LC_success img {
|
Line 6222 div.LC_confirm_box .LC_success img {
|
| vertical-align: middle; |
vertical-align: middle; |
| } |
} |
| |
|
| |
.LC_maxwidth { |
| |
max-width: 100%; |
| |
height: auto; |
| |
} |
| |
|
| |
.LC_textsize_mobile { |
| |
\@media only screen and (max-device-width: 480px) { |
| |
-webkit-text-size-adjust:100%; -moz-text-size-adjust:100%; -ms-text-size-adjust:100%; |
| |
} |
| |
} |
| |
|
| .LC_icon { |
.LC_icon { |
| border: none; |
border: none; |
| vertical-align: middle; |
vertical-align: middle; |
|
Line 5991 ul.LC_breadcrumb_tools_outerlist li {
|
Line 6338 ul.LC_breadcrumb_tools_outerlist li {
|
| float: right; |
float: right; |
| } |
} |
| |
|
| |
.LC_placement_prog { |
| |
padding-right: 20px; |
| |
font-weight: bold; |
| |
font-size: 90%; |
| |
} |
| |
|
| table#LC_title_bar td { |
table#LC_title_bar td { |
| background: $tabbg; |
background: $tabbg; |
| } |
} |
|
Line 6007 table#LC_menubuttons img {
|
Line 6360 table#LC_menubuttons img {
|
| vertical-align: middle; |
vertical-align: middle; |
| } |
} |
| |
|
| |
.LC_breadcrumbs_hoverable { |
| |
background: $sidebg; |
| |
} |
| |
|
| td.LC_table_cell_checkbox { |
td.LC_table_cell_checkbox { |
| text-align: center; |
text-align: center; |
| } |
} |
|
Line 7769 section.role-warning>h1:before {
|
Line 8126 section.role-warning>h1:before {
|
| content:url('/adm/daxe/images/section_icons/warning.png'); |
content:url('/adm/daxe/images/section_icons/warning.png'); |
| } |
} |
| |
|
| |
#LC_minitab_header { |
| |
float:left; |
| |
width:100%; |
| |
background:#DAE0D2 url("/res/adm/pages/minitabmenu_bg.gif") repeat-x bottom; |
| |
font-size:93%; |
| |
line-height:normal; |
| |
margin: 0.5em 0 0.5em 0; |
| |
} |
| |
#LC_minitab_header ul { |
| |
margin:0; |
| |
padding:10px 10px 0; |
| |
list-style:none; |
| |
} |
| |
#LC_minitab_header li { |
| |
float:left; |
| |
background:url("/res/adm/pages/minitabmenu_left.gif") no-repeat left top; |
| |
margin:0; |
| |
padding:0 0 0 9px; |
| |
} |
| |
#LC_minitab_header a { |
| |
display:block; |
| |
background:url("/res/adm/pages/minitabmenu_right.gif") no-repeat right top; |
| |
padding:5px 15px 4px 6px; |
| |
} |
| |
#LC_minitab_header #LC_current_minitab { |
| |
background-image:url("/res/adm/pages/minitabmenu_left_on.gif"); |
| |
} |
| |
#LC_minitab_header #LC_current_minitab a { |
| |
background-image:url("/res/adm/pages/minitabmenu_right_on.gif"); |
| |
padding-bottom:5px; |
| |
} |
| |
|
| |
|
| END |
END |
| } |
} |
| |
|
|
Line 7950 OFFLOAD
|
Line 8340 OFFLOAD
|
| $result .= '>' |
$result .= '>' |
| .$inhibitprint |
.$inhibitprint |
| .$head_extra; |
.$head_extra; |
| if ($env{'browser.mobile'}) { |
my $clientmobile; |
| |
if (($env{'user.name'} eq '') && ($env{'user.domain'} eq '')) { |
| |
(undef,undef,undef,undef,undef,undef,$clientmobile) = &decode_user_agent(); |
| |
} else { |
| |
$clientmobile = $env{'browser.mobile'}; |
| |
} |
| |
if ($clientmobile) { |
| $result .= ' |
$result .= ' |
| <meta name="viewport" content="width=device-width, initial-scale=1.0, user-scalable=0, minimum-scale=1.0, maximum-scale=1.0"> |
<meta name="viewport" content="width=device-width, initial-scale=1.0, user-scalable=0, minimum-scale=1.0, maximum-scale=1.0"> |
| <meta name="apple-mobile-web-app-capable" content="yes" />'; |
<meta name="apple-mobile-web-app-capable" content="yes" />'; |
|
Line 8304 var modalWindow = {
|
Line 8700 var modalWindow = {
|
| }; |
}; |
| var openMyModal = function(source,width,height,scrolling,transparency,style) |
var openMyModal = function(source,width,height,scrolling,transparency,style) |
| { |
{ |
| source = source.replace("'","'"); |
source = source.replace(/'/g,"'"); |
| modalWindow.windowId = "myModal"; |
modalWindow.windowId = "myModal"; |
| modalWindow.width = width; |
modalWindow.width = width; |
| modalWindow.height = height; |
modalWindow.height = height; |
|
Line 9623 sub get_secgrprole_info {
|
Line 10019 sub get_secgrprole_info {
|
| } |
} |
| |
|
| sub user_picker { |
sub user_picker { |
| my ($dom,$srch,$forcenewuser,$caller,$cancreate,$usertype,$context) = @_; |
my ($dom,$srch,$forcenewuser,$caller,$cancreate,$usertype,$context,$fixeddom) = @_; |
| my $currdom = $dom; |
my $currdom = $dom; |
| |
my @alldoms = &Apache::lonnet::all_domains(); |
| |
if (@alldoms == 1) { |
| |
my %domsrch = &Apache::lonnet::get_dom('configuration', |
| |
['directorysrch'],$alldoms[0]); |
| |
my $domdesc = &Apache::lonnet::domain($alldoms[0],'description'); |
| |
my $showdom = $domdesc; |
| |
if ($showdom eq '') { |
| |
$showdom = $dom; |
| |
} |
| |
if (ref($domsrch{'directorysrch'}) eq 'HASH') { |
| |
if ((!$domsrch{'directorysrch'}{'available'}) && |
| |
($domsrch{'directorysrch'}{'lcavailable'} eq '0')) { |
| |
return (&mt('LON-CAPA directory search is not available in domain: [_1]',$showdom),0); |
| |
} |
| |
} |
| |
} |
| my %curr_selected = ( |
my %curr_selected = ( |
| srchin => 'dom', |
srchin => 'dom', |
| srchby => 'lastname', |
srchby => 'lastname', |
|
Line 9671 sub user_picker {
|
Line 10083 sub user_picker {
|
| ); |
); |
| &html_escape(\%html_lt); |
&html_escape(\%html_lt); |
| &js_escape(\%js_lt); |
&js_escape(\%js_lt); |
| my $domform = &select_dom_form($currdom,'srchdomain',1,1); |
my $domform; |
| |
if ($fixeddom) { |
| |
$domform = &select_dom_form($currdom,'srchdomain',1,1,undef,[$currdom]); |
| |
} else { |
| |
$domform = &select_dom_form($currdom,'srchdomain',1,1); |
| |
} |
| my $srchinsel = ' <select name="srchin">'; |
my $srchinsel = ' <select name="srchin">'; |
| |
|
| my @srchins = ('crs','dom','alc','instd'); |
my @srchins = ('crs','dom','alc','instd'); |
|
Line 9865 END_BLOCK
|
Line 10282 END_BLOCK
|
| &Apache::lonhtmlcommon::row_closure(1). |
&Apache::lonhtmlcommon::row_closure(1). |
| &Apache::lonhtmlcommon::end_pick_box(). |
&Apache::lonhtmlcommon::end_pick_box(). |
| '<br />'; |
'<br />'; |
| return $output; |
return ($output,1); |
| } |
} |
| |
|
| sub user_rule_check { |
sub user_rule_check { |
|
Line 10180 sub get_institutional_codes {
|
Line 10597 sub get_institutional_codes {
|
| foreach (@currxlists) { |
foreach (@currxlists) { |
| if (m/^([^:]+):(\w*)$/) { |
if (m/^([^:]+):(\w*)$/) { |
| unless (grep/^$1$/,@{$allcourses}) { |
unless (grep/^$1$/,@{$allcourses}) { |
| push @{$allcourses},$1; |
push(@{$allcourses},$1); |
| $$LC_code{$1} = $2; |
$$LC_code{$1} = $2; |
| } |
} |
| } |
} |
|
Line 10193 sub get_institutional_codes {
|
Line 10610 sub get_institutional_codes {
|
| my $sec = $coursecode.$1; |
my $sec = $coursecode.$1; |
| my $lc_sec = $2; |
my $lc_sec = $2; |
| unless (grep/^$sec$/,@{$allcourses}) { |
unless (grep/^$sec$/,@{$allcourses}) { |
| push @{$allcourses},$sec; |
push(@{$allcourses},$sec); |
| $$LC_code{$sec} = $lc_sec; |
$$LC_code{$sec} = $lc_sec; |
| } |
} |
| } |
} |
|
Line 10291 reservable_now - ref to hash of student_
|
Line 10708 reservable_now - ref to hash of student_
|
| |
|
| Keys in inner hash are: |
Keys in inner hash are: |
| (a) symb: either blank or symb to which slot use is restricted. |
(a) symb: either blank or symb to which slot use is restricted. |
| (b) endreserve: end date of reservation period. |
(b) endreserve: end date of reservation period. |
| |
(c) uniqueperiod: start,end dates when slot is to be uniquely |
| |
selected. |
| |
|
| sorted_future - ref to array of student_schedulable slots reservable in |
sorted_future - ref to array of student_schedulable slots reservable in |
| the future, ordered by start date of reservation period. |
the future, ordered by start date of reservation period. |
|
Line 10301 future_reservable - ref to hash of stude
|
Line 10720 future_reservable - ref to hash of stude
|
| |
|
| Keys in inner hash are: |
Keys in inner hash are: |
| (a) symb: either blank or symb to which slot use is restricted. |
(a) symb: either blank or symb to which slot use is restricted. |
| (b) startreserve: start date of reservation period. |
(b) startreserve: start date of reservation period. |
| |
(c) uniqueperiod: start,end dates when slot is to be uniquely |
| |
selected. |
| |
|
| =back |
=back |
| |
|
|
Line 10377 sub get_future_slots {
|
Line 10798 sub get_future_slots {
|
| my $startreserve = $slots{$slot}->{'startreserve'}; |
my $startreserve = $slots{$slot}->{'startreserve'}; |
| my $endreserve = $slots{$slot}->{'endreserve'}; |
my $endreserve = $slots{$slot}->{'endreserve'}; |
| my $symb = $slots{$slot}->{'symb'}; |
my $symb = $slots{$slot}->{'symb'}; |
| |
my $uniqueperiod; |
| |
if (ref($slots{$slot}->{'uniqueperiod'}) eq 'ARRAY') { |
| |
$uniqueperiod = join(',',@{$slots{$slot}->{'uniqueperiod'}}); |
| |
} |
| if (($startreserve < $now) && |
if (($startreserve < $now) && |
| (!$endreserve || $endreserve > $now)) { |
(!$endreserve || $endreserve > $now)) { |
| my $lastres = $endreserve; |
my $lastres = $endreserve; |
|
Line 10385 sub get_future_slots {
|
Line 10810 sub get_future_slots {
|
| } |
} |
| $reservable_now{$slot} = { |
$reservable_now{$slot} = { |
| symb => $symb, |
symb => $symb, |
| endreserve => $lastres |
endreserve => $lastres, |
| |
uniqueperiod => $uniqueperiod, |
| }; |
}; |
| } elsif (($startreserve > $now) && |
} elsif (($startreserve > $now) && |
| (!$endreserve || $endreserve > $startreserve)) { |
(!$endreserve || $endreserve > $startreserve)) { |
| $future_reservable{$slot} = { |
$future_reservable{$slot} = { |
| symb => $symb, |
symb => $symb, |
| startreserve => $startreserve |
startreserve => $startreserve, |
| |
uniqueperiod => $uniqueperiod, |
| }; |
}; |
| } |
} |
| } |
} |
|
Line 10549 sub get_env_multiple {
|
Line 10976 sub get_env_multiple {
|
| return(@values); |
return(@values); |
| } |
} |
| |
|
| |
# Looks at given dependencies, and returns something depending on the context. |
| |
# For coursedocs paste, returns (undef, $counter, $numpathchg, \%existing). |
| |
# For syllabus rewrites, returns (undef, $counter, $numpathchg, \%existing, \%mapping). |
| |
# For all other contexts, returns ($output, $counter, $numpathchg). |
| |
# $output: string with the HTML output. Can contain missing dependencies with an upload form, existing dependencies, and dependencies no longer in use. |
| |
# $counter: integer with the number of existing dependencies when no HTML output is returned, and the number of missing dependencies when an HTML output is returned. |
| |
# $numpathchg: integer with the number of cleaned up dependency paths. |
| |
# \%existing: hash reference clean path -> 1 only for existing dependencies. |
| |
# \%mapping: hash reference clean path -> original path for all dependencies. |
| |
# @param {string} actionurl - The path to the handler, indicative of the context. |
| |
# @param {string} state - Can contain HTML with hidden inputs that will be added to the output form. |
| |
# @param {hash reference} allfiles - List of file info from lonnet::extract_embedded_items |
| |
# @param {hash reference} codebase - undef, not modified by lonnet::extract_embedded_items ? |
| |
# @param {hash reference} args - More parameters ! Possible keys: error_on_invalid_names (boolean), ignore_remote_references (boolean), current_path (string), docs_url (string), docs_title (string), context (string) |
| |
# @return {Array} - array depending on the context (not a reference) |
| sub ask_for_embedded_content { |
sub ask_for_embedded_content { |
| |
# NOTE: documentation was added afterwards, it could be wrong |
| my ($actionurl,$state,$allfiles,$codebase,$args)=@_; |
my ($actionurl,$state,$allfiles,$codebase,$args)=@_; |
| my (%subdependencies,%dependencies,%mapping,%existing,%newfiles,%pathchanges, |
my (%subdependencies,%dependencies,%mapping,%existing,%newfiles,%pathchanges, |
| %currsubfile,%unused,$rem); |
%currsubfile,%unused,$rem); |
|
Line 10565 sub ask_for_embedded_content {
|
Line 11008 sub ask_for_embedded_content {
|
| my $heading = &mt('Upload embedded files'); |
my $heading = &mt('Upload embedded files'); |
| my $buttontext = &mt('Upload'); |
my $buttontext = &mt('Upload'); |
| |
|
| |
# fills these variables based on the context: |
| |
# $navmap, $cdom, $cnum, $udom, $uname, $url, $toplevel, $getpropath, |
| |
# $path, $fileloc, $title, $rem, $filename |
| if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
| if ($actionurl eq '/adm/dependencies') { |
if ($actionurl eq '/adm/dependencies') { |
| $navmap = Apache::lonnavmaps::navmap->new(); |
$navmap = Apache::lonnavmaps::navmap->new(); |
|
Line 10649 sub ask_for_embedded_content {
|
Line 11095 sub ask_for_embedded_content {
|
| $fileloc = &Apache::lonnet::filelocation('',$toplevel).'/'; |
$fileloc = &Apache::lonnet::filelocation('',$toplevel).'/'; |
| $fileloc =~ s{^/}{}; |
$fileloc =~ s{^/}{}; |
| } |
} |
| |
|
| |
# parses the dependency paths to get some info |
| |
# fills $newfiles, $mapping, $subdependencies, $dependencies |
| |
# $newfiles: hash URL -> 1 for new files or external URLs |
| |
# (will be completed later) |
| |
# $mapping: |
| |
# for external URLs: external URL -> external URL |
| |
# for relative paths: clean path -> original path |
| |
# $subdependencies: hash clean path -> clean file name -> 1 for relative paths in subdirectories |
| |
# $dependencies: hash clean or not file name -> 1 for relative paths not in subdirectories |
| foreach my $file (keys(%{$allfiles})) { |
foreach my $file (keys(%{$allfiles})) { |
| my $embed_file; |
my $embed_file; |
| if (($path eq "/uploaded/$cdom/$cnum/portfolio/syllabus") && ($file =~ m{^\Q$path/\E(.+)$})) { |
if (($path eq "/uploaded/$cdom/$cnum/portfolio/syllabus") && ($file =~ m{^\Q$path/\E(.+)$})) { |
|
Line 10691 sub ask_for_embedded_content {
|
Line 11147 sub ask_for_embedded_content {
|
| } |
} |
| } |
} |
| } |
} |
| |
|
| |
# looks for all existing files in dependency subdirectories (from $subdependencies filled above) |
| |
# and lists |
| |
# fills $currsubfile, $pathchanges, $existing, $numexisting, $newfiles, $unused |
| |
# $currsubfile: hash clean path -> file name -> 1 for all existing files in the path |
| |
# $pathchanges: hash clean path -> 1 if the file in subdirectory exists and |
| |
# the path had to be cleaned up |
| |
# $existing: hash clean path -> 1 if the file exists |
| |
# $numexisting: number of keys in $existing |
| |
# $newfiles: updated with clean path -> 1 for files in subdirectories that do not exist |
| |
# $unused: only for /adm/dependencies, hash clean path -> 1 for existing files in |
| |
# dependency subdirectories that are |
| |
# not listed as dependencies, with some exceptions using $rem |
| my $dirptr = 16384; |
my $dirptr = 16384; |
| foreach my $path (keys(%subdependencies)) { |
foreach my $path (keys(%subdependencies)) { |
| $currsubfile{$path} = {}; |
$currsubfile{$path} = {}; |
|
Line 10766 sub ask_for_embedded_content {
|
Line 11235 sub ask_for_embedded_content {
|
| } |
} |
| } |
} |
| } |
} |
| |
|
| |
# fills $currfile, hash file name -> 1 or [$size,$mtime] |
| |
# for files in $url or $fileloc (target directory) in some contexts |
| my %currfile; |
my %currfile; |
| if (($actionurl eq '/adm/portfolio') || |
if (($actionurl eq '/adm/portfolio') || |
| ($actionurl eq '/adm/coursegrp_portfolio')) { |
($actionurl eq '/adm/coursegrp_portfolio')) { |
|
Line 10804 sub ask_for_embedded_content {
|
Line 11276 sub ask_for_embedded_content {
|
| } |
} |
| } |
} |
| } |
} |
| |
# updates $pathchanges, $existing, $numexisting, $newfiles and $unused for files that |
| |
# are not in subdirectories, using $currfile |
| foreach my $file (keys(%dependencies)) { |
foreach my $file (keys(%dependencies)) { |
| if (exists($currfile{$file})) { |
if (exists($currfile{$file})) { |
| unless ($mapping{$file} eq $file) { |
unless ($mapping{$file} eq $file) { |
|
Line 10832 sub ask_for_embedded_content {
|
Line 11306 sub ask_for_embedded_content {
|
| $unused{$file} = 1; |
$unused{$file} = 1; |
| } |
} |
| } |
} |
| |
|
| |
# returns some results for coursedocs paste and syllabus rewrites ($output is undef) |
| if (($actionurl eq '/adm/coursedocs') && (ref($args) eq 'HASH') && |
if (($actionurl eq '/adm/coursedocs') && (ref($args) eq 'HASH') && |
| ($args->{'context'} eq 'paste')) { |
($args->{'context'} eq 'paste')) { |
| $counter = scalar(keys(%existing)); |
$counter = scalar(keys(%existing)); |
|
Line 10843 sub ask_for_embedded_content {
|
Line 11319 sub ask_for_embedded_content {
|
| $numpathchg = scalar(keys(%pathchanges)); |
$numpathchg = scalar(keys(%pathchanges)); |
| return ($output,$counter,$numpathchg,\%existing,\%mapping); |
return ($output,$counter,$numpathchg,\%existing,\%mapping); |
| } |
} |
| |
|
| |
# returns HTML otherwise, with dependency results and to ask for more uploads |
| |
|
| |
# $upload_output: missing dependencies (with upload form) |
| |
# $modify_output: uploaded dependencies (in use) |
| |
# $delete_output: files no longer in use (unused files are not listed for londocs, bug?) |
| foreach my $embed_file (sort {lc($a) cmp lc($b)} keys(%newfiles)) { |
foreach my $embed_file (sort {lc($a) cmp lc($b)} keys(%newfiles)) { |
| if ($actionurl eq '/adm/dependencies') { |
if ($actionurl eq '/adm/dependencies') { |
| next if ($embed_file =~ m{^\w+://}); |
next if ($embed_file =~ m{^\w+://}); |
|
Line 13576 sub DrawBarGraph {
|
Line 14058 sub DrawBarGraph {
|
| @Labels = @$labels; |
@Labels = @$labels; |
| } else { |
} else { |
| for (my $i=0;$i<@{$Values[0]};$i++) { |
for (my $i=0;$i<@{$Values[0]};$i++) { |
| push (@Labels,$i+1); |
push(@Labels,$i+1); |
| } |
} |
| } |
} |
| # |
# |
|
Line 14268 sub extract_categories {
|
Line 14750 sub extract_categories {
|
| $trailstr = &mt('Official courses (with institutional codes)'); |
$trailstr = &mt('Official courses (with institutional codes)'); |
| } elsif ($name eq 'communities') { |
} elsif ($name eq 'communities') { |
| $trailstr = &mt('Communities'); |
$trailstr = &mt('Communities'); |
| |
} elsif ($name eq 'placement') { |
| |
$trailstr = &mt('Placement Tests'); |
| } else { |
} else { |
| $trailstr = $name; |
$trailstr = $name; |
| } |
} |
|
Line 14382 currcat - scalar with an & separated lis
|
Line 14866 currcat - scalar with an & separated lis
|
| |
|
| type - scalar contains course type (Course or Community). |
type - scalar contains course type (Course or Community). |
| |
|
| |
disabled - scalar (optional) contains disabled="disabled" if input elements are |
| |
to be readonly (e.g., Domain Helpdesk role viewing course settings). |
| |
|
| Returns: $output (markup to be displayed) |
Returns: $output (markup to be displayed) |
| |
|
| =cut |
=cut |
| |
|
| sub assign_categories_table { |
sub assign_categories_table { |
| my ($cathash,$currcat,$type) = @_; |
my ($cathash,$currcat,$type,$disabled) = @_; |
| my $output; |
my $output; |
| if (ref($cathash) eq 'HASH') { |
if (ref($cathash) eq 'HASH') { |
| my (@cats,@trails,%allitems,%idx,@jsarray,@path,$maxdepth); |
my (@cats,@trails,%allitems,%idx,@jsarray,@path,$maxdepth); |
|
Line 14406 sub assign_categories_table {
|
Line 14893 sub assign_categories_table {
|
| next if ($parent eq 'instcode'); |
next if ($parent eq 'instcode'); |
| if ($type eq 'Community') { |
if ($type eq 'Community') { |
| next unless ($parent eq 'communities'); |
next unless ($parent eq 'communities'); |
| |
} elsif ($type eq 'Placement') { |
| |
next unless ($parent eq 'placement'); |
| } else { |
} else { |
| next if ($parent eq 'communities'); |
next if (($parent eq 'communities') || ($parent eq 'placement')); |
| } |
} |
| my $css_class = $itemcount%2?' class="LC_odd_row"':''; |
my $css_class = $itemcount%2?' class="LC_odd_row"':''; |
| my $item = &escape($parent).'::0'; |
my $item = &escape($parent).'::0'; |
|
Line 14420 sub assign_categories_table {
|
Line 14909 sub assign_categories_table {
|
| my $parent_title = $parent; |
my $parent_title = $parent; |
| if ($parent eq 'communities') { |
if ($parent eq 'communities') { |
| $parent_title = &mt('Communities'); |
$parent_title = &mt('Communities'); |
| |
} elsif ($parent eq 'placement') { |
| |
$parent_title = &mt('Placement Tests'); |
| } |
} |
| $table .= '<tr '.$css_class.'><td><span class="LC_nobreak">'. |
$table .= '<tr '.$css_class.'><td><span class="LC_nobreak">'. |
| '<input type="checkbox" name="usecategory" value="'. |
'<input type="checkbox" name="usecategory" value="'. |
| $item.'"'.$checked.' />'.$parent_title.'</span>'. |
$item.'"'.$checked.$disabled.' />'.$parent_title.'</span>'. |
| '<input type="hidden" name="catname" value="'.$parent.'" /></td>'; |
'<input type="hidden" name="catname" value="'.$parent.'" /></td>'; |
| my $depth = 1; |
my $depth = 1; |
| push(@path,$parent); |
push(@path,$parent); |
| $table .= &assign_category_rows($itemcount,\@cats,$depth,$parent,\@path,\@currcategories); |
$table .= &assign_category_rows($itemcount,\@cats,$depth,$parent,\@path,\@currcategories,$disabled); |
| pop(@path); |
pop(@path); |
| $table .= '</tr><tr><td colspan="'.$maxdepth.'" class="LC_row_separator"></td></tr>'; |
$table .= '</tr><tr><td colspan="'.$maxdepth.'" class="LC_row_separator"></td></tr>'; |
| $itemcount ++; |
$itemcount ++; |
|
Line 14466 path - Array containing all categories b
|
Line 14957 path - Array containing all categories b
|
| |
|
| currcategories - reference to array of current categories assigned to the course |
currcategories - reference to array of current categories assigned to the course |
| |
|
| |
disabled - scalar (optional) contains disabled="disabled" if input elements are |
| |
to be readonly (e.g., Domain Helpdesk role viewing course settings). |
| |
|
| Returns: $output (markup to be displayed). |
Returns: $output (markup to be displayed). |
| |
|
| =cut |
=cut |
| |
|
| sub assign_category_rows { |
sub assign_category_rows { |
| my ($itemcount,$cats,$depth,$parent,$path,$currcategories) = @_; |
my ($itemcount,$cats,$depth,$parent,$path,$currcategories,$disabled) = @_; |
| my ($text,$name,$item,$chgstr); |
my ($text,$name,$item,$chgstr); |
| if (ref($cats) eq 'ARRAY') { |
if (ref($cats) eq 'ARRAY') { |
| my $maxdepth = scalar(@{$cats}); |
my $maxdepth = scalar(@{$cats}); |
|
Line 14494 sub assign_category_rows {
|
Line 14988 sub assign_category_rows {
|
| } |
} |
| $text .= '<tr><td><span class="LC_nobreak"><label>'. |
$text .= '<tr><td><span class="LC_nobreak"><label>'. |
| '<input type="checkbox" name="usecategory" value="'. |
'<input type="checkbox" name="usecategory" value="'. |
| $item.'"'.$checked.' />'.$name.'</label></span>'. |
$item.'"'.$checked.$disabled.' />'.$name.'</label></span>'. |
| '<input type="hidden" name="catname" value="'.$name.'" />'. |
'<input type="hidden" name="catname" value="'.$name.'" />'. |
| '</td><td>'; |
'</td><td>'; |
| if (ref($path) eq 'ARRAY') { |
if (ref($path) eq 'ARRAY') { |
| push(@{$path},$name); |
push(@{$path},$name); |
| $text .= &assign_category_rows($itemcount,$cats,$deeper,$name,$path,$currcategories); |
$text .= &assign_category_rows($itemcount,$cats,$deeper,$name,$path,$currcategories,$disabled); |
| pop(@{$path}); |
pop(@{$path}); |
| } |
} |
| $text .= '</td></tr>'; |
$text .= '</td></tr>'; |
|
Line 14726 sub check_clone {
|
Line 15220 sub check_clone {
|
| my %clonedesc = &Apache::lonnet::coursedescription($cloneid,{'one_time' => 1}); |
my %clonedesc = &Apache::lonnet::coursedescription($cloneid,{'one_time' => 1}); |
| if ($args->{'crstype'} eq 'Community') { |
if ($args->{'crstype'} eq 'Community') { |
| if ($clonedesc{'type'} ne 'Community') { |
if ($clonedesc{'type'} ne 'Community') { |
| $clonemsg = &mt('No new community created.').$linefeed.&mt('A new community could not be cloned from the specified original - [_1] - because it is a course not a community.',$args->{'clonecourse'}.':'.$args->{'clonedomain'}); |
$clonemsg = &mt('No new community created.').$linefeed.&mt('A new community could not be cloned from the specified original - [_1] - because it is a course not a community.',$args->{'clonecourse'}.':'.$args->{'clonedomain'}); |
| return ($can_clone, $clonemsg, $cloneid, $clonehome); |
return ($can_clone, $clonemsg, $cloneid, $clonehome); |
| } |
} |
| } |
} |
| if (($env{'request.role.domain'} eq $args->{'clonedomain'}) && |
if (($env{'request.role.domain'} eq $args->{'clonedomain'}) && |
| (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'}))) { |
(&Apache::lonnet::allowed('ccc',$env{'request.role.domain'}))) { |
| $can_clone = 1; |
$can_clone = 1; |
| } else { |
} else { |
|
Line 14827 sub check_clone {
|
Line 15321 sub check_clone {
|
| } |
} |
| |
|
| sub construct_course { |
sub construct_course { |
| my ($args,$logmsg,$courseid,$crsudom,$crsunum,$udom,$uname,$context,$cnum,$category,$coderef) = @_; |
my ($args,$logmsg,$courseid,$crsudom,$crsunum,$udom,$uname,$context, |
| |
$cnum,$category,$coderef) = @_; |
| my $outcome; |
my $outcome; |
| my $linefeed = '<br />'."\n"; |
my $linefeed = '<br />'."\n"; |
| if ($context eq 'auto') { |
if ($context eq 'auto') { |
|
Line 14855 sub construct_course {
|
Line 15350 sub construct_course {
|
| # |
# |
| # Open course |
# Open course |
| # |
# |
| my $crstype = lc($args->{'crstype'}); |
my $showncrstype; |
| |
if ($args->{'crstype'} eq 'Placement') { |
| |
$showncrstype = 'placement test'; |
| |
} else { |
| |
$showncrstype = lc($args->{'crstype'}); |
| |
} |
| my %cenv=(); |
my %cenv=(); |
| $$courseid=&Apache::lonnet::createcourse($args->{'course_domain'}, |
$$courseid=&Apache::lonnet::createcourse($args->{'course_domain'}, |
| $args->{'cdescr'}, |
$args->{'cdescr'}, |
|
Line 14872 sub construct_course {
|
Line 15372 sub construct_course {
|
| # Utils::Course. This needs to at least be output as a comment |
# Utils::Course. This needs to at least be output as a comment |
| # if anyone ever decides to not show this, and Utils::Course::new |
# if anyone ever decides to not show this, and Utils::Course::new |
| # will need to be suitably modified. |
# will need to be suitably modified. |
| $outcome .= &mt('New LON-CAPA [_1] ID: [_2]',$crstype,$$courseid).$linefeed; |
$outcome .= &mt('New LON-CAPA [_1] ID: [_2]',$showncrstype,$$courseid).$linefeed; |
| if ($$courseid =~ /^error:/) { |
if ($$courseid =~ /^error:/) { |
| return (0,$outcome); |
return (0,$outcome); |
| } |
} |
|
Line 14892 sub construct_course {
|
Line 15392 sub construct_course {
|
| # Do the cloning |
# Do the cloning |
| # |
# |
| if ($can_clone && $cloneid) { |
if ($can_clone && $cloneid) { |
| $clonemsg = &mt('Cloning [_1] from [_2]',$crstype,$clonehome); |
$clonemsg = &mt('Cloning [_1] from [_2]',$showncrstype,$clonehome); |
| if ($context ne 'auto') { |
if ($context ne 'auto') { |
| $clonemsg = '<span class="LC_success">'.$clonemsg.'</span>'; |
$clonemsg = '<span class="LC_success">'.$clonemsg.'</span>'; |
| } |
} |
|
Line 14975 sub construct_course {
|
Line 15475 sub construct_course {
|
| my $addcheck = &Apache::lonnet::auto_new_course($$crsunum,$$crsudom,$class,$cenv{'internal.courseowner'}); |
my $addcheck = &Apache::lonnet::auto_new_course($$crsunum,$$crsudom,$class,$cenv{'internal.courseowner'}); |
| $cenv{'internal.sectionnums'} .= $item.','; |
$cenv{'internal.sectionnums'} .= $item.','; |
| unless ($addcheck eq 'ok') { |
unless ($addcheck eq 'ok') { |
| push @badclasses, $class; |
push(@badclasses,$class); |
| } |
} |
| } |
} |
| $cenv{'internal.sectionnums'} =~ s/,$//; |
$cenv{'internal.sectionnums'} =~ s/,$//; |
|
Line 15003 sub construct_course {
|
Line 15503 sub construct_course {
|
| my $addcheck = &Apache::lonnet::auto_new_course($$crsunum,$$crsudom,$xl,$cenv{'internal.courseowner'}); |
my $addcheck = &Apache::lonnet::auto_new_course($$crsunum,$$crsudom,$xl,$cenv{'internal.courseowner'}); |
| $cenv{'internal.crosslistings'} .= $item.','; |
$cenv{'internal.crosslistings'} .= $item.','; |
| unless ($addcheck eq 'ok') { |
unless ($addcheck eq 'ok') { |
| push @badclasses, $xl; |
push(@badclasses,$xl); |
| } |
} |
| } |
} |
| $cenv{'internal.crosslistings'} =~ s/,$//; |
$cenv{'internal.crosslistings'} =~ s/,$//; |
|
Line 15038 sub construct_course {
|
Line 15538 sub construct_course {
|
| } |
} |
| if (@badclasses > 0) { |
if (@badclasses > 0) { |
| my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
| 'tclb' => 'The courses listed below were included as sections or crosslistings affiliated with your new LON-CAPA course. However, if automated course roster updates are enabled for this class, these particular sections/crosslistings will not contribute towards enrollment, because the user identified as the course owner for this LON-CAPA course', |
'tclb' => 'The courses listed below were included as sections or crosslistings affiliated with your new LON-CAPA course.', |
| 'dnhr' => 'does not have rights to access enrollment in these classes', |
'howi' => 'However, if automated course roster updates are enabled for this class, these particular sections/crosslistings are not guaranteed to contribute towards enrollment.', |
| 'adby' => 'as determined by the policies of your institution on access to official classlists' |
'itis' => 'It is possible that rights to access enrollment for these classes will be available through assignment of co-owners.', |
| ); |
); |
| my $badclass_msg = $cenv{'internal.courseowner'}.') - '.$lt{'dnhr'}. |
my $badclass_msg = $lt{'tclb'}.$linefeed.$lt{'howi'}.$linefeed. |
| ' ('.$lt{'adby'}.')'; |
&mt('That is because the user identified as the course owner ([_1]) does not have rights to access enrollment in these classes, as determined by the policies of your institution on access to official classlists',$cenv{'internal.courseowner'}).$linefeed.$lt{'itis'}; |
| if ($context eq 'auto') { |
if ($context eq 'auto') { |
| $outcome .= $badclass_msg.$linefeed; |
$outcome .= $badclass_msg.$linefeed; |
| |
} else { |
| $outcome .= '<div class="LC_warning">'.$badclass_msg.$linefeed.'<ul>'."\n"; |
$outcome .= '<div class="LC_warning">'.$badclass_msg.$linefeed.'<ul>'."\n"; |
| foreach my $item (@badclasses) { |
} |
| if ($context eq 'auto') { |
foreach my $item (@badclasses) { |
| $outcome .= " - $item\n"; |
|
| } else { |
|
| $outcome .= "<li>$item</li>\n"; |
|
| } |
|
| } |
|
| if ($context eq 'auto') { |
if ($context eq 'auto') { |
| $outcome .= $linefeed; |
$outcome .= " - $item\n"; |
| } else { |
} else { |
| $outcome .= "</ul><br /><br /></div>\n"; |
$outcome .= "<li>$item</li>\n"; |
| } |
} |
| |
} |
| |
if ($context eq 'auto') { |
| |
$outcome .= $linefeed; |
| |
} else { |
| |
$outcome .= "</ul><br /><br /></div>\n"; |
| } |
} |
| } |
} |
| if ($args->{'no_end_date'}) { |
if ($args->{'no_end_date'}) { |
|
Line 15091 sub construct_course {
|
Line 15592 sub construct_course {
|
| if ($args->{'setcontent'}) { |
if ($args->{'setcontent'}) { |
| $cenv{'question.email'}=$args->{'ccuname'}.':'.$args->{'ccdomain'}; |
$cenv{'question.email'}=$args->{'ccuname'}.':'.$args->{'ccdomain'}; |
| } |
} |
| |
if ($args->{'setcomment'}) { |
| |
$cenv{'comment.email'}=$args->{'ccuname'}.':'.$args->{'ccdomain'}; |
| |
} |
| } |
} |
| if ($args->{'reshome'}) { |
if ($args->{'reshome'}) { |
| $cenv{'reshome'}=$args->{'reshome'}.'/'; |
$cenv{'reshome'}=$args->{'reshome'}.'/'; |
|
Line 15200 sub construct_course {
|
Line 15704 sub construct_course {
|
| # |
# |
| # Set params for Placement Tests |
# Set params for Placement Tests |
| # |
# |
| if ($crstype eq 'Placement') { |
if ($args->{'crstype'} eq 'Placement') { |
| my $storeunder=$$crsudom.'_'.$$crsunum.'.0.buttonshide'; |
my %storecontent; |
| my %storecontent = ($storeunder => 'yes', |
my $prefix=$$crsudom.'_'.$$crsunum.'.0.'; |
| $storeunder.'.type' => 'string_yesno'); |
my %defaults = ( |
| |
buttonshide => { value => 'yes', |
| |
type => 'string_yesno',}, |
| |
type => { value => 'randomizetry', |
| |
type => 'string_questiontype',}, |
| |
maxtries => { value => 1, |
| |
type => 'int_pos',}, |
| |
problemstatus => { value => 'no', |
| |
type => 'string_problemstatus',}, |
| |
); |
| |
foreach my $key (keys(%defaults)) { |
| |
$storecontent{$prefix.$key} = $defaults{$key}{'value'}; |
| |
$storecontent{$prefix.$key.'.type'} = $defaults{$key}{'type'}; |
| |
} |
| &Apache::lonnet::cput |
&Apache::lonnet::cput |
| ('resourcedata',\%storecontent,$$crsudom,$$crsunum); |
('resourcedata',\%storecontent,$$crsudom,$$crsunum); |
| } |
} |
|
Line 15501 sub init_user_environment {
|
Line 16018 sub init_user_environment {
|
| $env{'user.noloadbalance'} = $lonhost; |
$env{'user.noloadbalance'} = $lonhost; |
| } |
} |
| |
|
| |
if ($form->{'noloadbalance'}) { |
| |
my @hosts = &Apache::lonnet::current_machine_ids(); |
| |
my $hosthere = $form->{'noloadbalance'}; |
| |
if (grep(/^\Q$hosthere\E$/,@hosts)) { |
| |
$initial_env{"user.noloadbalance"} = $hosthere; |
| |
$env{'user.noloadbalance'} = $hosthere; |
| |
} |
| |
} |
| |
|
| my %is_adv = ( is_adv => $env{'user.adv'} ); |
my %is_adv = ( is_adv => $env{'user.adv'} ); |
| my %domdef; |
my %domdef; |
| unless ($domain eq 'public') { |
unless ($domain eq 'public') { |
|
Line 15761 sub build_filters {
|
Line 16287 sub build_filters {
|
| $createdfilterform = &timebased_select_form('createdfilter',$filter); |
$createdfilterform = &timebased_select_form('createdfilter',$filter); |
| } |
} |
| |
|
| |
my $prefix = $crstype; |
| |
if ($crstype eq 'Placement') { |
| |
$prefix = 'Placement Test' |
| |
} |
| my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
| 'cac' => "$crstype Activity", |
'cac' => "$prefix Activity", |
| 'ccr' => "$crstype Created", |
'ccr' => "$prefix Created", |
| 'cde' => "$crstype Title", |
'cde' => "$prefix Title", |
| 'cdo' => "$crstype Domain", |
'cdo' => "$prefix Domain", |
| 'ins' => 'Institutional Code', |
'ins' => 'Institutional Code', |
| 'inc' => 'Institutional Categorization', |
'inc' => 'Institutional Categorization', |
| 'cow' => "$crstype Owner/Co-owner", |
'cow' => "$prefix Owner/Co-owner", |
| 'cop' => "$crstype Personnel Includes", |
'cop' => "$prefix Personnel Includes", |
| 'cog' => 'Type', |
'cog' => 'Type', |
| ); |
); |
| |
|
|
Line 15777 sub build_filters {
|
Line 16307 sub build_filters {
|
| my $typeval = 'Course'; |
my $typeval = 'Course'; |
| if ($crstype eq 'Community') { |
if ($crstype eq 'Community') { |
| $typeval = 'Community'; |
$typeval = 'Community'; |
| |
} elsif ($crstype eq 'Placement') { |
| |
$typeval = 'Placement'; |
| } |
} |
| $typeselectform = '<input type="hidden" name="type" value="'.$typeval.'" />'; |
$typeselectform = '<input type="hidden" name="type" value="'.$typeval.'" />'; |
| } else { |
} else { |
|
Line 15786 sub build_filters {
|
Line 16318 sub build_filters {
|
| } |
} |
| $typeselectform .= '>'."\n"; |
$typeselectform .= '>'."\n"; |
| foreach my $posstype ('Course','Community','Placement') { |
foreach my $posstype ('Course','Community','Placement') { |
| |
my $shown; |
| |
if ($posstype eq 'Placement') { |
| |
$shown = &mt('Placement Test'); |
| |
} else { |
| |
$shown = &mt($posstype); |
| |
} |
| $typeselectform.='<option value="'.$posstype.'"'. |
$typeselectform.='<option value="'.$posstype.'"'. |
| ($posstype eq $crstype ? ' selected="selected" ' : ''). ">".&mt($posstype)."</option>\n"; |
($posstype eq $crstype ? ' selected="selected" ' : ''). ">".$shown."</option>\n"; |
| } |
} |
| $typeselectform.="</select>"; |
$typeselectform.="</select>"; |
| } |
} |
|
Line 16138 sub search_courses {
|
Line 16676 sub search_courses {
|
| if (ref($courses{$cid}) eq 'HASH') { |
if (ref($courses{$cid}) eq 'HASH') { |
| if (ref($courses{$cid}{roles}) eq 'ARRAY') { |
if (ref($courses{$cid}{roles}) eq 'ARRAY') { |
| if (!grep(/^\Q$courserole\E$/,@{$courses{$cid}{roles}})) { |
if (!grep(/^\Q$courserole\E$/,@{$courses{$cid}{roles}})) { |
| push (@{$courses{$cid}{roles}},$courserole); |
push(@{$courses{$cid}{roles}},$courserole); |
| } |
} |
| } else { |
} else { |
| $courses{$cid}{roles} = [$courserole]; |
$courses{$cid}{roles} = [$courserole]; |
|
Line 16468 sub recurse_supplemental {
|
Line 17006 sub recurse_supplemental {
|
| } |
} |
| |
|
| sub symb_to_docspath { |
sub symb_to_docspath { |
| my ($symb) = @_; |
my ($symb,$navmapref) = @_; |
| return unless ($symb); |
return unless ($symb && ref($navmapref)); |
| my ($mapurl,$id,$resurl) = &Apache::lonnet::decode_symb($symb); |
my ($mapurl,$id,$resurl) = &Apache::lonnet::decode_symb($symb); |
| if ($resurl=~/\.(sequence|page)$/) { |
if ($resurl=~/\.(sequence|page)$/) { |
| $mapurl=$resurl; |
$mapurl=$resurl; |
|
Line 16477 sub symb_to_docspath {
|
Line 17015 sub symb_to_docspath {
|
| $mapurl=$env{'course.'.$env{'request.course.id'}.'.url'}; |
$mapurl=$env{'course.'.$env{'request.course.id'}.'.url'}; |
| } |
} |
| my $mapresobj; |
my $mapresobj; |
| my $navmap = Apache::lonnavmaps::navmap->new(); |
unless (ref($$navmapref)) { |
| if (ref($navmap)) { |
$$navmapref = Apache::lonnavmaps::navmap->new(); |
| $mapresobj = $navmap->getResourceByUrl($mapurl); |
} |
| |
if (ref($$navmapref)) { |
| |
$mapresobj = $$navmapref->getResourceByUrl($mapurl); |
| } |
} |
| $mapurl=~s{^.*/([^/]+)\.(\w+)$}{$1}; |
$mapurl=~s{^.*/([^/]+)\.(\w+)$}{$1}; |
| my $type=$2; |
my $type=$2; |
|
Line 16489 sub symb_to_docspath {
|
Line 17029 sub symb_to_docspath {
|
| if ($pcslist ne '') { |
if ($pcslist ne '') { |
| foreach my $pc (split(/,/,$pcslist)) { |
foreach my $pc (split(/,/,$pcslist)) { |
| next if ($pc <= 1); |
next if ($pc <= 1); |
| my $res = $navmap->getByMapPc($pc); |
my $res = $$navmapref->getByMapPc($pc); |
| if (ref($res)) { |
if (ref($res)) { |
| my $thisurl = $res->src(); |
my $thisurl = $res->src(); |
| $thisurl=~s{^.*/([^/]+)\.\w+$}{$1}; |
$thisurl=~s{^.*/([^/]+)\.\w+$}{$1}; |
|
Line 16731 sub check_recaptcha {
|
Line 17271 sub check_recaptcha {
|
| } |
} |
| |
|
| sub emailusername_info { |
sub emailusername_info { |
| my @fields = ('firstname','lastname','institution','web','location','officialemail'); |
my @fields = ('firstname','lastname','institution','web','location','officialemail','id'); |
| my %titles = &Apache::lonlocal::texthash ( |
my %titles = &Apache::lonlocal::texthash ( |
| lastname => 'Last Name', |
lastname => 'Last Name', |
| firstname => 'First Name', |
firstname => 'First Name', |
|
Line 16739 sub emailusername_info {
|
Line 17279 sub emailusername_info {
|
| location => "School's city, state/province, country", |
location => "School's city, state/province, country", |
| web => "School's web address", |
web => "School's web address", |
| officialemail => 'E-mail address at institution (if different)', |
officialemail => 'E-mail address at institution (if different)', |
| |
id => 'Student/Employee ID', |
| ); |
); |
| return (\@fields,\%titles); |
return (\@fields,\%titles); |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface