|
version 1.1164, 2013/12/20 00:08:22
|
version 1.1225, 2015/07/14 00:08:06
|
|
Line 69 use Apache::lontexconvert();
|
Line 69 use Apache::lontexconvert();
|
| use Apache::lonclonecourse(); |
use Apache::lonclonecourse(); |
| use Apache::lonuserutils(); |
use Apache::lonuserutils(); |
| use Apache::lonuserstate(); |
use Apache::lonuserstate(); |
| |
use Apache::courseclassifier(); |
| use LONCAPA qw(:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
| use DateTime::TimeZone; |
use DateTime::TimeZone; |
| use DateTime::Locale::Catalog; |
use DateTime::Locale::Catalog; |
| |
use Encode(); |
| use Text::Aspell; |
use Text::Aspell; |
| use Authen::Captcha; |
use Authen::Captcha; |
| use Captcha::reCAPTCHA; |
use Captcha::reCAPTCHA; |
| |
use Crypt::DES; |
| |
use DynaLoader; # for Crypt::DES version |
| |
use MIME::Lite; |
| |
use MIME::Types; |
| |
|
| # ---------------------------------------------- Designs |
# ---------------------------------------------- Designs |
| use vars qw(%defaultdesign); |
use vars qw(%defaultdesign); |
|
Line 532 ENDAUTHORBRW
|
Line 538 ENDAUTHORBRW
|
| |
|
| sub coursebrowser_javascript { |
sub coursebrowser_javascript { |
| my ($domainfilter,$sec_element,$formname,$role_element,$crstype, |
my ($domainfilter,$sec_element,$formname,$role_element,$crstype, |
| $credits_element) = @_; |
$credits_element,$instcode) = @_; |
| my $wintitle = 'Course_Browser'; |
my $wintitle = 'Course_Browser'; |
| if ($crstype eq 'Community') { |
if ($crstype eq 'Community') { |
| $wintitle = 'Community_Browser'; |
$wintitle = 'Community_Browser'; |
|
Line 582 sub coursebrowser_javascript {
|
Line 588 sub coursebrowser_javascript {
|
| if (formname == 'ccrs') { |
if (formname == 'ccrs') { |
| var ownername = document.forms[formid].ccuname.value; |
var ownername = document.forms[formid].ccuname.value; |
| var ownerdom = document.forms[formid].ccdomain.options[document.forms[formid].ccdomain.selectedIndex].value; |
var ownerdom = document.forms[formid].ccdomain.options[document.forms[formid].ccdomain.selectedIndex].value; |
| url += '&cloner='+ownername+':'+ownerdom; |
url += '&cloner='+ownername+':'+ownerdom+'&crscode='+document.forms[formid].crscode.value; |
| |
} |
| |
if (formname == 'requestcrs') { |
| |
url += '&crsdom=$domainfilter&crscode=$instcode'; |
| } |
} |
| if (multflag !=null && multflag != '') { |
if (multflag !=null && multflag != '') { |
| url += '&multiple='+multflag; |
url += '&multiple='+multflag; |
|
Line 980 sub select_datelocale {
|
Line 989 sub select_datelocale {
|
| $locale_names{$id} = '('.$en_terr.')'; |
$locale_names{$id} = '('.$en_terr.')'; |
| } |
} |
| } |
} |
| |
$locale_names{$id} = Encode::encode('UTF-8',$locale_names{$id}); |
| push (@possibles,$id); |
push (@possibles,$id); |
| } |
} |
| } |
} |
|
Line 991 sub select_datelocale {
|
Line 1001 sub select_datelocale {
|
| } |
} |
| $output.=">$item"; |
$output.=">$item"; |
| if ($locale_names{$item} ne '') { |
if ($locale_names{$item} ne '') { |
| $output.=" $locale_names{$item}</option>\n"; |
$output.=' '.$locale_names{$item}; |
| } |
} |
| $output.="</option>\n"; |
$output.="</option>\n"; |
| } |
} |
|
Line 1313 sub helpLatexCheatsheet {
|
Line 1323 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 1380 sub top_nav_help {
|
Line 1392 sub top_nav_help {
|
| $text = &mt($text); |
$text = &mt($text); |
| my $stay_on_page = 1; |
my $stay_on_page = 1; |
| |
|
| my $link = ($stay_on_page) ? "javascript:helpMenu('display')" |
my ($link,$banner_link); |
| : "javascript:helpMenu('open')"; |
unless ($env{'request.noversionuri'} =~ m{^/adm/helpmenu}) { |
| my $banner_link = &update_help_link(undef,undef,undef,undef,$stay_on_page); |
$link = ($stay_on_page) ? "javascript:helpMenu('display')" |
| |
: "javascript:helpMenu('open')"; |
| |
$banner_link = &update_help_link(undef,undef,undef,undef,$stay_on_page); |
| |
} |
| my $title = &mt('Get help'); |
my $title = &mt('Get help'); |
| |
if ($link) { |
| return <<"END"; |
return <<"END"; |
| $banner_link |
$banner_link |
| <a href="$link" title="$title">$text</a> |
<a href="$link" title="$title">$text</a> |
| END |
END |
| |
} else { |
| |
return ' '.$text.' '; |
| |
} |
| } |
} |
| |
|
| sub help_menu_js { |
sub help_menu_js { |
|
Line 1406 sub help_menu_js {
|
Line 1423 sub help_menu_js {
|
| 'js_ready' => 1, |
'js_ready' => 1, |
| 'use_absolute' => $httphost, |
'use_absolute' => $httphost, |
| 'add_entries' => { |
'add_entries' => { |
| 'border' => '0', |
'border' => '0', |
| 'rows' => "110,*",},}); |
'rows' => "110,*",},}); |
| my $end_page = |
my $end_page = |
| &Apache::loncommon::end_page({'frameset' => 1, |
&Apache::loncommon::end_page({'frameset' => 1, |
|
Line 1436 function helpMenu(target) {
|
Line 1453 function helpMenu(target) {
|
| return; |
return; |
| } |
} |
| function writeHelp(caller) { |
function writeHelp(caller) { |
| caller.document.writeln('$start_page\\n<frame name="bannerframe" src="'+banner_link+'" />\\n<frame name="bodyframe" src="$details_link" />\\n$end_page') |
caller.document.writeln('$start_page\\n<frame name="bannerframe" src="'+banner_link+'" marginwidth="0" marginheight="0" frameborder="0">\\n'); |
| caller.document.close() |
caller.document.writeln('<frame name="bodyframe" src="$details_link" marginwidth="0" marginheight="0" frameborder="0">\\n$end_page'); |
| caller.focus() |
caller.document.close(); |
| |
caller.focus(); |
| } |
} |
| // END LON-CAPA Internal --> |
// END LON-CAPA Internal --> |
| // ]]> |
// ]]> |
|
Line 1746 RESIZE
|
Line 1764 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 2354 Outputs:
|
Line 2607 Outputs:
|
| |
|
| =item * $clientinfo |
=item * $clientinfo |
| |
|
| |
=item * $clientosversion |
| |
|
| =back |
=back |
| |
|
| =back |
=back |
|
Line 2373 sub decode_user_agent {
|
Line 2628 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 2394 sub decode_user_agent {
|
Line 2650 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 2405 sub decode_user_agent {
|
Line 2666 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 3741 sub user_lang {
|
Line 4003 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 3763 Return string with previous attempt on p
|
Line 4025 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 3770 The output string is a table containing
|
Line 4037 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 3780 sub get_previous_attempt {
|
Line 4047 sub get_previous_attempt {
|
| my %lasthash=(); |
my %lasthash=(); |
| my $version; |
my $version; |
| for ($version=1;$version<=$returnhash{'version'};$version++) { |
for ($version=1;$version<=$returnhash{'version'};$version++) { |
| foreach my $key (sort(split(/\:/,$returnhash{$version.':keys'}))) { |
foreach my $key (reverse(sort(split(/\:/,$returnhash{$version.':keys'})))) { |
| $lasthash{$key}=$returnhash{$version.':'.$key}; |
if ($key =~ /\.rawrndseed$/) { |
| |
my ($id) = ($key =~ /^(.+)\.rawrndseed$/); |
| |
$lasthash{$id.'.rndseed'} = $returnhash{$version.':'.$key}; |
| |
} else { |
| |
$lasthash{$key}=$returnhash{$version.':'.$key}; |
| |
} |
| } |
} |
| } |
} |
| $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 3803 sub get_previous_attempt {
|
Line 4075 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 3814 sub get_previous_attempt {
|
Line 4098 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 3846 sub get_previous_attempt {
|
Line 4173 sub get_previous_attempt {
|
| } |
} |
| } else { |
} else { |
| if ($key =~ /\./) { |
if ($key =~ /\./) { |
| my $value = &format_previous_attempt_value($key, |
my $value = $returnhash{$version.':'.$key}; |
| $returnhash{$version.':'.$key}); |
if ($key =~ /\.rndseed$/) { |
| $prevattempts.='<td>'.$value.' </td>'; |
my ($id) = ($key =~ /^(.+)\.[^.]+$/); |
| |
if (exists($returnhash{$version.':'.$id.'.rawrndseed'})) { |
| |
$value = $returnhash{$version.':'.$id.'.rawrndseed'}; |
| |
} |
| |
} |
| |
$prevattempts.='<td>'.&format_previous_attempt_value($key,$value). |
| |
' </td>'; |
| } else { |
} else { |
| $prevattempts.='<td> </td>'; |
$prevattempts.='<td> </td>'; |
| } |
} |
|
Line 3857 sub get_previous_attempt {
|
Line 4190 sub get_previous_attempt {
|
| } else { |
} else { |
| foreach my $key (sort(keys(%lasthash))) { |
foreach my $key (sort(keys(%lasthash))) { |
| next if ($key =~ /\.foilorder$/); |
next if ($key =~ /\.foilorder$/); |
| my $value = &format_previous_attempt_value($key, |
my $value = $returnhash{$version.':'.$key}; |
| $returnhash{$version.':'.$key}); |
if ($key =~ /\.rndseed$/) { |
| $prevattempts.='<td>'.$value.' </td>'; |
my ($id) = ($key =~ /^(.+)\.[^.]+$/); |
| |
if (exists($returnhash{$version.':'.$id.'.rawrndseed'})) { |
| |
$value = $returnhash{$version.':'.$id.'.rawrndseed'}; |
| |
} |
| |
} |
| |
$prevattempts.='<td>'.&format_previous_attempt_value($key,$value). |
| |
' </td>'; |
| } |
} |
| } |
} |
| $prevattempts.=&end_data_table_row(); |
$prevattempts.=&end_data_table_row(); |
|
Line 3884 sub get_previous_attempt {
|
Line 4223 sub get_previous_attempt {
|
| if ($key =~/$regexp$/ && (defined &$gradesub)) { |
if ($key =~/$regexp$/ && (defined &$gradesub)) { |
| $value = &$gradesub($value); |
$value = &$gradesub($value); |
| } |
} |
| $prevattempts.='<td>'.$value.' </td>'; |
$prevattempts.='<td>'. $value.' </td>'; |
| } else { |
} else { |
| $prevattempts.='<td> </td>'; |
$prevattempts.='<td> </td>'; |
| } |
} |
|
Line 3900 sub get_previous_attempt {
|
Line 4239 sub get_previous_attempt {
|
| if ($key =~/$regexp$/ && (defined &$gradesub)) { |
if ($key =~/$regexp$/ && (defined &$gradesub)) { |
| $value = &$gradesub($value); |
$value = &$gradesub($value); |
| } |
} |
| $prevattempts.='<td>'.$value.' </td>'; |
$prevattempts.='<td>'.$value.' </td>'; |
| } |
} |
| } |
} |
| $prevattempts.= &end_data_table_row().&end_data_table(); |
$prevattempts.= &end_data_table_row().&end_data_table(); |
|
Line 3921 sub get_previous_attempt {
|
Line 4260 sub get_previous_attempt {
|
| sub format_previous_attempt_value { |
sub format_previous_attempt_value { |
| my ($key,$value) = @_; |
my ($key,$value) = @_; |
| if (($key =~ /timestamp/) || ($key=~/duedate/)) { |
if (($key =~ /timestamp/) || ($key=~/duedate/)) { |
| $value = &Apache::lonlocal::locallocaltime($value); |
$value = &Apache::lonlocal::locallocaltime($value); |
| } elsif (ref($value) eq 'ARRAY') { |
} elsif (ref($value) eq 'ARRAY') { |
| $value = '('.join(', ', @{ $value }).')'; |
$value = &HTML::Entities::encode('('.join(', ', @{ $value }).')','"<>&'); |
| } elsif ($key =~ /answerstring$/) { |
} elsif ($key =~ /answerstring$/) { |
| my %answers = &Apache::lonnet::str2hash($value); |
my %answers = &Apache::lonnet::str2hash($value); |
| |
my @answer = %answers; |
| |
%answers = map {&HTML::Entities::encode($_, '"<>&')} @answer; |
| my @anskeys = sort(keys(%answers)); |
my @anskeys = sort(keys(%answers)); |
| if (@anskeys == 1) { |
if (@anskeys == 1) { |
| my $answer = $answers{$anskeys[0]}; |
my $answer = $answers{$anskeys[0]}; |
|
Line 3948 sub format_previous_attempt_value {
|
Line 4289 sub format_previous_attempt_value {
|
| } |
} |
| } |
} |
| } else { |
} else { |
| $value = &unescape($value); |
$value = &HTML::Entities::encode(&unescape($value), '"<>&'); |
| } |
} |
| return $value; |
return $value; |
| } |
} |
|
Line 4309 sub findallcourses {
|
Line 4650 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 4335 sub blockcheck {
|
Line 4673 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 4599 sub parse_block_record {
|
Line 4938 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 4637 END_MYBLOCK
|
Line 4976 END_MYBLOCK
|
| |
|
| my $popupUrl = "/adm/blockingstatus/$querystring"; |
my $popupUrl = "/adm/blockingstatus/$querystring"; |
| my $text = &mt('Communication Blocked'); |
my $text = &mt('Communication Blocked'); |
| |
my $class = 'LC_comblock'; |
| if ($activity eq 'docs') { |
if ($activity eq 'docs') { |
| $text = &mt('Content Access Blocked'); |
$text = &mt('Content Access Blocked'); |
| |
$class = ''; |
| } elsif ($activity eq 'printout') { |
} elsif ($activity eq 'printout') { |
| $text = &mt('Printing Blocked'); |
$text = &mt('Printing Blocked'); |
| } |
} |
| $output .= <<"END_BLOCK"; |
$output .= <<"END_BLOCK"; |
| <div class='LC_comblock'> |
<div class='$class'> |
| <a onclick='openWindow("$popupUrl","Blocking Table",600,300,"no","no");return false;' href='/adm/blockingstatus/$querystring' |
<a onclick='openWindow("$popupUrl","Blocking Table",600,300,"no","no");return false;' href='/adm/blockingstatus/$querystring' |
| title='$text'> |
title='$text'> |
| <img class='LC_noBorder LC_middle' title='$text' src='/res/adm/pages/comblock.png' alt='$text'/></a> |
<img class='LC_noBorder LC_middle' title='$text' src='/res/adm/pages/comblock.png' alt='$text'/></a> |
|
Line 4659 END_BLOCK
|
Line 5000 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; |
| 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)) { |
my %access = ( |
| $pattern =~ s/^\s*//; |
allowfrom => 1, |
| $pattern =~ s/\s*$//; |
denyfrom => 0, |
| |
); |
| |
my @allows; |
| |
my @denies; |
| |
foreach my $item (split(',',$acc)) { |
| |
$item =~ s/^\s*//; |
| |
$item =~ s/\s*$//; |
| |
my $pattern; |
| |
if ($item =~ /^\!(.+)$/) { |
| |
push(@denies,$1); |
| |
} else { |
| |
push(@allows,$item); |
| |
} |
| |
} |
| |
my $numdenies = scalar(@denies); |
| |
my $numallows = scalar(@allows); |
| |
my $count = 0; |
| |
foreach my $pattern (@denies,@allows) { |
| |
$count ++; |
| |
my $acctype = 'allowfrom'; |
| |
if ($count <= $numdenies) { |
| |
$acctype = 'denyfrom'; |
| |
} |
| if ($pattern =~ /\*$/) { |
if ($pattern =~ /\*$/) { |
| #35.8.* |
#35.8.* |
| $pattern=~s/\*//; |
$pattern=~s/\*//; |
| if ($ip =~ /^\Q$pattern\E/) { $allowed=1; } |
if ($ip =~ /^\Q$pattern\E/) { $allowed=$access{$acctype}; } |
| } elsif ($pattern =~ /(\d+\.\d+\.\d+)\.\[(\d+)-(\d+)\]$/) { |
} elsif ($pattern =~ /(\d+\.\d+\.\d+)\.\[(\d+)-(\d+)\]$/) { |
| #35.8.3.[34-56] |
#35.8.3.[34-56] |
| my $low=$2; |
my $low=$2; |
|
Line 4682 sub check_ip_acc {
|
Line 5045 sub check_ip_acc {
|
| $pattern=$1; |
$pattern=$1; |
| if ($ip =~ /^\Q$pattern\E/) { |
if ($ip =~ /^\Q$pattern\E/) { |
| my $last=(split(/\./,$ip))[3]; |
my $last=(split(/\./,$ip))[3]; |
| if ($last <=$high && $last >=$low) { $allowed=1; } |
if ($last <=$high && $last >=$low) { $allowed=$access{$acctype}; } |
| } |
} |
| } elsif ($pattern =~ /^\*/) { |
} elsif ($pattern =~ /^\*/) { |
| #*.msu.edu |
#*.msu.edu |
|
Line 4692 sub check_ip_acc {
|
Line 5055 sub check_ip_acc {
|
| my $netaddr=inet_aton($ip); |
my $netaddr=inet_aton($ip); |
| ($name)=gethostbyaddr($netaddr,AF_INET); |
($name)=gethostbyaddr($netaddr,AF_INET); |
| } |
} |
| if ($name =~ /\Q$pattern\E$/i) { $allowed=1; } |
if ($name =~ /\Q$pattern\E$/i) { $allowed=$access{$acctype}; } |
| } elsif ($pattern =~ /\d+\.\d+\.\d+\.\d+/) { |
} elsif ($pattern =~ /\d+\.\d+\.\d+\.\d+/) { |
| #127.0.0.1 |
#127.0.0.1 |
| if ($ip =~ /^\Q$pattern\E/) { $allowed=1; } |
if ($ip =~ /^\Q$pattern\E/) { $allowed=$access{$acctype}; } |
| } else { |
} else { |
| #some.name.com |
#some.name.com |
| if (!defined($name)) { |
if (!defined($name)) { |
|
Line 4703 sub check_ip_acc {
|
Line 5066 sub check_ip_acc {
|
| my $netaddr=inet_aton($ip); |
my $netaddr=inet_aton($ip); |
| ($name)=gethostbyaddr($netaddr,AF_INET); |
($name)=gethostbyaddr($netaddr,AF_INET); |
| } |
} |
| if ($name =~ /\Q$pattern\E$/i) { $allowed=1; } |
if ($name =~ /\Q$pattern\E$/i) { $allowed=$access{$acctype}; } |
| |
} |
| |
if ($allowed =~ /^(0|1)$/) { last; } |
| |
} |
| |
if ($allowed eq '') { |
| |
if ($numdenies && !$numallows) { |
| |
$allowed = 1; |
| |
} else { |
| |
$allowed = 0; |
| } |
} |
| if ($allowed) { last; } |
|
| } |
} |
| return $allowed; |
return $allowed; |
| } |
} |
|
Line 4761 sub get_domainconf {
|
Line 5131 sub get_domainconf {
|
| if (keys(%{$domconfig{'login'}})) { |
if (keys(%{$domconfig{'login'}})) { |
| foreach my $key (keys(%{$domconfig{'login'}})) { |
foreach my $key (keys(%{$domconfig{'login'}})) { |
| if (ref($domconfig{'login'}{$key}) eq 'HASH') { |
if (ref($domconfig{'login'}{$key}) eq 'HASH') { |
| if ($key eq 'loginvia') { |
if (($key eq 'loginvia') || ($key eq 'headtag')) { |
| if (ref($domconfig{'login'}{'loginvia'}) eq 'HASH') { |
if (ref($domconfig{'login'}{$key}) eq 'HASH') { |
| foreach my $hostname (keys(%{$domconfig{'login'}{'loginvia'}})) { |
foreach my $hostname (keys(%{$domconfig{'login'}{$key}})) { |
| if (ref($domconfig{'login'}{'loginvia'}{$hostname}) eq 'HASH') { |
if (ref($domconfig{'login'}{$key}{$hostname}) eq 'HASH') { |
| if ($domconfig{'login'}{'loginvia'}{$hostname}{'server'}) { |
if ($key eq 'loginvia') { |
| my $server = $domconfig{'login'}{'loginvia'}{$hostname}{'server'}; |
if ($domconfig{'login'}{'loginvia'}{$hostname}{'server'}) { |
| $designhash{$udom.'.login.loginvia'} = $server; |
my $server = $domconfig{'login'}{'loginvia'}{$hostname}{'server'}; |
| if ($domconfig{'login'}{'loginvia'}{$hostname}{'serverpath'} eq 'custom') { |
$designhash{$udom.'.login.loginvia'} = $server; |
| |
if ($domconfig{'login'}{'loginvia'}{$hostname}{'serverpath'} eq 'custom') { |
| $designhash{$udom.'.login.loginvia_'.$hostname} = $server.':'.$domconfig{'login'}{'loginvia'}{$hostname}{'custompath'}; |
|
| } else { |
$designhash{$udom.'.login.loginvia_'.$hostname} = $server.':'.$domconfig{'login'}{'loginvia'}{$hostname}{'custompath'}; |
| $designhash{$udom.'.login.loginvia_'.$hostname} = $server.':'.$domconfig{'login'}{'loginvia'}{$hostname}{'serverpath'}; |
} else { |
| |
$designhash{$udom.'.login.loginvia_'.$hostname} = $server.':'.$domconfig{'login'}{'loginvia'}{$hostname}{'serverpath'}; |
| |
} |
| } |
} |
| if ($domconfig{'login'}{'loginvia'}{$hostname}{'exempt'}) { |
} elsif ($key eq 'headtag') { |
| $designhash{$udom.'.login.loginvia_exempt_'.$hostname} = $domconfig{'login'}{'loginvia'}{$hostname}{'exempt'}; |
if ($domconfig{'login'}{'headtag'}{$hostname}{'url'}) { |
| |
$designhash{$udom.'.login.headtag_'.$hostname} = $domconfig{'login'}{'headtag'}{$hostname}{'url'}; |
| } |
} |
| } |
} |
| |
if ($domconfig{'login'}{$key}{$hostname}{'exempt'}) { |
| |
$designhash{$udom.'.login.'.$key.'_exempt_'.$hostname} = $domconfig{'login'}{$key}{$hostname}{'exempt'}; |
| |
} |
| } |
} |
| } |
} |
| } |
} |
|
Line 5141 sub bodytag {
|
Line 5517 sub bodytag {
|
| @design{keys(%$addentries)} = @$addentries{keys(%$addentries)}; |
@design{keys(%$addentries)} = @$addentries{keys(%$addentries)}; |
| |
|
| # role and realm |
# role and realm |
| my ($role,$realm) = split(/\./,$env{'request.role'},2); |
my ($role,$realm) = split(m{\./},$env{'request.role'},2); |
| |
if ($realm) { |
| |
$realm = '/'.$realm; |
| |
} |
| if ($role eq 'ca') { |
if ($role eq 'ca') { |
| my ($rdom,$rname) = ($realm =~ m{^/($match_domain)/($match_username)$}); |
my ($rdom,$rname) = ($realm =~ m{^/($match_domain)/($match_username)$}); |
| $realm = &plainname($rname,$rdom); |
$realm = &plainname($rname,$rdom); |
|
Line 5222 sub bodytag {
|
Line 5601 sub bodytag {
|
| } |
} |
| $bodytag .= qq|<div id="LC_realm">$realm $dc_info</div>|; |
$bodytag .= qq|<div id="LC_realm">$realm $dc_info</div>|; |
| |
|
| |
#if directed to not display the secondary menu, don't. |
| |
if ($args->{'no_secondary_menu'}) { |
| |
return $bodytag; |
| |
} |
| #don't show menus for public users |
#don't show menus for public users |
| if (!$public){ |
if (!$public){ |
| $bodytag .= Apache::lonmenu::secondary_menu($httphost); |
$bodytag .= Apache::lonmenu::secondary_menu($httphost); |
|
Line 6467 div.LC_edit_problem_footer,
|
Line 6850 div.LC_edit_problem_footer,
|
| div.LC_edit_problem_footer div, |
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; |
z-index: 100; |
| } |
} |
| |
|
| div.LC_edit_problem_header_title { |
div.LC_edit_problem_header_title { |
|
Line 6483 table.LC_edit_problem_header_title {
|
Line 6866 table.LC_edit_problem_header_title {
|
| background: $tabbg; |
background: $tabbg; |
| } |
} |
| |
|
| div.LC_edit_problem_discards { |
div.LC_edit_actionbar { |
| float: left; |
background-color: $sidebg; |
| padding-bottom: 5px; |
margin: 0; |
| |
padding: 0; |
| |
line-height: 200%; |
| } |
} |
| |
|
| div.LC_edit_problem_saves { |
div.LC_edit_actionbar div{ |
| float: right; |
padding: 0; |
| padding-bottom: 5px; |
margin: 0; |
| |
display: inline-block; |
| } |
} |
| |
|
| .LC_edit_opt { |
.LC_edit_opt { |
|
Line 6506 div.LC_edit_problem_saves {
|
Line 6892 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 6593 fieldset {
|
Line 6983 fieldset {
|
| /* overflow: hidden; */ |
/* overflow: hidden; */ |
| } |
} |
| |
|
| |
article.geogebraweb div { |
| |
margin: 0; |
| |
} |
| |
|
| fieldset > legend { |
fieldset > legend { |
| font-weight: bold; |
font-weight: bold; |
| padding: 0 5px 0 5px; |
padding: 0 5px 0 5px; |
|
Line 6620 fieldset > legend {
|
Line 7014 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 6632 ol.LC_primary_menu li {
|
Line 7025 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 li:hover ul, ol.LC_primary_menu li.hover ul { |
ol.LC_primary_menu ul ul { |
| |
left: 100%; |
| |
top: 0; |
| |
} |
| |
|
| |
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 6657 ol.LC_primary_menu li:hover ul, ol.LC_pr
|
Line 7075 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 6673 ol.LC_primary_menu li li a:hover {
|
Line 7097 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 7284 sub headtag {
|
Line 7713 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 7324 sub headtag {
|
Line 7756 sub headtag {
|
| <meta http-equiv="pragma" content="no-cache" /> |
<meta http-equiv="pragma" content="no-cache" /> |
| <meta http-equiv="Refresh" content="$time; url=$url" /> |
<meta http-equiv="Refresh" content="$time; url=$url" /> |
| ADDMETA |
ADDMETA |
| |
} else { |
| |
unless (($args->{'frameset'}) || ($args->{'js_ready'}) || ($args->{'only_body'}) || ($args->{'no_nav_bar'})) { |
| |
my $requrl = $env{'request.uri'}; |
| |
if ($requrl eq '') { |
| |
$requrl = $ENV{'REQUEST_URI'}; |
| |
$requrl =~ s/\?.+$//; |
| |
} |
| |
unless (($requrl =~ m{^/adm/(?:switchserver|login|authenticate|logout|groupsort|cleanup|helper|slotrequest|grades)(\?|$)}) || |
| |
(($requrl =~ m{^/res/}) && (($env{'form.submitted'} eq 'scantron') || |
| |
($env{'form.grade_symb'}) || ($Apache::lonhomework::scantronmode)))) { |
| |
my $dom_in_use = $Apache::lonnet::perlvar{'lonDefDomain'}; |
| |
unless (&Apache::lonnet::allowed('mau',$dom_in_use)) { |
| |
my %domdefs = &Apache::lonnet::get_domain_defaults($dom_in_use); |
| |
if (ref($domdefs{'offloadnow'}) eq 'HASH') { |
| |
my $lonhost = $Apache::lonnet::perlvar{'lonHostID'}; |
| |
if ($domdefs{'offloadnow'}{$lonhost}) { |
| |
my $newserver = &Apache::lonnet::spareserver(30000,undef,1,$dom_in_use); |
| |
if (($newserver) && ($newserver ne $lonhost)) { |
| |
my $numsec = 5; |
| |
my $timeout = $numsec * 1000; |
| |
my ($newurl,$locknum,%locks,$msg); |
| |
if ($env{'request.role.adv'}) { |
| |
($locknum,%locks) = &Apache::lonnet::get_locks(); |
| |
} |
| |
my $disable_submit = 0; |
| |
if ($requrl =~ /$LONCAPA::assess_re/) { |
| |
$disable_submit = 1; |
| |
} |
| |
if ($locknum) { |
| |
my @lockinfo = sort(values(%locks)); |
| |
$msg = &mt('Once the following tasks are complete: ')."\\n". |
| |
join(", ",sort(values(%locks)))."\\n". |
| |
&mt('your session will be transferred to a different server, after you click "Roles".'); |
| |
} else { |
| |
if (($requrl =~ m{^/res/}) && ($env{'form.submitted'} =~ /^part_/)) { |
| |
$msg = &mt('Your LON-CAPA submission has been recorded')."\\n"; |
| |
} |
| |
$msg .= &mt('Your current LON-CAPA session will be transferred to a different server in [quant,_1,second].',$numsec); |
| |
$newurl = '/adm/switchserver?otherserver='.$newserver; |
| |
if (($env{'request.role'}) && ($env{'request.role'} ne 'cm')) { |
| |
$newurl .= '&role='.$env{'request.role'}; |
| |
} |
| |
if ($env{'request.symb'}) { |
| |
$newurl .= '&symb='.$env{'request.symb'}; |
| |
} else { |
| |
$newurl .= '&origurl='.$requrl; |
| |
} |
| |
} |
| |
&js_escape(\$msg); |
| |
$result.=<<OFFLOAD |
| |
<meta http-equiv="pragma" content="no-cache" /> |
| |
<script type="text/javascript"> |
| |
// <![CDATA[ |
| |
function LC_Offload_Now() { |
| |
var dest = "$newurl"; |
| |
if (dest != '') { |
| |
window.location.href="$newurl"; |
| |
} |
| |
} |
| |
\$(document).ready(function () { |
| |
window.alert('$msg'); |
| |
if ($disable_submit) { |
| |
\$(".LC_hwk_submit").prop("disabled", true); |
| |
\$( ".LC_textline" ).prop( "readonly", "readonly"); |
| |
} |
| |
setTimeout('LC_Offload_Now()', $timeout); |
| |
}); |
| |
// ]]> |
| |
</script> |
| |
OFFLOAD |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| } |
} |
| if (!defined($title)) { |
if (!defined($title)) { |
| $title = 'The LearningOnline Network with CAPA'; |
$title = 'The LearningOnline Network with CAPA'; |
| } |
} |
| if (!$args->{'no_auto_mt_title'}) { $title = &mt($title); } |
if (!$args->{'no_auto_mt_title'}) { $title = &mt($title); } |
| $result .= '<title> LON-CAPA '.$title.'</title>' |
$result .= '<title> LON-CAPA '.$title.'</title>' |
| .'<link rel="stylesheet" type="text/css" href="'.$url.'" />' |
.'<link rel="stylesheet" type="text/css" href="'.$url.'"'; |
| |
if (!$args->{'frameset'}) { |
| |
$result .= ' /'; |
| |
} |
| |
$result .= '>' |
| .$inhibitprint |
.$inhibitprint |
| .$head_extra; |
.$head_extra; |
| if ($env{'browser.mobile'}) { |
if ($env{'browser.mobile'}) { |
|
Line 7356 sub font_settings {
|
Line 7868 sub font_settings {
|
| my $headerstring=''; |
my $headerstring=''; |
| if ((!$env{'browser.mathml'} && $env{'browser.unicode'}) || |
if ((!$env{'browser.mathml'} && $env{'browser.unicode'}) || |
| ((ref($args) eq 'HASH') && ($args->{'browser.unicode'}))) { |
((ref($args) eq 'HASH') && ($args->{'browser.unicode'}))) { |
| $headerstring.= |
$headerstring.= |
| '<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />'."\n"; |
'<meta http-equiv="Content-Type" content="text/html; charset=utf-8"'; |
| |
if (!$args->{'frameset'}) { |
| |
$headerstring.= ' /'; |
| |
} |
| |
$headerstring .= '>'."\n"; |
| } |
} |
| return $headerstring; |
return $headerstring; |
| } |
} |
|
Line 7402 sub print_suppression {
|
Line 7918 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 7449 Inputs: none
|
Line 7965 Inputs: none
|
| =cut |
=cut |
| |
|
| sub xml_begin { |
sub xml_begin { |
| |
my ($is_frameset) = @_; |
| my $output=''; |
my $output=''; |
| |
|
| if ($env{'browser.mathml'}) { |
if ($env{'browser.mathml'}) { |
|
Line 7460 sub xml_begin {
|
Line 7977 sub xml_begin {
|
| .'<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1 plus MathML 2.0 plus SVG 1.1//EN" "http://www.w3.org/2002/04/xhtml-math-svg/xhtml-math-svg.dtd">' |
.'<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1 plus MathML 2.0 plus SVG 1.1//EN" "http://www.w3.org/2002/04/xhtml-math-svg/xhtml-math-svg.dtd">' |
| .'<html xmlns:math="http://www.w3.org/1998/Math/MathML" ' |
.'<html xmlns:math="http://www.w3.org/1998/Math/MathML" ' |
| .'xmlns="http://www.w3.org/1999/xhtml">'; |
.'xmlns="http://www.w3.org/1999/xhtml">'; |
| |
} elsif ($is_frameset) { |
| |
$output='<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html4/frameset.dtd">'."\n". |
| |
'<html>'."\n"; |
| } else { |
} else { |
| $output='<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">'."\n" |
$output='<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">'."\n". |
| .'<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">'."\n"; |
'<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">'."\n"; |
| } |
} |
| return $output; |
return $output; |
| } |
} |
|
Line 7529 sub start_page {
|
Line 8049 sub start_page {
|
| my ($result,@advtools); |
my ($result,@advtools); |
| |
|
| if (! exists($args->{'skip_phases'}{'head'}) ) { |
if (! exists($args->{'skip_phases'}{'head'}) ) { |
| $result .= &xml_begin() . &headtag($title, $head_extra, $args); |
$result .= &xml_begin($args->{'frameset'}) . &headtag($title, $head_extra, $args); |
| } |
} |
| |
|
| if (! exists($args->{'skip_phases'}{'body'}) ) { |
if (! exists($args->{'skip_phases'}{'body'}) ) { |
|
Line 7630 function set_wishlistlink(title, path) {
|
Line 8150 function set_wishlistlink(title, path) {
|
| title = document.title; |
title = document.title; |
| title = title.replace(/^LON-CAPA /,''); |
title = title.replace(/^LON-CAPA /,''); |
| } |
} |
| |
title = encodeURIComponent(title); |
| |
title = title.replace("'","\\\'"); |
| if (!path) { |
if (!path) { |
| path = location.pathname; |
path = location.pathname; |
| } |
} |
| |
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 7675 var modalWindow = {
|
Line 8199 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 --> |
| // ]]> |
// ]]> |
| </script> |
</script> |
|
Line 8282 role status: active, previous or future.
|
Line 8807 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 8693 Incoming parameters:
|
Line 9218 Incoming parameters:
|
| 2. user's domain |
2. user's domain |
| 3. quota name - portfolio, author, or course |
3. quota name - portfolio, author, or course |
| (if no quota name provided, defaults to portfolio). |
(if no quota name provided, defaults to portfolio). |
| 4. crstype - official, unofficial or community, if quota name is |
4. crstype - official, unofficial, textbook or community, if quota name is |
| course |
course |
| |
|
| Returns: |
Returns: |
|
Line 8767 sub get_user_quota {
|
Line 9292 sub get_user_quota {
|
| if ($quota eq '' || wantarray) { |
if ($quota eq '' || wantarray) { |
| if ($quotaname eq 'course') { |
if ($quotaname eq 'course') { |
| my %domdefs = &Apache::lonnet::get_domain_defaults($udom); |
my %domdefs = &Apache::lonnet::get_domain_defaults($udom); |
| if (($crstype eq 'official') || ($crstype eq 'unofficial') || ($crstype eq 'community')) { |
if (($crstype eq 'official') || ($crstype eq 'unofficial') || |
| |
($crstype eq 'community') || ($crstype eq 'textbook')) { |
| $defquota = $domdefs{$crstype.'quota'}; |
$defquota = $domdefs{$crstype.'quota'}; |
| } |
} |
| if ($defquota eq '') { |
if ($defquota eq '') { |
|
Line 8908 space to be exceeded.
|
Line 9434 space to be exceeded.
|
| Same, if upload of a file directly to a course/community via Course Editor |
Same, if upload of a file directly to a course/community via Course Editor |
| will cause quota for uploaded content for the course to be exceeded. |
will cause quota for uploaded content for the course to be exceeded. |
| |
|
| Inputs: 6 |
Inputs: 7 |
| 1. username or coursenum |
1. username or coursenum |
| 2. domain |
2. domain |
| 3. context ('author' or 'course') |
3. context ('author' or 'course') |
| 4. filename of file for which action is being requested |
4. filename of file for which action is being requested |
| 5. filesize (kB) of file |
5. filesize (kB) of file |
| 6. action being taken: copy or upload. |
6. action being taken: copy or upload. |
| |
7. quotatype (in course context -- official, unofficial, community or textbook). |
| |
|
| Returns: 1 scalar: HTML to display containing warning if quota would be exceeded, |
Returns: 1 scalar: HTML to display containing warning if quota would be exceeded, |
| otherwise return null. |
otherwise return null. |
|
Line 8924 Returns: 1 scalar: HTML to display conta
|
Line 9451 Returns: 1 scalar: HTML to display conta
|
| =cut |
=cut |
| |
|
| sub excess_filesize_warning { |
sub excess_filesize_warning { |
| my ($uname,$udom,$context,$filename,$filesize,$action) = @_; |
my ($uname,$udom,$context,$filename,$filesize,$action,$quotatype) = @_; |
| my $current_disk_usage = 0; |
my $current_disk_usage = 0; |
| my $disk_quota = &get_user_quota($uname,$udom,$context); #expressed in MB |
my $disk_quota = &get_user_quota($uname,$udom,$context,$quotatype); #expressed in MB |
| if ($context eq 'author') { |
if ($context eq 'author') { |
| my $authorspace = $Apache::lonnet::perlvar{'lonDocRoot'}."/priv/$udom/$uname"; |
my $authorspace = $Apache::lonnet::perlvar{'lonDocRoot'}."/priv/$udom/$uname"; |
| $current_disk_usage = &Apache::lonnet::diskusage($udom,$uname,$authorspace); |
$current_disk_usage = &Apache::lonnet::diskusage($udom,$uname,$authorspace); |
|
Line 8937 sub excess_filesize_warning {
|
Line 9464 sub excess_filesize_warning {
|
| } |
} |
| $disk_quota = int($disk_quota * 1000); |
$disk_quota = int($disk_quota * 1000); |
| if (($current_disk_usage + $filesize) > $disk_quota) { |
if (($current_disk_usage + $filesize) > $disk_quota) { |
| return '<p><span class="LC_warning">'. |
return '<p class="LC_warning">'. |
| &mt("Unable to $action [_1]. (size = [_2] kilobytes). Disk quota will be exceeded.", |
&mt("Unable to $action [_1]. (size = [_2] kilobytes). Disk quota will be exceeded.", |
| '<span class="LC_filename">'.$filename.'</span>',$filesize).'</span>'. |
'<span class="LC_filename">'.$filename.'</span>',$filesize).'</p>'. |
| '<br />'.&mt('Disk quota is [_1] kilobytes. Your current disk usage is [_2] kilobytes.', |
'<p>'.&mt('Disk quota is [_1] kilobytes. Your current disk usage is [_2] kilobytes.', |
| $disk_quota,$current_disk_usage). |
$disk_quota,$current_disk_usage). |
| '</p>'; |
'</p>'; |
| } |
} |
|
Line 9012 sub user_picker {
|
Line 9539 sub user_picker {
|
| } |
} |
| $srchterm = $srch->{'srchterm'}; |
$srchterm = $srch->{'srchterm'}; |
| } |
} |
| my %lt=&Apache::lonlocal::texthash( |
my %html_lt=&Apache::lonlocal::texthash( |
| 'usr' => 'Search criteria', |
'usr' => 'Search criteria', |
| 'doma' => 'Domain/institution to search', |
'doma' => 'Domain/institution to search', |
| 'uname' => 'username', |
'uname' => 'username', |
|
Line 9025 sub user_picker {
|
Line 9552 sub user_picker {
|
| 'exact' => 'is', |
'exact' => 'is', |
| 'contains' => 'contains', |
'contains' => 'contains', |
| 'begins' => 'begins with', |
'begins' => 'begins with', |
| |
); |
| |
my %js_lt=&Apache::lonlocal::texthash( |
| 'youm' => "You must include some text to search for.", |
'youm' => "You must include some text to search for.", |
| 'thte' => "The text you are searching for must contain at least two characters when using a 'begins' type search.", |
'thte' => "The text you are searching for must contain at least two characters when using a 'begins' type search.", |
| 'thet' => "The text you are searching for must contain at least three characters when using a 'contains' type search.", |
'thet' => "The text you are searching for must contain at least three characters when using a 'contains' type search.", |
|
Line 9034 sub user_picker {
|
Line 9563 sub user_picker {
|
| 'whse' => "When searching by last,first you must include at least one character in the first name.", |
'whse' => "When searching by last,first you must include at least one character in the first name.", |
| 'thfo' => "The following need to be corrected before the search can be run:", |
'thfo' => "The following need to be corrected before the search can be run:", |
| ); |
); |
| |
&html_escape(\%html_lt); |
| |
&js_escape(\%js_lt); |
| my $domform = &select_dom_form($currdom,'srchdomain',1,1); |
my $domform = &select_dom_form($currdom,'srchdomain',1,1); |
| my $srchinsel = ' <select name="srchin">'; |
my $srchinsel = ' <select name="srchin">'; |
| |
|
|
Line 9048 sub user_picker {
|
Line 9579 sub user_picker {
|
| next if ($option eq 'crs' && !$env{'request.course.id'}); |
next if ($option eq 'crs' && !$env{'request.course.id'}); |
| if ($curr_selected{'srchin'} eq $option) { |
if ($curr_selected{'srchin'} eq $option) { |
| $srchinsel .= ' |
$srchinsel .= ' |
| <option value="'.$option.'" selected="selected">'.$lt{$option}.'</option>'; |
<option value="'.$option.'" selected="selected">'.$html_lt{$option}.'</option>'; |
| } else { |
} else { |
| $srchinsel .= ' |
$srchinsel .= ' |
| <option value="'.$option.'">'.$lt{$option}.'</option>'; |
<option value="'.$option.'">'.$html_lt{$option}.'</option>'; |
| } |
} |
| } |
} |
| $srchinsel .= "\n </select>\n"; |
$srchinsel .= "\n </select>\n"; |
|
Line 9060 sub user_picker {
|
Line 9591 sub user_picker {
|
| foreach my $option ('lastname','lastfirst','uname') { |
foreach my $option ('lastname','lastfirst','uname') { |
| if ($curr_selected{'srchby'} eq $option) { |
if ($curr_selected{'srchby'} eq $option) { |
| $srchbysel .= ' |
$srchbysel .= ' |
| <option value="'.$option.'" selected="selected">'.$lt{$option}.'</option>'; |
<option value="'.$option.'" selected="selected">'.$html_lt{$option}.'</option>'; |
| } else { |
} else { |
| $srchbysel .= ' |
$srchbysel .= ' |
| <option value="'.$option.'">'.$lt{$option}.'</option>'; |
<option value="'.$option.'">'.$html_lt{$option}.'</option>'; |
| } |
} |
| } |
} |
| $srchbysel .= "\n </select>\n"; |
$srchbysel .= "\n </select>\n"; |
|
Line 9072 sub user_picker {
|
Line 9603 sub user_picker {
|
| foreach my $option ('begins','contains','exact') { |
foreach my $option ('begins','contains','exact') { |
| if ($curr_selected{'srchtype'} eq $option) { |
if ($curr_selected{'srchtype'} eq $option) { |
| $srchtypesel .= ' |
$srchtypesel .= ' |
| <option value="'.$option.'" selected="selected">'.$lt{$option}.'</option>'; |
<option value="'.$option.'" selected="selected">'.$html_lt{$option}.'</option>'; |
| } else { |
} else { |
| $srchtypesel .= ' |
$srchtypesel .= ' |
| <option value="'.$option.'">'.$lt{$option}.'</option>'; |
<option value="'.$option.'">'.$html_lt{$option}.'</option>'; |
| } |
} |
| } |
} |
| $srchtypesel .= "\n </select>\n"; |
$srchtypesel .= "\n </select>\n"; |
|
Line 9160 function validateEntry(callingForm) {
|
Line 9691 function validateEntry(callingForm) {
|
| |
|
| if (srchterm == "") { |
if (srchterm == "") { |
| checkok = 0; |
checkok = 0; |
| msg += "$lt{'youm'}\\n"; |
msg += "$js_lt{'youm'}\\n"; |
| } |
} |
| |
|
| if (srchtype== 'begins') { |
if (srchtype== 'begins') { |
| if (srchterm.length < 2) { |
if (srchterm.length < 2) { |
| checkok = 0; |
checkok = 0; |
| msg += "$lt{'thte'}\\n"; |
msg += "$js_lt{'thte'}\\n"; |
| } |
} |
| } |
} |
| |
|
| if (srchtype== 'contains') { |
if (srchtype== 'contains') { |
| if (srchterm.length < 3) { |
if (srchterm.length < 3) { |
| checkok = 0; |
checkok = 0; |
| msg += "$lt{'thet'}\\n"; |
msg += "$js_lt{'thet'}\\n"; |
| } |
} |
| } |
} |
| if (srchin == 'instd') { |
if (srchin == 'instd') { |
| if (srchdomain == '') { |
if (srchdomain == '') { |
| checkok = 0; |
checkok = 0; |
| msg += "$lt{'yomc'}\\n"; |
msg += "$js_lt{'yomc'}\\n"; |
| } |
} |
| } |
} |
| if (srchin == 'dom') { |
if (srchin == 'dom') { |
| if (srchdomain == '') { |
if (srchdomain == '') { |
| checkok = 0; |
checkok = 0; |
| msg += "$lt{'ymcd'}\\n"; |
msg += "$js_lt{'ymcd'}\\n"; |
| } |
} |
| } |
} |
| if (srchby == 'lastfirst') { |
if (srchby == 'lastfirst') { |
| if (srchterm.indexOf(",") == -1) { |
if (srchterm.indexOf(",") == -1) { |
| checkok = 0; |
checkok = 0; |
| msg += "$lt{'whus'}\\n"; |
msg += "$js_lt{'whus'}\\n"; |
| } |
} |
| if (srchterm.indexOf(",") == srchterm.length -1) { |
if (srchterm.indexOf(",") == srchterm.length -1) { |
| checkok = 0; |
checkok = 0; |
| msg += "$lt{'whse'}\\n"; |
msg += "$js_lt{'whse'}\\n"; |
| } |
} |
| } |
} |
| if (checkok == 0) { |
if (checkok == 0) { |
| alert("$lt{'thfo'}\\n"+msg); |
alert("$js_lt{'thfo'}\\n"+msg); |
| return; |
return; |
| } |
} |
| if (checkok == 1) { |
if (checkok == 1) { |
|
Line 9217 $new_user_create
|
Line 9748 $new_user_create
|
| END_BLOCK |
END_BLOCK |
| |
|
| $output .= &Apache::lonhtmlcommon::start_pick_box(). |
$output .= &Apache::lonhtmlcommon::start_pick_box(). |
| &Apache::lonhtmlcommon::row_title($lt{'doma'}). |
&Apache::lonhtmlcommon::row_title($html_lt{'doma'}). |
| $domform. |
$domform. |
| &Apache::lonhtmlcommon::row_closure(). |
&Apache::lonhtmlcommon::row_closure(). |
| &Apache::lonhtmlcommon::row_title($lt{'usr'}). |
&Apache::lonhtmlcommon::row_title($html_lt{'usr'}). |
| $srchbysel. |
$srchbysel. |
| $srchtypesel. |
$srchtypesel. |
| '<input type="text" size="15" name="srchterm" value="'.$srchterm.'" />'. |
'<input type="text" size="15" name="srchterm" value="'.$srchterm.'" />'. |
|
Line 9393 sub personal_data_fieldtitles {
|
Line 9924 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 9856 sub ask_for_embedded_content {
|
Line 10394 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 10887 sub check_for_upload {
|
Line 11433 sub check_for_upload {
|
| if ($currsize < $filesize) { |
if ($currsize < $filesize) { |
| my $extra = $filesize - $currsize; |
my $extra = $filesize - $currsize; |
| if (($current_disk_usage + $extra) > $disk_quota) { |
if (($current_disk_usage + $extra) > $disk_quota) { |
| my $msg = '<span class="LC_error">'. |
my $msg = '<p class="LC_warning">'. |
| &mt('Unable to upload [_1]. (size = [_2] kilobytes). Disk quota will be exceeded if existing (smaller) file with same name (size = [_3] kilobytes) is replaced.', |
&mt('Unable to upload [_1]. (size = [_2] kilobytes). Disk quota will be exceeded if existing (smaller) file with same name (size = [_3] kilobytes) is replaced.', |
| '<span class="LC_filename">'.$fname.'</span>',$filesize,$currsize).'</span>'. |
'<span class="LC_filename">'.$fname.'</span>',$filesize,$currsize).'</p>'. |
| '<br />'.&mt('Disk quota is [_1] kilobytes. Your current disk usage is [_2] kilobytes.', |
'<p>'.&mt('Disk quota is [_1] kilobytes. Your current disk usage is [_2] kilobytes.', |
| $disk_quota,$current_disk_usage); |
$disk_quota,$current_disk_usage).'</p>'; |
| return ('will_exceed_quota',$msg); |
return ('will_exceed_quota',$msg); |
| } |
} |
| } |
} |
|
Line 10900 sub check_for_upload {
|
Line 11446 sub check_for_upload {
|
| } |
} |
| } |
} |
| if (($current_disk_usage + $filesize) > $disk_quota){ |
if (($current_disk_usage + $filesize) > $disk_quota){ |
| my $msg = '<span class="LC_error">'. |
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).'</span>'. |
&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) { |
| my $msg = '<span class="LC_error">'; |
my $msg = '<p class="LC_warning">'; |
| $msg .= &mt('Unable to upload [_1]. A locked file by that name was found in [_2].','<span class="LC_filename">'.$fname.'</span>','<span class="LC_filename">'.$port_path.$env{'form.currentpath'}.'</span>'); |
$msg .= &mt('Unable to upload [_1]. A locked file by that name was found in [_2].','<span class="LC_filename">'.$fname.'</span>','<span class="LC_filename">'.$port_path.$env{'form.currentpath'}.'</span>'); |
| $msg .= '</span><br />'; |
$msg .= '</p>'; |
| $msg .= &mt('You will be able to rename or delete existing [_1] after a grade has been assigned.','<span class="LC_filename">'.$fname.'</span>'); |
$msg .= &mt('You will be able to rename or delete existing [_1] after a grade has been assigned.','<span class="LC_filename">'.$fname.'</span>'); |
| return ('file_locked',$msg); |
return ('file_locked',$msg); |
| } else { |
} else { |
| my $msg = '<span class="LC_error">'; |
my $msg = '<p class="LC_error">'; |
| $msg .= &mt(' A file by that name: [_1] was found in [_2].','<span class="LC_filename">'.$fname.'</span>',$port_path.$env{'form.currentpath'}); |
$msg .= &mt(' A file by that name: [_1] was found in [_2].','<span class="LC_filename">'.$fname.'</span>',$port_path.$env{'form.currentpath'}); |
| $msg .= '</span>'; |
$msg .= '</p>'; |
| return ('existingfile',$msg); |
return ('existingfile',$msg); |
| } |
} |
| } |
} |
|
Line 11012 sub decompress_form {
|
Line 11558 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 11034 sub decompress_form {
|
Line 11580 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 11054 function camtasiaToggle() {
|
Line 11623 function camtasiaToggle() {
|
| for (var i=0; i<document.uploaded_decompress.autoextract_camtasia.length; i++) { |
for (var i=0; i<document.uploaded_decompress.autoextract_camtasia.length; i++) { |
| if (document.uploaded_decompress.autoextract_camtasia[i].checked) { |
if (document.uploaded_decompress.autoextract_camtasia[i].checked) { |
| if (document.uploaded_decompress.autoextract_camtasia[i].value == $is_camtasia) { |
if (document.uploaded_decompress.autoextract_camtasia[i].value == $is_camtasia) { |
| |
|
| document.getElementById('camtasia_titles').style.display='block'; |
document.getElementById('camtasia_titles').style.display='block'; |
| } else { |
} else { |
| document.getElementById('camtasia_titles').style.display='none'; |
document.getElementById('camtasia_titles').style.display='none'; |
|
Line 11239 sub decompress_uploaded_file {
|
Line 11807 sub decompress_uploaded_file {
|
| sub process_decompression { |
sub process_decompression { |
| my ($docudom,$docuname,$file,$destination,$dir_root,$hiddenelem) = @_; |
my ($docudom,$docuname,$file,$destination,$dir_root,$hiddenelem) = @_; |
| my ($dir,$error,$warning,$output); |
my ($dir,$error,$warning,$output); |
| if ($file !~ /\.(zip|tar|bz2|gz|tar.gz|tar.bz2|tgz)$/) { |
if ($file !~ /\.(zip|tar|bz2|gz|tar.gz|tar.bz2|tgz)$/i) { |
| $error = &mt('Filename not a supported archive file type.'). |
$error = &mt('Filename not a supported archive file type.'). |
| '<br />'.&mt('Filename should end with one of: [_1].', |
'<br />'.&mt('Filename should end with one of: [_1].', |
| '.zip, .tar, .bz2, .gz, .tar.gz, .tar.bz2, .tgz'); |
'.zip, .tar, .bz2, .gz, .tar.gz, .tar.bz2, .tgz'); |
|
Line 13285 sub build_recipient_list {
|
Line 13853 sub build_recipient_list {
|
| |
|
| =pod |
=pod |
| |
|
| |
=over 4 |
| |
|
| |
=item * &mime_email() |
| |
|
| |
Sends an email with a possible attachment |
| |
|
| |
Inputs: |
| |
|
| |
=over 4 |
| |
|
| |
from - Sender's email address |
| |
|
| |
to - Email address of recipient |
| |
|
| |
subject - Subject of email |
| |
|
| |
body - Body of email |
| |
|
| |
cc_string - Carbon copy email address |
| |
|
| |
bcc - Blind carbon copy email address |
| |
|
| |
type - File type of attachment |
| |
|
| |
attachment_path - Path of file to be attached |
| |
|
| |
file_name - Name of file to be attached |
| |
|
| |
attachment_text - The body of an attachment of type "TEXT" |
| |
|
| |
=back |
| |
|
| |
=back |
| |
|
| |
=cut |
| |
|
| |
############################################################ |
| |
############################################################ |
| |
|
| |
sub mime_email { |
| |
my ($from, $to, $subject, $body, $cc_string, $bcc, $attachment_path, |
| |
$file_name, $attachment_text) = @_; |
| |
my $msg = MIME::Lite->new( |
| |
From => $from, |
| |
To => $to, |
| |
Subject => $subject, |
| |
Type =>'TEXT', |
| |
Data => $body, |
| |
); |
| |
if ($cc_string ne '') { |
| |
$msg->add("Cc" => $cc_string); |
| |
} |
| |
if ($bcc ne '') { |
| |
$msg->add("Bcc" => $bcc); |
| |
} |
| |
$msg->attr("content-type" => "text/plain"); |
| |
$msg->attr("content-type.charset" => "UTF-8"); |
| |
# Attach file if given |
| |
if ($attachment_path) { |
| |
unless ($file_name) { |
| |
if ($attachment_path =~ m-/([^/]+)$-) { $file_name = $1; } |
| |
} |
| |
my ($type, $encoding) = MIME::Types::by_suffix($attachment_path); |
| |
$msg->attach(Type => $type, |
| |
Path => $attachment_path, |
| |
Filename => $file_name |
| |
); |
| |
# Otherwise attach text if given |
| |
} elsif ($attachment_text) { |
| |
$msg->attach(Type => 'TEXT', |
| |
Data => $attachment_text); |
| |
} |
| |
# Send it |
| |
$msg->send('sendmail'); |
| |
} |
| |
|
| |
############################################################ |
| |
############################################################ |
| |
|
| |
=pod |
| |
|
| =head1 Course Catalog Routines |
=head1 Course Catalog Routines |
| |
|
| =over 4 |
=over 4 |
|
Line 13630 sub assign_category_rows {
|
Line 14279 sub assign_category_rows {
|
| return $text; |
return $text; |
| } |
} |
| |
|
| |
=pod |
| |
|
| |
=back |
| |
|
| |
=cut |
| |
|
| ############################################################ |
############################################################ |
| ############################################################ |
############################################################ |
| |
|
|
Line 13847 sub check_clone {
|
Line 14502 sub check_clone {
|
| (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'}))) { |
(&Apache::lonnet::allowed('ccc',$env{'request.role.domain'}))) { |
| $can_clone = 1; |
$can_clone = 1; |
| } else { |
} else { |
| my %clonehash = &Apache::lonnet::get('environment',['cloners'], |
my %clonehash = &Apache::lonnet::get('environment',['cloners','internal.coursecode'], |
| $args->{'clonedomain'},$args->{'clonecourse'}); |
$args->{'clonedomain'},$args->{'clonecourse'}); |
| my @cloners = split(/,/,$clonehash{'cloners'}); |
if ($clonehash{'cloners'} eq '') { |
| if (grep(/^\*$/,@cloners)) { |
my %domdefs = &Apache::lonnet::get_domain_defaults($args->{'course_domain'}); |
| $can_clone = 1; |
if ($domdefs{'canclone'}) { |
| } elsif (grep(/^\*\:\Q$args->{'ccdomain'}\E$/,@cloners)) { |
unless ($domdefs{'canclone'} eq 'none') { |
| $can_clone = 1; |
if ($domdefs{'canclone'} eq 'domain') { |
| |
if ($args->{'ccdomain'} eq $args->{'clonedomain'}) { |
| |
$can_clone = 1; |
| |
} |
| |
} elsif (($clonehash{'internal.coursecode'}) && ($args->{'crscode'}) && |
| |
($args->{'clonedomain'} eq $args->{'course_domain'})) { |
| |
if (&Apache::lonnet::default_instcode_cloning($args->{'clonedomain'},$domdefs{'canclone'}, |
| |
$clonehash{'internal.coursecode'},$args->{'crscode'})) { |
| |
$can_clone = 1; |
| |
} |
| |
} |
| |
} |
| |
} |
| } else { |
} else { |
| |
my @cloners = split(/,/,$clonehash{'cloners'}); |
| |
if (grep(/^\*$/,@cloners)) { |
| |
$can_clone = 1; |
| |
} elsif (grep(/^\*\:\Q$args->{'ccdomain'}\E$/,@cloners)) { |
| |
$can_clone = 1; |
| |
} elsif (grep(/^\Q$args->{'ccuname'}\E:\Q$args->{'ccdomain'}\E$/,@cloners)) { |
| |
$can_clone = 1; |
| |
} |
| |
unless ($can_clone) { |
| |
if (($clonehash{'internal.coursecode'}) && ($args->{'crscode'}) && |
| |
($args->{'clonedomain'} eq $args->{'course_domain'})) { |
| |
my (%gotdomdefaults,%gotcodedefaults); |
| |
foreach my $cloner (@cloners) { |
| |
if (($cloner ne '*') && ($cloner !~ /^\*\:$match_domain$/) && |
| |
($cloner !~ /^$match_username\:$match_domain$/) && ($cloner ne '')) { |
| |
my (%codedefaults,@code_order); |
| |
if (ref($gotcodedefaults{$args->{'clonedomain'}}) eq 'HASH') { |
| |
if (ref($gotcodedefaults{$args->{'clonedomain'}}{'defaults'}) eq 'HASH') { |
| |
%codedefaults = %{$gotcodedefaults{$args->{'clonedomain'}}{'defaults'}}; |
| |
} |
| |
if (ref($gotcodedefaults{$args->{'clonedomain'}}{'order'}) eq 'ARRAY') { |
| |
@code_order = @{$gotcodedefaults{$args->{'clonedomain'}}{'order'}}; |
| |
} |
| |
} else { |
| |
&Apache::lonnet::auto_instcode_defaults($args->{'clonedomain'}, |
| |
\%codedefaults, |
| |
\@code_order); |
| |
$gotcodedefaults{$args->{'clonedomain'}}{'defaults'} = \%codedefaults; |
| |
$gotcodedefaults{$args->{'clonedomain'}}{'order'} = \@code_order; |
| |
} |
| |
if (@code_order > 0) { |
| |
if (&Apache::lonnet::check_instcode_cloning(\%codedefaults,\@code_order, |
| |
$cloner,$clonehash{'internal.coursecode'}, |
| |
$args->{'crscode'})) { |
| |
$can_clone = 1; |
| |
last; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
unless ($can_clone) { |
| my $ccrole = 'cc'; |
my $ccrole = 'cc'; |
| if ($args->{'crstype'} eq 'Community') { |
if ($args->{'crstype'} eq 'Community') { |
| $ccrole = 'co'; |
$ccrole = 'co'; |
| } |
} |
| my %roleshash = |
my %roleshash = |
| &Apache::lonnet::get_my_roles($args->{'ccuname'}, |
&Apache::lonnet::get_my_roles($args->{'ccuname'}, |
| $args->{'ccdomain'}, |
$args->{'ccdomain'}, |
| 'userroles',['active'],[$ccrole], |
'userroles',['active'],[$ccrole], |
| [$args->{'clonedomain'}]); |
[$args->{'clonedomain'}]); |
| if (($roleshash{$args->{'clonecourse'}.':'.$args->{'clonedomain'}.':'.$ccrole}) || (grep(/^\Q$args->{'ccuname'}\E:\Q$args->{'ccdomain'}\E$/,@cloners))) { |
if ($roleshash{$args->{'clonecourse'}.':'.$args->{'clonedomain'}.':'.$ccrole}) { |
| $can_clone = 1; |
$can_clone = 1; |
| } elsif (&Apache::lonnet::is_course_owner($args->{'clonedomain'},$args->{'clonecourse'},$args->{'ccuname'},$args->{'ccdomain'})) { |
} elsif (&Apache::lonnet::is_course_owner($args->{'clonedomain'},$args->{'clonecourse'}, |
| |
$args->{'ccuname'},$args->{'ccdomain'})) { |
| $can_clone = 1; |
$can_clone = 1; |
| |
} |
| |
} |
| |
unless ($can_clone) { |
| |
if ($args->{'crstype'} eq 'Community') { |
| |
$clonemsg = &mt('No new community created.').$linefeed.&mt('The new community could not be cloned from the existing community because the new community owner ([_1]) does not have cloning rights in the existing community ([_2]).',$args->{'ccuname'}.':'.$args->{'ccdomain'},$clonedesc{'description'}); |
| } else { |
} else { |
| if ($args->{'crstype'} eq 'Community') { |
$clonemsg = &mt('No new course created.').$linefeed.&mt('The new course could not be cloned from the existing course because the new course owner ([_1]) does not have cloning rights in the existing course ([_2]).',$args->{'ccuname'}.':'.$args->{'ccdomain'},$clonedesc{'description'}); |
| $clonemsg = &mt('No new community created.').$linefeed.&mt('The new community could not be cloned from the existing community because the new community owner ([_1]) does not have cloning rights in the existing community ([_2]).',$args->{'ccuname'}.':'.$args->{'ccdomain'},$clonedesc{'description'}); |
} |
| } else { |
|
| $clonemsg = &mt('No new course created.').$linefeed.&mt('The new course could not be cloned from the existing course because the new course owner ([_1]) does not have cloning rights in the existing course ([_2]).',$args->{'ccuname'}.':'.$args->{'ccdomain'},$clonedesc{'description'}); |
|
| } |
|
| } |
|
| } |
} |
| } |
} |
| } |
} |
|
Line 13882 sub check_clone {
|
Line 14595 sub check_clone {
|
| } |
} |
| |
|
| sub construct_course { |
sub construct_course { |
| my ($args,$logmsg,$courseid,$crsudom,$crsunum,$udom,$uname,$context,$cnum,$category) = @_; |
my ($args,$logmsg,$courseid,$crsudom,$crsunum,$udom,$uname,$context,$cnum,$category,$coderef) = @_; |
| my $outcome; |
my $outcome; |
| my $linefeed = '<br />'."\n"; |
my $linefeed = '<br />'."\n"; |
| if ($context eq 'auto') { |
if ($context eq 'auto') { |
|
Line 13979 sub construct_course {
|
Line 14692 sub construct_course {
|
| 'plc.users.denied', |
'plc.users.denied', |
| 'hidefromcat', |
'hidefromcat', |
| 'checkforpriv', |
'checkforpriv', |
| 'categories'], |
'categories', |
| |
'internal.uniquecode'], |
| $$crsudom,$$crsunum); |
$$crsudom,$$crsunum); |
| |
if ($args->{'textbook'}) { |
| |
$cenv{'internal.textbook'} = $args->{'textbook'}; |
| |
} |
| } |
} |
| |
|
| # |
# |
|
Line 14164 sub construct_course {
|
Line 14881 sub construct_course {
|
| } |
} |
| } |
} |
| |
|
| |
# |
| |
# generate and store uniquecode (available to course requester), if course should have one. |
| |
# |
| |
if ($args->{'uniquecode'}) { |
| |
my ($code,$error) = &make_unique_code($$crsudom,$$crsunum); |
| |
if ($code) { |
| |
$cenv{'internal.uniquecode'} = $code; |
| |
my %crsinfo = |
| |
&Apache::lonnet::courseiddump($$crsudom,'.',1,'.','.',$$crsunum,undef,undef,'.'); |
| |
if (ref($crsinfo{$$crsudom.'_'.$$crsunum}) eq 'HASH') { |
| |
$crsinfo{$$crsudom.'_'.$$crsunum}{'uniquecode'} = $code; |
| |
my $putres = &Apache::lonnet::courseidput($$crsudom,\%crsinfo,$crsuhome,'notime'); |
| |
} |
| |
if (ref($coderef)) { |
| |
$$coderef = $code; |
| |
} |
| |
} |
| |
} |
| |
|
| if ($args->{'disresdis'}) { |
if ($args->{'disresdis'}) { |
| $cenv{'pch.roles.denied'}='st'; |
$cenv{'pch.roles.denied'}='st'; |
| } |
} |
|
Line 14232 sub construct_course {
|
Line 14968 sub construct_course {
|
| return (1,$outcome); |
return (1,$outcome); |
| } |
} |
| |
|
| |
sub make_unique_code { |
| |
my ($cdom,$cnum) = @_; |
| |
# get lock on uniquecodes db |
| |
my $lockhash = { |
| |
$cnum."\0".'uniquecodes' => $env{'user.name'}. |
| |
':'.$env{'user.domain'}, |
| |
}; |
| |
my $tries = 0; |
| |
my $gotlock = &Apache::lonnet::newput_dom('uniquecodes',$lockhash,$cdom); |
| |
my ($code,$error); |
| |
|
| |
while (($gotlock ne 'ok') && ($tries<3)) { |
| |
$tries ++; |
| |
sleep 1; |
| |
$gotlock = &Apache::lonnet::newput_dom('uniquecodes',$lockhash,$cdom); |
| |
} |
| |
if ($gotlock eq 'ok') { |
| |
my %currcodes = &Apache::lonnet::dump_dom('uniquecodes',$cdom); |
| |
my $gotcode; |
| |
my $attempts = 0; |
| |
while ((!$gotcode) && ($attempts < 100)) { |
| |
$code = &generate_code(); |
| |
if (!exists($currcodes{$code})) { |
| |
$gotcode = 1; |
| |
unless (&Apache::lonnet::newput_dom('uniquecodes',{ $code => $cnum },$cdom) eq 'ok') { |
| |
$error = 'nostore'; |
| |
} |
| |
} |
| |
$attempts ++; |
| |
} |
| |
my @del_lock = ($cnum."\0".'uniquecodes'); |
| |
my $dellockoutcome = &Apache::lonnet::del_dom('uniquecodes',\@del_lock,$cdom); |
| |
} else { |
| |
$error = 'nolock'; |
| |
} |
| |
return ($code,$error); |
| |
} |
| |
|
| |
sub generate_code { |
| |
my $code; |
| |
my @letts = qw(B C D G H J K M N P Q R S T V W X Z); |
| |
for (my $i=0; $i<6; $i++) { |
| |
my $lettnum = int (rand 2); |
| |
my $item = ''; |
| |
if ($lettnum) { |
| |
$item = $letts[int( rand(18) )]; |
| |
} else { |
| |
$item = 1+int( rand(8) ); |
| |
} |
| |
$code .= $item; |
| |
} |
| |
return $code; |
| |
} |
| |
|
| ############################################################ |
############################################################ |
| ############################################################ |
############################################################ |
| |
|
|
Line 14259 sub group_term {
|
Line 15049 sub group_term {
|
| } |
} |
| |
|
| sub course_types { |
sub course_types { |
| my @types = ('official','unofficial','community'); |
my @types = ('official','unofficial','community','textbook'); |
| my %typename = ( |
my %typename = ( |
| official => 'Official course', |
official => 'Official course', |
| unofficial => 'Unofficial course', |
unofficial => 'Unofficial course', |
| community => 'Community', |
community => 'Community', |
| |
textbook => 'Textbook course', |
| ); |
); |
| return (\@types,\%typename); |
return (\@types,\%typename); |
| } |
} |
|
Line 14324 sub escape_url {
|
Line 15115 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 14382 sub init_user_environment {
|
Line 15173 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 14395 sub init_user_environment {
|
Line 15197 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 14429 sub init_user_environment {
|
Line 15231 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 14466 sub init_user_environment {
|
Line 15269 sub init_user_environment {
|
| undef,\%userenv,\%domdef,\%is_adv); |
undef,\%userenv,\%domdef,\%is_adv); |
| } |
} |
| |
|
| foreach my $crstype ('official','unofficial','community') { |
foreach my $crstype ('official','unofficial','community','textbook') { |
| $userenv{'canrequest.'.$crstype} = |
$userenv{'canrequest.'.$crstype} = |
| &Apache::lonnet::usertools_access($username,$domain,$crstype, |
&Apache::lonnet::usertools_access($username,$domain,$crstype, |
| 'reload','requestcourses', |
'reload','requestcourses', |
|
Line 14571 sub clean_symb {
|
Line 15374 sub clean_symb {
|
| return ($symb,$enc); |
return ($symb,$enc); |
| } |
} |
| |
|
| 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') && |
=pod |
| (ref($randomizetry) eq 'HASH')); |
|
| foreach my $key (keys(%Apache::lonnet::needsrelease)) { |
=head1 Routines for building display used to search for courses |
| my ($item,$name,$value) = split(/:/,$key); |
|
| if ($item eq 'parameter') { |
|
| if (ref($checkparms->{$name}) eq 'ARRAY') { |
=over 4 |
| unless(grep(/^\Q$name\E$/,@{$checkparms->{$name}})) { |
|
| push(@{$checkparms->{$name}},$value); |
=item * &build_filters() |
| } |
|
| |
Create markup for a table used to set filters to use when selecting |
| |
courses in a domain. Used by lonpickcourse.pm, lonmodifycourse.pm |
| |
and quotacheck.pl |
| |
|
| |
|
| |
Inputs: |
| |
|
| |
filterlist - anonymous array of fields to include as potential filters |
| |
|
| |
crstype - course type |
| |
|
| |
roleelement - fifth arg in selectcourse_link() populates fifth arg in javascript: opencrsbrowser() function, used |
| |
to pop-open a course selector (will contain "extra element"). |
| |
|
| |
multelement - if multiple course selections will be allowed, this will be a hidden form element: name: multiple; value: 1 |
| |
|
| |
filter - anonymous hash of criteria and their values |
| |
|
| |
action - form action |
| |
|
| |
numfiltersref - ref to scalar (count of number of elements in institutional codes -- e.g., 4 for year, semester, department, and number) |
| |
|
| |
caller - caller context (e.g., set to 'modifycourse' when routine is called from lonmodifycourse.pm) |
| |
|
| |
cloneruname - username of owner of new course who wants to clone |
| |
|
| |
clonerudom - domain of owner of new course who wants to clone |
| |
|
| |
typeelem - text to use for left column in row containing course type (i.e., Course, Community or Course/Community) |
| |
|
| |
codetitlesref - reference to array of titles of components in institutional codes (official courses) |
| |
|
| |
codedom - domain |
| |
|
| |
formname - value of form element named "form". |
| |
|
| |
fixeddom - domain, if fixed. |
| |
|
| |
prevphase - value to assign to form element named "phase" when going back to the previous screen |
| |
|
| |
cnameelement - name of form element in form on opener page which will receive title of selected course |
| |
|
| |
cnumelement - name of form element in form on opener page which will receive courseID of selected course |
| |
|
| |
cdomelement - name of form element in form on opener page which will receive domain of selected course |
| |
|
| |
setroles - includes access constraint identifier when setting a roles-based condition for acces to a portfolio file |
| |
|
| |
clonetext - hidden form elements containing list of courses cloneable by intended course owner when DC creates a course |
| |
|
| |
clonewarning - warning message about missing information for intended course owner when DC creates a course |
| |
|
| |
|
| |
Returns: $output - HTML for display of search criteria, and hidden form elements. |
| |
|
| |
|
| |
Side Effects: None |
| |
|
| |
=cut |
| |
|
| |
# ---------------------------------------------- search for courses based on last activity etc. |
| |
|
| |
sub build_filters { |
| |
my ($filterlist,$crstype,$roleelement,$multelement,$filter,$action, |
| |
$numtitlesref,$caller,$cloneruname,$clonerudom,$typeelement, |
| |
$codetitlesref,$codedom,$formname,$fixeddom,$prevphase, |
| |
$cnameelement,$cnumelement,$cdomelement,$setroles, |
| |
$clonetext,$clonewarning) = @_; |
| |
my ($list,$jscript); |
| |
my $onchange = 'javascript:updateFilters(this)'; |
| |
my ($domainselectform,$sincefilterform,$createdfilterform, |
| |
$ownerdomselectform,$persondomselectform,$instcodeform, |
| |
$typeselectform,$instcodetitle); |
| |
if ($formname eq '') { |
| |
$formname = $caller; |
| |
} |
| |
foreach my $item (@{$filterlist}) { |
| |
unless (($item eq 'descriptfilter') || ($item eq 'instcodefilter') || |
| |
($item eq 'sincefilter') || ($item eq 'createdfilter')) { |
| |
if ($item eq 'domainfilter') { |
| |
$filter->{$item} = &LONCAPA::clean_domain($filter->{$item}); |
| |
} elsif ($item eq 'coursefilter') { |
| |
$filter->{$item} = &LONCAPA::clean_courseid($filter->{$item}); |
| |
} elsif ($item eq 'ownerfilter') { |
| |
$filter->{$item} = &LONCAPA::clean_username($filter->{$item}); |
| |
} elsif ($item eq 'ownerdomfilter') { |
| |
$filter->{'ownerdomfilter'} = |
| |
&LONCAPA::clean_domain($filter->{$item}); |
| |
$ownerdomselectform = &select_dom_form($filter->{'ownerdomfilter'}, |
| |
'ownerdomfilter',1); |
| |
} elsif ($item eq 'personfilter') { |
| |
$filter->{$item} = &LONCAPA::clean_username($filter->{$item}); |
| |
} elsif ($item eq 'persondomfilter') { |
| |
$persondomselectform = &select_dom_form($filter->{'persondomfilter'}, |
| |
'persondomfilter',1); |
| } else { |
} else { |
| push(@{$checkparms->{$name}},$value); |
$filter->{$item} =~ s/\W//g; |
| } |
} |
| } elsif ($item eq 'resourcetag') { |
if (!$filter->{$item}) { |
| if ($name eq 'responsetype') { |
$filter->{$item} = ''; |
| $checkresponsetypes->{$value} = $Apache::lonnet::needsrelease{$key} |
|
| } |
} |
| } elsif ($item eq 'course') { |
} |
| if ($name eq 'crstype') { |
if ($item eq 'domainfilter') { |
| $checkcrstypes->{$value} = $Apache::lonnet::needsrelease{$key}; |
my $allow_blank = 1; |
| |
if ($formname eq 'portform') { |
| |
$allow_blank=0; |
| |
} elsif ($formname eq 'studentform') { |
| |
$allow_blank=0; |
| |
} |
| |
if ($fixeddom) { |
| |
$domainselectform = '<input type="hidden" name="domainfilter"'. |
| |
' value="'.$codedom.'" />'. |
| |
&Apache::lonnet::domain($codedom,'description'); |
| |
} else { |
| |
$domainselectform = &select_dom_form($filter->{$item}, |
| |
'domainfilter', |
| |
$allow_blank,'',$onchange); |
| } |
} |
| |
} else { |
| |
$list->{$item} = &HTML::Entities::encode($filter->{$item},'<>&"'); |
| |
} |
| |
} |
| |
|
| |
# last course activity filter and selection |
| |
$sincefilterform = &timebased_select_form('sincefilter',$filter); |
| |
|
| |
# course created filter and selection |
| |
if (exists($filter->{'createdfilter'})) { |
| |
$createdfilterform = &timebased_select_form('createdfilter',$filter); |
| |
} |
| |
|
| |
my %lt = &Apache::lonlocal::texthash( |
| |
'cac' => "$crstype Activity", |
| |
'ccr' => "$crstype Created", |
| |
'cde' => "$crstype Title", |
| |
'cdo' => "$crstype Domain", |
| |
'ins' => 'Institutional Code', |
| |
'inc' => 'Institutional Categorization', |
| |
'cow' => "$crstype Owner/Co-owner", |
| |
'cop' => "$crstype Personnel Includes", |
| |
'cog' => 'Type', |
| |
); |
| |
|
| |
if (($formname eq 'ccrs') || ($formname eq 'requestcrs')) { |
| |
my $typeval = 'Course'; |
| |
if ($crstype eq 'Community') { |
| |
$typeval = 'Community'; |
| |
} |
| |
$typeselectform = '<input type="hidden" name="type" value="'.$typeval.'" />'; |
| |
} else { |
| |
$typeselectform = '<select name="type" size="1"'; |
| |
if ($onchange) { |
| |
$typeselectform .= ' onchange="'.$onchange.'"'; |
| |
} |
| |
$typeselectform .= '>'."\n"; |
| |
foreach my $posstype ('Course','Community') { |
| |
$typeselectform.='<option value="'.$posstype.'"'. |
| |
($posstype eq $crstype ? ' selected="selected" ' : ''). ">".&mt($posstype)."</option>\n"; |
| |
} |
| |
$typeselectform.="</select>"; |
| |
} |
| |
|
| |
my ($cloneableonlyform,$cloneabletitle); |
| |
if (exists($filter->{'cloneableonly'})) { |
| |
my $cloneableon = ''; |
| |
my $cloneableoff = ' checked="checked"'; |
| |
if ($filter->{'cloneableonly'}) { |
| |
$cloneableon = $cloneableoff; |
| |
$cloneableoff = ''; |
| |
} |
| |
$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') { |
| |
$cloneabletitle = &mt('Cloneable for [_1]',$cloneruname.':'.$clonerudom); |
| |
} else { |
| |
$cloneabletitle = &mt('Cloneable by you'); |
| } |
} |
| } |
} |
| ($anonsurvey->{major},$anonsurvey->{minor}) = split(/\./,$Apache::lonnet::needsrelease{'parameter:type:anonsurvey'}); |
my $officialjs; |
| ($randomizetry->{major},$randomizetry->{minor}) = split(/\./,$Apache::lonnet::needsrelease{'parameter:type:randomizetry'}); |
if ($crstype eq 'Course') { |
| |
if (exists($filter->{'instcodefilter'})) { |
| |
# if (($fixeddom) || ($formname eq 'requestcrs') || |
| |
# ($formname eq 'modifycourse') || ($formname eq 'filterpicker')) { |
| |
if ($codedom) { |
| |
$officialjs = 1; |
| |
($instcodeform,$jscript,$$numtitlesref) = |
| |
&Apache::courseclassifier::instcode_selectors($codedom,'filterpicker', |
| |
$officialjs,$codetitlesref); |
| |
if ($jscript) { |
| |
$jscript = '<script type="text/javascript">'."\n". |
| |
'// <![CDATA['."\n". |
| |
$jscript."\n". |
| |
'// ]]>'."\n". |
| |
'</script>'."\n"; |
| |
} |
| |
} |
| |
if ($instcodeform eq '') { |
| |
$instcodeform = |
| |
'<input type="text" name="instcodefilter" size="10" value="'. |
| |
$list->{'instcodefilter'}.'" />'; |
| |
$instcodetitle = $lt{'ins'}; |
| |
} else { |
| |
$instcodetitle = $lt{'inc'}; |
| |
} |
| |
if ($fixeddom) { |
| |
$instcodetitle .= '<br />('.$codedom.')'; |
| |
} |
| |
} |
| |
} |
| |
my $output = qq| |
| |
<form method="post" name="filterpicker" action="$action"> |
| |
<input type="hidden" name="form" value="$formname" /> |
| |
|; |
| |
if ($formname eq 'modifycourse') { |
| |
$output .= '<input type="hidden" name="phase" value="courselist" />'."\n". |
| |
'<input type="hidden" name="prevphase" value="'. |
| |
$prevphase.'" />'."\n"; |
| |
} elsif ($formname eq 'quotacheck') { |
| |
$output .= qq| |
| |
<input type="hidden" name="sortby" value="" /> |
| |
<input type="hidden" name="sortorder" value="" /> |
| |
|; |
| |
} else { |
| |
my $name_input; |
| |
if ($cnameelement ne '') { |
| |
$name_input = '<input type="hidden" name="cnameelement" value="'. |
| |
$cnameelement.'" />'; |
| |
} |
| |
$output .= qq| |
| |
<input type="hidden" name="cnumelement" value="$cnumelement" /> |
| |
<input type="hidden" name="cdomelement" value="$cdomelement" /> |
| |
$name_input |
| |
$roleelement |
| |
$multelement |
| |
$typeelement |
| |
|; |
| |
if ($formname eq 'portform') { |
| |
$output .= '<input type="hidden" name="setroles" value="'.$setroles.'" />'."\n"; |
| |
} |
| |
} |
| |
if ($fixeddom) { |
| |
$output .= '<input type="hidden" name="fixeddom" value="'.$fixeddom.'" />'."\n"; |
| |
} |
| |
$output .= "<br />\n".&Apache::lonhtmlcommon::start_pick_box(); |
| |
if ($sincefilterform) { |
| |
$output .= &Apache::lonhtmlcommon::row_title($lt{'cac'}) |
| |
.$sincefilterform |
| |
.&Apache::lonhtmlcommon::row_closure(); |
| |
} |
| |
if ($createdfilterform) { |
| |
$output .= &Apache::lonhtmlcommon::row_title($lt{'ccr'}) |
| |
.$createdfilterform |
| |
.&Apache::lonhtmlcommon::row_closure(); |
| |
} |
| |
if ($domainselectform) { |
| |
$output .= &Apache::lonhtmlcommon::row_title($lt{'cdo'}) |
| |
.$domainselectform |
| |
.&Apache::lonhtmlcommon::row_closure(); |
| |
} |
| |
if ($typeselectform) { |
| |
if (($formname eq 'ccrs') || ($formname eq 'requestcrs')) { |
| |
$output .= $typeselectform; |
| |
} else { |
| |
$output .= &Apache::lonhtmlcommon::row_title($lt{'cog'}) |
| |
.$typeselectform |
| |
.&Apache::lonhtmlcommon::row_closure(); |
| |
} |
| |
} |
| |
if ($instcodeform) { |
| |
$output .= &Apache::lonhtmlcommon::row_title($instcodetitle) |
| |
.$instcodeform |
| |
.&Apache::lonhtmlcommon::row_closure(); |
| |
} |
| |
if (exists($filter->{'ownerfilter'})) { |
| |
$output .= &Apache::lonhtmlcommon::row_title($lt{'cow'}). |
| |
'<table><tr><td>'.&mt('Username').'<br />'. |
| |
'<input type="text" name="ownerfilter" size="20" value="'. |
| |
$list->{'ownerfilter'}.'" /></td><td>'.&mt('Domain').'<br />'. |
| |
$ownerdomselectform.'</td></tr></table>'. |
| |
&Apache::lonhtmlcommon::row_closure(); |
| |
} |
| |
if (exists($filter->{'personfilter'})) { |
| |
$output .= &Apache::lonhtmlcommon::row_title($lt{'cop'}). |
| |
'<table><tr><td>'.&mt('Username').'<br />'. |
| |
'<input type="text" name="personfilter" size="20" value="'. |
| |
$list->{'personfilter'}.'" /></td><td>'.&mt('Domain').'<br />'. |
| |
$persondomselectform.'</td></tr></table>'. |
| |
&Apache::lonhtmlcommon::row_closure(); |
| |
} |
| |
if (exists($filter->{'coursefilter'})) { |
| |
$output .= &Apache::lonhtmlcommon::row_title(&mt('LON-CAPA course ID')) |
| |
.'<input type="text" name="coursefilter" size="25" value="' |
| |
.$list->{'coursefilter'}.'" />' |
| |
.&Apache::lonhtmlcommon::row_closure(); |
| |
} |
| |
if ($cloneableonlyform) { |
| |
$output .= &Apache::lonhtmlcommon::row_title($cloneabletitle). |
| |
$cloneableonlyform.&Apache::lonhtmlcommon::row_closure(); |
| |
} |
| |
if (exists($filter->{'descriptfilter'})) { |
| |
$output .= &Apache::lonhtmlcommon::row_title($lt{'cde'}) |
| |
.'<input type="text" name="descriptfilter" size="40" value="' |
| |
.$list->{'descriptfilter'}.'" />' |
| |
.&Apache::lonhtmlcommon::row_closure(1); |
| |
} |
| |
$output .= &Apache::lonhtmlcommon::end_pick_box().'<p>'.$clonetext."\n". |
| |
'<input type="hidden" name="updater" value="" />'."\n". |
| |
'<input type="submit" name="gosearch" value="'. |
| |
&mt('Search').'" /></p>'."\n".'</form>'."\n".'<hr />'."\n"; |
| |
return $jscript.$clonewarning.$output; |
| |
} |
| |
|
| |
=pod |
| |
|
| |
=item * &timebased_select_form() |
| |
|
| |
Create markup for a dropdown list used to select a time-based |
| |
filter e.g., Course Activity, Course Created, when searching for courses |
| |
or communities |
| |
|
| |
Inputs: |
| |
|
| |
item - name of form element (sincefilter or createdfilter) |
| |
|
| |
filter - anonymous hash of criteria and their values |
| |
|
| |
Returns: HTML for a select box contained a blank, then six time selections, |
| |
with value set in incoming form variables currently selected. |
| |
|
| |
Side Effects: None |
| |
|
| |
=cut |
| |
|
| |
sub timebased_select_form { |
| |
my ($item,$filter) = @_; |
| |
if (ref($filter) eq 'HASH') { |
| |
$filter->{$item} =~ s/[^\d-]//g; |
| |
if (!$filter->{$item}) { $filter->{$item}=-1; } |
| |
return &select_form( |
| |
$filter->{$item}, |
| |
$item, |
| |
{ '-1' => '', |
| |
'86400' => &mt('today'), |
| |
'604800' => &mt('last week'), |
| |
'2592000' => &mt('last month'), |
| |
'7776000' => &mt('last three months'), |
| |
'15552000' => &mt('last six months'), |
| |
'31104000' => &mt('last year'), |
| |
'select_form_order' => |
| |
['-1','86400','604800','2592000','7776000', |
| |
'15552000','31104000']}); |
| |
} |
| |
} |
| |
|
| |
=pod |
| |
|
| |
=item * &js_changer() |
| |
|
| |
Create script tag containing Javascript used to submit course search form |
| |
when course type or domain is changed, and also to hide 'Searching ...' on |
| |
page load completion for page showing search result. |
| |
|
| |
Inputs: None |
| |
|
| |
Returns: markup containing updateFilters() and hideSearching() javascript functions. |
| |
|
| |
Side Effects: None |
| |
|
| |
=cut |
| |
|
| |
sub js_changer { |
| |
return <<ENDJS; |
| |
<script type="text/javascript"> |
| |
// <![CDATA[ |
| |
function updateFilters(caller) { |
| |
if (typeof(caller) != "undefined") { |
| |
document.filterpicker.updater.value = caller.name; |
| |
} |
| |
document.filterpicker.submit(); |
| |
} |
| |
|
| |
function hideSearching() { |
| |
if (document.getElementById('searching')) { |
| |
document.getElementById('searching').style.display = 'none'; |
| |
} |
| return; |
return; |
| } |
} |
| |
|
| |
// ]]> |
| |
</script> |
| |
|
| |
ENDJS |
| |
} |
| |
|
| |
=pod |
| |
|
| |
=item * &search_courses() |
| |
|
| |
Process selected filters form course search form and pass to lonnet::courseiddump |
| |
to retrieve a hash for which keys are courseIDs which match the selected filters. |
| |
|
| |
Inputs: |
| |
|
| |
dom - domain being searched |
| |
|
| |
type - course type ('Course' or 'Community' or '.' if any). |
| |
|
| |
filter - anonymous hash of criteria and their values |
| |
|
| |
numtitles - for institutional codes - number of categories |
| |
|
| |
cloneruname - optional username of new course owner |
| |
|
| |
clonerudom - optional domain of new course owner |
| |
|
| |
domcloner - optional "domcloner" flag; has value=1 if user has ccc priv in domain being filtered by, |
| |
(used when DC is using course creation form) |
| |
|
| |
codetitles - reference to array of titles of components in institutional codes (official courses). |
| |
|
| |
cc_clone - escaped comma separated list of courses for which course cloner has active CC role |
| |
(and so can clone automatically) |
| |
|
| |
reqcrsdom - domain of new course, where search_courses is used to identify potential courses to clone |
| |
|
| |
reqinstcode - institutional code of new course, where search_courses is used to identify potential |
| |
courses to clone |
| |
|
| |
Returns: %courses - hash of courses satisfying search criteria, keys = course IDs, values are corresponding colon-separated escaped description, institutional code, owner and type. |
| |
|
| |
|
| |
Side Effects: None |
| |
|
| |
=cut |
| |
|
| |
|
| |
sub search_courses { |
| |
my ($dom,$type,$filter,$numtitles,$cloneruname,$clonerudom,$domcloner,$codetitles, |
| |
$cc_clone,$reqcrsdom,$reqinstcode) = @_; |
| |
my (%courses,%showcourses,$cloner); |
| |
if (($filter->{'ownerfilter'} ne '') || |
| |
($filter->{'ownerdomfilter'} ne '')) { |
| |
$filter->{'combownerfilter'} = $filter->{'ownerfilter'}.':'. |
| |
$filter->{'ownerdomfilter'}; |
| |
} |
| |
foreach my $item ('descriptfilter','coursefilter','combownerfilter') { |
| |
if (!$filter->{$item}) { |
| |
$filter->{$item}='.'; |
| |
} |
| |
} |
| |
my $now = time; |
| |
my $timefilter = |
| |
($filter->{'sincefilter'}==-1?1:$now-$filter->{'sincefilter'}); |
| |
my ($createdbefore,$createdafter); |
| |
if (($filter->{'createdfilter'} ne '') && ($filter->{'createdfilter'} !=-1)) { |
| |
$createdbefore = $now; |
| |
$createdafter = $now-$filter->{'createdfilter'}; |
| |
} |
| |
my ($instcodefilter,$regexpok); |
| |
if ($numtitles) { |
| |
if ($env{'form.official'} eq 'on') { |
| |
$instcodefilter = |
| |
&Apache::courseclassifier::instcode_search_str($dom,$numtitles,$codetitles); |
| |
$regexpok = 1; |
| |
} elsif ($env{'form.official'} eq 'off') { |
| |
$instcodefilter = &Apache::courseclassifier::instcode_search_str($dom,$numtitles,$codetitles); |
| |
unless ($instcodefilter eq '') { |
| |
$regexpok = -1; |
| |
} |
| |
} |
| |
} else { |
| |
$instcodefilter = $filter->{'instcodefilter'}; |
| |
} |
| |
if ($instcodefilter eq '') { $instcodefilter = '.'; } |
| |
if ($type eq '') { $type = '.'; } |
| |
|
| |
if (($clonerudom ne '') && ($cloneruname ne '')) { |
| |
$cloner = $cloneruname.':'.$clonerudom; |
| |
} |
| |
%courses = &Apache::lonnet::courseiddump($dom, |
| |
$filter->{'descriptfilter'}, |
| |
$timefilter, |
| |
$instcodefilter, |
| |
$filter->{'combownerfilter'}, |
| |
$filter->{'coursefilter'}, |
| |
undef,undef,$type,$regexpok,undef,undef, |
| |
undef,undef,$cloner,$cc_clone, |
| |
$filter->{'cloneableonly'}, |
| |
$createdbefore,$createdafter,undef, |
| |
$domcloner,undef,$reqcrsdom,$reqinstcode); |
| |
if (($filter->{'personfilter'} ne '') && ($filter->{'persondomfilter'} ne '')) { |
| |
my $ccrole; |
| |
if ($type eq 'Community') { |
| |
$ccrole = 'co'; |
| |
} else { |
| |
$ccrole = 'cc'; |
| |
} |
| |
my %rolehash = &Apache::lonnet::get_my_roles($filter->{'personfilter'}, |
| |
$filter->{'persondomfilter'}, |
| |
'userroles',undef, |
| |
[$ccrole,'in','ad','ep','ta','cr'], |
| |
$dom); |
| |
foreach my $role (keys(%rolehash)) { |
| |
my ($cnum,$cdom,$courserole) = split(':',$role); |
| |
my $cid = $cdom.'_'.$cnum; |
| |
if (exists($courses{$cid})) { |
| |
if (ref($courses{$cid}) eq 'HASH') { |
| |
if (ref($courses{$cid}{roles}) eq 'ARRAY') { |
| |
if (!grep(/^\Q$courserole\E$/,@{$courses{$cid}{roles}})) { |
| |
push (@{$courses{$cid}{roles}},$courserole); |
| |
} |
| |
} else { |
| |
$courses{$cid}{roles} = [$courserole]; |
| |
} |
| |
$showcourses{$cid} = $courses{$cid}; |
| |
} |
| |
} |
| |
} |
| |
%courses = %showcourses; |
| |
} |
| |
return %courses; |
| |
} |
| |
|
| |
=pod |
| |
|
| |
=back |
| |
|
| |
=head1 Routines for version requirements for current course. |
| |
|
| |
=over 4 |
| |
|
| |
=item * &check_release_required() |
| |
|
| |
Compares required LON-CAPA version with version on server, and |
| |
if required version is newer looks for a server with the required version. |
| |
|
| |
Looks first at servers in user's owen domain; if none suitable, looks at |
| |
servers in course's domain are permitted to host sessions for user's domain. |
| |
|
| |
Inputs: |
| |
|
| |
$loncaparev - Version on current server (format: Major.Minor.Subrelease-datestamp) |
| |
|
| |
$courseid - Course ID of current course |
| |
|
| |
$rolecode - User's current role in course (for switchserver query string). |
| |
|
| |
$required - LON-CAPA version needed by course (format: Major.Minor). |
| |
|
| |
|
| |
Returns: |
| |
|
| |
$switchserver - query string tp append to /adm/switchserver call (if |
| |
current server's LON-CAPA version is too old. |
| |
|
| |
$warning - Message is displayed if no suitable server could be found. |
| |
|
| |
=cut |
| |
|
| |
sub check_release_required { |
| |
my ($loncaparev,$courseid,$rolecode,$required) = @_; |
| |
my ($switchserver,$warning); |
| |
if ($required ne '') { |
| |
my ($reqdmajor,$reqdminor) = ($required =~ /^(\d+)\.(\d+)$/); |
| |
my ($major,$minor) = ($loncaparev =~ /^\'?(\d+)\.(\d+)\.[\w.\-]+\'?$/); |
| |
if ($reqdmajor ne '' && $reqdminor ne '') { |
| |
my $otherserver; |
| |
if (($major eq '' && $minor eq '') || |
| |
(($reqdmajor > $major) || (($reqdmajor == $major) && ($reqdminor > $minor)))) { |
| |
my ($userdomserver) = &Apache::lonnet::choose_server($env{'user.domain'},undef,$required,1); |
| |
my $switchlcrev = |
| |
&Apache::lonnet::get_server_loncaparev($env{'user.domain'}, |
| |
$userdomserver); |
| |
my ($swmajor,$swminor) = ($switchlcrev =~ /^\'?(\d+)\.(\d+)\.[\w.\-]+\'?$/); |
| |
if (($swmajor eq '' && $swminor eq '') || ($reqdmajor > $swmajor) || |
| |
(($reqdmajor == $swmajor) && ($reqdminor > $swminor))) { |
| |
my $cdom = $env{'course.'.$courseid.'.domain'}; |
| |
if ($cdom ne $env{'user.domain'}) { |
| |
my ($coursedomserver,$coursehostname) = &Apache::lonnet::choose_server($cdom,undef,$required,1); |
| |
my $serverhomeID = &Apache::lonnet::get_server_homeID($coursehostname); |
| |
my $serverhomedom = &Apache::lonnet::host_domain($serverhomeID); |
| |
my %defdomdefaults = &Apache::lonnet::get_domain_defaults($serverhomedom); |
| |
my %udomdefaults = &Apache::lonnet::get_domain_defaults($env{'user.domain'}); |
| |
my $remoterev = &Apache::lonnet::get_server_loncaparev($serverhomedom,$coursedomserver); |
| |
my $canhost = |
| |
&Apache::lonnet::can_host_session($env{'user.domain'}, |
| |
$coursedomserver, |
| |
$remoterev, |
| |
$udomdefaults{'remotesessions'}, |
| |
$defdomdefaults{'hostedsessions'}); |
| |
|
| |
if ($canhost) { |
| |
$otherserver = $coursedomserver; |
| |
} else { |
| |
$warning = &mt('Requires LON-CAPA version [_1].',$env{'course.'.$courseid.'.internal.releaserequired'}).'<br />'. &mt("No suitable server could be found amongst servers in either your own domain or in the course's domain."); |
| |
} |
| |
} else { |
| |
$warning = &mt('Requires LON-CAPA version [_1].',$env{'course.'.$courseid.'.internal.releaserequired'}).'<br />'.&mt("No suitable server could be found amongst servers in your own domain (which is also the course's domain)."); |
| |
} |
| |
} else { |
| |
$otherserver = $userdomserver; |
| |
} |
| |
} |
| |
if ($otherserver ne '') { |
| |
$switchserver = 'otherserver='.$otherserver.'&role='.$rolecode; |
| |
} |
| |
} |
| |
} |
| |
return ($switchserver,$warning); |
| |
} |
| |
|
| |
=pod |
| |
|
| |
=item * &check_release_result() |
| |
|
| |
Inputs: |
| |
|
| |
$switchwarning - Warning message if no suitable server found to host session. |
| |
|
| |
$switchserver - query string to append to /adm/switchserver containing lonHostID |
| |
and current role. |
| |
|
| |
Returns: HTML to display with information about requirement to switch server. |
| |
Either displaying warning with link to Roles/Courses screen or |
| |
display link to switchserver. |
| |
|
| |
=cut |
| |
|
| |
sub check_release_result { |
| |
my ($switchwarning,$switchserver) = @_; |
| |
my $output = &start_page('Selected course unavailable on this server'). |
| |
'<p class="LC_warning">'; |
| |
if ($switchwarning) { |
| |
$output .= $switchwarning.'<br /><a href="/adm/roles">'; |
| |
if (&show_course()) { |
| |
$output .= &mt('Display courses'); |
| |
} else { |
| |
$output .= &mt('Display roles'); |
| |
} |
| |
$output .= '</a>'; |
| |
} elsif ($switchserver) { |
| |
$output .= &mt('This course requires a newer version of LON-CAPA than is installed on this server.'). |
| |
'<br />'. |
| |
'<a href="/adm/switchserver?'.$switchserver.'">'. |
| |
&mt('Switch Server'). |
| |
'</a>'; |
| |
} |
| |
$output .= '</p>'.&end_page(); |
| |
return $output; |
| |
} |
| |
|
| |
=pod |
| |
|
| |
=item * &needs_coursereinit() |
| |
|
| |
Determine if course contents stored for user's session needs to be |
| |
refreshed, because content has changed since "Big Hash" last tied. |
| |
|
| |
Check for change is made if time last checked is more than 10 minutes ago |
| |
(by default). |
| |
|
| |
Inputs: |
| |
|
| |
$loncaparev - Version on current server (format: Major.Minor.Subrelease-datestamp) |
| |
|
| |
$interval (optional) - Time which may elapse (in s) between last check for content |
| |
change in current course. (default: 600 s). |
| |
|
| |
Returns: an array; first element is: |
| |
|
| |
=over 4 |
| |
|
| |
'switch' - if content updates mean user's session |
| |
needs to be switched to a server running a newer LON-CAPA version |
| |
|
| |
'update' - if course session needs to be refreshed (i.e., Big Hash needs to be reloaded) |
| |
on current server hosting user's session |
| |
|
| |
'' - if no action required. |
| |
|
| |
=back |
| |
|
| |
If first item element is 'switch': |
| |
|
| |
second item is $switchwarning - Warning message if no suitable server found to host session. |
| |
|
| |
third item is $switchserver - query string to append to /adm/switchserver containing lonHostID |
| |
and current role. |
| |
|
| |
otherwise: no other elements returned. |
| |
|
| |
=back |
| |
|
| |
=cut |
| |
|
| |
sub needs_coursereinit { |
| |
my ($loncaparev,$interval) = @_; |
| |
return() unless ($env{'request.course.id'} && $env{'request.course.tied'}); |
| |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
| |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
| |
my $now = time; |
| |
if ($interval eq '') { |
| |
$interval = 600; |
| |
} |
| |
if (($now-$env{'request.course.timechecked'})>$interval) { |
| |
my $lastchange = &Apache::lonnet::get_coursechange($cdom,$cnum); |
| |
&Apache::lonnet::appenv({'request.course.timechecked'=>$now}); |
| |
if ($lastchange > $env{'request.course.tied'}) { |
| |
my %curr_reqd_hash = &Apache::lonnet::userenvironment($cdom,$cnum,'internal.releaserequired'); |
| |
if ($curr_reqd_hash{'internal.releaserequired'} ne '') { |
| |
my $required = $env{'course.'.$cdom.'_'.$cnum.'.internal.releaserequired'}; |
| |
if ($curr_reqd_hash{'internal.releaserequired'} ne $required) { |
| |
&Apache::lonnet::appenv({'course.'.$cdom.'_'.$cnum.'.internal.releaserequired' => |
| |
$curr_reqd_hash{'internal.releaserequired'}}); |
| |
my ($switchserver,$switchwarning) = |
| |
&check_release_required($loncaparev,$cdom.'_'.$cnum,$env{'request.role'}, |
| |
$curr_reqd_hash{'internal.releaserequired'}); |
| |
if ($switchwarning ne '' || $switchserver ne '') { |
| |
return ('switch',$switchwarning,$switchserver); |
| |
} |
| |
} |
| |
} |
| |
return ('update'); |
| |
} |
| |
} |
| |
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'); |
| my ($reqdmajor,$reqdminor) = split(/\./,$curr_reqd_hash{'internal.releaserequired'}); |
my ($reqdmajor,$reqdminor) = split(/\./,$curr_reqd_hash{'internal.releaserequired'}); |
| my %checkresponsetypes; |
my %checkresponsetypes; |
| foreach my $key (keys(%Apache::lonnet::needsrelease)) { |
foreach my $key (keys(%Apache::lonnet::needsrelease)) { |
| my ($item,$name,$value) = split(/:/,$key); |
my ($item,$name,$value,$valmatch) = split(/:/,$key); |
| if ($item eq 'resourcetag') { |
if ($item eq 'resourcetag') { |
| if ($name eq 'responsetype') { |
if ($name eq 'responsetype') { |
| $checkresponsetypes{$value} = $Apache::lonnet::needsrelease{$key} |
$checkresponsetypes{$value} = $Apache::lonnet::needsrelease{$key} |
|
Line 14786 sub captcha_display {
|
Line 16298 sub captcha_display {
|
| if ($captcha eq 'original') { |
if ($captcha eq 'original') { |
| $output = &create_captcha(); |
$output = &create_captcha(); |
| unless ($output) { |
unless ($output) { |
| $error = 'captcha'; |
$error = 'captcha'; |
| } |
} |
| } elsif ($captcha eq 'recaptcha') { |
} elsif ($captcha eq 'recaptcha') { |
| $output = &create_recaptcha($pubkey); |
$output = &create_recaptcha($pubkey); |
| unless ($output) { |
unless ($output) { |
| $error = 'recaptcha'; |
$error = 'recaptcha'; |
| } |
} |
| } |
} |
| return ($output,$error); |
return ($output,$error,$captcha); |
| } |
} |
| |
|
| sub captcha_response { |
sub captcha_response { |
|
Line 14870 sub create_captcha {
|
Line 16382 sub create_captcha {
|
| if (-e $Apache::lonnet::perlvar{'lonCaptchaDir'}.'/'.$md5sum.'.png') { |
if (-e $Apache::lonnet::perlvar{'lonCaptchaDir'}.'/'.$md5sum.'.png') { |
| $output = '<input type="hidden" name="crypt" value="'.$md5sum.'" />'."\n". |
$output = '<input type="hidden" name="crypt" value="'.$md5sum.'" />'."\n". |
| &mt('Type in the letters/numbers shown below').' '. |
&mt('Type in the letters/numbers shown below').' '. |
| '<input type="text" size="5" name="code" value="" /><br />'. |
'<input type="text" size="5" name="code" value="" autocomplete="off" />'. |
| '<img src="'.$captcha_params{'www_output_dir'}.'/'.$md5sum.'.png" />'; |
'<br />'. |
| |
'<img src="'.$captcha_params{'www_output_dir'}.'/'.$md5sum.'.png" alt="captcha" />'; |
| last; |
last; |
| } |
} |
| } |
} |
|
Line 14919 sub create_recaptcha {
|
Line 16432 sub create_recaptcha {
|
| my $captcha = Captcha::reCAPTCHA->new; |
my $captcha = Captcha::reCAPTCHA->new; |
| return $captcha->get_options_setter({theme => 'white'})."\n". |
return $captcha->get_options_setter({theme => 'white'})."\n". |
| $captcha->get_html($pubkey,undef,$use_ssl). |
$captcha->get_html($pubkey,undef,$use_ssl). |
| &mt('If either word is hard to read, [_1] will replace them.', |
&mt('If the text is hard to read, [_1] will replace them.', |
| '<img src="/res/adm/pages/refresh.gif" alt="reCAPTCHA refresh" />'). |
'<img src="/res/adm/pages/refresh.gif" alt="reCAPTCHA refresh" />'). |
| '<br /><br />'; |
'<br /><br />'; |
| } |
} |
|
Line 14941 sub check_recaptcha {
|
Line 16454 sub check_recaptcha {
|
| return $captcha_chk; |
return $captcha_chk; |
| } |
} |
| |
|
| |
sub emailusername_info { |
| |
my @fields = ('firstname','lastname','institution','web','location','officialemail'); |
| |
my %titles = &Apache::lonlocal::texthash ( |
| |
lastname => 'Last Name', |
| |
firstname => 'First Name', |
| |
institution => 'School/college/university', |
| |
location => "School's city, state/province, country", |
| |
web => "School's web address", |
| |
officialemail => 'E-mail address at institution (if different)', |
| |
); |
| |
return (\@fields,\%titles); |
| |
} |
| |
|
| sub cleanup_html { |
sub cleanup_html { |
| my ($incoming) = @_; |
my ($incoming) = @_; |
| my $outgoing; |
my $outgoing; |
|
Line 14963 sub cleanup_html {
|
Line 16489 sub cleanup_html {
|
| return $outgoing; |
return $outgoing; |
| } |
} |
| |
|
| =pod |
# Checks for critical messages and returns a redirect url if one exists. |
| |
# $interval indicates how often to check for messages. |
| =back |
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 (); |
| |
} |
| |
|
| =cut |
# Use: |
| |
# my $answer=reply("encrypt:passwd:$udom:$uname:$upass",$tryserver); |
| |
# |
| |
################################################## |
| |
# password associated functions # |
| |
################################################## |
| |
sub des_keys { |
| |
# Make a new key for DES encryption. |
| |
# Each key has two parts which are returned separately. |
| |
# Please note: Each key must be passed through the &hex function |
| |
# before it is output to the web browser. The hex versions cannot |
| |
# be used to decrypt. |
| |
my @hexstr=('0','1','2','3','4','5','6','7', |
| |
'8','9','a','b','c','d','e','f'); |
| |
my $lkey=''; |
| |
for (0..7) { |
| |
$lkey.=$hexstr[rand(15)]; |
| |
} |
| |
my $ukey=''; |
| |
for (0..7) { |
| |
$ukey.=$hexstr[rand(15)]; |
| |
} |
| |
return ($lkey,$ukey); |
| |
} |
| |
|
| |
sub des_decrypt { |
| |
my ($key,$cyphertext) = @_; |
| |
my $keybin=pack("H16",$key); |
| |
my $cypher; |
| |
if ($Crypt::DES::VERSION>=2.03) { |
| |
$cypher=new Crypt::DES $keybin; |
| |
} else { |
| |
$cypher=new DES $keybin; |
| |
} |
| |
my $plaintext= |
| |
$cypher->decrypt(unpack("a8",pack("H16",substr($cyphertext,0,16)))); |
| |
$plaintext.= |
| |
$cypher->decrypt(unpack("a8",pack("H16",substr($cyphertext,16,16)))); |
| |
$plaintext=substr($plaintext,1,ord(substr($plaintext,0,1)) ); |
| |
return $plaintext; |
| |
} |
| |
|
| 1; |
1; |
| __END__; |
__END__; |
![[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