|
version 1.314, 2017/10/07 00:50:47
|
version 1.320, 2017/11/30 15:15:14
|
|
Line 219 sub handler {
|
Line 219 sub handler {
|
| 'serverstatuses','requestcourses','helpsettings', |
'serverstatuses','requestcourses','helpsettings', |
| 'coursedefaults','usersessions','loadbalancing', |
'coursedefaults','usersessions','loadbalancing', |
| 'requestauthor','selfenrollment','inststatus', |
'requestauthor','selfenrollment','inststatus', |
| 'ltitools','ssl','trust'],$dom); |
'ltitools','ssl','trust','lti'],$dom); |
| |
my %encconfig = |
| |
&Apache::lonnet::get_dom('encconfig',['ltitools','lti'],$dom); |
| if (ref($domconfig{'ltitools'}) eq 'HASH') { |
if (ref($domconfig{'ltitools'}) eq 'HASH') { |
| my %encconfig = |
|
| &Apache::lonnet::get_dom('encconfig',['ltitools'],$dom); |
|
| if (ref($encconfig{'ltitools'}) eq 'HASH') { |
if (ref($encconfig{'ltitools'}) eq 'HASH') { |
| foreach my $id (keys(%{$domconfig{'ltitools'}})) { |
foreach my $id (keys(%{$domconfig{'ltitools'}})) { |
| if (ref($domconfig{'ltitools'}{$id}) eq 'HASH') { |
if ((ref($domconfig{'ltitools'}{$id}) eq 'HASH') && |
| |
(ref($encconfig{'ltitools'}{$id}) eq 'HASH')) { |
| foreach my $item ('key','secret') { |
foreach my $item ('key','secret') { |
| $domconfig{'ltitools'}{$id}{$item} = $encconfig{'ltitools'}{$id}{$item}; |
$domconfig{'ltitools'}{$id}{$item} = $encconfig{'ltitools'}{$id}{$item}; |
| } |
} |
|
Line 233 sub handler {
|
Line 234 sub handler {
|
| } |
} |
| } |
} |
| } |
} |
| |
if (ref($domconfig{'lti'}) eq 'HASH') { |
| |
if (ref($encconfig{'lti'}) eq 'HASH') { |
| |
foreach my $id (keys(%{$domconfig{'lti'}})) { |
| |
if ((ref($domconfig{'lti'}{$id}) eq 'HASH') && |
| |
(ref($encconfig{'lti'}{$id}) eq 'HASH')) { |
| |
foreach my $item ('key','secret') { |
| |
$domconfig{'lti'}{$id}{$item} = $encconfig{'lti'}{$id}{$item}; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| my @prefs_order = ('rolecolors','login','defaults','quotas','autoenroll', |
my @prefs_order = ('rolecolors','login','defaults','quotas','autoenroll', |
| 'autoupdate','autocreate','directorysrch','contacts', |
'autoupdate','autocreate','directorysrch','contacts', |
| 'usercreation','selfcreation','usermodification','scantron', |
'usercreation','selfcreation','usermodification','scantron', |
| 'requestcourses','requestauthor','coursecategories', |
'requestcourses','requestauthor','coursecategories', |
| 'serverstatuses','helpsettings','coursedefaults', |
'serverstatuses','helpsettings','coursedefaults', |
| 'ltitools','selfenrollment','usersessions','ssl','trust'); |
'ltitools','selfenrollment','usersessions','ssl','trust','lti'); |
| my %existing; |
my %existing; |
| if (ref($domconfig{'loadbalancing'}) eq 'HASH') { |
if (ref($domconfig{'loadbalancing'}) eq 'HASH') { |
| %existing = %{$domconfig{'loadbalancing'}}; |
%existing = %{$domconfig{'loadbalancing'}}; |
|
Line 545 sub handler {
|
Line 558 sub handler {
|
| print => \&print_trust, |
print => \&print_trust, |
| modify => \&modify_trust, |
modify => \&modify_trust, |
| }, |
}, |
| |
'lti' => |
| |
{text => 'LTI Provider', |
| |
help => 'Domain_Configuration_LTI_Provider', |
| |
header => [{col1 => 'Setting', |
| |
col2 => 'Value',}], |
| |
print => \&print_lti, |
| |
modify => \&modify_lti, |
| |
}, |
| ); |
); |
| if (keys(%servers) > 1) { |
if (keys(%servers) > 1) { |
| $prefs{'login'} = { text => 'Log-in page options', |
$prefs{'login'} = { text => 'Log-in page options', |
|
Line 730 sub process_changes {
|
Line 751 sub process_changes {
|
| $output = &modify_ssl($dom,$lastactref,%domconfig); |
$output = &modify_ssl($dom,$lastactref,%domconfig); |
| } elsif ($action eq 'trust') { |
} elsif ($action eq 'trust') { |
| $output = &modify_trust($dom,$lastactref,%domconfig); |
$output = &modify_trust($dom,$lastactref,%domconfig); |
| |
} elsif ($action eq 'lti') { |
| |
$output = &modify_lti($r,$dom,$action,$lastactref,%domconfig); |
| } |
} |
| return $output; |
return $output; |
| } |
} |
|
Line 1065 sub print_config_box {
|
Line 1088 sub print_config_box {
|
| $output .= &print_quotas($dom,$settings,\$rowtotal,$action); |
$output .= &print_quotas($dom,$settings,\$rowtotal,$action); |
| } elsif (($action eq 'autoenroll') || ($action eq 'autocreate') || |
} elsif (($action eq 'autoenroll') || ($action eq 'autocreate') || |
| ($action eq 'serverstatuses') || ($action eq 'loadbalancing') || |
($action eq 'serverstatuses') || ($action eq 'loadbalancing') || |
| ($action eq 'ltitools')) { |
($action eq 'ltitools') || ($action eq 'lti')) { |
| $output .= $item->{'print'}->($dom,$settings,\$rowtotal); |
$output .= $item->{'print'}->($dom,$settings,\$rowtotal); |
| } elsif ($action eq 'scantron') { |
} elsif ($action eq 'scantron') { |
| $output .= &print_scantronformat($r,$dom,$confname,$settings,\$rowtotal); |
$output .= &print_scantronformat($r,$dom,$confname,$settings,\$rowtotal); |
|
Line 1656 sub display_color_options {
|
Line 1679 sub display_color_options {
|
| if ($fullwidth ne '' && $fullheight ne '') { |
if ($fullwidth ne '' && $fullheight ne '') { |
| if ($fullwidth > $width && $fullheight > $height) { |
if ($fullwidth > $width && $fullheight > $height) { |
| my $size = $width.'x'.$height; |
my $size = $width.'x'.$height; |
| system("convert -sample $size $input $output"); |
my @args = ('convert','-sample',$size,$input,$output); |
| |
system({$args[0]} @args); |
| $showfile = "/$imgdir/tn-".$filename; |
$showfile = "/$imgdir/tn-".$filename; |
| } |
} |
| } |
} |
|
Line 2585 ENDSCRIPT
|
Line 2609 ENDSCRIPT
|
| |
|
| sub ltitools_javascript { |
sub ltitools_javascript { |
| my ($settings) = @_; |
my ($settings) = @_; |
| return unless(ref($settings) eq 'HASH'); |
my $togglejs = <itools_toggle_js(); |
| |
unless (ref($settings) eq 'HASH') { |
| |
return $togglejs; |
| |
} |
| my (%ordered,$total,%jstext); |
my (%ordered,$total,%jstext); |
| $total = 0; |
$total = 0; |
| foreach my $item (keys(%{$settings})) { |
foreach my $item (keys(%{$settings})) { |
|
Line 2603 sub ltitools_javascript {
|
Line 2630 sub ltitools_javascript {
|
| return <<"ENDSCRIPT"; |
return <<"ENDSCRIPT"; |
| <script type="text/javascript"> |
<script type="text/javascript"> |
| // <![CDATA[ |
// <![CDATA[ |
| function reorderLTI(form,item) { |
function reorderLTITools(form,item) { |
| var changedVal; |
var changedVal; |
| $jstext |
$jstext |
| var newpos = 'ltitools_add_pos'; |
var newpos = 'ltitools_add_pos'; |
|
Line 2648 $jstext
|
Line 2675 $jstext
|
| // ]]> |
// ]]> |
| </script> |
</script> |
| |
|
| |
$togglejs |
| |
|
| |
ENDSCRIPT |
| |
} |
| |
|
| |
sub ltitools_toggle_js { |
| |
return <<"ENDSCRIPT"; |
| |
<script type="text/javascript"> |
| |
// <![CDATA[ |
| |
|
| |
function toggleLTITools(form,setting,item) { |
| |
var radioname = ''; |
| |
var divid = ''; |
| |
if ((setting == 'passback') || (setting == 'roster')) { |
| |
radioname = 'ltitools_'+setting+'_'+item; |
| |
divid = 'ltitools_'+setting+'time_'+item; |
| |
var num = form.elements[radioname].length; |
| |
if (num) { |
| |
var setvis = ''; |
| |
for (var i=0; i<num; i++) { |
| |
if (form.elements[radioname][i].checked) { |
| |
if (form.elements[radioname][i].value == '1') { |
| |
if (document.getElementById(divid)) { |
| |
document.getElementById(divid).style.display = 'inline-block'; |
| |
} |
| |
setvis = 1; |
| |
} |
| |
break; |
| |
} |
| |
} |
| |
} |
| |
if (!setvis) { |
| |
if (document.getElementById(divid)) { |
| |
document.getElementById(divid).style.display = 'none'; |
| |
} |
| |
} |
| |
} |
| |
return; |
| |
} |
| |
// ]]> |
| |
</script> |
| |
|
| |
ENDSCRIPT |
| |
} |
| |
|
| |
sub lti_javascript { |
| |
my ($settings) = @_; |
| |
my $togglejs = <i_toggle_js(); |
| |
unless (ref($settings) eq 'HASH') { |
| |
return $togglejs; |
| |
} |
| |
my (%ordered,$total,%jstext); |
| |
$total = 0; |
| |
foreach my $item (keys(%{$settings})) { |
| |
if (ref($settings->{$item}) eq 'HASH') { |
| |
my $num = $settings->{$item}{'order'}; |
| |
$ordered{$num} = $item; |
| |
} |
| |
} |
| |
$total = scalar(keys(%{$settings})); |
| |
my @jsarray = (); |
| |
foreach my $item (sort {$a <=> $b } (keys(%ordered))) { |
| |
push(@jsarray,$ordered{$item}); |
| |
} |
| |
my $jstext = ' var lti = Array('."'".join("','",@jsarray)."'".');'."\n"; |
| |
return <<"ENDSCRIPT"; |
| |
<script type="text/javascript"> |
| |
// <![CDATA[ |
| |
function reorderLTI(form,item) { |
| |
var changedVal; |
| |
$jstext |
| |
var newpos = 'lti_pos_add'; |
| |
var maxh = 1 + $total; |
| |
var current = new Array; |
| |
var newitemVal = form.elements[newpos].options[form.elements[newpos].selectedIndex].value; |
| |
if (item == newpos) { |
| |
changedVal = newitemVal; |
| |
} else { |
| |
changedVal = form.elements[item].options[form.elements[item].selectedIndex].value; |
| |
current[newitemVal] = newpos; |
| |
} |
| |
for (var i=0; i<lti.length; i++) { |
| |
var elementName = 'lti_pos_'+lti[i]; |
| |
if (elementName != item) { |
| |
if (form.elements[elementName]) { |
| |
var currVal = form.elements[elementName].options[form.elements[elementName].selectedIndex].value; |
| |
current[currVal] = elementName; |
| |
} |
| |
} |
| |
} |
| |
var oldVal; |
| |
for (var j=0; j<maxh; j++) { |
| |
if (current[j] == undefined) { |
| |
oldVal = j; |
| |
} |
| |
} |
| |
if (oldVal < changedVal) { |
| |
for (var k=oldVal+1; k<=changedVal ; k++) { |
| |
var elementName = current[k]; |
| |
form.elements[elementName].selectedIndex = form.elements[elementName].selectedIndex - 1; |
| |
} |
| |
} else { |
| |
for (var k=changedVal; k<oldVal; k++) { |
| |
var elementName = current[k]; |
| |
form.elements[elementName].selectedIndex = form.elements[elementName].selectedIndex + 1; |
| |
} |
| |
} |
| |
return; |
| |
} |
| |
// ]]> |
| |
</script> |
| |
|
| |
$togglejs |
| |
|
| |
ENDSCRIPT |
| |
} |
| |
|
| |
sub lti_toggle_js { |
| |
return <<"ENDSCRIPT"; |
| |
<script type="text/javascript"> |
| |
// <![CDATA[ |
| |
|
| |
function toggleLTI(form,setting,item) { |
| |
if ((setting == 'user') || (setting == 'crs')) { |
| |
var radioname = ''; |
| |
var divid = ''; |
| |
if (setting == 'user') { |
| |
radioname = 'lti_mapuser_'+item; |
| |
divid = 'lti_userfield_'+item; |
| |
} else { |
| |
radioname = 'lti_mapcrs_'+item; |
| |
divid = 'lti_crsfield_'+item; |
| |
} |
| |
var num = form.elements[radioname].length; |
| |
if (num) { |
| |
var setvis = ''; |
| |
for (var i=0; i<num; i++) { |
| |
if (form.elements[radioname][i].checked) { |
| |
if (form.elements[radioname][i].value == 'other') { |
| |
if (document.getElementById(divid)) { |
| |
document.getElementById(divid).style.display = 'inline-block'; |
| |
} |
| |
setvis = 1; |
| |
break; |
| |
} |
| |
} |
| |
} |
| |
if (!setvis) { |
| |
if (document.getElementById(divid)) { |
| |
document.getElementById(divid).style.display = 'none'; |
| |
} |
| |
} |
| |
} |
| |
} else if ((setting == 'sec') || (setting == 'secsrc')) { |
| |
var numsec = form.elements['lti_crssec_'+item].length; |
| |
if (numsec) { |
| |
var setvis = ''; |
| |
for (var i=0; i<numsec; i++) { |
| |
if (form.elements['lti_crssec_'+item][i].checked) { |
| |
if (form.elements['lti_crssec_'+item][i].value == '1') { |
| |
if (document.getElementById('lti_crssecfield_'+item)) { |
| |
document.getElementById('lti_crssecfield_'+item).style.display = 'inline-block'; |
| |
setvis = 1; |
| |
var numsrcsec = form.elements['lti_crssecsrc_'+item].length; |
| |
if (numsrcsec) { |
| |
var setsrcvis = ''; |
| |
for (var j=0; j<numsrcsec; j++) { |
| |
if (form.elements['lti_crssecsrc_'+item][j].checked) { |
| |
if (form.elements['lti_crssecsrc_'+item][j].value == 'other') { |
| |
if (document.getElementById('lti_secsrcfield_'+item)) { |
| |
document.getElementById('lti_secsrcfield_'+item).style.display = 'inline-block'; |
| |
setsrcvis = 1; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
if (!setsrcvis) { |
| |
if (document.getElementById('lti_secsrcfield_'+item)) { |
| |
document.getElementById('lti_secsrcfield_'+item).style.display = 'none'; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
if (!setvis) { |
| |
if (document.getElementById('lti_crssecfield_'+item)) { |
| |
document.getElementById('lti_crssecfield_'+item).style.display = 'none'; |
| |
} |
| |
if (document.getElementById('lti_secsrcfield_'+item)) { |
| |
document.getElementById('lti_secsrcfield_'+item).style.display = 'none'; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
return; |
| |
} |
| |
// ]]> |
| |
</script> |
| |
|
| ENDSCRIPT |
ENDSCRIPT |
| } |
} |
| |
|
|
Line 3124 sub print_contacts {
|
Line 3352 sub print_contacts {
|
| $to{$item}.'" /></td></tr>'; |
$to{$item}.'" /></td></tr>'; |
| $rownum ++; |
$rownum ++; |
| } |
} |
| } else { |
} elsif ($position eq 'bottom') { |
| |
$css_class = $rownum%2?' class="LC_odd_row"':''; |
| |
$datatable .= '<tr'.$css_class.'>'. |
| |
'<td>'.&mt('Extra helpdesk form fields:').'<br />'. |
| |
&mt('(e-mail, subject, and description always shown)'). |
| |
'</td><td class="LC_left_item">'; |
| |
if ((ref($fields) eq 'ARRAY') && (ref($fieldtitles) eq 'HASH') && |
| |
(ref($fieldoptions) eq 'HASH') && (ref($possoptions) eq 'HASH')) { |
| |
$datatable .= '<table><tr><th>'.&mt('Field').'</th><th>'.&mt('Status').'</th></tr>'; |
| |
foreach my $field (@{$fields}) { |
| |
$datatable .= '<tr><td>'.$fieldtitles->{$field}; |
| |
if (($field eq 'screenshot') || ($field eq 'cc')) { |
| |
$datatable .= ' '.&mt('(logged-in users)'); |
| |
} |
| |
$datatable .='</td><td>'; |
| |
my $clickaction; |
| |
if ($field eq 'screenshot') { |
| |
$clickaction = ' onclick="screenshotSize(this);"'; |
| |
} |
| |
if (ref($possoptions->{$field}) eq 'ARRAY') { |
| |
foreach my $option (@{$possoptions->{$field}}) { |
| |
my $checked; |
| |
if ($currfield{$field} eq $option) { |
| |
$checked = ' checked="checked"'; |
| |
} |
| |
$datatable .= '<span class="LC_nobreak"><label>'. |
| |
'<input type="radio" name="helpform_'.$field.'" '. |
| |
'value="'.$option.'"'.$checked.$clickaction.' />'.$fieldoptions->{$option}. |
| |
'</label></span>'.(' 'x2); |
| |
} |
| |
} |
| |
if ($field eq 'screenshot') { |
| |
my $display; |
| |
if ($currfield{$field} eq 'no') { |
| |
$display = ' style="display:none"'; |
| |
} |
| |
$datatable .= '</td></tr><tr id="help_screenshotsize"'.$display.' />'. |
| |
'<td>'.&mt('Maximum size for upload (MB)').'</td><td>'. |
| |
'<input type="text" size="5" name="helpform_maxsize" value="'.$maxsize.'" />'; |
| |
} |
| |
$datatable .= '</td></tr>'; |
| |
} |
| |
$datatable .= '</table>'; |
| |
} |
| |
$datatable .= '</td></tr>'."\n"; |
| |
$rownum ++; |
| |
} |
| |
unless ($position eq 'top') { |
| foreach my $type (@mailings) { |
foreach my $type (@mailings) { |
| $css_class = $rownum%2?' class="LC_odd_row"':''; |
$css_class = $rownum%2?' class="LC_odd_row"':''; |
| $datatable .= '<tr'.$css_class.'>'. |
$datatable .= '<tr'.$css_class.'>'. |
|
Line 3184 sub print_contacts {
|
Line 3459 sub print_contacts {
|
| \%choices,$rownum); |
\%choices,$rownum); |
| $datatable .= $reports; |
$datatable .= $reports; |
| } elsif ($position eq 'bottom') { |
} elsif ($position eq 'bottom') { |
| $css_class = $rownum%2?' class="LC_odd_row"':''; |
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom); |
| $datatable .= '<tr'.$css_class.'>'. |
my (@posstypes,%usertypeshash); |
| '<td>'.&mt('Extra helpdesk form fields:').'<br />'. |
if (ref($types) eq 'ARRAY') { |
| &mt('(e-mail, subject, and description always shown)'). |
@posstypes = @{$types}; |
| '</td><td class="LC_left_item">'; |
} |
| if ((ref($fields) eq 'ARRAY') && (ref($fieldtitles) eq 'HASH') && |
if (@posstypes) { |
| (ref($fieldoptions) eq 'HASH') && (ref($possoptions) eq 'HASH')) { |
if (ref($usertypes) eq 'HASH') { |
| $datatable .= '<table><tr><th>'.&mt('Field').'</th><th>'.&mt('Status').'</th></tr>'; |
%usertypeshash = %{$usertypes}; |
| foreach my $field (@{$fields}) { |
} |
| $datatable .= '<tr><td>'.$fieldtitles->{$field}; |
my @overridden; |
| if (($field eq 'screenshot') || ($field eq 'cc')) { |
my $numinrow = 4; |
| $datatable .= ' '.&mt('(logged-in users)'); |
if (ref($settings) eq 'HASH') { |
| } |
if (ref($settings->{'overrides'}) eq 'HASH') { |
| $datatable .='</td><td>'; |
foreach my $key (sort(keys(%{$settings->{'overrides'}}))) { |
| my $clickaction; |
if (ref($settings->{'overrides'}{$key}) eq 'HASH') { |
| if ($field eq 'screenshot') { |
push(@overridden,$key); |
| $clickaction = ' onclick="screenshotSize(this);"'; |
foreach my $item (@contacts) { |
| } |
if ($settings->{'overrides'}{$key}{$item}) { |
| if (ref($possoptions->{$field}) eq 'ARRAY') { |
$checked{'override_'.$key}{$item} = ' checked="checked" '; |
| foreach my $option (@{$possoptions->{$field}}) { |
} |
| my $checked; |
} |
| if ($currfield{$field} eq $option) { |
$otheremails{'override_'.$key} = $settings->{'overrides'}{$key}{'others'}; |
| $checked = ' checked="checked"'; |
$bccemails{'override_'.$key} = $settings->{'overrides'}{$key}{'bcc'}; |
| |
$includeloc{'override_'.$key} = ''; |
| |
$includestr{'override_'.$key} = ''; |
| |
if ($settings->{'overrides'}{$key}{'include'} ne '') { |
| |
($includeloc{'override_'.$key},$includestr{'override_'.$key}) = |
| |
split(/:/,$settings->{'overrides'}{$key}{'include'},2); |
| |
$includestr{'override_'.$key} = &unescape($includestr{'override_'.$key}); |
| |
} |
| } |
} |
| $datatable .= '<span class="LC_nobreak"><label>'. |
|
| '<input type="radio" name="helpform_'.$field.'" '. |
|
| 'value="'.$option.'"'.$checked.$clickaction.' />'.$fieldoptions->{$option}. |
|
| '</label></span>'.(' 'x2); |
|
| } |
} |
| } |
} |
| if ($field eq 'screenshot') { |
} |
| my $display; |
my $customclass = 'LC_helpdesk_override'; |
| if ($currfield{$field} eq 'no') { |
my $optionsprefix = 'LC_options_helpdesk_'; |
| $display = ' style="display:none"'; |
|
| } |
my $onclicktypes = "toggleHelpdeskRow(this.form,'overrides','$customclass','$optionsprefix');"; |
| $datatable .= '</td></tr><tr id="help_screenshotsize"'.$display.' />'. |
|
| '<td>'.&mt('Maximum size for upload (MB)').'</td><td>'. |
$datatable .= &insttypes_row($settings,$types,$usertypes,$dom, |
| '<input type="text" size="5" name="helpform_maxsize" value="'.$maxsize.'" />'; |
$numinrow,$othertitle,'overrides', |
| |
\$rownum,$onclicktypes,$customclass); |
| |
$rownum ++; |
| |
$usertypeshash{'default'} = $othertitle; |
| |
foreach my $status (@posstypes) { |
| |
my $css_class; |
| |
if ($rownum%2) { |
| |
$css_class = 'LC_odd_row '; |
| |
} |
| |
$css_class .= $customclass; |
| |
my $rowid = $optionsprefix.$status; |
| |
my $hidden = 1; |
| |
my $currstyle = 'display:none'; |
| |
if (grep(/^\Q$status\E$/,@overridden)) { |
| |
$currstyle = 'display:table-row'; |
| |
$hidden = 0; |
| |
} |
| |
my $key = 'override_'.$status; |
| |
$datatable .= &overridden_helpdesk($checked{$key},$otheremails{$key},$bccemails{$key}, |
| |
$includeloc{$key},$includestr{$key},$status,$rowid, |
| |
$usertypeshash{$status},$css_class,$currstyle, |
| |
\@contacts,$short_titles); |
| |
unless ($hidden) { |
| |
$rownum ++; |
| } |
} |
| $datatable .= '</td></tr>'; |
|
| } |
} |
| $datatable .= '</table>'; |
|
| } |
} |
| $datatable .= '</td></tr>'."\n"; |
|
| $rownum ++; |
|
| } |
} |
| $$rowtotal += $rownum; |
$$rowtotal += $rownum; |
| return $datatable; |
return $datatable; |
| } |
} |
| |
|
| |
sub overridden_helpdesk { |
| |
my ($checked,$otheremails,$bccemails,$includeloc,$includestr,$type,$rowid, |
| |
$typetitle,$css_class,$rowstyle,$contacts,$short_titles) = @_; |
| |
my $class = 'LC_left_item'; |
| |
if ($css_class) { |
| |
$css_class = ' class="'.$css_class.'"'; |
| |
} |
| |
if ($rowid) { |
| |
$rowid = ' id="'.$rowid.'"'; |
| |
} |
| |
if ($rowstyle) { |
| |
$rowstyle = ' style="'.$rowstyle.'"'; |
| |
} |
| |
my ($output,$description); |
| |
$description = &mt('Helpdesk requests from: [_1] in this domain (overrides default)',"<b>$typetitle</b>"); |
| |
$output = '<tr'.$css_class.$rowid.$rowstyle.'>'. |
| |
"<td>$description</td>\n". |
| |
'<td class="'.$class.'" colspan="2">'. |
| |
'<fieldset><legend>'.&mt('E-mail recipient(s)').'</legend>'. |
| |
'<span class="LC_nobreak">'; |
| |
if (ref($contacts) eq 'ARRAY') { |
| |
foreach my $item (@{$contacts}) { |
| |
my $check; |
| |
if (ref($checked) eq 'HASH') { |
| |
$check = $checked->{$item}; |
| |
} |
| |
my $title; |
| |
if (ref($short_titles) eq 'HASH') { |
| |
$title = $short_titles->{$item}; |
| |
} |
| |
$output .= '<label>'. |
| |
'<input type="checkbox" name="override_'.$type.'"'.$check. |
| |
' value="'.$item.'" />'.$title.'</label> '; |
| |
} |
| |
} |
| |
$output .= '</span><br />'.&mt('Others').': '. |
| |
'<input type="text" name="override_'.$type.'_others" '. |
| |
'value="'.$otheremails.'" />'; |
| |
my %locchecked; |
| |
foreach my $loc ('s','b') { |
| |
if ($includeloc eq $loc) { |
| |
$locchecked{$loc} = ' checked="checked"'; |
| |
last; |
| |
} |
| |
} |
| |
$output .= '<br />'.&mt('Bcc:').(' 'x6). |
| |
'<input type="text" name="override_'.$type.'_bcc" '. |
| |
'value="'.$bccemails.'" /></fieldset>'. |
| |
'<fieldset><legend>'.&mt('Optional added text').'</legend>'. |
| |
&mt('Text automatically added to e-mail:').' '. |
| |
'<input type="text" name="override_'.$type.'_includestr" value="'.$includestr.'" /><br >'. |
| |
'<span class="LC_nobreak">'.&mt('Location:').' '. |
| |
'<label><input type="radio" name="override_'.$type.'_includeloc" value="s"'.$locchecked{'s'}.' />'.&mt('in subject').'</label>'. |
| |
(' 'x2). |
| |
'<label><input type="radio" name="override_'.$type.'_includeloc" value="b"'.$locchecked{'b'}.' />'.&mt('in body').'</label>'. |
| |
'</span></fieldset>'. |
| |
'</td></tr>'."\n"; |
| |
return $output; |
| |
} |
| |
|
| sub contacts_javascript { |
sub contacts_javascript { |
| return <<"ENDSCRIPT"; |
return <<"ENDSCRIPT"; |
| |
|
|
Line 3251 function screenshotSize(field) {
|
Line 3608 function screenshotSize(field) {
|
| return; |
return; |
| } |
} |
| |
|
| |
function toggleHelpdeskRow(form,checkbox,target,prefix,docount) { |
| |
if (form.elements[checkbox].length != undefined) { |
| |
var count = 0; |
| |
if (docount) { |
| |
for (var i=0; i<form.elements[checkbox].length; i++) { |
| |
if (form.elements[checkbox][i].checked) { |
| |
count ++; |
| |
} |
| |
} |
| |
} |
| |
for (var i=0; i<form.elements[checkbox].length; i++) { |
| |
var type = form.elements[checkbox][i].value; |
| |
if (document.getElementById(prefix+type)) { |
| |
if (form.elements[checkbox][i].checked) { |
| |
document.getElementById(prefix+type).style.display = 'table-row'; |
| |
if (count % 2 == 1) { |
| |
document.getElementById(prefix+type).className = target+' LC_odd_row'; |
| |
} else { |
| |
document.getElementById(prefix+type).className = target; |
| |
} |
| |
count ++; |
| |
} else { |
| |
document.getElementById(prefix+type).style.display = 'none'; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
return; |
| |
} |
| |
|
| |
|
| // ]]> |
// ]]> |
| </script> |
</script> |
| |
|
|
Line 3724 sub print_ltitools {
|
Line 4112 sub print_ltitools {
|
| for (my $i=0; $i<@items; $i++) { |
for (my $i=0; $i<@items; $i++) { |
| $css_class = $itemcount%2?' class="LC_odd_row"':''; |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
| my $item = $ordered{$items[$i]}; |
my $item = $ordered{$items[$i]}; |
| my ($title,$key,$secret,$url,$imgsrc,$version); |
my ($title,$key,$secret,$url,$imgsrc); |
| if (ref($settings->{$item}) eq 'HASH') { |
if (ref($settings->{$item}) eq 'HASH') { |
| $title = $settings->{$item}->{'title'}; |
$title = $settings->{$item}->{'title'}; |
| $url = $settings->{$item}->{'url'}; |
$url = $settings->{$item}->{'url'}; |
|
Line 3735 sub print_ltitools {
|
Line 4123 sub print_ltitools {
|
| $imgsrc = '<img src="'.$image.'" alt="'.&mt('Tool Provider icon').'" />'; |
$imgsrc = '<img src="'.$image.'" alt="'.&mt('Tool Provider icon').'" />'; |
| } |
} |
| } |
} |
| my $chgstr = ' onchange="javascript:reorderLTI(this.form,'."'ltitools_".$item."'".');"'; |
my $chgstr = ' onchange="javascript:reorderLTITools(this.form,'."'ltitools_".$item."'".');"'; |
| $datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">' |
$datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">' |
| .'<select name="ltitools_'.$item.'"'.$chgstr.'>'; |
.'<select name="ltitools_'.$item.'"'.$chgstr.'>'; |
| for (my $k=0; $k<=$maxnum; $k++) { |
for (my $k=0; $k<=$maxnum; $k++) { |
|
Line 3762 sub print_ltitools {
|
Line 4150 sub print_ltitools {
|
| '<span class="LC_nobreak">'.$lt{'url'}.':<input type="text" size="30" name="ltitools_url_'.$i.'"'. |
'<span class="LC_nobreak">'.$lt{'url'}.':<input type="text" size="30" name="ltitools_url_'.$i.'"'. |
| ' value="'.$url.'" /></span>'. |
' value="'.$url.'" /></span>'. |
| (' 'x2). |
(' 'x2). |
| '<span class="LC_nobreak">'.$lt{'key'}. |
'<span class="LC_nobreak">'.$lt{'key'}.':'. |
| '<input type="text" size="25" name="ltitools_key_'.$i.'" value="'.$key.'" /></span> '. |
'<input type="text" size="25" name="ltitools_key_'.$i.'" value="'.$key.'" /></span> '. |
| (' 'x2). |
(' 'x2). |
| '<span class="LC_nobreak">'.$lt{'secret'}.':'. |
'<span class="LC_nobreak">'.$lt{'secret'}.':'. |
|
Line 3808 sub print_ltitools {
|
Line 4196 sub print_ltitools {
|
| '<div class="LC_left_float">'.$lt{'explanation'}.'<br />'. |
'<div class="LC_left_float">'.$lt{'explanation'}.'<br />'. |
| '<textarea name="ltitools_explanation_'.$i.'" rows="5" cols="40">'.$currdisp{'explanation'}. |
'<textarea name="ltitools_explanation_'.$i.'" rows="5" cols="40">'.$currdisp{'explanation'}. |
| '</textarea></div><div style=""></div><br />'; |
'</textarea></div><div style=""></div><br />'; |
| $datatable .= '<br />'; |
my %units = ( |
| |
'passback' => 'days', |
| |
'roster' => 'seconds', |
| |
); |
| foreach my $extra ('passback','roster') { |
foreach my $extra ('passback','roster') { |
| |
my $validsty = 'none'; |
| |
my $currvalid; |
| my $checkedon = ''; |
my $checkedon = ''; |
| my $checkedoff = ' checked="checked"'; |
my $checkedoff = ' checked="checked"'; |
| if ($settings->{$item}->{$extra}) { |
if ($settings->{$item}->{$extra}) { |
| $checkedon = $checkedoff; |
$checkedon = $checkedoff; |
| $checkedoff = ''; |
$checkedoff = ''; |
| } |
$validsty = 'inline-block'; |
| $datatable .= $lt{$extra}.' '. |
if ($settings->{$item}->{$extra.'valid'} =~ /^\d+\.?\d*$/) { |
| '<label><input type="radio" name="ltitools_'.$extra.'_'.$i.'" value="1"'.$checkedon.' />'. |
$currvalid = $settings->{$item}->{$extra.'valid'}; |
| &mt('Yes').'</label>'.(' 'x2). |
} |
| '<label><input type="radio" name="ltitools_'.$extra.'_'.$i.'" value="0"'.$checkedoff.' />'. |
} |
| &mt('No').'</label>'.(' 'x4); |
my $onclick = ' onclick="toggleLTITools(this.form,'."'$extra','$i'".');"'; |
| |
$datatable .= '<div class="LC_floatleft"><span class="LC_nobreak">'.$lt{$extra}.' '. |
| |
'<label><input type="radio" name="ltitools_'.$extra.'_'.$i.'" value="0"'.$checkedoff.$onclick.' />'. |
| |
&mt('No').'</label>'.(' 'x2). |
| |
'<label><input type="radio" name="ltitools_'.$extra.'_'.$i.'" value="1"'.$checkedon.$onclick.' />'. |
| |
&mt('Yes').'</label></span></div>'. |
| |
'<div class="LC_floatleft" style="display:'.$validsty.';" id="ltitools_'.$extra.'time_'.$i.'">'. |
| |
'<span class="LC_nobreak">'. |
| |
&mt("at least [_1] $units{$extra} after launch", |
| |
'<input type="text" name="ltitools_'.$extra.'valid_'.$i.'" value="'.$currvalid.'" />'). |
| |
'</span></div><div style="padding:0;clear:both;margin:0;border:0"></div>'; |
| } |
} |
| $datatable .= '<br /><br /><span class="LC_nobreak">'.$lt{'icon'}.': '; |
$datatable .= '<span class="LC_nobreak">'.$lt{'icon'}.': '; |
| if ($imgsrc) { |
if ($imgsrc) { |
| $datatable .= $imgsrc. |
$datatable .= $imgsrc. |
| '<label><input type="checkbox" name="ltitools_image_del"'. |
'<label><input type="checkbox" name="ltitools_image_del"'. |
|
Line 3889 sub print_ltitools {
|
Line 4292 sub print_ltitools {
|
| } |
} |
| } |
} |
| $datatable .= '<fieldset><legend>'.&mt('Configurable in course').'</legend><span class="LC_nobreak">'; |
$datatable .= '<fieldset><legend>'.&mt('Configurable in course').'</legend><span class="LC_nobreak">'; |
| foreach my $item ('label','title','target','linktext','explanation') { |
foreach my $item ('label','title','target','linktext','explanation','append') { |
| my $checked; |
my $checked; |
| if ($courseconfig{$item}) { |
if ($courseconfig{$item}) { |
| $checked = ' checked="checked"'; |
$checked = ' checked="checked"'; |
|
Line 3922 sub print_ltitools {
|
Line 4325 sub print_ltitools {
|
| } |
} |
| } |
} |
| $css_class = $itemcount%2?' class="LC_odd_row"':''; |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
| my $chgstr = ' onchange="javascript:reorderLTI(this.form,'."'ltitools_add_pos'".');"'; |
my $chgstr = ' onchange="javascript:reorderLTITools(this.form,'."'ltitools_add_pos'".');"'; |
| $datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">'."\n". |
$datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">'."\n". |
| '<input type="hidden" name="ltitools_maxnum" value="'.$maxnum.'" />'."\n". |
'<input type="hidden" name="ltitools_maxnum" value="'.$maxnum.'" />'."\n". |
| '<select name="ltitools_add_pos"'.$chgstr.'>'; |
'<select name="ltitools_add_pos"'.$chgstr.'>'; |
|
Line 3973 sub print_ltitools {
|
Line 4376 sub print_ltitools {
|
| '<div class="LC_left_float">'.$lt{'explanation'}.'<br />'. |
'<div class="LC_left_float">'.$lt{'explanation'}.'<br />'. |
| '<textarea name=ltitools_add_explanation" rows="5" cols="40"></textarea>'. |
'<textarea name=ltitools_add_explanation" rows="5" cols="40"></textarea>'. |
| '</div><div style=""></div><br />'; |
'</div><div style=""></div><br />'; |
| |
my %units = ( |
| |
'passback' => 'days', |
| |
'roster' => 'seconds', |
| |
); |
| |
my %defaulttimes = ( |
| |
'passback' => '7', |
| |
'roster' => '300', |
| |
); |
| foreach my $extra ('passback','roster') { |
foreach my $extra ('passback','roster') { |
| $datatable .= $lt{$extra}.' '. |
my $onclick = ' onclick="toggleLTITools(this.form,'."'$extra','add'".');"'; |
| '<label><input type="radio" name="ltitools_add_'.$extra.'" value="1" />'. |
$datatable .= '<div class="LC_floatleft"><span class="LC_nobreak">'.$lt{$extra}.' '. |
| &mt('Yes').'</label>'.(' 'x2). |
'<label><input type="radio" name="ltitools_'.$extra.'_add" value="0" checked="checked"'.$onclick.' />'. |
| '<label><input type="radio" name="ltitools_add_'.$extra.'" value="0" checked="checked" />'. |
&mt('No').'</label></span>'.(' 'x2).'<span class="LC_nobreak">'. |
| &mt('No').'</label>'.(' 'x4); |
'<label><input type="radio" name="ltitools_'.$extra.'_add" value="1"'.$onclick.' />'. |
| |
&mt('Yes').'</label></span></div>'. |
| |
'<div class="LC_floatleft" style="display:none;" id="ltitools_'.$extra.'time_add">'. |
| |
'<span class="LC_nobreak">'. |
| |
&mt("at least [_1] $units{$extra} after launch", |
| |
'<input type="text" name="ltitools_'.$extra.'valid_add" value="'.$defaulttimes{$extra}.'" />'). |
| |
'</span></div><div style="padding:0;clear:both;margin:0;border:0"></div>'; |
| } |
} |
| $datatable .= '<br /><br /><span class="LC_nobreak">'.$lt{'icon'}.': '. |
$datatable .= '<span class="LC_nobreak">'.$lt{'icon'}.': '. |
| '('.&mt('if larger than 21x21 pixels, image will be scaled').') '; |
'('.&mt('if larger than 21x21 pixels, image will be scaled').') '; |
| if ($switchserver) { |
if ($switchserver) { |
| $datatable .= &mt('Upload to library server: [_1]',$switchserver); |
$datatable .= &mt('Upload to library server: [_1]',$switchserver); |
|
Line 4010 sub print_ltitools {
|
Line 4427 sub print_ltitools {
|
| } |
} |
| $datatable .= '</tr></table></fieldset>'. |
$datatable .= '</tr></table></fieldset>'. |
| '<fieldset><legend>'.&mt('Configurable in course').'</legend><span class="LC_nobreak">'; |
'<fieldset><legend>'.&mt('Configurable in course').'</legend><span class="LC_nobreak">'; |
| foreach my $item ('label','title','target','linktext','explanation') { |
foreach my $item ('label','title','target','linktext','explanation','append') { |
| $datatable .= '<label>'. |
$datatable .= '<label>'. |
| '<input type="checkbox" name="ltitools_courseconfig" value="'.$item.'" checked="checked" />'. |
'<input type="checkbox" name="ltitools_courseconfig" value="'.$item.'" checked="checked" />'. |
| $lt{'crs'.$item}.'</label>'.(' ' x2)."\n"; |
$lt{'crs'.$item}.'</label>'.(' ' x2)."\n"; |
|
Line 4058 sub ltitools_names {
|
Line 4475 sub ltitools_names {
|
| 'crstitle' => 'Course title', |
'crstitle' => 'Course title', |
| 'crslinktext' => 'Link Text', |
'crslinktext' => 'Link Text', |
| 'crsexplanation' => 'Explanation', |
'crsexplanation' => 'Explanation', |
| |
'crsappend' => 'Provider URL', |
| |
); |
| |
return %lt; |
| |
} |
| |
|
| |
sub print_lti { |
| |
my ($dom,$settings,$rowtotal) = @_; |
| |
my $itemcount = 1; |
| |
my $maxnum = 0; |
| |
my $css_class; |
| |
my %ordered; |
| |
if (ref($settings) eq 'HASH') { |
| |
foreach my $item (keys(%{$settings})) { |
| |
if (ref($settings->{$item}) eq 'HASH') { |
| |
my $num = $settings->{$item}{'order'}; |
| |
$ordered{$num} = $item; |
| |
} |
| |
} |
| |
} |
| |
my $maxnum = scalar(keys(%ordered)); |
| |
my $datatable = <i_javascript($settings); |
| |
my %lt = <i_names(); |
| |
if (keys(%ordered)) { |
| |
my @items = sort { $a <=> $b } keys(%ordered); |
| |
for (my $i=0; $i<@items; $i++) { |
| |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
| |
my $item = $ordered{$items[$i]}; |
| |
my ($key,$secret,$lifetime,$consumer,$current); |
| |
if (ref($settings->{$item}) eq 'HASH') { |
| |
$key = $settings->{$item}->{'key'}; |
| |
$secret = $settings->{$item}->{'secret'}; |
| |
$lifetime = $settings->{$item}->{'lifetime'}; |
| |
$consumer = $settings->{$item}->{'consumer'}; |
| |
$current = $settings->{$item}; |
| |
} |
| |
my $chgstr = ' onchange="javascript:reorderLTI(this.form,'."'lti_pos_".$item."'".');"'; |
| |
$datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">' |
| |
.'<select name="lti_pos_'.$item.'"'.$chgstr.'>'; |
| |
for (my $k=0; $k<=$maxnum; $k++) { |
| |
my $vpos = $k+1; |
| |
my $selstr; |
| |
if ($k == $i) { |
| |
$selstr = ' selected="selected" '; |
| |
} |
| |
$datatable .= '<option value="'.$k.'"'.$selstr.'>'.$vpos.'</option>'; |
| |
} |
| |
$datatable .= '</select>'.(' 'x2). |
| |
'<label><input type="checkbox" name="lti_del" value="'.$item.'" />'. |
| |
&mt('Delete?').'</label></span></td>'. |
| |
'<td colspan="2">'. |
| |
'<fieldset><legend>'.&mt('Required settings').'</legend>'. |
| |
'<span class="LC_nobreak">'.$lt{'consumer'}. |
| |
':<input type="text" size="20" name="lti_consumer_'.$i.'" value="'.$consumer.'" /></span> '. |
| |
(' 'x2). |
| |
'<span class="LC_nobreak">'.$lt{'version'}.':<select name="lti_version_'.$i.'">'. |
| |
'<option value="LTI-1p0" selected="selected">1.1</option></select></span> '. |
| |
(' 'x2). |
| |
'<span class="LC_nobreak">'.$lt{'lifetime'}.':<input type="text" name="lti_lifetime_'.$i.'"'. |
| |
'value="'.$lifetime.'" size="5" /></span>'. |
| |
'<br /><br />'. |
| |
'<span class="LC_nobreak">'.$lt{'key'}. |
| |
':<input type="text" size="25" name="lti_key_'.$i.'" value="'.$key.'" /></span> '. |
| |
(' 'x2). |
| |
'<span class="LC_nobreak">'.$lt{'secret'}.':'. |
| |
'<input type="password" size="20" name="lti_secret_'.$i.'" value="'.$secret.'" />'. |
| |
'<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.lti_secret_'.$i.'.type='."'text'".' } else { this.form.lti_secret_'.$i.'.type='."'password'".' }" />'.&mt('Visible input').'</label>'. |
| |
'<input type="hidden" name="lti_id_'.$i.'" value="'.$item.'" /></span>'. |
| |
'</fieldset>'.<i_options($i,$current,%lt).'</td></tr>'; |
| |
$itemcount ++; |
| |
} |
| |
} |
| |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
| |
my $chgstr = ' onchange="javascript:reorderLTI(this.form,'."'lti_pos_add'".');"'; |
| |
$datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">'."\n". |
| |
'<input type="hidden" name="lti_maxnum" value="'.$maxnum.'" />'."\n". |
| |
'<select name="lti_pos_add"'.$chgstr.'>'; |
| |
for (my $k=0; $k<$maxnum+1; $k++) { |
| |
my $vpos = $k+1; |
| |
my $selstr; |
| |
if ($k == $maxnum) { |
| |
$selstr = ' selected="selected" '; |
| |
} |
| |
$datatable .= '<option value="'.$k.'"'.$selstr.'>'.$vpos.'</option>'; |
| |
} |
| |
$datatable .= '</select> '."\n". |
| |
'<input type="checkbox" name="lti_add" value="1" />'.&mt('Add').'</td>'."\n". |
| |
'<td colspan="2">'. |
| |
'<fieldset><legend>'.&mt('Required settings').'</legend>'. |
| |
'<span class="LC_nobreak">'.$lt{'consumer'}. |
| |
':<input type="text" size="20" name="lti_consumer_add" value="" /></span> '."\n". |
| |
(' 'x2). |
| |
'<span class="LC_nobreak">'.$lt{'version'}.':<select name="lti_version_add">'. |
| |
'<option value="LTI-1p0" selected="selected">1.1</option></select></span> '."\n". |
| |
(' 'x2). |
| |
'<span class="LC_nobreak">'.$lt{'lifetime'}.':<input type="text" size="5" name="lti_lifetime_add" value="" /></span> '."\n". |
| |
'<br /><br />'. |
| |
'<span class="LC_nobreak">'.$lt{'key'}.':<input type="text" size="25" name="lti_key_add" value="" /></span> '."\n". |
| |
(' 'x2). |
| |
'<span class="LC_nobreak">'.$lt{'secret'}.':<input type="password" size="20" name="lti_secret_add" value="" />'. |
| |
'<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.lti_secret_add.type='."'text'".' } else { this.form.lti_secret_add.type='."'password'".' }" />'.&mt('Visible input').'</label></span> '."\n". |
| |
'</fieldset>'.<i_options('add',undef,%lt). |
| |
'</td>'."\n". |
| |
'</tr>'."\n"; |
| |
$$rowtotal ++; |
| |
return $datatable;; |
| |
} |
| |
|
| |
sub lti_names { |
| |
my %lt = &Apache::lonlocal::texthash( |
| |
'version' => 'LTI Version', |
| |
'url' => 'URL', |
| |
'key' => 'Key', |
| |
'lifetime' => 'Nonce lifetime (seconds)', |
| |
'consumer' => 'LTI Consumer', |
| |
'secret' => 'Secret', |
| |
'email' => 'Email address', |
| |
'sourcedid' => 'User ID', |
| |
'other' => 'Other', |
| |
'passback' => 'Can return grades to Consumer:', |
| |
'roster' => 'Can retrieve roster from Consumer:', |
| ); |
); |
| return %lt; |
return %lt; |
| } |
} |
| |
|
| |
sub lti_options { |
| |
my ($num,$current,%lt) = @_; |
| |
my (%checked,%rolemaps,$crssecsrc,$userfield,$cidfield); |
| |
$checked{'mapuser'}{'sourcedid'} = ' checked="checked"'; |
| |
$checked{'mapcrs'}{'course_offering_sourcedid'} = ' checked="checked"'; |
| |
$checked{'makecrs'}{'N'} = ' checked="checked"'; |
| |
$checked{'mapcrstype'} = {}; |
| |
$checked{'makeuser'} = {}; |
| |
$checked{'selfenroll'} = {}; |
| |
$checked{'crssec'} = {}; |
| |
$checked{'crssecsrc'} = {}; |
| |
|
| |
my $userfieldsty = 'none'; |
| |
my $crsfieldsty = 'none'; |
| |
my $crssecfieldsty = 'none'; |
| |
my $secsrcfieldsty = 'none'; |
| |
|
| |
if (ref($current) eq 'HASH') { |
| |
if (($current->{'mapuser'} ne '') && ($current->{'mapuser'} ne 'lis_person_sourcedid')) { |
| |
$checked{'mapuser'}{'sourcedid'} = ''; |
| |
if ($current->{'mapuser'} eq 'lis_person_contact_email_primary') { |
| |
$checked{'mapuser'}{'email'} = ' checked="checked"'; |
| |
} else { |
| |
$checked{'mapuser'}{'other'} = ' checked="checked"'; |
| |
$userfield = $current->{'mapuser'}; |
| |
$userfieldsty = 'inline-block'; |
| |
} |
| |
} |
| |
if (($current->{'mapcrs'} ne '') && ($current->{'mapcrs'} ne 'course_offering_sourcedid')) { |
| |
$checked{'mapcrs'}{'course_offering_sourcedid'} = ''; |
| |
if ($current->{'mapcrs'} eq 'context_id') { |
| |
$checked{'mapcrs'}{'context_id'} = ' checked="checked"'; |
| |
} else { |
| |
$checked{'mapcrs'}{'other'} = ' checked="checked"'; |
| |
$cidfield = $current->{'mapcrs'}; |
| |
$crsfieldsty = 'inline-block'; |
| |
} |
| |
} |
| |
if (ref($current->{'mapcrstype'}) eq 'ARRAY') { |
| |
foreach my $type (@{$current->{'mapcrstype'}}) { |
| |
$checked{'mapcrstype'}{$type} = ' checked="checked"'; |
| |
} |
| |
} |
| |
if ($current->{'makecrs'}) { |
| |
$checked{'makecrs'}{'Y'} = ' checked="checked"'; |
| |
} |
| |
if (ref($current->{'makeuser'}) eq 'ARRAY') { |
| |
foreach my $role (@{$current->{'makeuser'}}) { |
| |
$checked{'makeuser'}{$role} = ' checked="checked"'; |
| |
} |
| |
} |
| |
if (ref($current->{'selfenroll'}) eq 'ARRAY') { |
| |
foreach my $role (@{$current->{'selfenroll'}}) { |
| |
$checked{'selfenroll'}{$role} = ' checked="checked"'; |
| |
} |
| |
} |
| |
if (ref($current->{'maproles'}) eq 'HASH') { |
| |
%rolemaps = %{$current->{'maproles'}}; |
| |
} |
| |
if ($current->{'section'} ne '') { |
| |
$checked{'crssec'}{'Y'} = ' checked="checked"'; |
| |
$crssecfieldsty = 'inline-block'; |
| |
if ($current->{'section'} eq 'course_section_sourcedid') { |
| |
$checked{'crssecsrc'}{'sourcedid'} = ' checked="checked"'; |
| |
} else { |
| |
$checked{'crssecsrc'}{'other'} = ' checked="checked"'; |
| |
$crssecsrc = $current->{'section'}; |
| |
$secsrcfieldsty = 'inline-block'; |
| |
} |
| |
} else { |
| |
$checked{'crssec'}{'N'} = ' checked="checked"'; |
| |
} |
| |
} else { |
| |
$checked{'makecrs'}{'N'} = ' checked="checked"'; |
| |
$checked{'crssec'}{'N'} = ' checked="checked"'; |
| |
} |
| |
my @coursetypes = ('official','unofficial','community','textbook','placement'); |
| |
my %coursetypetitles = &Apache::lonlocal::texthash ( |
| |
official => 'Official', |
| |
unofficial => 'Unofficial', |
| |
community => 'Community', |
| |
textbook => 'Textbook', |
| |
placement => 'Placement Test', |
| |
); |
| |
my @ltiroles = qw(Learner Instructor ContentDeveloper TeachingAssistant Mentor Member Manager Administrator); |
| |
my @lticourseroles = qw(Learner Instructor TeachingAssistant Mentor); |
| |
my @courseroles = ('cc','in','ta','ep','st'); |
| |
my $onclickuser = ' onclick="toggleLTI(this.form,'."'user','$num'".');"'; |
| |
my $onclickcrs = ' onclick="toggleLTI(this.form,'."'crs','$num'".');"'; |
| |
my $onclicksec = ' onclick="toggleLTI(this.form,'."'sec','$num'".');"'; |
| |
my $onclicksecsrc = ' onclick="toggleLTI(this.form,'."'secsrc','$num'".')"'; |
| |
my $output = '<fieldset><legend>'.&mt('Mapping users').'</legend>'. |
| |
'<div class="LC_floatleft"><span class="LC_nobreak">'.&mt('LON-CAPA username').': '; |
| |
foreach my $option ('sourcedid','email','other') { |
| |
$output .= '<label><input type="radio" name="lti_mapuser_'.$num.'" value="'.$option.'"'. |
| |
$checked{'mapuser'}{$option}.$onclickuser.' />'.$lt{$option}.'</label>'. |
| |
($option eq 'other' ? '' : (' 'x2) ); |
| |
} |
| |
$output .= '</span></div>'. |
| |
'<div class="LC_floatleft" style="display:'.$userfieldsty.';" id="lti_userfield_'.$num.'">'. |
| |
'<input type="text" name="lti_customuser_'.$num.'" '. |
| |
'value="'.$userfield.'" /></div></fieldset>'. |
| |
'<fieldset><legend>'.&mt('Mapping course roles').'</legend><table><tr>'; |
| |
foreach my $ltirole (@lticourseroles) { |
| |
my ($selected,$selectnone); |
| |
if ($rolemaps{$ltirole} eq '') { |
| |
$selectnone = ' selected="selected"'; |
| |
} |
| |
$output .= '<td style="text-align: center">'.$ltirole.'<br />'. |
| |
'<select name="lti_maprole_'.$ltirole.'_'.$num.'">'. |
| |
'<option value=""'.$selectnone.'>'.&mt('Select').'</option>'; |
| |
foreach my $role (@courseroles) { |
| |
unless ($selectnone) { |
| |
if ($rolemaps{$ltirole} eq $role) { |
| |
$selected = ' selected="selected"'; |
| |
} else { |
| |
$selected = ''; |
| |
} |
| |
} |
| |
$output .= '<option value="'.$role.'"'.$selected.'>'. |
| |
&Apache::lonnet::plaintext($role,'Course'). |
| |
'</option>'; |
| |
} |
| |
$output .= '</select></td>'; |
| |
} |
| |
$output .= '</tr></table></fieldset>'. |
| |
'<fieldset><legend>'.&mt('Roles which may create user accounts').'</legend>'; |
| |
foreach my $ltirole (@ltiroles) { |
| |
$output .= '<span class="LC_nobreak"><label><input type="checkbox" name="lti_makeuser_'.$num.'" value="'.$ltirole.'"'. |
| |
$checked{'makeuser'}{$ltirole}.' />'.$ltirole.'</label> </span> '; |
| |
} |
| |
$output .= '</fieldset>'. |
| |
'<fieldset><legend>'.&mt('Mapping courses').'</legend>'. |
| |
'<div class="LC_floatleft"><span class="LC_nobreak">'. |
| |
&mt('Unique course identifier').': '; |
| |
foreach my $option ('course_offering_sourcedid','context_id','other') { |
| |
$output .= '<label><input type="radio" name="lti_mapcrs_'.$num.'" value="'.$option.'"'. |
| |
$checked{'mapcrs'}{$option}.$onclickcrs.' />'.$option.'</label>'. |
| |
($option eq 'other' ? '' : (' 'x2) ); |
| |
} |
| |
$output .= '</div><div class="LC_floatleft" style="display:'.$crsfieldsty.';" id="lti_crsfield_'.$num.'".>'. |
| |
'<input type="text" name="lti_mapcrsfield_'.$num.'" value="'.$cidfield.'" />'. |
| |
'</div><div style="padding:0;clear:both;margin:0;border:0"></div>'. |
| |
'<span class="LC_nobreak">'.&mt('LON-CAPA course type(s)').': '; |
| |
foreach my $type (@coursetypes) { |
| |
$output .= '<label><input type="checkbox" name="lti_mapcrstype_'.$num.'" value="'.$type.'"'. |
| |
$checked{'mapcrstype'}{$type}.' />'.$coursetypetitles{$type}.'</label>'. |
| |
(' 'x2); |
| |
} |
| |
$output .= '</span></fieldset>'. |
| |
'<fieldset><legend>'.&mt('Creating courses').'</legend>'. |
| |
'<span class="LC_nobreak">'.&mt('Course created (if absent) on Instructor access').': '. |
| |
'<label><input type="radio" name="lti_makecrs_'.$num.'" value="0"'. |
| |
$checked{'makecrs'}{'N'}.' />'.&mt('No').'</label>'.(' 'x2). |
| |
'<label><input type="radio" name="lti_makecrs_'.$num.'" value="1"'. |
| |
$checked{'makecrs'}{'Y'}.' />'.&mt('Yes').'</label></span>'. |
| |
'</fieldset>'. |
| |
'<fieldset><legend>'.&mt('Roles which may self-enroll').'</legend>'; |
| |
foreach my $lticrsrole (@lticourseroles) { |
| |
$output .= '<span class="LC_nobreak"><label><input type="checkbox" name="lti_selfenroll_'.$num.'" value="'.$lticrsrole.'"'. |
| |
$checked{'selfenroll'}{$lticrsrole}.' />'.$lticrsrole.'</label> </span> '; |
| |
} |
| |
$output .= '</fieldset>'. |
| |
'<fieldset><legend>'.&mt('Course options').'</legend>'. |
| |
'<div class="LC_floatleft"><span class="LC_nobreak">'.&mt('Assign users to sections').': '. |
| |
'<label><input type="radio" name="lti_crssec_'.$num.'" value="0"'. |
| |
$checked{'crssec'}{'N'}.$onclicksec.' />'.&mt('No').'</label>'.(' 'x2). |
| |
'<label><input type="radio" name="lti_crssec_'.$num.'" value="1"'. |
| |
$checked{'crssec'}{'Y'}.$onclicksec.' />'.&mt('Yes').'</label><span></div>'. |
| |
'<div class="LC_floatleft" style="display:'.$crssecfieldsty.';" id="lti_crssecfield_'.$num.'">'. |
| |
'<span class="LC_nobreak">'.&mt('From').':<label>'. |
| |
'<input type="radio" name="lti_crssecsrc_'.$num.'" value="course_section_sourcedid"'. |
| |
$checked{'crssecsrc'}{'sourcedid'}.$onclicksecsrc.' />'. |
| |
&mt('Standard field').'</label>'.(' 'x2). |
| |
'<label><input type="radio" name="lti_crssecsrc_'.$num.'" value="other"'. |
| |
$checked{'crssecsrc'}{'other'}.$onclicksecsrc.' />'.&mt('Other'). |
| |
'</label></div><div class="LC_floatleft" style="display:'.$secsrcfieldsty.';" id="lti_secsrcfield_'.$num.'">'. |
| |
'<input type="text" name="lti_customsection_'.$num.'" value="'.$crssecsrc.'" />'. |
| |
'</div><div style="padding:0;clear:both;margin:0;border:0"></div>'; |
| |
foreach my $extra ('passback','roster') { |
| |
my $checkedon = ''; |
| |
my $checkedoff = ' checked="checked"'; |
| |
if (ref($current) eq 'HASH') { |
| |
if (($current->{$extra})) { |
| |
$checkedon = $checkedoff; |
| |
$checkedoff = ''; |
| |
} |
| |
} |
| |
$output .= $lt{$extra}.' '. |
| |
'<label><input type="radio" name="lti_'.$extra.'_'.$num.'" value="0"'.$checkedoff.' />'. |
| |
&mt('No').'</label>'.(' 'x2). |
| |
'<label><input type="radio" name="lti_'.$extra.'_'.$num.'" value="1"'.$checkedon.' />'. |
| |
&mt('Yes').'</label><br />'; |
| |
} |
| |
$output .= '</span></fieldset>'; |
| |
# '<fieldset><legend>'.&mt('Assigning author roles').'</legend>'; |
| |
# |
| |
# $output .= '</fieldset>'. |
| |
# '<fieldset><legend>'.&mt('Assigning domain roles').'</legend>'; |
| |
return $output; |
| |
} |
| |
|
| sub print_coursedefaults { |
sub print_coursedefaults { |
| my ($position,$dom,$settings,$rowtotal) = @_; |
my ($position,$dom,$settings,$rowtotal) = @_; |
| my ($css_class,$datatable,%checkedon,%checkedoff,%defaultchecked,@toggles); |
my ($css_class,$datatable,%checkedon,%checkedoff,%defaultchecked,@toggles); |
|
Line 4169 sub print_coursedefaults {
|
Line 4908 sub print_coursedefaults {
|
| if ($checked) { |
if ($checked) { |
| $show = 'block'; |
$show = 'block'; |
| } |
} |
| $additional = '<div id="cloneinstcode" style="display:'.$show.'" />'. |
$additional = '<div id="cloneinstcode" style="display:'.$show.';" />'. |
| &mt('Institutional codes for new and cloned course have identical:'). |
&mt('Institutional codes for new and cloned course have identical:'). |
| '<br />'; |
'<br />'; |
| foreach my $item (@code_order) { |
foreach my $item (@code_order) { |
|
Line 5484 sub loadbalance_rule_row {
|
Line 6223 sub loadbalance_rule_row {
|
| } |
} |
| my $space; |
my $space; |
| if ($islast && $num == 1) { |
if ($islast && $num == 1) { |
| $space = '<div display="inline-block"> </div>'; |
$space = '<div style="display:inline-block;"> </div>'; |
| } |
} |
| my $output = |
my $output = |
| '<tr class="'.$css_class.'" id="balanceruletr_'.$balnum.'_'.$num.'"><td style="vertical-align: top">'.$space. |
'<tr class="'.$css_class.'" id="balanceruletr_'.$balnum.'_'.$num.'"><td style="vertical-align: top">'.$space. |
|
Line 5570 sub contact_titles {
|
Line 6309 sub contact_titles {
|
| 'adminemail' => 'Default Server Admin E-mail address', |
'adminemail' => 'Default Server Admin E-mail address', |
| 'errormail' => 'Error reports to be e-mailed to', |
'errormail' => 'Error reports to be e-mailed to', |
| 'packagesmail' => 'Package update alerts to be e-mailed to', |
'packagesmail' => 'Package update alerts to be e-mailed to', |
| 'helpdeskmail' => "Helpdesk requests for this domain's users", |
'helpdeskmail' => "Helpdesk requests from all users in this domain", |
| 'otherdomsmail' => 'Helpdesk requests for other (unconfigured) domains', |
'otherdomsmail' => 'Helpdesk requests from users in other (unconfigured) domains', |
| 'lonstatusmail' => 'E-mail from nightly status check (warnings/errors)', |
'lonstatusmail' => 'E-mail from nightly status check (warnings/errors)', |
| 'requestsmail' => 'E-mail from course requests requiring approval', |
'requestsmail' => 'E-mail from course requests requiring approval', |
| 'updatesmail' => 'E-mail from nightly check of LON-CAPA module integrity/updates', |
'updatesmail' => 'E-mail from nightly check of LON-CAPA module integrity/updates', |
|
Line 7776 sub insttypes_row {
|
Line 8515 sub insttypes_row {
|
| statustocreate => 'Institutional affiliation(s) able to create own account (login/SSO)', |
statustocreate => 'Institutional affiliation(s) able to create own account (login/SSO)', |
| lockablenames => 'User preference to lock name', |
lockablenames => 'User preference to lock name', |
| selfassign => 'Self-reportable affiliations', |
selfassign => 'Self-reportable affiliations', |
| |
overrides => "Override domain's helpdesk settings based on requester's affiliation", |
| ); |
); |
| my $showdom; |
my $showdom; |
| if ($context eq 'cansearch') { |
if ($context eq 'cansearch') { |
|
Line 7822 sub insttypes_row {
|
Line 8562 sub insttypes_row {
|
| if (grep(/^\Q$types->[$i]\E$/,@{$settings->{$context}})) { |
if (grep(/^\Q$types->[$i]\E$/,@{$settings->{$context}})) { |
| $check = ' checked="checked" '; |
$check = ' checked="checked" '; |
| } |
} |
| |
} elsif (ref($settings->{$context}) eq 'HASH') { |
| |
if (ref($settings->{$context}->{$types->[$i]}) eq 'HASH') { |
| |
$check = ' checked="checked" '; |
| |
} |
| } elsif ($context eq 'statustocreate') { |
} elsif ($context eq 'statustocreate') { |
| $check = ' checked="checked" '; |
$check = ' checked="checked" '; |
| } |
} |
|
Line 7836 sub insttypes_row {
|
Line 8580 sub insttypes_row {
|
| $rem = @{$types}%($numinrow); |
$rem = @{$types}%($numinrow); |
| } |
} |
| my $colsleft = $numinrow - $rem; |
my $colsleft = $numinrow - $rem; |
| if (($rem == 0) && (@{$types} > 0)) { |
if ($context eq 'overrides') { |
| $output .= '<tr>'; |
if ($colsleft > 1) { |
| } |
$output .= '<td colspan="'.$colsleft.'" class="LC_left_item">'; |
| if ($colsleft > 1) { |
} else { |
| $output .= '<td colspan="'.$colsleft.'" class="LC_left_item">'; |
$output .= '<td class="LC_left_item">'; |
| |
} |
| |
$output .= ' '; |
| } else { |
} else { |
| $output .= '<td class="LC_left_item">'; |
if (($rem == 0) && (@{$types} > 0)) { |
| } |
$output .= '<tr>'; |
| my $defcheck = ' '; |
} |
| if (ref($settings) eq 'HASH') { |
if ($colsleft > 1) { |
| if (ref($settings->{$context}) eq 'ARRAY') { |
$output .= '<td colspan="'.$colsleft.'" class="LC_left_item">'; |
| if (grep(/^default$/,@{$settings->{$context}})) { |
} else { |
| |
$output .= '<td class="LC_left_item">'; |
| |
} |
| |
my $defcheck = ' '; |
| |
if (ref($settings) eq 'HASH') { |
| |
if (ref($settings->{$context}) eq 'ARRAY') { |
| |
if (grep(/^default$/,@{$settings->{$context}})) { |
| |
$defcheck = ' checked="checked" '; |
| |
} |
| |
} elsif ($context eq 'statustocreate') { |
| $defcheck = ' checked="checked" '; |
$defcheck = ' checked="checked" '; |
| } |
} |
| } elsif ($context eq 'statustocreate') { |
|
| $defcheck = ' checked="checked" '; |
|
| } |
} |
| |
$output .= '<span class="LC_nobreak"><label>'. |
| |
'<input type="checkbox" name="'.$context.'" '. |
| |
'value="default"'.$defcheck.$onclick.' />'. |
| |
$othertitle.'</label></span>'; |
| } |
} |
| $output .= '<span class="LC_nobreak"><label>'. |
$output .= '</td></tr></table></td></tr>'; |
| '<input type="checkbox" name="'.$context.'" '. |
|
| 'value="default"'.$defcheck.$onclick.' />'. |
|
| $othertitle.'</label></span></td>'. |
|
| '</tr></table></td></tr>'; |
|
| return $output; |
return $output; |
| } |
} |
| |
|
|
Line 8892 sub publishlogo {
|
Line 9645 sub publishlogo {
|
| } else { |
} else { |
| my $source = $filepath.'/'.$file; |
my $source = $filepath.'/'.$file; |
| my $logfile; |
my $logfile; |
| if (!open($logfile,">>$source".'.log')) { |
if (!open($logfile,">>",$source.'.log')) { |
| return (&mt('No write permission to Authoring Space')); |
return (&mt('No write permission to Authoring Space')); |
| } |
} |
| print $logfile |
print $logfile |
| "\n================= Publish ".localtime()." ================\n". |
"\n================= Publish ".localtime()." ================\n". |
| $env{'user.name'}.':'.$env{'user.domain'}."\n"; |
$env{'user.name'}.':'.$env{'user.domain'}."\n"; |
| # Save the file |
# Save the file |
| if (!open(FH,'>'.$source)) { |
if (!open(FH,">",$source)) { |
| &Apache::lonnet::logthis('Failed to create '.$source); |
&Apache::lonnet::logthis('Failed to create '.$source); |
| return (&mt('Failed to create file')); |
return (&mt('Failed to create file')); |
| } |
} |
|
Line 8960 $env{'user.name'}.':'.$env{'user.domain'
|
Line 9713 $env{'user.name'}.':'.$env{'user.domain'
|
| if ($fullwidth ne '' && $fullheight ne '') { |
if ($fullwidth ne '' && $fullheight ne '') { |
| if ($fullwidth > $thumbwidth && $fullheight > $thumbheight) { |
if ($fullwidth > $thumbwidth && $fullheight > $thumbheight) { |
| my $thumbsize = $thumbwidth.'x'.$thumbheight; |
my $thumbsize = $thumbwidth.'x'.$thumbheight; |
| system("convert -sample $thumbsize $inputfile $outfile"); |
my @args = ('convert','-sample',$thumbsize,$inputfile,$outfile); |
| |
system({$args[0]} @args); |
| chmod(0660, $filepath.'/tn-'.$file); |
chmod(0660, $filepath.'/tn-'.$file); |
| if (-e $outfile) { |
if (-e $outfile) { |
| my $copyfile=$targetdir.'/tn-'.$file; |
my $copyfile=$targetdir.'/tn-'.$file; |
|
Line 9040 sub write_metadata {
|
Line 9794 sub write_metadata {
|
| { |
{ |
| print $logfile "\nWrite metadata file for ".$targetdir.'/'.$file; |
print $logfile "\nWrite metadata file for ".$targetdir.'/'.$file; |
| my $mfh; |
my $mfh; |
| if (open($mfh,'>'.$targetdir.'/'.$file.'.meta')) { |
if (open($mfh,">",$targetdir.'/'.$file.'.meta')) { |
| foreach (sort(keys(%metadatafields))) { |
foreach (sort(keys(%metadatafields))) { |
| unless ($_=~/\./) { |
unless ($_=~/\./) { |
| my $unikey=$_; |
my $unikey=$_; |
|
Line 9074 sub notifysubscribed {
|
Line 9828 sub notifysubscribed {
|
| next unless (ref($targetsource) eq 'ARRAY'); |
next unless (ref($targetsource) eq 'ARRAY'); |
| my ($target,$source)=@{$targetsource}; |
my ($target,$source)=@{$targetsource}; |
| if ($source ne '') { |
if ($source ne '') { |
| if (open(my $logfh,'>>'.$source.'.log')) { |
if (open(my $logfh,">>",$source.'.log')) { |
| print $logfh "\nCleanup phase: Notifications\n"; |
print $logfh "\nCleanup phase: Notifications\n"; |
| my @subscribed=&subscribed_hosts($target); |
my @subscribed=&subscribed_hosts($target); |
| foreach my $subhost (@subscribed) { |
foreach my $subhost (@subscribed) { |
|
Line 9100 sub notifysubscribed {
|
Line 9854 sub notifysubscribed {
|
| sub subscribed_hosts { |
sub subscribed_hosts { |
| my ($target) = @_; |
my ($target) = @_; |
| my @subscribed; |
my @subscribed; |
| if (open(my $fh,"<$target.subscription")) { |
if (open(my $fh,"<","$target.subscription")) { |
| while (my $subline=<$fh>) { |
while (my $subline=<$fh>) { |
| if ($subline =~ /^($match_lonid):/) { |
if ($subline =~ /^($match_lonid):/) { |
| my $host = $1; |
my $host = $1; |
|
Line 9927 sub modify_ltitools {
|
Line 10681 sub modify_ltitools {
|
| $confhash{$newid}{'display'}{'target'} = 'iframe'; |
$confhash{$newid}{'display'}{'target'} = 'iframe'; |
| } |
} |
| foreach my $item ('passback','roster') { |
foreach my $item ('passback','roster') { |
| if ($env{'form.ltitools_add_'.$item}) { |
if ($env{'form.ltitools_'.$item.'_add'}) { |
| $confhash{$newid}{$item} = 1; |
$confhash{$newid}{$item} = 1; |
| |
if ($env{'form.ltitools_'.$item.'valid_add'} ne '') { |
| |
my $lifetime = $env{'form.ltitools_'.$item.'valid_add'}; |
| |
$lifetime =~ s/^\s+|\s+$//g; |
| |
if ($lifetime =~ /^\d+\.?\d*$/) { |
| |
$confhash{$newid}{$item.'valid'} = $lifetime; |
| |
} |
| |
} |
| } |
} |
| } |
} |
| if ($env{'form.ltitools_add_image.filename'} ne '') { |
if ($env{'form.ltitools_add_image.filename'} ne '') { |
|
Line 10078 sub modify_ltitools {
|
Line 10839 sub modify_ltitools {
|
| foreach my $extra ('passback','roster') { |
foreach my $extra ('passback','roster') { |
| if ($env{'form.ltitools_'.$extra.'_'.$i}) { |
if ($env{'form.ltitools_'.$extra.'_'.$i}) { |
| $confhash{$itemid}{$extra} = 1; |
$confhash{$itemid}{$extra} = 1; |
| |
if ($env{'form.ltitools_'.$extra.'valid_'.$i} ne '') { |
| |
my $lifetime = $env{'form.ltitools_'.$extra.'valid_add'}; |
| |
$lifetime =~ s/^\s+|\s+$//g; |
| |
if ($lifetime =~ /^\d+\.?\d*$/) { |
| |
$confhash{$itemid}{$extra.'valid'} = $lifetime; |
| |
} |
| |
} |
| } |
} |
| if ($domconfig{$action}{$itemid}{$extra} ne $confhash{$itemid}{$extra}) { |
if ($domconfig{$action}{$itemid}{$extra} ne $confhash{$itemid}{$extra}) { |
| $changes{$itemid} = 1; |
$changes{$itemid} = 1; |
| } |
} |
| |
if ($domconfig{$action}{$itemid}{$extra.'valid'} ne $confhash{$itemid}{$extra.'valid'}) { |
| |
$changes{$itemid} = 1; |
| |
} |
| } |
} |
| my @courseconfig = &Apache::loncommon::get_env_multiple('form.ltitools_courseconfig_'.$i); |
my @courseconfig = &Apache::loncommon::get_env_multiple('form.ltitools_courseconfig_'.$i); |
| foreach my $item ('label','title','target','linktext','explanation') { |
foreach my $item ('label','title','target','linktext','explanation','append') { |
| if (grep(/^\Q$item\E$/,@courseconfig)) { |
if (grep(/^\Q$item\E$/,@courseconfig)) { |
| $confhash{$itemid}{'crsconf'}{$item} = 1; |
$confhash{$itemid}{'crsconf'}{$item} = 1; |
| if (ref($domconfig{$action}{$itemid}{'crsconf'}) eq 'HASH') { |
if (ref($domconfig{$action}{$itemid}{'crsconf'}) eq 'HASH') { |
|
Line 10275 sub modify_ltitools {
|
Line 11046 sub modify_ltitools {
|
| $resulttext .= ('*'x$num).'</li>'; |
$resulttext .= ('*'x$num).'</li>'; |
| } |
} |
| $resulttext .= '<li>'.&mt('Configurable in course:'); |
$resulttext .= '<li>'.&mt('Configurable in course:'); |
| my @possconfig = ('label','title','target','linktext','explanation'); |
my @possconfig = ('label','title','target','linktext','explanation','append'); |
| my $numconfig = 0; |
my $numconfig = 0; |
| if (ref($confhash{$itemid}{'crsconf'}) eq 'HASH') { |
if (ref($confhash{$itemid}{'crsconf'}) eq 'HASH') { |
| foreach my $item (@possconfig) { |
foreach my $item (@possconfig) { |
|
Line 10293 sub modify_ltitools {
|
Line 11064 sub modify_ltitools {
|
| $resulttext .= '<li>'.$lt{$item}.' '; |
$resulttext .= '<li>'.$lt{$item}.' '; |
| if ($confhash{$itemid}{$item}) { |
if ($confhash{$itemid}{$item}) { |
| $resulttext .= &mt('Yes'); |
$resulttext .= &mt('Yes'); |
| |
if ($confhash{$itemid}{$item.'valid'}) { |
| |
if ($item eq 'passback') { |
| |
$resulttext .= ' '.&mt('valid for at least [quant,_1,day] after launch', |
| |
$confhash{$itemid}{$item.'valid'}); |
| |
} else { |
| |
$resulttext .= ' '.&mt('valid for at least [quant,_1,second] after launch', |
| |
$confhash{$itemid}{$item.'valid'}); |
| |
} |
| |
} |
| } else { |
} else { |
| $resulttext .= &mt('No'); |
$resulttext .= &mt('No'); |
| } |
} |
|
Line 10353 sub modify_ltitools {
|
Line 11133 sub modify_ltitools {
|
| } |
} |
| } |
} |
| if ($customlist) { |
if ($customlist) { |
| $resulttext .= '<li>'.&mt('Custom items').':'.$customlist.'</li>'; |
$resulttext .= '<li>'.&mt('Custom items').': '.$customlist.'</li>'; |
| } |
} |
| } |
} |
| $resulttext .= '</ul></li>'; |
$resulttext .= '</ul></li>'; |
|
Line 10449 sub get_ltitools_id {
|
Line 11229 sub get_ltitools_id {
|
| return ($id,$error); |
return ($id,$error); |
| } |
} |
| |
|
| |
sub modify_lti { |
| |
my ($r,$dom,$action,$lastactref,%domconfig) = @_; |
| |
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1); |
| |
my ($newid,@allpos,%changes,%confhash,%encconfig,$errors,$resulttext); |
| |
my (%posslti,%posslticrs,%posscrstype); |
| |
my @courseroles = ('cc','in','ta','ep','st'); |
| |
my @ltiroles = qw(Learner Instructor ContentDeveloper TeachingAssistant Mentor Member Manager Administrator); |
| |
my @lticourseroles = qw(Instructor TeachingAssistant Mentor Learner); |
| |
my @coursetypes = ('official','unofficial','community','textbook','placement'); |
| |
my %coursetypetitles = &Apache::lonlocal::texthash ( |
| |
official => 'Official', |
| |
unofficial => 'Unofficial', |
| |
community => 'Community', |
| |
textbook => 'Textbook', |
| |
placement => 'Placement Test', |
| |
); |
| |
my %lt = <i_names(); |
| |
map { $posslti{$_} = 1; } @ltiroles; |
| |
map { $posslticrs{$_} = 1; } @lticourseroles; |
| |
map { $posscrstype{$_} = 1; } @coursetypes; |
| |
|
| |
my (@items,%deletions,%itemids); |
| |
if ($env{'form.lti_add'}) { |
| |
my $consumer = $env{'form.lti_consumer_add'}; |
| |
$consumer =~ s/(`)/'/g; |
| |
($newid,my $error) = &get_lti_id($dom,$consumer); |
| |
if ($newid) { |
| |
$itemids{'add'} = $newid; |
| |
push(@items,'add'); |
| |
$changes{$newid} = 1; |
| |
} else { |
| |
my $error = &mt('Failed to acquire unique ID for new LTI configuration'); |
| |
$errors .= '<li><span class="LC_error">'.$error.'</span></li>'; |
| |
} |
| |
} |
| |
if (ref($domconfig{$action}) eq 'HASH') { |
| |
my @todelete = &Apache::loncommon::get_env_multiple('form.lti_del'); |
| |
if (@todelete) { |
| |
map { $deletions{$_} = 1; } @todelete; |
| |
} |
| |
my $maxnum = $env{'form.lti_maxnum'}; |
| |
for (my $i=0; $i<=$maxnum; $i++) { |
| |
my $itemid = $env{'form.lti_id_'.$i}; |
| |
$itemid =~ s/\D+//g; |
| |
if (ref($domconfig{$action}{$itemid}) eq 'HASH') { |
| |
if ($deletions{$itemid}) { |
| |
$changes{$itemid} = $domconfig{$action}{$itemid}{'consumer'}; |
| |
} else { |
| |
push(@items,$i); |
| |
$itemids{$i} = $itemid; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
foreach my $idx (@items) { |
| |
my $itemid = $itemids{$idx}; |
| |
next unless ($itemid); |
| |
my $position = $env{'form.lti_pos_'.$idx}; |
| |
$position =~ s/\D+//g; |
| |
if ($position ne '') { |
| |
$allpos[$position] = $itemid; |
| |
} |
| |
foreach my $item ('consumer','key','secret','lifetime') { |
| |
my $formitem = 'form.lti_'.$item.'_'.$idx; |
| |
$env{$formitem} =~ s/(`)/'/g; |
| |
if ($item eq 'lifetime') { |
| |
$env{$formitem} =~ s/[^\d.]//g; |
| |
} |
| |
if ($env{$formitem} ne '') { |
| |
if (($item eq 'key') || ($item eq 'secret')) { |
| |
$encconfig{$itemid}{$item} = $env{$formitem}; |
| |
} else { |
| |
$confhash{$itemid}{$item} = $env{$formitem}; |
| |
unless (($idx eq 'add') || ($changes{$itemid})) { |
| |
if ($domconfig{$action}{$itemid}{$item} ne $confhash{$itemid}{$item}) { |
| |
$changes{$itemid} = 1; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
if ($env{'form.lti_version_'.$idx} eq 'LTI-1p0') { |
| |
$confhash{$itemid}{'version'} = $env{'form.lti_version_'.$idx}; |
| |
} |
| |
if ($env{'form.lti_mapuser_'.$idx} eq 'sourcedid') { |
| |
$confhash{$itemid}{'mapuser'} = 'lis_person_sourcedid'; |
| |
} elsif ($env{'form.lti_mapuser_'.$idx} eq 'email') { |
| |
$confhash{$itemid}{'mapuser'} = 'lis_person_contact_email_primary'; |
| |
} elsif ($env{'form.lti_mapuser_'.$idx} eq 'other') { |
| |
my $mapuser = $env{'form.lti_customuser_'.$idx}; |
| |
$mapuser =~ s/(`)/'/g; |
| |
$mapuser =~ s/^\s+|\s+$//g; |
| |
$confhash{$itemid}{'mapuser'} = $mapuser; |
| |
} |
| |
foreach my $ltirole (@lticourseroles) { |
| |
my $possrole = $env{'form.lti_maprole_'.$ltirole.'_'.$idx}; |
| |
if (grep(/^\Q$possrole\E$/,@courseroles)) { |
| |
$confhash{$itemid}{'maproles'}{$ltirole} = $possrole; |
| |
} |
| |
} |
| |
my @possmakeuser = &Apache::loncommon::get_env_multiple('form.lti_makeuser_'.$idx); |
| |
my @makeuser; |
| |
foreach my $ltirole (sort(@possmakeuser)) { |
| |
if ($posslti{$ltirole}) { |
| |
push(@makeuser,$ltirole); |
| |
} |
| |
} |
| |
$confhash{$itemid}{'makeuser'} = \@makeuser; |
| |
if (($env{'form.lti_mapcrs_'.$idx} eq 'course_offering_sourcedid') || |
| |
($env{'form.lti_mapcrs_'.$idx} eq 'context_id')) { |
| |
$confhash{$itemid}{'mapcrs'} = $env{'form.lti_mapcrs_'.$idx}; |
| |
} elsif ($env{'form.lti_mapcrs_'.$idx} eq 'other') { |
| |
my $mapcrs = $env{'form.lti_mapcrsfield_'.$idx}; |
| |
$mapcrs =~ s/(`)/'/g; |
| |
$mapcrs =~ s/^\s+|\s+$//g; |
| |
$confhash{$itemid}{'mapcrs'} = $mapcrs; |
| |
} |
| |
my @posstypes = &Apache::loncommon::get_env_multiple('form.lti_mapcrstype_'.$idx); |
| |
my @crstypes; |
| |
foreach my $type (sort(@posstypes)) { |
| |
if ($posscrstype{$type}) { |
| |
push(@crstypes,$type); |
| |
} |
| |
} |
| |
$confhash{$itemid}{'mapcrstype'} = \@crstypes; |
| |
if ($env{'form.lti_makecrs_'.$idx}) { |
| |
$confhash{$itemid}{'makecrs'} = 1; |
| |
} |
| |
my @possenroll = &Apache::loncommon::get_env_multiple('form.lti_selfenroll_'.$idx); |
| |
my @selfenroll; |
| |
foreach my $type (sort(@possenroll)) { |
| |
if ($posslticrs{$type}) { |
| |
push(@selfenroll,$type); |
| |
} |
| |
} |
| |
$confhash{$itemid}{'selfenroll'} = \@selfenroll; |
| |
if ($env{'form.lti_crssec_'.$idx}) { |
| |
if ($env{'form.lti_crssecsrc_'.$idx} eq 'course_section_sourcedid') { |
| |
$confhash{$itemid}{'section'} = $env{'form.lti_crssecsrc_'.$idx}; |
| |
} elsif ($env{'form.lti_crssecsrc_'.$idx} eq 'other') { |
| |
my $section = $env{'form.lti_customsection_'.$idx}; |
| |
$section =~ s/(`)/'/g; |
| |
$section =~ s/^\s+|\s+$//g; |
| |
if ($section ne '') { |
| |
$confhash{$itemid}{'section'} = $section; |
| |
} |
| |
} |
| |
} |
| |
foreach my $field ('passback','roster') { |
| |
if ($env{'form.ltitools_'.$idx.'_'.$field}) { |
| |
$confhash{$itemid}{$field} = 1; |
| |
} |
| |
} |
| |
unless (($idx eq 'add') || ($changes{$itemid})) { |
| |
foreach my $field ('mapuser','mapcrs','section','passback','roster') { |
| |
if ($domconfig{$action}{$itemid}{$field} ne $confhash{$itemid}{$field}) { |
| |
$changes{$itemid} = 1; |
| |
} |
| |
} |
| |
foreach my $field ('makeuser','mapcrstype','selfenroll') { |
| |
unless ($changes{$itemid}) { |
| |
if (ref($domconfig{$action}{$itemid}{$field}) eq 'ARRAY') { |
| |
if (ref($confhash{$itemid}{$field}) eq 'ARRAY') { |
| |
my @diffs = &Apache::loncommon::compare_arrays($domconfig{$action}{$itemid}{$field}, |
| |
$confhash{$itemid}{$field}); |
| |
if (@diffs) { |
| |
$changes{$itemid} = 1; |
| |
} |
| |
} elsif (@{$domconfig{$action}{$itemid}{$field}} > 0) { |
| |
$changes{$itemid} = 1; |
| |
} |
| |
} elsif (ref($confhash{$itemid}{$field}) eq 'ARRAY') { |
| |
if (@{$confhash{$itemid}{$field}} > 0) { |
| |
$changes{$itemid} = 1; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
unless ($changes{$itemid}) { |
| |
if (ref($domconfig{$action}{$itemid}{'maproles'}) eq 'HASH') { |
| |
if (ref($confhash{$itemid}{'maproles'}) eq 'HASH') { |
| |
foreach my $ltirole (keys(%{$domconfig{$action}{$itemid}{'maproles'}})) { |
| |
if ($domconfig{$action}{$itemid}{'maproles'}{$ltirole} ne |
| |
$confhash{$itemid}{'maproles'}{$ltirole}) { |
| |
$changes{$itemid} = 1; |
| |
last; |
| |
} |
| |
} |
| |
unless ($changes{$itemid}) { |
| |
foreach my $ltirole (keys(%{$confhash{$itemid}{'maproles'}})) { |
| |
if ($confhash{$itemid}{'maproles'}{$ltirole} ne |
| |
$domconfig{$action}{$itemid}{'maproles'}{$ltirole}) { |
| |
$changes{$itemid} = 1; |
| |
last; |
| |
} |
| |
} |
| |
} |
| |
} elsif (keys(%{$domconfig{$action}{$itemid}{'maproles'}}) > 0) { |
| |
$changes{$itemid} = 1; |
| |
} |
| |
} elsif (ref($confhash{$itemid}{'maproles'}) eq 'HASH') { |
| |
unless ($changes{$itemid}) { |
| |
if (keys(%{$confhash{$itemid}{'maproles'}}) > 0) { |
| |
$changes{$itemid} = 1; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
if (@allpos > 0) { |
| |
my $idx = 0; |
| |
foreach my $itemid (@allpos) { |
| |
if ($itemid ne '') { |
| |
$confhash{$itemid}{'order'} = $idx; |
| |
if (ref($domconfig{$action}) eq 'HASH') { |
| |
if (ref($domconfig{$action}{$itemid}) eq 'HASH') { |
| |
if ($domconfig{$action}{$itemid}{'order'} ne $idx) { |
| |
$changes{$itemid} = 1; |
| |
} |
| |
} |
| |
} |
| |
$idx ++; |
| |
} |
| |
} |
| |
} |
| |
my %ltihash = ( |
| |
$action => { %confhash } |
| |
); |
| |
my $putresult = &Apache::lonnet::put_dom('configuration',\%ltihash, |
| |
$dom); |
| |
if ($putresult eq 'ok') { |
| |
my %ltienchash = ( |
| |
$action => { %encconfig } |
| |
); |
| |
&Apache::lonnet::put_dom('encconfig',\%ltienchash,$dom); |
| |
if (keys(%changes) > 0) { |
| |
my $cachetime = 24*60*60; |
| |
my %ltiall = %confhash; |
| |
foreach my $id (keys(%ltiall)) { |
| |
if (ref($encconfig{$id}) eq 'HASH') { |
| |
foreach my $item ('key','secret') { |
| |
$ltiall{$id}{$item} = $encconfig{$id}{$item}; |
| |
} |
| |
} |
| |
} |
| |
&Apache::lonnet::do_cache_new('lti',$dom,\%ltiall,$cachetime); |
| |
if (ref($lastactref) eq 'HASH') { |
| |
$lastactref->{'lti'} = 1; |
| |
} |
| |
$resulttext = &mt('Changes made:').'<ul>'; |
| |
my %bynum; |
| |
foreach my $itemid (sort(keys(%changes))) { |
| |
my $position = $confhash{$itemid}{'order'}; |
| |
$bynum{$position} = $itemid; |
| |
} |
| |
foreach my $pos (sort { $a <=> $b } keys(%bynum)) { |
| |
my $itemid = $bynum{$pos}; |
| |
if (ref($confhash{$itemid}) ne 'HASH') { |
| |
$resulttext .= '<li>'.&mt('Deleted: [_1]',$changes{$itemid}).'</li>'; |
| |
} else { |
| |
$resulttext .= '<li><b>'.$confhash{$itemid}{'consumer'}.'</b></li><ul>'; |
| |
my $position = $pos + 1; |
| |
$resulttext .= '<li>'.&mt('Order: [_1]',$position).'</li>'; |
| |
foreach my $item ('version','lifetime') { |
| |
if ($confhash{$itemid}{$item} ne '') { |
| |
$resulttext .= '<li>'.$lt{$item}.': '.$confhash{$itemid}{$item}.'</li>'; |
| |
} |
| |
} |
| |
if ($encconfig{$itemid}{'key'} ne '') { |
| |
$resulttext .= '<li>'.$lt{'key'}.': '.$encconfig{$itemid}{'key'}.'</li>'; |
| |
} |
| |
if ($encconfig{$itemid}{'secret'} ne '') { |
| |
$resulttext .= '<li>'.$lt{'secret'}.': '; |
| |
my $num = length($encconfig{$itemid}{'secret'}); |
| |
$resulttext .= ('*'x$num).'</li>'; |
| |
} |
| |
if ($confhash{$itemid}{'mapuser'}) { |
| |
my $shownmapuser; |
| |
if ($confhash{$itemid}{'mapuser'} eq 'lis_person_sourcedid') { |
| |
$shownmapuser = $lt{'sourcedid'}.' (lis_person_sourcedid)'; |
| |
} elsif ($confhash{$itemid}{'mapuser'} eq 'lis_person_contact_email_primary') { |
| |
$shownmapuser = $lt{'email'}.' (lis_person_contact_email_primary)'; |
| |
} else { |
| |
$shownmapuser = &mt('Other').' ('.$confhash{$itemid}{'mapuser'}.')'; |
| |
} |
| |
$resulttext .= '<li>'.&mt('LON-CAPA username').': '.$shownmapuser.'</li>'; |
| |
} |
| |
if (ref($confhash{$itemid}{'maproles'}) eq 'HASH') { |
| |
my $rolemaps; |
| |
foreach my $role (@ltiroles) { |
| |
if ($confhash{$itemid}{'maproles'}{$role}) { |
| |
$rolemaps .= (' 'x2).$role.'='. |
| |
&Apache::lonnet::plaintext($confhash{$itemid}{'maproles'}{$role}, |
| |
'Course').','; |
| |
} |
| |
} |
| |
if ($rolemaps) { |
| |
$rolemaps =~ s/,$//; |
| |
$resulttext .= '<li>'.&mt('Role mapping:').$rolemaps.'</li>'; |
| |
} |
| |
} |
| |
if (ref($confhash{$itemid}{'makeuser'}) eq 'ARRAY') { |
| |
if (@{$confhash{$itemid}{'makeuser'}} > 0) { |
| |
$resulttext .= '<li>'.&mt('Following roles may create user accounts: [_1]', |
| |
join(', ',@{$confhash{$itemid}{'makeuser'}})).'</li>'; |
| |
} else { |
| |
$resulttext .= '<li>'.&mt('User account creation not permitted.').'</li>'; |
| |
} |
| |
} |
| |
if ($confhash{$itemid}{'mapcrs'}) { |
| |
$resulttext .= '<li>'.&mt('Unique course identifier').': '.$confhash{$itemid}{'mapcrs'}.'</li>'; |
| |
} |
| |
if (ref($confhash{$itemid}{'mapcrstype'}) eq 'ARRAY') { |
| |
if (@{$confhash{$itemid}{'mapcrstype'}} > 0) { |
| |
$resulttext .= '<li>'.&mt('Mapping for the following LON-CAPA course types: [_1]', |
| |
join(', ',map { $coursetypetitles{$_}; } @coursetypes)). |
| |
'</li>'; |
| |
} else { |
| |
$resulttext .= '<li>'.&mt('No mapping to LON-CAPA courses').'</li>'; |
| |
} |
| |
} |
| |
if ($confhash{$itemid}{'makecrs'}) { |
| |
$resulttext .= '<li>'.&mt('Instructor may create course (if absent).').'</li>'; |
| |
} else { |
| |
$resulttext .= '<li>'.&mt('Instructor may not create course (if absent).').'</li>'; |
| |
} |
| |
if (ref($confhash{$itemid}{'selfenroll'}) eq 'ARRAY') { |
| |
if (@{$confhash{$itemid}{'selfenroll'}} > 0) { |
| |
$resulttext .= '<li>'.&mt('Self-enrollment for following roles: [_1]', |
| |
join(', ',@{$confhash{$itemid}{'selfenroll'}})). |
| |
'</li>'; |
| |
} else { |
| |
$resulttext .= '<li>'.&mt('Self-enrollment not permitted').'</li>'; |
| |
} |
| |
} |
| |
if ($confhash{$itemid}{'section'}) { |
| |
if ($confhash{$itemid}{'section'} eq 'course_section_sourcedid') { |
| |
$resulttext .= '<li>'.&mt('User section from standard field:'). |
| |
' (course_section_sourcedid)'.'</li>'; |
| |
} else { |
| |
$resulttext .= '<li>'.&mt('User section from:').' '. |
| |
$confhash{$itemid}{'section'}.'</li>'; |
| |
} |
| |
} else { |
| |
$resulttext .= '<li>'.&mt('No section assignment').'</li>'; |
| |
} |
| |
foreach my $item ('passback','roster') { |
| |
$resulttext .= '<li>'.$lt{$item}.' '; |
| |
if ($confhash{$itemid}{$item}) { |
| |
$resulttext .= &mt('Yes'); |
| |
} else { |
| |
$resulttext .= &mt('No'); |
| |
} |
| |
$resulttext .= '</li>'; |
| |
} |
| |
$resulttext .= '</ul></li>'; |
| |
} |
| |
} |
| |
$resulttext .= '</ul>'; |
| |
} else { |
| |
$resulttext = &mt('No changes made.'); |
| |
} |
| |
} else { |
| |
$errors .= '<li><span class="LC_error">'.&mt('Failed to save changes').'</span></li>'; |
| |
} |
| |
if ($errors) { |
| |
$resulttext .= &mt('The following errors occurred: ').'<ul>'. |
| |
$errors.'</ul>'; |
| |
} |
| |
return $resulttext; |
| |
} |
| |
|
| |
sub get_lti_id { |
| |
my ($domain,$consumer) = @_; |
| |
# get lock on lti db |
| |
my $lockhash = { |
| |
lock => $env{'user.name'}. |
| |
':'.$env{'user.domain'}, |
| |
}; |
| |
my $tries = 0; |
| |
my $gotlock = &Apache::lonnet::newput_dom('lti',$lockhash,$domain); |
| |
my ($id,$error); |
| |
|
| |
while (($gotlock ne 'ok') && ($tries<10)) { |
| |
$tries ++; |
| |
sleep (0.1); |
| |
$gotlock = &Apache::lonnet::newput_dom('lti',$lockhash,$domain); |
| |
} |
| |
if ($gotlock eq 'ok') { |
| |
my %currids = &Apache::lonnet::dump_dom('lti',$domain); |
| |
if ($currids{'lock'}) { |
| |
delete($currids{'lock'}); |
| |
if (keys(%currids)) { |
| |
my @curr = sort { $a <=> $b } keys(%currids); |
| |
if ($curr[-1] =~ /^\d+$/) { |
| |
$id = 1 + $curr[-1]; |
| |
} |
| |
} else { |
| |
$id = 1; |
| |
} |
| |
if ($id) { |
| |
unless (&Apache::lonnet::newput_dom('lti',{ $id => $consumer },$domain) eq 'ok') { |
| |
$error = 'nostore'; |
| |
} |
| |
} else { |
| |
$error = 'nonumber'; |
| |
} |
| |
} |
| |
my $dellockoutcome = &Apache::lonnet::del_dom('lti',['lock'],$domain); |
| |
} else { |
| |
$error = 'nolock'; |
| |
} |
| |
return ($id,$error); |
| |
} |
| |
|
| sub modify_autoenroll { |
sub modify_autoenroll { |
| my ($dom,$lastactref,%domconfig) = @_; |
my ($dom,$lastactref,%domconfig) = @_; |
| my ($resulttext,%changes); |
my ($resulttext,%changes); |
|
Line 11074 sub modify_contacts {
|
Line 12270 sub modify_contacts {
|
| my $value = $env{'form.helpform_'.$field}; |
my $value = $env{'form.helpform_'.$field}; |
| $value =~ s/^\s+|\s+$//g; |
$value =~ s/^\s+|\s+$//g; |
| if (grep(/^\Q$value\E$/,@{$possoptions->{$field}})) { |
if (grep(/^\Q$value\E$/,@{$possoptions->{$field}})) { |
| $contacts_hash{contacts}{'helpform'}{$field} = $value; |
$contacts_hash{'contacts'}{'helpform'}{$field} = $value; |
| if ($field eq 'screenshot') { |
if ($field eq 'screenshot') { |
| $env{'form.helpform_maxsize'} =~ s/^\s+|\s+$//g; |
$env{'form.helpform_maxsize'} =~ s/^\s+|\s+$//g; |
| if ($env{'form.helpform_maxsize'} =~ /^\d+\.?\d*$/) { |
if ($env{'form.helpform_maxsize'} =~ /^\d+\.?\d*$/) { |
| $contacts_hash{contacts}{'helpform'}{'maxsize'} = $env{'form.helpform_maxsize'}; |
$contacts_hash{'contacts'}{'helpform'}{'maxsize'} = $env{'form.helpform_maxsize'}; |
| } |
} |
| } |
} |
| } |
} |
| } |
} |
| } |
} |
| } |
} |
| |
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom); |
| |
my (@statuses,%usertypeshash,@overrides); |
| |
if ((ref($types) eq 'ARRAY') && (@{$types} > 0)) { |
| |
@statuses = @{$types}; |
| |
if (ref($usertypes) eq 'HASH') { |
| |
%usertypeshash = %{$usertypes}; |
| |
} |
| |
} |
| |
if (@statuses) { |
| |
my @possoverrides = &Apache::loncommon::get_env_multiple('form.overrides'); |
| |
foreach my $type (@possoverrides) { |
| |
if (($type ne '') && (grep(/^\Q$type\E$/,@statuses))) { |
| |
push(@overrides,$type); |
| |
} |
| |
} |
| |
if (@overrides) { |
| |
foreach my $type (@overrides) { |
| |
my @standard = &Apache::loncommon::get_env_multiple('form.override_'.$type); |
| |
foreach my $item (@contacts) { |
| |
if (grep(/^\Q$item\E$/,@standard)) { |
| |
$contacts_hash{'contacts'}{'overrides'}{$type}{$item} = 1; |
| |
$newsetting{'override_'.$type}{$item} = 1; |
| |
} else { |
| |
$contacts_hash{'contacts'}{'overrides'}{$type}{$item} = 0; |
| |
$newsetting{'override_'.$type}{$item} = 0; |
| |
} |
| |
} |
| |
$contacts_hash{'contacts'}{'overrides'}{$type}{'others'} = $env{'form.override_'.$type.'_others'}; |
| |
$contacts_hash{'contacts'}{'overrides'}{$type}{'bcc'} = $env{'form.override_'.$type.'_bcc'}; |
| |
$newsetting{'override_'.$type}{'others'} = $env{'form.override_'.$type.'_others'}; |
| |
$newsetting{'override_'.$type}{'bcc'} = $env{'form.override_'.$type.'_bcc'}; |
| |
if (($env{'form.override_'.$type.'_includestr'} ne '') && ($env{'form.override_'.$type.'_includeloc'} =~ /^s|b$/)) { |
| |
$includestr{$type} = $env{'form.override_'.$type.'_includestr'}; |
| |
$includeloc{$type} = $env{'form.override_'.$type.'_includeloc'}; |
| |
$contacts_hash{'contacts'}{'overrides'}{$type}{'include'} = $includeloc{$type}.':'.&escape($includestr{$type}); |
| |
$newsetting{'override_'.$type}{'include'} = $contacts_hash{'contacts'}{'overrides'}{$type}{'include'}; |
| |
} |
| |
} |
| |
} |
| |
} |
| if (keys(%currsetting) > 0) { |
if (keys(%currsetting) > 0) { |
| foreach my $item (@contacts) { |
foreach my $item (@contacts) { |
| if ($to{$item} ne $currsetting{$item}) { |
if ($to{$item} ne $currsetting{$item}) { |
|
Line 11139 sub modify_contacts {
|
Line 12375 sub modify_contacts {
|
| } |
} |
| } |
} |
| } |
} |
| |
if (@statuses) { |
| |
if (ref($currsetting{'overrides'}) eq 'HASH') { |
| |
foreach my $key (keys(%{$currsetting{'overrides'}})) { |
| |
if (ref($currsetting{'overrides'}{$key}) eq 'HASH') { |
| |
if (ref($newsetting{'override_'.$key}) eq 'HASH') { |
| |
foreach my $item (@contacts,'bcc','others','include') { |
| |
if ($currsetting{'overrides'}{$key}{$item} ne $newsetting{'override_'.$key}{$item}) { |
| |
push(@{$changes{'overrides'}},$key); |
| |
last; |
| |
} |
| |
} |
| |
} else { |
| |
push(@{$changes{'overrides'}},$key); |
| |
} |
| |
} |
| |
} |
| |
foreach my $key (@overrides) { |
| |
unless (exists($currsetting{'overrides'}{$key})) { |
| |
push(@{$changes{'overrides'}},$key); |
| |
} |
| |
} |
| |
} else { |
| |
foreach my $key (@overrides) { |
| |
push(@{$changes{'overrides'}},$key); |
| |
} |
| |
} |
| |
} |
| } else { |
} else { |
| my %default; |
my %default; |
| $default{'supportemail'} = $Apache::lonnet::perlvar{'lonSupportEMail'}; |
$default{'supportemail'} = $Apache::lonnet::perlvar{'lonSupportEMail'}; |
|
Line 11253 sub modify_contacts {
|
Line 12516 sub modify_contacts {
|
| $resulttext .= '</li>'; |
$resulttext .= '</li>'; |
| } |
} |
| } |
} |
| |
if (ref($changes{'overrides'}) eq 'ARRAY') { |
| |
my @deletions; |
| |
foreach my $type (@{$changes{'overrides'}}) { |
| |
if ($usertypeshash{$type}) { |
| |
if (grep(/^\Q$type\E/,@overrides)) { |
| |
$resulttext .= '<li>'.&mt("Overrides based on requester's affiliation set for [_1]", |
| |
$usertypeshash{$type}).'<ul><li>'; |
| |
if (ref($newsetting{'override_'.$type}) eq 'HASH') { |
| |
my @text; |
| |
foreach my $item (@contacts) { |
| |
if ($newsetting{'override_'.$type}{$item}) { |
| |
push(@text,$short_titles->{$item}); |
| |
} |
| |
} |
| |
if ($newsetting{'override_'.$type}{'others'} ne '') { |
| |
push(@text,$newsetting{'override_'.$type}{'others'}); |
| |
} |
| |
|
| |
if (@text) { |
| |
$resulttext .= &mt('Helpdesk e-mail sent to: [_1]', |
| |
'<span class="LC_cusr_emph">'.join(', ',@text).'</span>'); |
| |
} |
| |
if ($newsetting{'override_'.$type}{'bcc'} ne '') { |
| |
my $bcctext; |
| |
if (@text) { |
| |
$bcctext = ' '.&mt('with Bcc to'); |
| |
} else { |
| |
$bcctext = '(Bcc)'; |
| |
} |
| |
$resulttext .= $bcctext.': <span class="LC_cusr_emph">'.$newsetting{'override_'.$type}{'bcc'}.'</span>'; |
| |
} elsif (!@text) { |
| |
$resulttext .= &mt('Helpdesk e-mail sent to no one'); |
| |
} |
| |
$resulttext .= '</li>'; |
| |
if ($newsetting{'override_'.$type}{'include'} ne '') { |
| |
my ($loc,$str) = split(/:/,$newsetting{'override_'.$type}{'include'}); |
| |
if ($loc eq 'b') { |
| |
$resulttext .= '<li>'.&mt('Text automatically added to e-mail body:').' '.&unescape($str).'</li>'; |
| |
} elsif ($loc eq 's') { |
| |
$resulttext .= '<li>'.&mt('Text automatically added to e-mail subject:').' '.&unescape($str).'</li>'; |
| |
} |
| |
} |
| |
} |
| |
$resulttext .= '</li></ul></li>'; |
| |
} else { |
| |
push(@deletions,$usertypeshash{$type}); |
| |
} |
| |
} |
| |
} |
| |
if (@deletions) { |
| |
$resulttext .= '<li>'.&mt("Overrides based on requester's affiliation discontinued for: [_1]", |
| |
join(', ',@deletions)).'</li>'; |
| |
} |
| |
} |
| my @offon = ('off','on'); |
my @offon = ('off','on'); |
| if ($changes{'reporterrors'}) { |
if ($changes{'reporterrors'}) { |
| $resulttext .= '<li>'. |
$resulttext .= '<li>'. |
|
Line 11308 sub modify_contacts {
|
Line 12625 sub modify_contacts {
|
| &mt('Max size for file uploaded to help form by logged-in user set to [_1] MB.', |
&mt('Max size for file uploaded to help form by logged-in user set to [_1] MB.', |
| $contacts_hash{'contacts'}{'helpform'}{'maxsize'}). |
$contacts_hash{'contacts'}{'helpform'}{'maxsize'}). |
| '</li>'; |
'</li>'; |
| |
|
| } |
} |
| } |
} |
| $resulttext .= '</ul>'; |
$resulttext .= '</ul>'; |
![[BACK]](/icons/back.gif){kind=icon}
Return to domainprefs.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface