|
version 1.1182, 2014/03/17 02:45:25
|
version 1.1205, 2015/01/19 15:36:00
|
|
Line 1316 sub helpLatexCheatsheet {
|
Line 1316 sub helpLatexCheatsheet {
|
| .&help_open_topic('Other_Symbols',&mt('Other Symbols'),$stayOnPage,undef,600) |
.&help_open_topic('Other_Symbols',&mt('Other Symbols'),$stayOnPage,undef,600) |
| .'</span>'; |
.'</span>'; |
| unless ($not_author) { |
unless ($not_author) { |
| $out .= ' <span>' |
$out .= '<span>' |
| .&help_open_topic('Authoring_Output_Tags',&mt('Output Tags'),$stayOnPage,undef,600) |
.&help_open_topic('Authoring_Output_Tags',&mt('Output Tags'),$stayOnPage,undef,600) |
| |
.'</span> <span>' |
| |
.&help_open_topic('Authoring_Multilingual_Problems',&mt('How to create problems in different languages'),$stayOnPage,undef,600) |
| .'</span>'; |
.'</span>'; |
| } |
} |
| $out .= '</span>'; # End cheatsheet |
$out .= '</span>'; # End cheatsheet |
|
Line 1755 RESIZE
|
Line 1757 RESIZE
|
| |
|
| } |
} |
| |
|
| |
sub colorfuleditor_js { |
| |
return <<"COLORFULEDIT" |
| |
<script type="text/javascript"> |
| |
// <![CDATA[> |
| |
function fold_box(curDepth, lastresource){ |
| |
|
| |
// we need a list because there can be several blocks you need to fold in one tag |
| |
var block = document.getElementsByName('foldblock_'+curDepth); |
| |
// but there is only one folding button per tag |
| |
var foldbutton = document.getElementById('folding_btn_'+curDepth); |
| |
|
| |
if(block.item(0).style.display == 'none'){ |
| |
|
| |
foldbutton.value = '@{[&mt("Hide")]}'; |
| |
for (i = 0; i < block.length; i++){ |
| |
block.item(i).style.display = ''; |
| |
} |
| |
}else{ |
| |
|
| |
foldbutton.value = '@{[&mt("Show")]}'; |
| |
for (i = 0; i < block.length; i++){ |
| |
// block.item(i).style.visibility = 'collapse'; |
| |
block.item(i).style.display = 'none'; |
| |
} |
| |
}; |
| |
saveState(lastresource); |
| |
} |
| |
|
| |
function saveState (lastresource) { |
| |
|
| |
var tag_list = getTagList(); |
| |
if(tag_list != null){ |
| |
var timestamp = new Date().getTime(); |
| |
var key = lastresource; |
| |
|
| |
// the value pattern is: 'time;key1,value1;key2,value2; ... ' |
| |
// starting with timestamp |
| |
var value = timestamp+';'; |
| |
|
| |
// building the list of key-value pairs |
| |
for(var i = 0; i < tag_list.length; i++){ |
| |
value += tag_list[i]+','; |
| |
value += document.getElementsByName(tag_list[i])[0].style.display+';'; |
| |
} |
| |
|
| |
// only iterate whole storage if nothing to override |
| |
if(localStorage.getItem(key) == null){ |
| |
|
| |
// prevent storage from growing large |
| |
if(localStorage.length > 50){ |
| |
var regex_getTimestamp = /^(?:\d)+;/; |
| |
var oldest_timestamp = regex_getTimestamp.exec(localStorage.key(0)); |
| |
var oldest_key; |
| |
|
| |
for(var i = 1; i < localStorage.length; i++){ |
| |
if (regex_getTimestamp.exec(localStorage.key(i)) < oldest_timestamp) { |
| |
oldest_key = localStorage.key(i); |
| |
oldest_timestamp = regex_getTimestamp.exec(oldest_key); |
| |
} |
| |
} |
| |
localStorage.removeItem(oldest_key); |
| |
} |
| |
} |
| |
localStorage.setItem(key,value); |
| |
} |
| |
} |
| |
|
| |
// restore folding status of blocks (on page load) |
| |
function restoreState (lastresource) { |
| |
if(localStorage.getItem(lastresource) != null){ |
| |
var key = lastresource; |
| |
var value = localStorage.getItem(key); |
| |
var regex_delTimestamp = /^\d+;/; |
| |
|
| |
value.replace(regex_delTimestamp, ''); |
| |
|
| |
var valueArr = value.split(';'); |
| |
var pairs; |
| |
var elements; |
| |
for (var i = 0; i < valueArr.length; i++){ |
| |
pairs = valueArr[i].split(','); |
| |
elements = document.getElementsByName(pairs[0]); |
| |
|
| |
for (var j = 0; j < elements.length; j++){ |
| |
elements[j].style.display = pairs[1]; |
| |
if (pairs[1] == "none"){ |
| |
var regex_id = /([_\\d]+)\$/; |
| |
regex_id.exec(pairs[0]); |
| |
document.getElementById("folding_btn"+RegExp.\$1).value = "Show"; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
|
| |
function getTagList () { |
| |
|
| |
var stringToSearch = document.lonhomework.innerHTML; |
| |
|
| |
var ret = new Array(); |
| |
var regex_findBlock = /(foldblock_.*?)"/g; |
| |
var tag_list = stringToSearch.match(regex_findBlock); |
| |
|
| |
if(tag_list != null){ |
| |
for(var i = 0; i < tag_list.length; i++){ |
| |
ret.push(tag_list[i].replace(/"/, '')); |
| |
} |
| |
} |
| |
return ret; |
| |
} |
| |
|
| |
function saveScrollPosition (resource) { |
| |
var tag_list = getTagList(); |
| |
|
| |
// we dont always want to jump to the first block |
| |
// 170 is roughly above the "Problem Editing" header. we just want to save if the user scrolled down further than this |
| |
if(\$(window).scrollTop() > 170){ |
| |
if(tag_list != null){ |
| |
var result; |
| |
for(var i = 0; i < tag_list.length; i++){ |
| |
if(isElementInViewport(tag_list[i])){ |
| |
result += tag_list[i]+';'; |
| |
} |
| |
} |
| |
sessionStorage.setItem('anchor_'+resource, result); |
| |
} |
| |
} else { |
| |
// we dont need to save zero, just delete the item to leave everything tidy |
| |
sessionStorage.removeItem('anchor_'+resource); |
| |
} |
| |
} |
| |
|
| |
function restoreScrollPosition(resource){ |
| |
|
| |
var elem = sessionStorage.getItem('anchor_'+resource); |
| |
if(elem != null){ |
| |
var tag_list = elem.split(';'); |
| |
var elem_list; |
| |
|
| |
for(var i = 0; i < tag_list.length; i++){ |
| |
elem_list = document.getElementsByName(tag_list[i]); |
| |
|
| |
if(elem_list.length > 0){ |
| |
elem = elem_list[0]; |
| |
break; |
| |
} |
| |
} |
| |
elem.scrollIntoView(); |
| |
} |
| |
} |
| |
|
| |
function isElementInViewport(el) { |
| |
|
| |
// change to last element instead of first |
| |
var elem = document.getElementsByName(el); |
| |
var rect = elem[0].getBoundingClientRect(); |
| |
|
| |
return ( |
| |
rect.top >= 0 && |
| |
rect.left >= 0 && |
| |
rect.bottom <= (window.innerHeight || document.documentElement.clientHeight) && /*or $(window).height() */ |
| |
rect.right <= (window.innerWidth || document.documentElement.clientWidth) /*or $(window).width() */ |
| |
); |
| |
} |
| |
|
| |
function autosize(depth){ |
| |
var cmInst = window['cm'+depth]; |
| |
var fitsizeButton = document.getElementById('fitsize'+depth); |
| |
|
| |
// is fixed size, switching to dynamic |
| |
if (sessionStorage.getItem("autosized_"+depth) == null) { |
| |
cmInst.setSize("","auto"); |
| |
fitsizeButton.value = "@{[&mt('Fixed size')]}"; |
| |
sessionStorage.setItem("autosized_"+depth, "yes"); |
| |
|
| |
// is dynamic size, switching to fixed |
| |
} else { |
| |
cmInst.setSize("","300px"); |
| |
fitsizeButton.value = "@{[&mt('Dynamic size')]}"; |
| |
sessionStorage.removeItem("autosized_"+depth); |
| |
} |
| |
} |
| |
|
| |
|
| |
|
| |
// ]]> |
| |
</script> |
| |
COLORFULEDIT |
| |
} |
| |
|
| |
sub xmleditor_js { |
| |
return <<XMLEDIT |
| |
<script type="text/javascript" src="/adm/jQuery/addons/jquery-scrolltofixed.js"></script> |
| |
<script type="text/javascript"> |
| |
// <![CDATA[> |
| |
|
| |
function saveScrollPosition (resource) { |
| |
|
| |
var scrollPos = \$(window).scrollTop(); |
| |
sessionStorage.setItem(resource,scrollPos); |
| |
} |
| |
|
| |
function restoreScrollPosition(resource){ |
| |
|
| |
var scrollPos = sessionStorage.getItem(resource); |
| |
\$(window).scrollTop(scrollPos); |
| |
} |
| |
|
| |
// unless internet explorer |
| |
if (!(window.navigator.appName == "Microsoft Internet Explorer" && (document.documentMode || document.compatMode))){ |
| |
|
| |
\$(document).ready(function() { |
| |
\$(".LC_edit_actionbar").scrollToFixed(\{zIndex: 100\}); |
| |
}); |
| |
} |
| |
|
| |
// inserts text at cursor position into codemirror (xml editor only) |
| |
function insertText(text){ |
| |
cm.focus(); |
| |
var curPos = cm.getCursor(); |
| |
cm.replaceRange(text.replace(/ESCAPEDSCRIPT/g,'script'), {line: curPos.line,ch: curPos.ch}); |
| |
} |
| |
// ]]> |
| |
</script> |
| |
XMLEDIT |
| |
} |
| |
|
| |
sub insert_folding_button { |
| |
my $curDepth = $Apache::lonxml::curdepth; |
| |
my $lastresource = $env{'request.ambiguous'}; |
| |
|
| |
return "<input type=\"button\" id=\"folding_btn_$curDepth\" |
| |
value=\"".&mt('Hide')."\" onclick=\"fold_box('$curDepth','$lastresource')\">"; |
| |
} |
| |
|
| =pod |
=pod |
| |
|
| =head1 Excel and CSV file utility routines |
=head1 Excel and CSV file utility routines |
|
Line 2363 Outputs:
|
Line 2600 Outputs:
|
| |
|
| =item * $clientinfo |
=item * $clientinfo |
| |
|
| |
=item * $clientosversion |
| |
|
| =back |
=back |
| |
|
| =back |
=back |
|
Line 2382 sub decode_user_agent {
|
Line 2621 sub decode_user_agent {
|
| my $clientmathml=''; |
my $clientmathml=''; |
| my $clientunicode='0'; |
my $clientunicode='0'; |
| my $clientmobile=0; |
my $clientmobile=0; |
| |
my $clientosversion=''; |
| for (my $i=0;$i<=$#browsertype;$i++) { |
for (my $i=0;$i<=$#browsertype;$i++) { |
| my ($bname,$match,$notmatch,$vreg,$minv,$univ)=split(/\:/,$browsertype[$i]); |
my ($bname,$match,$notmatch,$vreg,$minv,$univ)=split(/\%/,$browsertype[$i]); |
| if (($httpbrowser=~/$match/i) && ($httpbrowser!~/$notmatch/i)) { |
if (($httpbrowser=~/$match/i) && ($httpbrowser!~/$notmatch/i)) { |
| $clientbrowser=$bname; |
$clientbrowser=$bname; |
| $httpbrowser=~/$vreg/i; |
$httpbrowser=~/$vreg/i; |
|
Line 2403 sub decode_user_agent {
|
Line 2643 sub decode_user_agent {
|
| if ($httpbrowser=~/next/i) { $clientos='next'; } |
if ($httpbrowser=~/next/i) { $clientos='next'; } |
| if (($httpbrowser=~/mac/i) || |
if (($httpbrowser=~/mac/i) || |
| ($httpbrowser=~/powerpc/i)) { $clientos='mac'; } |
($httpbrowser=~/powerpc/i)) { $clientos='mac'; } |
| if ($httpbrowser=~/win/i) { $clientos='win'; } |
if ($httpbrowser=~/win/i) { |
| |
$clientos='win'; |
| |
if ($httpbrowser =~/Windows\s+NT\s+(\d+\.\d+)/i) { |
| |
$clientosversion = $1; |
| |
} |
| |
} |
| if ($httpbrowser=~/embed/i) { $clientos='pda'; } |
if ($httpbrowser=~/embed/i) { $clientos='pda'; } |
| if ($httpbrowser=~/(Android|iPod|iPad|iPhone|webOS|Blackberry|Windows Phone|Opera m(?:ob|in)|Fennec)/i) { |
if ($httpbrowser=~/(Android|iPod|iPad|iPhone|webOS|Blackberry|Windows Phone|Opera m(?:ob|in)|Fennec)/i) { |
| $clientmobile=lc($1); |
$clientmobile=lc($1); |
|
Line 2414 sub decode_user_agent {
|
Line 2659 sub decode_user_agent {
|
| $clientinfo = 'chromeframe-'.$1; |
$clientinfo = 'chromeframe-'.$1; |
| } |
} |
| return ($httpbrowser,$clientbrowser,$clientversion,$clientmathml, |
return ($httpbrowser,$clientbrowser,$clientversion,$clientmathml, |
| $clientunicode,$clientos,$clientmobile,$clientinfo); |
$clientunicode,$clientos,$clientmobile,$clientinfo, |
| |
$clientosversion); |
| } |
} |
| |
|
| ############################################################### |
############################################################### |
|
Line 3750 sub user_lang {
|
Line 3996 sub user_lang {
|
| =over 4 |
=over 4 |
| |
|
| =item * &get_previous_attempt($symb, $username, $domain, $course, |
=item * &get_previous_attempt($symb, $username, $domain, $course, |
| $getattempt, $regexp, $gradesub) |
$getattempt, $regexp, $gradesub, $usec, $identifier) |
| |
|
| Return string with previous attempt on problem. Arguments: |
Return string with previous attempt on problem. Arguments: |
| |
|
|
Line 3772 Return string with previous attempt on p
|
Line 4018 Return string with previous attempt on p
|
| |
|
| =item * $gradesub: routine that processes the string if it matches $regexp |
=item * $gradesub: routine that processes the string if it matches $regexp |
| |
|
| |
=item * $usec: section of the desired student |
| |
|
| |
=item * $identifier: counter for student (multiple students one problem) or |
| |
problem (one student; whole sequence). |
| |
|
| =back |
=back |
| |
|
| The output string is a table containing all desired attempts, if any. |
The output string is a table containing all desired attempts, if any. |
|
Line 3779 The output string is a table containing
|
Line 4030 The output string is a table containing
|
| =cut |
=cut |
| |
|
| sub get_previous_attempt { |
sub get_previous_attempt { |
| my ($symb,$username,$domain,$course,$getattempt,$regexp,$gradesub)=@_; |
my ($symb,$username,$domain,$course,$getattempt,$regexp,$gradesub,$usec,$identifier)=@_; |
| my $prevattempts=''; |
my $prevattempts=''; |
| no strict 'refs'; |
no strict 'refs'; |
| if ($symb) { |
if ($symb) { |
|
Line 3795 sub get_previous_attempt {
|
Line 4046 sub get_previous_attempt {
|
| } |
} |
| $prevattempts=&start_data_table().&start_data_table_header_row(); |
$prevattempts=&start_data_table().&start_data_table_header_row(); |
| $prevattempts.='<th>'.&mt('History').'</th>'; |
$prevattempts.='<th>'.&mt('History').'</th>'; |
| my (%typeparts,%lasthidden); |
my (%typeparts,%lasthidden,%regraded,%hidestatus); |
| my $showsurv=&Apache::lonnet::allowed('vas',$env{'request.course.id'}); |
my $showsurv=&Apache::lonnet::allowed('vas',$env{'request.course.id'}); |
| foreach my $key (sort(keys(%lasthash))) { |
foreach my $key (sort(keys(%lasthash))) { |
| my ($ign,@parts) = split(/\./,$key); |
my ($ign,@parts) = split(/\./,$key); |
|
Line 3812 sub get_previous_attempt {
|
Line 4063 sub get_previous_attempt {
|
| $lasthidden{$ign.'.'.$id} = 1; |
$lasthidden{$ign.'.'.$id} = 1; |
| } |
} |
| } |
} |
| |
if ($identifier ne '') { |
| |
my $id = join(',',@parts); |
| |
if (&Apache::lonnet::EXT("resource.$id.problemstatus",$symb, |
| |
$domain,$username,$usec,undef,$course) =~ /^no/) { |
| |
$hidestatus{$ign.'.'.$id} = 1; |
| |
} |
| |
} |
| |
} elsif ($data eq 'regrader') { |
| |
if (($identifier ne '') && (@parts)) { |
| |
my $id = join(',',@parts); |
| |
$regraded{$ign.'.'.$id} = 1; |
| |
} |
| } |
} |
| } else { |
} else { |
| if ($#parts == 0) { |
if ($#parts == 0) { |
|
Line 3823 sub get_previous_attempt {
|
Line 4086 sub get_previous_attempt {
|
| } |
} |
| $prevattempts.=&end_data_table_header_row(); |
$prevattempts.=&end_data_table_header_row(); |
| if ($getattempt eq '') { |
if ($getattempt eq '') { |
| |
my (%solved,%resets,%probstatus); |
| |
if (($identifier ne '') && (keys(%regraded) > 0)) { |
| |
for ($version=1;$version<=$returnhash{'version'};$version++) { |
| |
foreach my $id (keys(%regraded)) { |
| |
if (($returnhash{$version.':'.$id.'.regrader'}) && |
| |
($returnhash{$version.':'.$id.'.tries'} eq '') && |
| |
($returnhash{$version.':'.$id.'.award'} eq '')) { |
| |
push(@{$resets{$id}},$version); |
| |
} |
| |
} |
| |
} |
| |
} |
| for ($version=1;$version<=$returnhash{'version'};$version++) { |
for ($version=1;$version<=$returnhash{'version'};$version++) { |
| my @hidden; |
my (@hidden,@unsolved); |
| if (%typeparts) { |
if (%typeparts) { |
| foreach my $id (keys(%typeparts)) { |
foreach my $id (keys(%typeparts)) { |
| if (($returnhash{$version.':'.$id.'.type'} eq 'anonsurvey') || ($returnhash{$version.':'.$id.'.type'} eq 'anonsurveycred')) { |
if (($returnhash{$version.':'.$id.'.type'} eq 'anonsurvey') || |
| |
($returnhash{$version.':'.$id.'.type'} eq 'anonsurveycred')) { |
| push(@hidden,$id); |
push(@hidden,$id); |
| |
} elsif ($identifier ne '') { |
| |
unless (($returnhash{$version.':'.$id.'.type'} eq 'survey') || |
| |
($returnhash{$version.':'.$id.'.type'} eq 'surveycred') || |
| |
($hidestatus{$id})) { |
| |
next if ((ref($resets{$id}) eq 'ARRAY') && grep(/^\Q$version\E$/,@{$resets{$id}})); |
| |
if ($returnhash{$version.':'.$id.'.solved'} eq 'correct_by_student') { |
| |
push(@{$solved{$id}},$version); |
| |
} elsif (($returnhash{$version.':'.$id.'.solved'} ne '') && |
| |
(ref($solved{$id}) eq 'ARRAY')) { |
| |
my $skip; |
| |
if (ref($resets{$id}) eq 'ARRAY') { |
| |
foreach my $reset (@{$resets{$id}}) { |
| |
if ($reset > $solved{$id}[-1]) { |
| |
$skip=1; |
| |
last; |
| |
} |
| |
} |
| |
} |
| |
unless ($skip) { |
| |
my ($ign,$partslist) = split(/\./,$id,2); |
| |
push(@unsolved,$partslist); |
| |
} |
| |
} |
| |
} |
| } |
} |
| } |
} |
| } |
} |
| $prevattempts.=&start_data_table_row(). |
$prevattempts.=&start_data_table_row(). |
| '<td>'.&mt('Transaction [_1]',$version).'</td>'; |
'<td>'.&mt('Transaction [_1]',$version); |
| |
if (@unsolved) { |
| |
$prevattempts .= '<span class="LC_nobreak"><label>'. |
| |
'<input type="checkbox" name="HIDE'.$identifier.'" value="'.$version.':'.join('_',@unsolved).'" />'. |
| |
&mt('Hide').'</label></span>'; |
| |
} |
| |
$prevattempts .= '</td>'; |
| if (@hidden) { |
if (@hidden) { |
| foreach my $key (sort(keys(%lasthash))) { |
foreach my $key (sort(keys(%lasthash))) { |
| next if ($key =~ /\.foilorder$/); |
next if ($key =~ /\.foilorder$/); |
|
Line 4320 sub findallcourses {
|
Line 4626 sub findallcourses {
|
| ############################################### |
############################################### |
| |
|
| sub blockcheck { |
sub blockcheck { |
| my ($setters,$activity,$uname,$udom,$url) = @_; |
my ($setters,$activity,$uname,$udom,$url,$is_course) = @_; |
| |
|
| if (!defined($udom)) { |
if (defined($udom) && defined($uname)) { |
| |
# If uname and udom are for a course, check for blocks in the course. |
| |
if (($is_course) || (&Apache::lonnet::is_course($udom,$uname))) { |
| |
my ($startblock,$endblock,$triggerblock) = |
| |
&get_blocks($setters,$activity,$udom,$uname,$url); |
| |
return ($startblock,$endblock,$triggerblock); |
| |
} |
| |
} else { |
| $udom = $env{'user.domain'}; |
$udom = $env{'user.domain'}; |
| } |
|
| if (!defined($uname)) { |
|
| $uname = $env{'user.name'}; |
$uname = $env{'user.name'}; |
| } |
} |
| |
|
| # If uname and udom are for a course, check for blocks in the course. |
|
| |
|
| if (&Apache::lonnet::is_course($udom,$uname)) { |
|
| my ($startblock,$endblock,$triggerblock) = |
|
| &get_blocks($setters,$activity,$udom,$uname,$url); |
|
| return ($startblock,$endblock,$triggerblock); |
|
| } |
|
| |
|
| my $startblock = 0; |
my $startblock = 0; |
| my $endblock = 0; |
my $endblock = 0; |
| my $triggerblock = ''; |
my $triggerblock = ''; |
|
Line 4346 sub blockcheck {
|
Line 4649 sub blockcheck {
|
| # boards, chat or groups, check for blocking in current course only. |
# boards, chat or groups, check for blocking in current course only. |
| |
|
| if (($activity eq 'boards' || $activity eq 'chat' || |
if (($activity eq 'boards' || $activity eq 'chat' || |
| $activity eq 'groups') && ($env{'request.course.id'})) { |
$activity eq 'groups' || $activity eq 'printout') && |
| |
($env{'request.course.id'})) { |
| foreach my $key (keys(%live_courses)) { |
foreach my $key (keys(%live_courses)) { |
| if ($key ne $env{'request.course.id'}) { |
if ($key ne $env{'request.course.id'}) { |
| delete($live_courses{$key}); |
delete($live_courses{$key}); |
|
Line 4610 sub parse_block_record {
|
Line 4914 sub parse_block_record {
|
| } |
} |
| |
|
| sub blocking_status { |
sub blocking_status { |
| my ($activity,$uname,$udom,$url) = @_; |
my ($activity,$uname,$udom,$url,$is_course) = @_; |
| my %setters; |
my %setters; |
| |
|
| # check for active blocking |
# check for active blocking |
| my ($startblock,$endblock,$triggerblock) = |
my ($startblock,$endblock,$triggerblock) = |
| &blockcheck(\%setters,$activity,$uname,$udom,$url); |
&blockcheck(\%setters,$activity,$uname,$udom,$url,$is_course); |
| my $blocked = 0; |
my $blocked = 0; |
| if ($startblock && $endblock) { |
if ($startblock && $endblock) { |
| $blocked = 1; |
$blocked = 1; |
|
Line 4670 END_BLOCK
|
Line 4974 END_BLOCK
|
| ############################################### |
############################################### |
| |
|
| sub check_ip_acc { |
sub check_ip_acc { |
| my ($acc)=@_; |
my ($acc,$clientip)=@_; |
| &Apache::lonxml::debug("acc is $acc"); |
&Apache::lonxml::debug("acc is $acc"); |
| if (!defined($acc) || $acc =~ /^\s*$/ || $acc =~/^\s*no\s*$/i) { |
if (!defined($acc) || $acc =~ /^\s*$/ || $acc =~/^\s*no\s*$/i) { |
| return 1; |
return 1; |
| } |
} |
| my $allowed=0; |
my $allowed=0; |
| my $ip=$env{'request.host'} || $ENV{'REMOTE_ADDR'}; |
my $ip=$env{'request.host'} || $ENV{'REMOTE_ADDR'} || $clientip; |
| |
|
| my $name; |
my $name; |
| foreach my $pattern (split(',',$acc)) { |
foreach my $pattern (split(',',$acc)) { |
|
Line 6486 div.LC_edit_problem_footer div,
|
Line 6790 div.LC_edit_problem_footer div,
|
| div.LC_edit_problem_editxml_header, |
div.LC_edit_problem_editxml_header, |
| div.LC_edit_problem_editxml_header div { |
div.LC_edit_problem_editxml_header div { |
| margin-top: 5px; |
margin-top: 5px; |
| |
z-index: 100; |
| } |
} |
| |
|
| div.LC_edit_problem_header_title { |
div.LC_edit_problem_header_title { |
|
Line 6503 table.LC_edit_problem_header_title {
|
Line 6808 table.LC_edit_problem_header_title {
|
| |
|
| div.LC_edit_problem_discards { |
div.LC_edit_problem_discards { |
| float: left; |
float: left; |
| padding-bottom: 5px; |
} |
| |
|
| |
div.LC_edit_actionbar { |
| |
margin: -5px 0px 0px 0px !important; |
| |
background-color: $sidebg; |
| |
height: 31px; |
| } |
} |
| |
|
| div.LC_edit_problem_saves { |
div.LC_edit_problem_saves { |
|
Line 6524 div.LC_edit_problem_saves {
|
Line 6834 div.LC_edit_problem_saves {
|
| margin-left: 40px; |
margin-left: 40px; |
| } |
} |
| |
|
| |
#LC_edit_problem_codemirror div{ |
| |
margin-left: 0px; |
| |
} |
| |
|
| img.stift { |
img.stift { |
| border-width: 0; |
border-width: 0; |
| vertical-align: middle; |
vertical-align: middle; |
|
Line 6638 fieldset > legend {
|
Line 6952 fieldset > legend {
|
| ol.LC_primary_menu { |
ol.LC_primary_menu { |
| margin: 0; |
margin: 0; |
| padding: 0; |
padding: 0; |
| background-color: $pgbg_or_bgcolor; |
|
| } |
} |
| |
|
| ol#LC_PathBreadcrumbs { |
ol#LC_PathBreadcrumbs { |
|
Line 6650 ol.LC_primary_menu li {
|
Line 6963 ol.LC_primary_menu li {
|
| vertical-align: middle; |
vertical-align: middle; |
| text-align: left; |
text-align: left; |
| list-style: none; |
list-style: none; |
| |
position: relative; |
| float: left; |
float: left; |
| |
z-index: 100; /* will be displayed above codemirror and underneath the help-layer */ |
| |
line-height: 1.5em; |
| } |
} |
| |
|
| ol.LC_primary_menu li a { |
ol.LC_primary_menu li a, |
| |
ol.LC_primary_menu li p { |
| display: block; |
display: block; |
| margin: 0; |
margin: 0; |
| padding: 0 5px 0 10px; |
padding: 0 5px 0 10px; |
| text-decoration: none; |
text-decoration: none; |
| } |
} |
| |
|
| ol.LC_primary_menu li ul { |
ol.LC_primary_menu li p span.LC_primary_menu_innertitle { |
| |
display: inline-block; |
| |
width: 95%; |
| |
text-align: left; |
| |
} |
| |
|
| |
ol.LC_primary_menu li p span.LC_primary_menu_innerarrow { |
| |
display: inline-block; |
| |
width: 5%; |
| |
float: right; |
| |
text-align: right; |
| |
font-size: 70%; |
| |
} |
| |
|
| |
ol.LC_primary_menu ul { |
| display: none; |
display: none; |
| width: 10em; |
width: 15em; |
| background-color: $data_table_light; |
background-color: $data_table_light; |
| |
position: absolute; |
| |
top: 100%; |
| |
} |
| |
|
| |
ol.LC_primary_menu ul ul { |
| |
left: 100%; |
| |
top: 0; |
| } |
} |
| |
|
| ol.LC_primary_menu li:hover ul, ol.LC_primary_menu li.hover ul { |
ol.LC_primary_menu li:hover > ul, ol.LC_primary_menu li.hover > ul { |
| display: block; |
display: block; |
| position: absolute; |
position: absolute; |
| margin: 0; |
margin: 0; |
|
Line 6675 ol.LC_primary_menu li:hover ul, ol.LC_pr
|
Line 7013 ol.LC_primary_menu li:hover ul, ol.LC_pr
|
| } |
} |
| |
|
| ol.LC_primary_menu li:hover li, ol.LC_primary_menu li.hover li { |
ol.LC_primary_menu li:hover li, ol.LC_primary_menu li.hover li { |
| |
/* First Submenu -> size should be smaller than the menu title of the whole menu */ |
| font-size: 90%; |
font-size: 90%; |
| vertical-align: top; |
vertical-align: top; |
| float: none; |
float: none; |
| border-left: 1px solid black; |
border-left: 1px solid black; |
| border-right: 1px solid black; |
border-right: 1px solid black; |
| |
/* A dark bottom border to visualize different menu options; |
| |
overwritten in the create_submenu routine for the last border-bottom of the menu */ |
| |
border-bottom: 1px solid $data_table_dark; |
| } |
} |
| |
|
| ol.LC_primary_menu li:hover li a, ol.LC_primary_menu li.hover li a { |
ol.LC_primary_menu li li p:hover { |
| background-color:$data_table_light; |
color:$button_hover; |
| |
text-decoration:none; |
| |
background-color:$data_table_dark; |
| } |
} |
| |
|
| ol.LC_primary_menu li li a:hover { |
ol.LC_primary_menu li li a:hover { |
|
Line 6691 ol.LC_primary_menu li li a:hover {
|
Line 7035 ol.LC_primary_menu li li a:hover {
|
| background-color:$data_table_dark; |
background-color:$data_table_dark; |
| } |
} |
| |
|
| |
/* Font-size equal to the size of the predecessors*/ |
| |
ol.LC_primary_menu li:hover li li { |
| |
font-size: 100%; |
| |
} |
| |
|
| ol.LC_primary_menu li img { |
ol.LC_primary_menu li img { |
| vertical-align: bottom; |
vertical-align: bottom; |
| height: 1.1em; |
height: 1.1em; |
|
Line 7302 sub headtag {
|
Line 7651 sub headtag {
|
| '<head>'. |
'<head>'. |
| &font_settings($args); |
&font_settings($args); |
| |
|
| my $inhibitprint = &print_suppression(); |
my $inhibitprint; |
| |
if ($args->{'print_suppress'}) { |
| |
$inhibitprint = &print_suppression(); |
| |
} |
| |
|
| if (!$args->{'frameset'}) { |
if (!$args->{'frameset'}) { |
| $result .= &Apache::lonhtmlcommon::htmlareaheaders(); |
$result .= &Apache::lonhtmlcommon::htmlareaheaders(); |
|
Line 7428 sub print_suppression {
|
Line 7780 sub print_suppression {
|
| } |
} |
| my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
| my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
| my $blocked = &blocking_status('printout',$cnum,$cdom); |
my $blocked = &blocking_status('printout',$cnum,$cdom,undef,1); |
| if ($blocked) { |
if ($blocked) { |
| my $checkrole = "cm./$cdom/$cnum"; |
my $checkrole = "cm./$cdom/$cnum"; |
| if ($env{'request.course.sec'} ne '') { |
if ($env{'request.course.sec'} ne '') { |
|
Line 7661 function set_wishlistlink(title, path) {
|
Line 8013 function set_wishlistlink(title, path) {
|
| title = title.replace(/^LON-CAPA /,''); |
title = title.replace(/^LON-CAPA /,''); |
| } |
} |
| title = encodeURIComponent(title); |
title = encodeURIComponent(title); |
| |
title = title.replace("'","\\\'"); |
| if (!path) { |
if (!path) { |
| path = location.pathname; |
path = location.pathname; |
| } |
} |
| path = encodeURIComponent(path); |
path = encodeURIComponent(path); |
| |
path = path.replace("'","\\\'"); |
| Win = window.open('/adm/wishlist?mode=newLink&setTitle='+title+'&setPath='+path, |
Win = window.open('/adm/wishlist?mode=newLink&setTitle='+title+'&setPath='+path, |
| 'wishlistNewLink','width=560,height=350,scrollbars=0'); |
'wishlistNewLink','width=560,height=350,scrollbars=0'); |
| } |
} |
|
Line 7707 var modalWindow = {
|
Line 8061 var modalWindow = {
|
| }; |
}; |
| var openMyModal = function(source,width,height,scrolling,transparency,style) |
var openMyModal = function(source,width,height,scrolling,transparency,style) |
| { |
{ |
| |
source = source.replace("'","'"); |
| modalWindow.windowId = "myModal"; |
modalWindow.windowId = "myModal"; |
| modalWindow.width = width; |
modalWindow.width = width; |
| modalWindow.height = height; |
modalWindow.height = height; |
| modalWindow.content = "<iframe width='"+width+"' height='"+height+"' frameborder='0' scrolling='"+scrolling+"' allowtransparency='"+transparency+"' src='" + source + "' style='"+style+"'></iframe>"; |
modalWindow.content = "<iframe width='"+width+"' height='"+height+"' frameborder='0' scrolling='"+scrolling+"' allowtransparency='"+transparency+"' src='" + source + "' style='"+style+"'></iframe>"; |
| modalWindow.open(); |
modalWindow.open(); |
| }; |
}; |
| // END LON-CAPA Internal --> |
// END LON-CAPA Internal --> |
|
Line 8314 role status: active, previous or future.
|
Line 8669 role status: active, previous or future.
|
| sub check_user_status { |
sub check_user_status { |
| my ($udom,$uname,$cdom,$crs,$role,$sec) = @_; |
my ($udom,$uname,$cdom,$crs,$role,$sec) = @_; |
| my %userinfo = &Apache::lonnet::dump('roles',$udom,$uname); |
my %userinfo = &Apache::lonnet::dump('roles',$udom,$uname); |
| my @uroles = keys %userinfo; |
my @uroles = keys(%userinfo); |
| my $srchstr; |
my $srchstr; |
| my $active_chk = 'none'; |
my $active_chk = 'none'; |
| my $now = time; |
my $now = time; |
|
Line 9427 sub personal_data_fieldtitles {
|
Line 9782 sub personal_data_fieldtitles {
|
| |
|
| sub sorted_inst_types { |
sub sorted_inst_types { |
| my ($dom) = @_; |
my ($dom) = @_; |
| my ($usertypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($dom); |
my ($usertypes,$order); |
| |
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom); |
| |
if (ref($domdefaults{'inststatus'}) eq 'HASH') { |
| |
$usertypes = $domdefaults{'inststatus'}{'inststatustypes'}; |
| |
$order = $domdefaults{'inststatus'}{'inststatusorder'}; |
| |
} else { |
| |
($usertypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($dom); |
| |
} |
| my $othertitle = &mt('All users'); |
my $othertitle = &mt('All users'); |
| if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
| $othertitle = &mt('Any users'); |
$othertitle = &mt('Any users'); |
|
Line 9890 sub ask_for_embedded_content {
|
Line 10252 sub ask_for_embedded_content {
|
| ($path) = |
($path) = |
| ($toplevel =~ m{^(\Q/uploaded/$cdom/$cnum/\E(?:docs|supplemental)/(?:default|\d+)/\d+)/}); |
($toplevel =~ m{^(\Q/uploaded/$cdom/$cnum/\E(?:docs|supplemental)/(?:default|\d+)/\d+)/}); |
| } |
} |
| $fileloc = &Apache::lonnet::filelocation('',$toplevel); |
if ($toplevel=~/^\/*(uploaded|editupload)/) { |
| |
$fileloc = $toplevel; |
| |
$fileloc=~ s/^\s*(\S+)\s*$/$1/; |
| |
my ($udom,$uname,$fname) = |
| |
($fileloc=~ m{^/+(?:uploaded|editupload)/+($match_domain)/+($match_name)/+(.*)$}); |
| |
$fileloc = propath($udom,$uname).'/userfiles/'.$fname; |
| |
} else { |
| |
$fileloc = &Apache::lonnet::filelocation('',$toplevel); |
| |
} |
| $fileloc =~ s{^/}{}; |
$fileloc =~ s{^/}{}; |
| ($filename) = ($fileloc =~ m{.+/([^/]+)$}); |
($filename) = ($fileloc =~ m{.+/([^/]+)$}); |
| $heading = &mt('Status of dependencies in [_1]',"$title ($filename)"); |
$heading = &mt('Status of dependencies in [_1]',"$title ($filename)"); |
|
Line 10936 sub check_for_upload {
|
Line 11306 sub check_for_upload {
|
| if (($current_disk_usage + $filesize) > $disk_quota){ |
if (($current_disk_usage + $filesize) > $disk_quota){ |
| my $msg = '<p class="LC_warning">'. |
my $msg = '<p class="LC_warning">'. |
| &mt('Unable to upload [_1]. (size = [_2] kilobytes). Disk quota will be exceeded.','<span class="LC_filename">'.$fname.'</span>',$filesize).'</p>'. |
&mt('Unable to upload [_1]. (size = [_2] kilobytes). Disk quota will be exceeded.','<span class="LC_filename">'.$fname.'</span>',$filesize).'</p>'. |
| '<br />'.&mt('Disk quota is [_1] kilobytes. Your current disk usage is [_2] kilobytes.',$disk_quota,$current_disk_usage); |
'<p>'.&mt('Disk quota is [_1] kilobytes. Your current disk usage is [_2] kilobytes.',$disk_quota,$current_disk_usage).'</p>'; |
| return ('will_exceed_quota',$msg); |
return ('will_exceed_quota',$msg); |
| } elsif ($found_file) { |
} elsif ($found_file) { |
| if ($locked_file) { |
if ($locked_file) { |
|
Line 11046 sub decompress_form {
|
Line 11416 sub decompress_form {
|
| "$topdir/media/player.swf", |
"$topdir/media/player.swf", |
| "$topdir/media/swfobject.js", |
"$topdir/media/swfobject.js", |
| "$topdir/media/expressInstall.swf"); |
"$topdir/media/expressInstall.swf"); |
| my @camtasia8 = ("$topdir/","$topdir/$topdir.html", |
my @camtasia8_1 = ("$topdir/","$topdir/$topdir.html", |
| "$topdir/$topdir.mp4", |
"$topdir/$topdir.mp4", |
| "$topdir/$topdir\_config.xml", |
"$topdir/$topdir\_config.xml", |
| "$topdir/$topdir\_controller.swf", |
"$topdir/$topdir\_controller.swf", |
|
Line 11068 sub decompress_form {
|
Line 11438 sub decompress_form {
|
| "$topdir/skins/express_show/", |
"$topdir/skins/express_show/", |
| "$topdir/skins/express_show/player-min.css", |
"$topdir/skins/express_show/player-min.css", |
| "$topdir/skins/express_show/spritesheet.png"); |
"$topdir/skins/express_show/spritesheet.png"); |
| |
my @camtasia8_4 = ("$topdir/","$topdir/$topdir.html", |
| |
"$topdir/$topdir.mp4", |
| |
"$topdir/$topdir\_config.xml", |
| |
"$topdir/$topdir\_controller.swf", |
| |
"$topdir/$topdir\_embed.css", |
| |
"$topdir/$topdir\_First_Frame.png", |
| |
"$topdir/$topdir\_player.html", |
| |
"$topdir/$topdir\_Thumbnails.png", |
| |
"$topdir/playerProductInstall.swf", |
| |
"$topdir/scripts/", |
| |
"$topdir/scripts/config_xml.js", |
| |
"$topdir/scripts/techsmith-smart-player.min.js", |
| |
"$topdir/skins/", |
| |
"$topdir/skins/configuration_express.xml", |
| |
"$topdir/skins/express_show/", |
| |
"$topdir/skins/express_show/spritesheet.min.css", |
| |
"$topdir/skins/express_show/spritesheet.png", |
| |
"$topdir/skins/express_show/techsmith-smart-player.min.css"); |
| my @diffs = &compare_arrays(\@paths,\@camtasia6); |
my @diffs = &compare_arrays(\@paths,\@camtasia6); |
| if (@diffs == 0) { |
if (@diffs == 0) { |
| $is_camtasia = 6; |
$is_camtasia = 6; |
| } else { |
} else { |
| @diffs = &compare_arrays(\@paths,\@camtasia8); |
@diffs = &compare_arrays(\@paths,\@camtasia8_1); |
| if (@diffs == 0) { |
if (@diffs == 0) { |
| $is_camtasia = 8; |
$is_camtasia = 8; |
| |
} else { |
| |
@diffs = &compare_arrays(\@paths,\@camtasia8_4); |
| |
if (@diffs == 0) { |
| |
$is_camtasia = 8; |
| |
} |
| } |
} |
| } |
} |
| } |
} |
|
Line 14442 sub escape_url {
|
Line 14835 sub escape_url {
|
| my ($url) = @_; |
my ($url) = @_; |
| my @urlslices = split(/\//, $url,-1); |
my @urlslices = split(/\//, $url,-1); |
| my $lastitem = &escape(pop(@urlslices)); |
my $lastitem = &escape(pop(@urlslices)); |
| return join('/',@urlslices).'/'.$lastitem; |
return &HTML::Entities::encode(join('/',@urlslices),"'").'/'.$lastitem; |
| } |
} |
| |
|
| sub compare_arrays { |
sub compare_arrays { |
|
Line 14500 sub init_user_environment {
|
Line 14893 sub init_user_environment {
|
| } |
} |
| } |
} |
| closedir(DIR); |
closedir(DIR); |
| |
# If there is a undeleted lockfile for the user's paste buffer remove it. |
| |
my $namespace = 'nohist_courseeditor'; |
| |
my $lockingkey = 'paste'."\0".'locked_num'; |
| |
my %lockhash = &Apache::lonnet::get($namespace,[$lockingkey], |
| |
$domain,$username); |
| |
if (exists($lockhash{$lockingkey})) { |
| |
my $delresult = &Apache::lonnet::del($namespace,[$lockingkey],$domain,$username); |
| |
unless ($delresult eq 'ok') { |
| |
&Apache::lonnet::logthis("Failed to delete paste buffer locking key in $namespace for ".$username.":".$domain." Result was: $delresult"); |
| |
} |
| |
} |
| } |
} |
| # Give them a new cookie |
# Give them a new cookie |
| my $id = ($args->{'robot'} ? 'robot'.$args->{'robot'} |
my $id = ($args->{'robot'} ? 'robot'.$args->{'robot'} |
|
Line 14513 sub init_user_environment {
|
Line 14917 sub init_user_environment {
|
| } |
} |
| # ------------------------------------ Check browser type and MathML capability |
# ------------------------------------ Check browser type and MathML capability |
| |
|
| my ($httpbrowser,$clientbrowser,$clientversion,$clientmathml, |
my ($httpbrowser,$clientbrowser,$clientversion,$clientmathml,$clientunicode, |
| $clientunicode,$clientos,$clientmobile,$clientinfo) = &decode_user_agent($r); |
$clientos,$clientmobile,$clientinfo,$clientosversion) = &decode_user_agent($r); |
| |
|
| # ------------------------------------------------------------- Get environment |
# ------------------------------------------------------------- Get environment |
| |
|
|
Line 14547 sub init_user_environment {
|
Line 14951 sub init_user_environment {
|
| "browser.os" => $clientos, |
"browser.os" => $clientos, |
| "browser.mobile" => $clientmobile, |
"browser.mobile" => $clientmobile, |
| "browser.info" => $clientinfo, |
"browser.info" => $clientinfo, |
| |
"browser.osversion" => $clientosversion, |
| "server.domain" => $Apache::lonnet::perlvar{'lonDefDomain'}, |
"server.domain" => $Apache::lonnet::perlvar{'lonDefDomain'}, |
| "request.course.fn" => '', |
"request.course.fn" => '', |
| "request.course.uri" => '', |
"request.course.uri" => '', |
|
Line 14873 sub build_filters {
|
Line 15278 sub build_filters {
|
| } |
} |
| $cloneableonlyform = '<span class="LC_nobreak"><label><input type="radio" name="cloneableonly" value="1" '.$cloneableon.'/> '.&mt('Required').'</label>'.(' 'x3).'<label><input type="radio" name="cloneableonly" value="" '.$cloneableoff.' /> '.&mt('No restriction').'</label></span>'; |
$cloneableonlyform = '<span class="LC_nobreak"><label><input type="radio" name="cloneableonly" value="1" '.$cloneableon.'/> '.&mt('Required').'</label>'.(' 'x3).'<label><input type="radio" name="cloneableonly" value="" '.$cloneableoff.' /> '.&mt('No restriction').'</label></span>'; |
| if ($formname eq 'ccrs') { |
if ($formname eq 'ccrs') { |
| $cloneabletitle = &mt('Cloneable for').' '.$cloneruname.':'.$clonerudom; |
$cloneabletitle = &mt('Cloneable for [_1]',$cloneruname.':'.$clonerudom); |
| } else { |
} else { |
| $cloneabletitle = &mt('Cloneable by you'); |
$cloneabletitle = &mt('Cloneable by you'); |
| } |
} |
|
Line 14917 sub build_filters {
|
Line 15322 sub build_filters {
|
| $output .= '<input type="hidden" name="phase" value="courselist" />'."\n". |
$output .= '<input type="hidden" name="phase" value="courselist" />'."\n". |
| '<input type="hidden" name="prevphase" value="'. |
'<input type="hidden" name="prevphase" value="'. |
| $prevphase.'" />'."\n"; |
$prevphase.'" />'."\n"; |
| } elsif ($formname ne 'quotacheck') { |
} elsif ($formname eq 'quotacheck') { |
| |
$output .= qq| |
| |
<input type="hidden" name="sortby" value="" /> |
| |
<input type="hidden" name="sortorder" value="" /> |
| |
|; |
| |
} else { |
| my $name_input; |
my $name_input; |
| if ($cnameelement ne '') { |
if ($cnameelement ne '') { |
| $name_input = '<input type="hidden" name="cnameelement" value="'. |
$name_input = '<input type="hidden" name="cnameelement" value="'. |
|
Line 15054 sub timebased_select_form {
|
Line 15464 sub timebased_select_form {
|
| =item * &js_changer() |
=item * &js_changer() |
| |
|
| Create script tag containing Javascript used to submit course search form |
Create script tag containing Javascript used to submit course search form |
| when course type or domain is changed. |
when course type or domain is changed, and also to hide 'Searching ...' on |
| |
page load completion for page showing search result. |
| |
|
| Inputs: None |
Inputs: None |
| |
|
| Returns: markup containing updateFilters() javascript function. |
Returns: markup containing updateFilters() and hideSearching() javascript functions. |
| |
|
| Side Effects: None |
Side Effects: None |
| |
|
|
Line 15074 function updateFilters(caller) {
|
Line 15485 function updateFilters(caller) {
|
| } |
} |
| document.filterpicker.submit(); |
document.filterpicker.submit(); |
| } |
} |
| |
|
| |
function hideSearching() { |
| |
if (document.getElementById('searching')) { |
| |
document.getElementById('searching').style.display = 'none'; |
| |
} |
| |
return; |
| |
} |
| |
|
| // ]]> |
// ]]> |
| </script> |
</script> |
| |
|
|
Line 15201 sub search_courses {
|
Line 15620 sub search_courses {
|
| return %courses; |
return %courses; |
| } |
} |
| |
|
| |
|
| =pod |
=pod |
| |
|
| =back |
=back |
|
Line 15209 sub search_courses {
|
Line 15627 sub search_courses {
|
| =cut |
=cut |
| |
|
| |
|
| sub build_release_hashes { |
|
| my ($checkparms,$checkresponsetypes,$checkcrstypes,$anonsurvey,$randomizetry) = @_; |
|
| return unless((ref($checkparms) eq 'HASH') && (ref($checkresponsetypes) eq 'HASH') && |
|
| (ref($checkcrstypes) eq 'HASH') && (ref($anonsurvey) eq 'HASH') && |
|
| (ref($randomizetry) eq 'HASH')); |
|
| foreach my $key (keys(%Apache::lonnet::needsrelease)) { |
|
| my ($item,$name,$value) = split(/:/,$key); |
|
| if ($item eq 'parameter') { |
|
| if (ref($checkparms->{$name}) eq 'ARRAY') { |
|
| unless(grep(/^\Q$name\E$/,@{$checkparms->{$name}})) { |
|
| push(@{$checkparms->{$name}},$value); |
|
| } |
|
| } else { |
|
| push(@{$checkparms->{$name}},$value); |
|
| } |
|
| } elsif ($item eq 'resourcetag') { |
|
| if ($name eq 'responsetype') { |
|
| $checkresponsetypes->{$value} = $Apache::lonnet::needsrelease{$key} |
|
| } |
|
| } elsif ($item eq 'course') { |
|
| if ($name eq 'crstype') { |
|
| $checkcrstypes->{$value} = $Apache::lonnet::needsrelease{$key}; |
|
| } |
|
| } |
|
| } |
|
| ($anonsurvey->{major},$anonsurvey->{minor}) = split(/\./,$Apache::lonnet::needsrelease{'parameter:type:anonsurvey'}); |
|
| ($randomizetry->{major},$randomizetry->{minor}) = split(/\./,$Apache::lonnet::needsrelease{'parameter:type:randomizetry'}); |
|
| return; |
|
| } |
|
| |
|
| sub update_content_constraints { |
sub update_content_constraints { |
| my ($cdom,$cnum,$chome,$cid) = @_; |
my ($cdom,$cnum,$chome,$cid) = @_; |
| my %curr_reqd_hash = &Apache::lonnet::userenvironment($cdom,$cnum,'internal.releaserequired'); |
my %curr_reqd_hash = &Apache::lonnet::userenvironment($cdom,$cnum,'internal.releaserequired'); |
|
Line 15615 sub cleanup_html {
|
Line 16003 sub cleanup_html {
|
| return $outgoing; |
return $outgoing; |
| } |
} |
| |
|
| |
# Checks for critical messages and returns a redirect url if one exists. |
| |
# $interval indicates how often to check for messages. |
| |
sub critical_redirect { |
| |
my ($interval) = @_; |
| |
if ((time-$env{'user.criticalcheck.time'})>$interval) { |
| |
my @what=&Apache::lonnet::dump('critical', $env{'user.domain'}, |
| |
$env{'user.name'}); |
| |
&Apache::lonnet::appenv({'user.criticalcheck.time'=>time}); |
| |
my $redirecturl; |
| |
if ($what[0]) { |
| |
if (($what[0] ne 'con_lost') && ($what[0]!~/^error\:/)) { |
| |
$redirecturl='/adm/email?critical=display'; |
| |
my $url=&Apache::lonnet::absolute_url().$redirecturl; |
| |
return (1, $url); |
| |
} |
| |
} |
| |
} |
| |
return (); |
| |
} |
| |
|
| # Use: |
# Use: |
| # my $answer=reply("encrypt:passwd:$udom:$uname:$upass",$tryserver); |
# my $answer=reply("encrypt:passwd:$udom:$uname:$upass",$tryserver); |
| # |
# |
![[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