|
version 1.1245, 2016/06/15 17:20:44
|
version 1.1260, 2016/11/13 14:22:15
|
|
Line 943 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 965 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 1018 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 1030 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 1775 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 1957 sub colorfuleditor_js {
|
Line 2113 sub colorfuleditor_js {
|
| } |
} |
| } |
} |
| |
|
| |
$browse_or_search |
| |
|
| // ]]> |
// ]]> |
| </script> |
</script> |
|
Line 2009 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) = @_; |
| |
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 2268 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 2459 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 2476 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 2494 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 2870 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 2921 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 2930 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 2943 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 2954 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 2964 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 2977 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 3007 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 3015 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 3032 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 3062 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 3071 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 3086 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 3100 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 3113 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 3122 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 3153 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 3874 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 5022 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 5426 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 5441 sub CSTR_pageheader {
|
Line 5755 sub CSTR_pageheader {
|
| .'</span>'; |
.'</span>'; |
| } |
} |
| |
|
| $output .= |
if ($crsauthor) { |
| '<br />' |
$output .= '</form>'.&Apache::lonmenu::constspaceform(); |
| #FIXME lonpubdir: &Apache::lonhtmlcommon::crumbs($uname.$thisdisfn.'/','_top','/priv','','+1',1)."</b></tt><br />" |
} else { |
| .&Apache::lonhtmlcommon::select_recent('construct','recent','this.form.action=this.form.recent.value;this.form.submit()') |
$output .= |
| .'</form>' |
'<br />' |
| .&Apache::lonmenu::constspaceform() |
#FIXME lonpubdir: &Apache::lonhtmlcommon::crumbs($uname.$thisdisfn.'/','_top','/priv','','+1',1)."</b></tt><br />" |
| .'</div>'; |
.&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 5543 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+)$}) { |
| |
$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 5639 sub bodytag {
|
Line 5961 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 9659 sub get_secgrprole_info {
|
Line 9982 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 9707 sub user_picker {
|
Line 10046 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 9901 END_BLOCK
|
Line 10245 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 10327 reservable_now - ref to hash of student_
|
Line 10671 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 10337 future_reservable - ref to hash of stude
|
Line 10683 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 10413 sub get_future_slots {
|
Line 10761 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 10421 sub get_future_slots {
|
Line 10773 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 10585 sub get_env_multiple {
|
Line 10939 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 10601 sub ask_for_embedded_content {
|
Line 10971 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 10685 sub ask_for_embedded_content {
|
Line 11058 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 10727 sub ask_for_embedded_content {
|
Line 11110 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 10802 sub ask_for_embedded_content {
|
Line 11198 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 10840 sub ask_for_embedded_content {
|
Line 11239 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 10868 sub ask_for_embedded_content {
|
Line 11269 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 10879 sub ask_for_embedded_content {
|
Line 11282 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 14420 currcat - scalar with an & separated lis
|
Line 14829 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 14465 sub assign_categories_table {
|
Line 14877 sub assign_categories_table {
|
| } |
} |
| $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 14508 path - Array containing all categories b
|
Line 14920 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 14536 sub assign_category_rows {
|
Line 14951 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 15138 sub construct_course {
|
Line 15553 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'}.'/'; |
![[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