|
version 1.1003, 2011/05/03 21:38:40
|
version 1.1066, 2012/04/06 01:23:11
|
|
Line 154 sub ssi_with_retries {
|
Line 154 sub ssi_with_retries {
|
| # ----------------------------------------------- Filetypes/Languages/Copyright |
# ----------------------------------------------- Filetypes/Languages/Copyright |
| my %language; |
my %language; |
| my %supported_language; |
my %supported_language; |
| |
my %latex_language; # For choosing hyphenation in <transl..> |
| |
my %latex_language_bykey; # for choosing hyphenation from metadata |
| my %cprtag; |
my %cprtag; |
| my %scprtag; |
my %scprtag; |
| my %fe; my %fd; my %fm; |
my %fe; my %fd; my %fm; |
|
Line 186 BEGIN {
|
Line 188 BEGIN {
|
| while (my $line = <$fh>) { |
while (my $line = <$fh>) { |
| next if ($line=~/^\#/); |
next if ($line=~/^\#/); |
| chomp($line); |
chomp($line); |
| my ($key,$two,$country,$three,$enc,$val,$sup)=(split(/\t/,$line)); |
my ($key,$two,$country,$three,$enc,$val,$sup,$latex)=(split(/\t/,$line)); |
| $language{$key}=$val.' - '.$enc; |
$language{$key}=$val.' - '.$enc; |
| if ($sup) { |
if ($sup) { |
| $supported_language{$key}=$sup; |
$supported_language{$key}=$sup; |
| } |
} |
| |
if ($latex) { |
| |
$latex_language_bykey{$key} = $latex; |
| |
$latex_language{$two} = $latex; |
| |
} |
| } |
} |
| close($fh); |
close($fh); |
| } |
} |
|
Line 438 ENDSTDBRW
|
Line 444 ENDSTDBRW
|
| |
|
| sub resourcebrowser_javascript { |
sub resourcebrowser_javascript { |
| unless ($env{'request.course.id'}) { return ''; } |
unless ($env{'request.course.id'}) { return ''; } |
| return (<<'ENDSTDBRW'); |
return (<<'ENDRESBRW'); |
| <script type="text/javascript" language="Javascript"> |
<script type="text/javascript" language="Javascript"> |
| // <![CDATA[ |
// <![CDATA[ |
| var reseditbrowser; |
var reseditbrowser; |
| function openresbrowser(formname,uname,udom,clicker,roleflag,ignorefilter,courseadvonly) { |
function openresbrowser(formname,reslink) { |
| var url = '/adm/pickresource?'; |
var url = '/adm/pickresource?form='+formname+'&reslink='+reslink; |
| var title = 'Resource_Browser'; |
var title = 'Resource_Browser'; |
| var options = 'scrollbars=1,resizable=1,menubar=0'; |
var options = 'scrollbars=1,resizable=1,menubar=0'; |
| options += ',width=700,height=600'; |
options += ',width=700,height=500'; |
| stdeditbrowser = open(url,title,options,'1'); |
reseditbrowser = open(url,title,options,'1'); |
| stdeditbrowser.focus(); |
reseditbrowser.focus(); |
| } |
} |
| // ]]> |
// ]]> |
| </script> |
</script> |
| ENDSTDBRW |
ENDRESBRW |
| } |
} |
| |
|
| sub selectstudent_link { |
sub selectstudent_link { |
|
Line 475 sub selectstudent_link {
|
Line 481 sub selectstudent_link {
|
| &mt('Select User').'</a></span>'; |
&mt('Select User').'</a></span>'; |
| } |
} |
| if ($env{'request.role'}=~/^(au|dc|su)/) { |
if ($env{'request.role'}=~/^(au|dc|su)/) { |
| $callargs .= ",1"; |
$callargs .= ",'',1"; |
| return '<span class="LC_nobreak">'. |
return '<span class="LC_nobreak">'. |
| '<a href="javascript:openstdbrowser('.$callargs.');">'. |
'<a href="javascript:openstdbrowser('.$callargs.');">'. |
| &mt('Select User').'</a></span>'; |
&mt('Select User').'</a></span>'; |
|
Line 483 sub selectstudent_link {
|
Line 489 sub selectstudent_link {
|
| return ''; |
return ''; |
| } |
} |
| |
|
| |
sub selectresource_link { |
| |
my ($form,$reslink,$arg)=@_; |
| |
|
| |
my $callargs = "'".&Apache::lonhtmlcommon::entity_encode($form)."','". |
| |
&Apache::lonhtmlcommon::entity_encode($reslink)."'"; |
| |
unless ($env{'request.course.id'}) { return $arg; } |
| |
return '<span class="LC_nobreak">'. |
| |
'<a href="javascript:openresbrowser('.$callargs.');">'. |
| |
$arg.'</a></span>'; |
| |
} |
| |
|
| |
|
| |
|
| sub authorbrowser_javascript { |
sub authorbrowser_javascript { |
| return <<"ENDAUTHORBRW"; |
return <<"ENDAUTHORBRW"; |
| <script type="text/javascript" language="JavaScript"> |
<script type="text/javascript" language="JavaScript"> |
|
Line 619 ENDJS
|
Line 638 ENDJS
|
| |
|
| } |
} |
| |
|
| |
sub javascript_array_indexof { |
| |
return <<ENDJS; |
| |
<script type="text/javascript" language="JavaScript"> |
| |
// <![CDATA[ |
| |
|
| |
if (!Array.prototype.indexOf) { |
| |
Array.prototype.indexOf = function (searchElement /*, fromIndex */ ) { |
| |
"use strict"; |
| |
if (this === void 0 || this === null) { |
| |
throw new TypeError(); |
| |
} |
| |
var t = Object(this); |
| |
var len = t.length >>> 0; |
| |
if (len === 0) { |
| |
return -1; |
| |
} |
| |
var n = 0; |
| |
if (arguments.length > 0) { |
| |
n = Number(arguments[1]); |
| |
if (n !== n) { // shortcut for verifying if it's NaN |
| |
n = 0; |
| |
} else if (n !== 0 && n !== (1 / 0) && n !== -(1 / 0)) { |
| |
n = (n > 0 || -1) * Math.floor(Math.abs(n)); |
| |
} |
| |
} |
| |
if (n >= len) { |
| |
return -1; |
| |
} |
| |
var k = n >= 0 ? n : Math.max(len - Math.abs(n), 0); |
| |
for (; k < len; k++) { |
| |
if (k in t && t[k] === searchElement) { |
| |
return k; |
| |
} |
| |
} |
| |
return -1; |
| |
} |
| |
} |
| |
|
| |
// ]]> |
| |
</script> |
| |
|
| |
ENDJS |
| |
|
| |
} |
| |
|
| sub userbrowser_javascript { |
sub userbrowser_javascript { |
| my $id_functions = &javascript_index_functions(); |
my $id_functions = &javascript_index_functions(); |
| return <<"ENDUSERBRW"; |
return <<"ENDUSERBRW"; |
|
Line 789 sub selectcourse_link {
|
Line 853 sub selectcourse_link {
|
| } elsif ($selecttype eq 'Course/Community') { |
} elsif ($selecttype eq 'Course/Community') { |
| $linktext = &mt('Select Course/Community'); |
$linktext = &mt('Select Course/Community'); |
| $type = ''; |
$type = ''; |
| |
} elsif ($selecttype eq 'Select') { |
| |
$linktext = &mt('Select'); |
| |
$type = ''; |
| } |
} |
| return '<span class="LC_nobreak">' |
return '<span class="LC_nobreak">' |
| ."<a href='" |
."<a href='" |
|
Line 1125 sub help_open_topic {
|
Line 1192 sub help_open_topic {
|
| my ($topic, $text, $stayOnPage, $width, $height, $imgid) = @_; |
my ($topic, $text, $stayOnPage, $width, $height, $imgid) = @_; |
| $text = "" if (not defined $text); |
$text = "" if (not defined $text); |
| $stayOnPage = 0 if (not defined $stayOnPage); |
$stayOnPage = 0 if (not defined $stayOnPage); |
| $width = 350 if (not defined $width); |
$width = 500 if (not defined $width); |
| $height = 400 if (not defined $height); |
$height = 400 if (not defined $height); |
| my $filename = $topic; |
my $filename = $topic; |
| $filename =~ s/ /_/g; |
$filename =~ s/ /_/g; |
|
Line 1136 sub help_open_topic {
|
Line 1203 sub help_open_topic {
|
| $topic=~s/\W/\_/g; |
$topic=~s/\W/\_/g; |
| |
|
| if (!$stayOnPage) { |
if (!$stayOnPage) { |
| $link = "javascript:void(open('/adm/help/${filename}.hlp', 'Help_for_$topic', 'menubar=0,toolbar=1,scrollbars=1,width=$width,height=$height,resizable=yes'))"; |
$link = "javascript:openMyModal('/adm/help/${filename}.hlp',$width,$height,'yes');"; |
| |
} elsif ($stayOnPage eq 'popup') { |
| |
$link = "javascript:void(open('/adm/help/${filename}.hlp', 'Help_for_$topic', 'menubar=0,toolbar=1,scrollbars=1,width=$width,height=$height,resizable=yes'))"; |
| } else { |
} else { |
| $link = "/adm/help/${filename}.hlp"; |
$link = "/adm/help/${filename}.hlp"; |
| } |
} |
|
Line 1169 sub help_open_topic {
|
Line 1238 sub help_open_topic {
|
| # This is a quicky function for Latex cheatsheet editing, since it |
# This is a quicky function for Latex cheatsheet editing, since it |
| # appears in at least four places |
# appears in at least four places |
| sub helpLatexCheatsheet { |
sub helpLatexCheatsheet { |
| my ($topic,$text,$not_author) = @_; |
my ($topic,$text,$not_author,$stayOnPage) = @_; |
| my $out; |
my $out; |
| my $addOther = ''; |
my $addOther = ''; |
| if ($topic) { |
if ($topic) { |
| $addOther = '<span>'.&Apache::loncommon::help_open_topic($topic,&mt($text), |
$addOther = '<span>'.&help_open_topic($topic,&mt($text),$stayOnPage, undef, 600).'</span> '; |
| undef, undef, 600). |
|
| '</span> '; |
|
| } |
} |
| $out = '<span>' # Start cheatsheet |
$out = '<span>' # Start cheatsheet |
| .$addOther |
.$addOther |
| .'<span>' |
.'<span>' |
| .&Apache::loncommon::help_open_topic('Greek_Symbols',&mt('Greek Symbols'), |
.&help_open_topic('Greek_Symbols',&mt('Greek Symbols'),$stayOnPage,undef,600) |
| undef,undef,600) |
|
| .'</span> <span>' |
.'</span> <span>' |
| .&Apache::loncommon::help_open_topic('Other_Symbols',&mt('Other Symbols'), |
.&help_open_topic('Other_Symbols',&mt('Other Symbols'),$stayOnPage,undef,600) |
| undef,undef,600) |
|
| .'</span>'; |
.'</span>'; |
| unless ($not_author) { |
unless ($not_author) { |
| $out .= ' <span>' |
$out .= ' <span>' |
| .&Apache::loncommon::help_open_topic('Authoring_Output_Tags',&mt('Output Tags'), |
.&help_open_topic('Authoring_Output_Tags',&mt('Output Tags'),$stayOnPage,undef,600) |
| undef,undef,600) |
|
| .'</span>'; |
.'</span>'; |
| } |
} |
| $out .= '</span>'; # End cheatsheet |
$out .= '</span>'; # End cheatsheet |
|
Line 1684 Inputs: $workbook
|
Line 1748 Inputs: $workbook
|
| |
|
| Returns: $format, a hash reference. |
Returns: $format, a hash reference. |
| |
|
| |
|
| =cut |
=cut |
| |
|
| ############################################################### |
############################################################### |
|
Line 1745 sub create_workbook {
|
Line 1810 sub create_workbook {
|
| return (undef); |
return (undef); |
| } |
} |
| # |
# |
| $workbook->set_tempdir('/home/httpd/perl/tmp'); |
$workbook->set_tempdir(LONCAPA::tempdir()); |
| # |
# |
| my $format = &Apache::loncommon::define_excel_formats($workbook); |
my $format = &Apache::loncommon::define_excel_formats($workbook); |
| return ($workbook,$filename,$format); |
return ($workbook,$filename,$format); |
|
Line 2792 database which holds them.
|
Line 2857 database which holds them.
|
| |
|
| Uses global $thesaurus_db_file. |
Uses global $thesaurus_db_file. |
| |
|
| |
|
| =cut |
=cut |
| |
|
| ############################################################### |
############################################################### |
|
Line 3169 sub languagedescription {
|
Line 3235 sub languagedescription {
|
| ($supported_language{$code}?' ('.&mt('interface available').')':''); |
($supported_language{$code}?' ('.&mt('interface available').')':''); |
| } |
} |
| |
|
| |
=pod |
| |
|
| |
=item * &plainlanguagedescription |
| |
|
| |
Returns both the plain language description (e.g. 'Creoles and Pidgins, English-based (Other)') |
| |
and the language character encoding (e.g. ISO) separated by a ' - ' string. |
| |
|
| |
=cut |
| |
|
| sub plainlanguagedescription { |
sub plainlanguagedescription { |
| my $code=shift; |
my $code=shift; |
| return $language{$code}; |
return $language{$code}; |
| } |
} |
| |
|
| |
=pod |
| |
|
| |
=item * &supportedlanguagecode |
| |
|
| |
Returns the supported language code (e.g. sptutf maps to pt) given a language |
| |
code. |
| |
|
| |
=cut |
| |
|
| sub supportedlanguagecode { |
sub supportedlanguagecode { |
| my $code=shift; |
my $code=shift; |
| return $supported_language{$code}; |
return $supported_language{$code}; |
|
Line 3181 sub supportedlanguagecode {
|
Line 3265 sub supportedlanguagecode {
|
| |
|
| =pod |
=pod |
| |
|
| |
=item * &latexlanguage() |
| |
|
| |
Given a language key code returns the correspondnig language to use |
| |
to select the correct hyphenation on LaTeX printouts. This is undef if there |
| |
is no supported hyphenation for the language code. |
| |
|
| |
=cut |
| |
|
| |
sub latexlanguage { |
| |
my $code = shift; |
| |
return $latex_language{$code}; |
| |
} |
| |
|
| |
=pod |
| |
|
| |
=item * &latexhyphenation() |
| |
|
| |
Same as above but what's supplied is the language as it might be stored |
| |
in the metadata. |
| |
|
| |
=cut |
| |
|
| |
sub latexhyphenation { |
| |
my $key = shift; |
| |
return $latex_language_bykey{$key}; |
| |
} |
| |
|
| |
=pod |
| |
|
| =item * ©rightids() |
=item * ©rightids() |
| |
|
| returns list of all copyrights |
returns list of all copyrights |
|
Line 3446 sub get_previous_attempt {
|
Line 3559 sub get_previous_attempt {
|
| my $data=$parts[-1]; |
my $data=$parts[-1]; |
| next if ($data eq 'foilorder'); |
next if ($data eq 'foilorder'); |
| pop(@parts); |
pop(@parts); |
| |
$prevattempts.='<th>'.&mt('Part ').join('.',@parts).'<br />'.$data.' </th>'; |
| if ($data eq 'type') { |
if ($data eq 'type') { |
| unless ($showsurv) { |
unless ($showsurv) { |
| my $id = join(',',@parts); |
my $id = join(',',@parts); |
|
Line 3454 sub get_previous_attempt {
|
Line 3568 sub get_previous_attempt {
|
| $lasthidden{$ign.'.'.$id} = 1; |
$lasthidden{$ign.'.'.$id} = 1; |
| } |
} |
| } |
} |
| delete($lasthash{$key}); |
} |
| } else { |
|
| $prevattempts.='<th>'.&mt('Part ').join('.',@parts).'<br />'.$data.' </th>'; |
|
| } |
|
| } else { |
} else { |
| if ($#parts == 0) { |
if ($#parts == 0) { |
| $prevattempts.='<th>'.$parts[0].'</th>'; |
$prevattempts.='<th>'.$parts[0].'</th>'; |
|
Line 3574 sub get_previous_attempt {
|
Line 3685 sub get_previous_attempt {
|
| |
|
| sub format_previous_attempt_value { |
sub format_previous_attempt_value { |
| my ($key,$value) = @_; |
my ($key,$value) = @_; |
| if ($key =~ /timestamp/) { |
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 = '('.join(', ', @{ $value }).')'; |
|
Line 3906 sub findallcourses {
|
Line 4017 sub findallcourses {
|
| if ($tstart) { |
if ($tstart) { |
| next if ($tstart > $now); |
next if ($tstart > $now); |
| } |
} |
| my ($cdom,$cnum,$sec,$cnumpart,$secpart,$role,$realsec); |
my ($cdom,$cnum,$sec,$cnumpart,$secpart,$role); |
| (undef,$cdom,$cnumpart,$secpart) = split(/\//,$entry); |
(undef,$cdom,$cnumpart,$secpart) = split(/\//,$entry); |
| |
my $value = $trole.'/'.$cdom.'/'; |
| if ($secpart eq '') { |
if ($secpart eq '') { |
| ($cnum,$role) = split(/_/,$cnumpart); |
($cnum,$role) = split(/_/,$cnumpart); |
| $sec = 'none'; |
$sec = 'none'; |
| $realsec = ''; |
$value .= $cnum.'/'; |
| } else { |
} else { |
| $cnum = $cnumpart; |
$cnum = $cnumpart; |
| ($sec,$role) = split(/_/,$secpart); |
($sec,$role) = split(/_/,$secpart); |
| $realsec = $sec; |
$value .= $cnum.'/'.$sec; |
| |
} |
| |
if (ref($courses{$cdom.'_'.$cnum}{$sec}) eq 'ARRAY') { |
| |
unless (grep(/^\Q$value\E$/,@{$courses{$cdom.'_'.$cnum}{$sec}})) { |
| |
push(@{$courses{$cdom.'_'.$cnum}{$sec}},$value); |
| |
} |
| |
} else { |
| |
@{$courses{$cdom.'_'.$cnum}{$sec}} = ($value); |
| } |
} |
| $courses{$cdom.'_'.$cnum}{$sec} = $trole.'/'.$cdom.'/'.$cnum.'/'.$realsec; |
|
| } |
} |
| } else { |
} else { |
| foreach my $key (keys(%env)) { |
foreach my $key (keys(%env)) { |
|
Line 3935 sub findallcourses {
|
Line 4053 sub findallcourses {
|
| if ($now>$endtime) { $active=0; } |
if ($now>$endtime) { $active=0; } |
| } |
} |
| if ($active) { |
if ($active) { |
| |
my $value = $role.'/'.$cdom.'/'.$cnum.'/'; |
| if ($sec eq '') { |
if ($sec eq '') { |
| $sec = 'none'; |
$sec = 'none'; |
| |
} else { |
| |
$value .= $sec; |
| |
} |
| |
if (ref($courses{$cdom.'_'.$cnum}{$sec}) eq 'ARRAY') { |
| |
unless (grep(/^\Q$value\E$/,@{$courses{$cdom.'_'.$cnum}{$sec}})) { |
| |
push(@{$courses{$cdom.'_'.$cnum}{$sec}},$value); |
| |
} |
| |
} else { |
| |
@{$courses{$cdom.'_'.$cnum}{$sec}} = ($value); |
| } |
} |
| $courses{$cdom.'_'.$cnum}{$sec} = |
|
| $role.'/'.$cdom.'/'.$cnum.'/'.$sec; |
|
| } |
} |
| } |
} |
| } |
} |
|
Line 3950 sub findallcourses {
|
Line 4076 sub findallcourses {
|
| ############################################### |
############################################### |
| |
|
| sub blockcheck { |
sub blockcheck { |
| my ($setters,$activity,$uname,$udom) = @_; |
my ($setters,$activity,$uname,$udom,$url) = @_; |
| |
|
| if (!defined($udom)) { |
if (!defined($udom)) { |
| $udom = $env{'user.domain'}; |
$udom = $env{'user.domain'}; |
|
Line 3962 sub blockcheck {
|
Line 4088 sub blockcheck {
|
| # If uname and udom are for a course, check for blocks in the course. |
# If uname and udom are for a course, check for blocks in the course. |
| |
|
| if (&Apache::lonnet::is_course($udom,$uname)) { |
if (&Apache::lonnet::is_course($udom,$uname)) { |
| my %records = &Apache::lonnet::dump('comm_block',$udom,$uname); |
my ($startblock,$endblock,$triggerblock) = |
| my ($startblock,$endblock)=&get_blocks($setters,$activity,$udom,$uname); |
&get_blocks($setters,$activity,$udom,$uname,$url); |
| return ($startblock,$endblock); |
return ($startblock,$endblock,$triggerblock); |
| } |
} |
| |
|
| my $startblock = 0; |
my $startblock = 0; |
| my $endblock = 0; |
my $endblock = 0; |
| |
my $triggerblock = ''; |
| my %live_courses = &findallcourses(undef,$uname,$udom); |
my %live_courses = &findallcourses(undef,$uname,$udom); |
| |
|
| # If uname is for a user, and activity is course-specific, i.e., |
# If uname is for a user, and activity is course-specific, i.e., |
|
Line 4032 sub blockcheck {
|
Line 4159 sub blockcheck {
|
| if ($otheruser) { |
if ($otheruser) { |
| # Resource belongs to user other than current user. |
# Resource belongs to user other than current user. |
| # Assemble privs for that user, and check for 'evb' priv. |
# Assemble privs for that user, and check for 'evb' priv. |
| my ($trole,$tdom,$tnum,$tsec); |
my (%allroles,%userroles); |
| my $entry = $live_courses{$course}{$sec}; |
if (ref($live_courses{$course}{$sec}) eq 'ARRAY') { |
| if ($entry =~ /^cr/) { |
foreach my $entry (@{$live_courses{$course}{$sec}}) { |
| ($trole,$tdom,$tnum,$tsec) = |
my ($trole,$tdom,$tnum,$tsec); |
| ($entry =~ m|^(cr/$match_domain/$match_username/\w+)\./($match_domain)/($match_username)/?(\w*)$|); |
if ($entry =~ /^cr/) { |
| } else { |
($trole,$tdom,$tnum,$tsec) = |
| ($trole,$tdom,$tnum,$tsec) = split(/\//,$entry); |
($entry =~ m|^(cr/$match_domain/$match_username/\w+)\./($match_domain)/($match_username)/?(\w*)$|); |
| } |
} else { |
| my ($spec,$area,$trest,%allroles,%userroles); |
($trole,$tdom,$tnum,$tsec) = split(/\//,$entry); |
| $area = '/'.$tdom.'/'.$tnum; |
} |
| $trest = $tnum; |
my ($spec,$area,$trest); |
| if ($tsec ne '') { |
$area = '/'.$tdom.'/'.$tnum; |
| $area .= '/'.$tsec; |
$trest = $tnum; |
| $trest .= '/'.$tsec; |
if ($tsec ne '') { |
| } |
$area .= '/'.$tsec; |
| $spec = $trole.'.'.$area; |
$trest .= '/'.$tsec; |
| if ($trole =~ /^cr/) { |
} |
| &Apache::lonnet::custom_roleprivs(\%allroles,$trole, |
$spec = $trole.'.'.$area; |
| $tdom,$spec,$trest,$area); |
if ($trole =~ /^cr/) { |
| } else { |
&Apache::lonnet::custom_roleprivs(\%allroles,$trole, |
| &Apache::lonnet::standard_roleprivs(\%allroles,$trole, |
$tdom,$spec,$trest,$area); |
| $tdom,$spec,$trest,$area); |
} else { |
| } |
&Apache::lonnet::standard_roleprivs(\%allroles,$trole, |
| my ($author,$adv) = &Apache::lonnet::set_userprivs(\%userroles,\%allroles); |
$tdom,$spec,$trest,$area); |
| if ($userroles{'user.priv.'.$checkrole} =~ /evb\&([^\:]*)/) { |
} |
| if ($1) { |
} |
| $no_userblock = 1; |
my ($author,$adv) = &Apache::lonnet::set_userprivs(\%userroles,\%allroles); |
| last; |
if ($userroles{'user.priv.'.$checkrole} =~ /evb\&([^\:]*)/) { |
| |
if ($1) { |
| |
$no_userblock = 1; |
| |
last; |
| |
} |
| } |
} |
| } |
} |
| } else { |
} else { |
|
Line 4079 sub blockcheck {
|
Line 4210 sub blockcheck {
|
| # Retrieve blocking times and identity of locker for course |
# Retrieve blocking times and identity of locker for course |
| # of specified user, unless user has 'evb' privilege. |
# of specified user, unless user has 'evb' privilege. |
| |
|
| my ($start,$end)=&get_blocks($setters,$activity,$cdom,$cnum); |
my ($start,$end,$trigger) = |
| |
&get_blocks($setters,$activity,$cdom,$cnum,$url); |
| if (($start != 0) && |
if (($start != 0) && |
| (($startblock == 0) || ($startblock > $start))) { |
(($startblock == 0) || ($startblock > $start))) { |
| $startblock = $start; |
$startblock = $start; |
| |
if ($trigger ne '') { |
| |
$triggerblock = $trigger; |
| |
} |
| } |
} |
| if (($end != 0) && |
if (($end != 0) && |
| (($endblock == 0) || ($endblock < $end))) { |
(($endblock == 0) || ($endblock < $end))) { |
| $endblock = $end; |
$endblock = $end; |
| |
if ($trigger ne '') { |
| |
$triggerblock = $trigger; |
| |
} |
| } |
} |
| } |
} |
| return ($startblock,$endblock); |
return ($startblock,$endblock,$triggerblock); |
| } |
} |
| |
|
| sub get_blocks { |
sub get_blocks { |
| my ($setters,$activity,$cdom,$cnum) = @_; |
my ($setters,$activity,$cdom,$cnum,$url) = @_; |
| my $startblock = 0; |
my $startblock = 0; |
| my $endblock = 0; |
my $endblock = 0; |
| |
my $triggerblock = ''; |
| my $course = $cdom.'_'.$cnum; |
my $course = $cdom.'_'.$cnum; |
| $setters->{$course} = {}; |
$setters->{$course} = {}; |
| $setters->{$course}{'staff'} = []; |
$setters->{$course}{'staff'} = []; |
| $setters->{$course}{'times'} = []; |
$setters->{$course}{'times'} = []; |
| my %records = &Apache::lonnet::dump('comm_block',$cdom,$cnum); |
$setters->{$course}{'triggers'} = []; |
| foreach my $record (keys(%records)) { |
my (@blockers,%triggered); |
| my ($start,$end) = ($record =~ m/^(\d+)____(\d+)$/); |
my $now = time; |
| if ($start <= time && $end >= time) { |
my %commblocks = &Apache::lonnet::get_comm_blocks($cdom,$cnum); |
| my ($staff_name,$staff_dom,$title,$blocks) = |
if ($activity eq 'docs') { |
| &parse_block_record($records{$record}); |
@blockers = &Apache::lonnet::has_comm_blocking('bre',undef,$url,\%commblocks); |
| if ($blocks->{$activity} eq 'on') { |
foreach my $block (@blockers) { |
| push(@{$$setters{$course}{'staff'}},[$staff_name,$staff_dom]); |
if ($block =~ /^firstaccess____(.+)$/) { |
| push(@{$$setters{$course}{'times'}}, [$start,$end]); |
my $item = $1; |
| if ( ($startblock == 0) || ($startblock > $start) ) { |
my $type = 'map'; |
| $startblock = $start; |
my $timersymb = $item; |
| |
if ($item eq 'course') { |
| |
$type = 'course'; |
| |
} elsif ($item =~ /___\d+___/) { |
| |
$type = 'resource'; |
| |
} else { |
| |
$timersymb = &Apache::lonnet::symbread($item); |
| |
} |
| |
my $start = $env{'course.'.$cdom.'_'.$cnum.'.firstaccess.'.$timersymb}; |
| |
my $end = $start + $env{'course.'.$cdom.'_'.$cnum.'.timerinterval.'.$timersymb}; |
| |
$triggered{$block} = { |
| |
start => $start, |
| |
end => $end, |
| |
type => $type, |
| |
}; |
| |
} |
| |
} |
| |
} else { |
| |
foreach my $block (keys(%commblocks)) { |
| |
if ($block =~ m/^(\d+)____(\d+)$/) { |
| |
my ($start,$end) = ($1,$2); |
| |
if ($start <= time && $end >= time) { |
| |
if (ref($commblocks{$block}) eq 'HASH') { |
| |
if (ref($commblocks{$block}{'blocks'}) eq 'HASH') { |
| |
if ($commblocks{$block}{'blocks'}{$activity} eq 'on') { |
| |
unless(grep(/^\Q$block\E$/,@blockers)) { |
| |
push(@blockers,$block); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} elsif ($block =~ /^firstaccess____(.+)$/) { |
| |
my $item = $1; |
| |
my $timersymb = $item; |
| |
my $type = 'map'; |
| |
if ($item eq 'course') { |
| |
$type = 'course'; |
| |
} elsif ($item =~ /___\d+___/) { |
| |
$type = 'resource'; |
| |
} else { |
| |
$timersymb = &Apache::lonnet::symbread($item); |
| } |
} |
| if ( ($endblock == 0) || ($endblock < $end) ) { |
my $start = $env{'course.'.$cdom.'_'.$cnum.'.firstaccess.'.$timersymb}; |
| $endblock = $end; |
my $end = $start + $env{'course.'.$cdom.'_'.$cnum.'.timerinterval.'.$timersymb}; |
| |
if ($start && $end) { |
| |
if (($start <= time) && ($end >= time)) { |
| |
unless (grep(/^\Q$block\E$/,@blockers)) { |
| |
push(@blockers,$block); |
| |
$triggered{$block} = { |
| |
start => $start, |
| |
end => $end, |
| |
type => $type, |
| |
}; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
foreach my $blocker (@blockers) { |
| |
my ($staff_name,$staff_dom,$title,$blocks) = |
| |
&parse_block_record($commblocks{$blocker}); |
| |
push(@{$$setters{$course}{'staff'}},[$staff_name,$staff_dom]); |
| |
my ($start,$end,$triggertype); |
| |
if ($blocker =~ m/^(\d+)____(\d+)$/) { |
| |
($start,$end) = ($1,$2); |
| |
} elsif (ref($triggered{$blocker}) eq 'HASH') { |
| |
$start = $triggered{$blocker}{'start'}; |
| |
$end = $triggered{$blocker}{'end'}; |
| |
$triggertype = $triggered{$blocker}{'type'}; |
| |
} |
| |
if ($start) { |
| |
push(@{$$setters{$course}{'times'}}, [$start,$end]); |
| |
if ($triggertype) { |
| |
push(@{$$setters{$course}{'triggers'}},$triggertype); |
| |
} else { |
| |
push(@{$$setters{$course}{'triggers'}},0); |
| |
} |
| |
if ( ($startblock == 0) || ($startblock > $start) ) { |
| |
$startblock = $start; |
| |
if ($triggertype) { |
| |
$triggerblock = $blocker; |
| } |
} |
| } |
} |
| |
if ( ($endblock == 0) || ($endblock < $end) ) { |
| |
$endblock = $end; |
| |
if ($triggertype) { |
| |
$triggerblock = $blocker; |
| |
} |
| |
} |
| } |
} |
| } |
} |
| return ($startblock,$endblock); |
return ($startblock,$endblock,$triggerblock); |
| } |
} |
| |
|
| sub parse_block_record { |
sub parse_block_record { |
|
Line 4142 sub parse_block_record {
|
Line 4366 sub parse_block_record {
|
| } |
} |
| |
|
| sub blocking_status { |
sub blocking_status { |
| my ($activity,$uname,$udom) = @_; |
my ($activity,$uname,$udom,$url) = @_; |
| my %setters; |
my %setters; |
| |
|
| # check for active blocking |
# check for active blocking |
| my ($startblock,$endblock)=&blockcheck(\%setters,$activity,$uname,$udom); |
my ($startblock,$endblock,$triggerblock) = |
| |
&blockcheck(\%setters,$activity,$uname,$udom,$url); |
| my $blocked = $startblock && $endblock ? 1 : 0; |
my $blocked = 0; |
| |
if ($startblock && $endblock) { |
| # caller just wants to know whether a block is active |
$blocked = 1; |
| if (!wantarray) { return $blocked; } |
} |
| |
|
| # build a link to a popup window containing the details |
# caller just wants to know whether a block is active |
| my $querystring = "?activity=$activity"; |
if (!wantarray) { return $blocked; } |
| # $uname and $udom decide whose portfolio the user is trying to look at |
|
| $querystring .= "&udom=$udom" if $udom; |
# build a link to a popup window containing the details |
| $querystring .= "&uname=$uname" if $uname; |
my $querystring = "?activity=$activity"; |
| |
# $uname and $udom decide whose portfolio the user is trying to look at |
| my $output .= <<'END_MYBLOCK'; |
if ($activity eq 'port') { |
| function openWindow(url, wdwName, w, h, toolbar,scrollbar) { |
$querystring .= "&udom=$udom" if $udom; |
| var options = "width=" + w + ",height=" + h + ","; |
$querystring .= "&uname=$uname" if $uname; |
| options += "resizable=yes,scrollbars="+scrollbar+",status=no,"; |
} elsif ($activity eq 'docs') { |
| options += "menubar=no,toolbar="+toolbar+",location=no,directories=no"; |
$querystring .= '&url='.&HTML::Entities::encode($url,'&"'); |
| var newWin = window.open(url, wdwName, options); |
} |
| newWin.focus(); |
|
| } |
my $output .= <<'END_MYBLOCK'; |
| |
function openWindow(url, wdwName, w, h, toolbar,scrollbar) { |
| |
var options = "width=" + w + ",height=" + h + ","; |
| |
options += "resizable=yes,scrollbars="+scrollbar+",status=no,"; |
| |
options += "menubar=no,toolbar="+toolbar+",location=no,directories=no"; |
| |
var newWin = window.open(url, wdwName, options); |
| |
newWin.focus(); |
| |
} |
| END_MYBLOCK |
END_MYBLOCK |
| |
|
| $output = Apache::lonhtmlcommon::scripttag($output); |
$output = Apache::lonhtmlcommon::scripttag($output); |
| |
|
| my $popupUrl = "/adm/blockingstatus/$querystring"; |
my $popupUrl = "/adm/blockingstatus/$querystring"; |
| my $text = mt('Communication Blocked'); |
my $text = &mt('Communication Blocked'); |
| |
if ($activity eq 'docs') { |
| $output .= <<"END_BLOCK"; |
$text = &mt('Content Access Blocked'); |
| |
} elsif ($activity eq 'printout') { |
| |
$text = &mt('Printing Blocked'); |
| |
} |
| |
$output .= <<"END_BLOCK"; |
| <div class='LC_comblock'> |
<div class='LC_comblock'> |
| <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'> |
|
Line 4185 END_MYBLOCK
|
Line 4420 END_MYBLOCK
|
| |
|
| END_BLOCK |
END_BLOCK |
| |
|
| return ($blocked, $output); |
return ($blocked, $output); |
| } |
} |
| |
|
| ############################################### |
############################################### |
|
Line 4295 sub get_domainconf {
|
Line 4530 sub get_domainconf {
|
| if (ref($domconfig{'login'}{$key}) eq 'HASH') { |
if (ref($domconfig{'login'}{$key}) eq 'HASH') { |
| if ($key eq 'loginvia') { |
if ($key eq 'loginvia') { |
| if (ref($domconfig{'login'}{'loginvia'}) eq 'HASH') { |
if (ref($domconfig{'login'}{'loginvia'}) eq 'HASH') { |
| my @ids = &Apache::lonnet::current_machine_ids(); |
foreach my $hostname (keys(%{$domconfig{'login'}{'loginvia'}})) { |
| foreach my $hostname (@ids) { |
|
| if (ref($domconfig{'login'}{'loginvia'}{$hostname}) eq 'HASH') { |
if (ref($domconfig{'login'}{'loginvia'}{$hostname}) eq 'HASH') { |
| if ($domconfig{'login'}{'loginvia'}{$hostname}{'server'}) { |
if ($domconfig{'login'}{'loginvia'}{$hostname}{'server'}) { |
| my $server = $domconfig{'login'}{'loginvia'}{$hostname}{'server'}; |
my $server = $domconfig{'login'}{'loginvia'}{$hostname}{'server'}; |
|
Line 4305 sub get_domainconf {
|
Line 4539 sub get_domainconf {
|
| |
|
| $designhash{$udom.'.login.loginvia_'.$hostname} = $server.':'.$domconfig{'login'}{'loginvia'}{$hostname}{'custompath'}; |
$designhash{$udom.'.login.loginvia_'.$hostname} = $server.':'.$domconfig{'login'}{'loginvia'}{$hostname}{'custompath'}; |
| } else { |
} else { |
| $designhash{$udom.'.login.loginvia_'.$hostname} = $server.':'.$domconfig{'login'}{'loginvia'}{$hostname}{'serverpath'}; |
$designhash{$udom.'.login.loginvia_'.$hostname} = $server.':'.$domconfig{'login'}{'loginvia'}{$hostname}{'serverpath'}; |
| } |
} |
| if ($domconfig{'login'}{'loginvia'}{$hostname}{'exempt'}) { |
if ($domconfig{'login'}{'loginvia'}{$hostname}{'exempt'}) { |
| $designhash{$udom.'.login.loginvia_exempt_'.$hostname} = $domconfig{'login'}{'loginvia'}{$hostname}{'exempt'}; |
$designhash{$udom.'.login.loginvia_exempt_'.$hostname} = $domconfig{'login'}{'loginvia'}{$hostname}{'exempt'}; |
|
Line 4388 sub get_legacy_domconf {
|
Line 4622 sub get_legacy_domconf {
|
| close($fh); |
close($fh); |
| } |
} |
| } |
} |
| if (-e '/home/httpd/html/adm/lonDomLogos/'.$udom.'.gif') { |
if (-e $Apache::lonnet::perlvar{'lonDocRoot'}.'/adm/lonDomLogos/'.$udom.'.gif') { |
| $legacyhash{$udom.'.login.domlogo'} = "/adm/lonDomLogos/$udom.gif"; |
$legacyhash{$udom.'.login.domlogo'} = "/adm/lonDomLogos/$udom.gif"; |
| } |
} |
| return %legacyhash; |
return %legacyhash; |
|
Line 4446 sub designparm {
|
Line 4680 sub designparm {
|
| return $env{'environment.color.'.$which}; |
return $env{'environment.color.'.$which}; |
| } |
} |
| $domain=&determinedomain($domain); |
$domain=&determinedomain($domain); |
| my %domdesign = &get_domainconf($domain); |
my %domdesign; |
| |
unless ($domain eq 'public') { |
| |
%domdesign = &get_domainconf($domain); |
| |
} |
| my $output; |
my $output; |
| if ($domdesign{$domain.'.'.$which} ne '') { |
if ($domdesign{$domain.'.'.$which} ne '') { |
| $output = $domdesign{$domain.'.'.$which}; |
$output = $domdesign{$domain.'.'.$which}; |
|
Line 4471 sub designparm {
|
Line 4708 sub designparm {
|
| |
|
| =item * &authorspace() |
=item * &authorspace() |
| |
|
| Inputs: ./. |
Inputs: $url (usually will be undef). |
| |
|
| Returns: Path to the Construction Space of the current user's |
Returns: Path to Construction Space containing the resource or |
| accessed author space |
directory being viewed (or for which action is being taken). |
| The author space will be that of the current user |
If $url is provided, and begins /priv/<domain>/<uname> |
| when accessing the own author space |
the path will be that portion of the $context argument. |
| and that of the co-author/assistent co-author |
Otherwise the path will be for the author space of the current |
| when accessing the co-author's/assistent co-author's |
user when the current role is author, or for that of the |
| space |
co-author/assistant co-author space when the current role |
| |
is co-author or assistant co-author. |
| |
|
| =cut |
=cut |
| |
|
| sub authorspace { |
sub authorspace { |
| |
my ($url) = @_; |
| |
if ($url ne '') { |
| |
if ($url =~ m{^(/priv/$match_domain/$match_username/)}) { |
| |
return $1; |
| |
} |
| |
} |
| my $caname = ''; |
my $caname = ''; |
| if ($env{'request.role'} =~ /^ca|^aa/) { |
my $cadom = ''; |
| (undef,$caname) = |
if ($env{'request.role'} =~ /^(?:ca|aa)/) { |
| |
($cadom,$caname) = |
| ($env{'request.role'}=~/($match_domain)\/($match_username)$/); |
($env{'request.role'}=~/($match_domain)\/($match_username)$/); |
| } else { |
} elsif ($env{'request.role'} =~ m{^au\./($match_domain)/}) { |
| $caname = $env{'user.name'}; |
$caname = $env{'user.name'}; |
| |
$cadom = $env{'user.domain'}; |
| } |
} |
| return '/priv/'.$caname.'/'; |
if (($caname ne '') && ($cadom ne '')) { |
| |
return "/priv/$cadom/$caname/"; |
| |
} |
| |
return; |
| } |
} |
| |
|
| ############################################## |
############################################## |
|
Line 4519 sub head_subbox {
|
Line 4768 sub head_subbox {
|
| |
|
| =item * &CSTR_pageheader() |
=item * &CSTR_pageheader() |
| |
|
| Inputs: ./. |
Input: (optional) filename from which breadcrumb trail is built. |
| |
In most cases no input as needed, as $env{'request.filename'} |
| |
is appropriate for use in building the breadcrumb trail. |
| |
|
| Returns: HTML div with CSTR path and recent box |
Returns: HTML div with CSTR path and recent box |
| To be included on Construction Space pages |
To be included on Construction Space pages |
|
Line 4527 Returns: HTML div with CSTR path and rec
|
Line 4778 Returns: HTML div with CSTR path and rec
|
| =cut |
=cut |
| |
|
| sub CSTR_pageheader { |
sub CSTR_pageheader { |
| # this is for resources; directories have customtitle, and crumbs |
my ($trailfile) = @_; |
| # and select recent are created in lonpubdir.pm |
if ($trailfile eq '') { |
| my ($uname,$thisdisfn)= |
$trailfile = $env{'request.filename'}; |
| ($env{'request.filename'} =~ m|^/home/([^/]+)/public_html/(.*)|); |
} |
| my $formaction='/priv/'.$uname.'/'.$thisdisfn; |
|
| $formaction=~s/\/+/\//g; |
# this is for resources; directories have customtitle, and crumbs |
| |
# and select recent are created in lonpubdir.pm |
| |
|
| |
my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'}; |
| |
my ($udom,$uname,$thisdisfn)= |
| |
($trailfile =~ m{^\Q$londocroot\E/priv/([^/]+)/([^/]+)/(.*)$}); |
| |
my $formaction = "/priv/$udom/$uname/$thisdisfn"; |
| |
$formaction =~ s{/+}{/}g; |
| |
|
| my $parentpath = ''; |
my $parentpath = ''; |
| my $lastitem = ''; |
my $lastitem = ''; |
|
Line 4549 sub CSTR_pageheader {
|
Line 4807 sub CSTR_pageheader {
|
| .'<b>'.&mt('Construction Space:').'</b> ' |
.'<b>'.&mt('Construction Space:').'</b> ' |
| .'<form name="dirs" method="post" action="'.$formaction |
.'<form name="dirs" method="post" action="'.$formaction |
| .'" target="_top">' #FIXME lonpubdir: target="_parent" |
.'" target="_top">' #FIXME lonpubdir: target="_parent" |
| .&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv',undef,undef); |
.&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv/'.$udom,undef,undef); |
| |
|
| if ($lastitem) { |
if ($lastitem) { |
| $output .= |
$output .= |
|
Line 4861 sub standard_css {
|
Line 5119 sub standard_css {
|
| my $mono = 'monospace'; |
my $mono = 'monospace'; |
| my $data_table_head = $sidebg; |
my $data_table_head = $sidebg; |
| my $data_table_light = '#FAFAFA'; |
my $data_table_light = '#FAFAFA'; |
| my $data_table_dark = '#F0F0F0'; |
my $data_table_dark = '#E0E0E0'; |
| my $data_table_darker = '#CCCCCC'; |
my $data_table_darker = '#CCCCCC'; |
| my $data_table_highlight = '#FFFF00'; |
my $data_table_highlight = '#FFFF00'; |
| my $mail_new = '#FFBB77'; |
my $mail_new = '#FFBB77'; |
|
Line 4901 body {
|
Line 5159 body {
|
| a:focus, |
a:focus, |
| a:focus img { |
a:focus img { |
| color: red; |
color: red; |
| background: yellow; |
|
| } |
} |
| |
|
| form, .inline { |
form, .inline { |
|
Line 4948 form, .inline {
|
Line 5205 form, .inline {
|
| text-decoration:none; |
text-decoration:none; |
| } |
} |
| |
|
| |
.LC_setting { |
| |
text-decoration:underline; |
| |
} |
| |
|
| .LC_error { |
.LC_error { |
| color: red; |
color: red; |
| font-size: larger; |
font-size: larger; |
|
Line 4992 div.LC_confirm_box .LC_success img {
|
Line 5253 div.LC_confirm_box .LC_success img {
|
| } |
} |
| |
|
| .LC_discussion { |
.LC_discussion { |
| background: $tabbg; |
background: $data_table_dark; |
| border: 1px solid black; |
border: 1px solid black; |
| margin: 2px; |
margin: 2px; |
| } |
} |
| |
|
| .LC_disc_action_links_bar { |
|
| background: $tabbg; |
|
| border: none; |
|
| margin: 4px; |
|
| } |
|
| |
|
| .LC_disc_action_left { |
.LC_disc_action_left { |
| |
background: $sidebg; |
| text-align: left; |
text-align: left; |
| |
padding: 4px; |
| |
margin: 2px; |
| } |
} |
| |
|
| .LC_disc_action_right { |
.LC_disc_action_right { |
| |
background: $sidebg; |
| text-align: right; |
text-align: right; |
| |
padding: 4px; |
| |
margin: 2px; |
| } |
} |
| |
|
| .LC_disc_new_item { |
.LC_disc_new_item { |
| background: white; |
background: white; |
| border: 2px solid red; |
border: 2px solid red; |
| margin: 2px; |
margin: 4px; |
| |
padding: 4px; |
| } |
} |
| |
|
| .LC_disc_old_item { |
.LC_disc_old_item { |
| background: white; |
background: white; |
| border: 1px solid black; |
margin: 4px; |
| margin: 2px; |
padding: 4px; |
| } |
} |
| |
|
| table.LC_pastsubmission { |
table.LC_pastsubmission { |
|
Line 5142 td.LC_table_cell_checkbox {
|
Line 5404 td.LC_table_cell_checkbox {
|
| vertical-align: middle; |
vertical-align: middle; |
| } |
} |
| |
|
| li.LC_menubuttons_inline_text img,a { |
li.LC_menubuttons_inline_text img { |
| cursor:pointer; |
cursor:pointer; |
| text-decoration: none; |
text-decoration: none; |
| } |
} |
|
Line 5192 table.LC_nested {
|
Line 5454 table.LC_nested {
|
| width: 100%; |
width: 100%; |
| } |
} |
| |
|
| .ui-accordion, |
|
| .ui-accordion table.LC_data_table, |
|
| .ui-accordion table.LC_nested_outer{ |
|
| border: 0px; |
|
| border-spacing: 0px; |
|
| margin: 3px; |
|
| } |
|
| |
|
| table.LC_data_table tr th, |
table.LC_data_table tr th, |
| table.LC_calendar tr th, |
table.LC_calendar tr th, |
| table.LC_prior_tries tr th, |
table.LC_prior_tries tr th, |
|
Line 5315 table.LC_nested tr td.LC_right_item {
|
Line 5569 table.LC_nested tr td.LC_right_item {
|
| text-align: right; |
text-align: right; |
| } |
} |
| |
|
| .ui-accordion table.LC_nested tr.LC_odd_row td.LC_left_item, |
|
| .ui-accordion table.LC_nested tr.LC_even_row td.LC_left_item { |
|
| text-align: right; |
|
| width: 40%; |
|
| padding-right:10px; |
|
| vertical-align: top; |
|
| padding: 5px; |
|
| } |
|
| |
|
| .ui-accordion table.LC_nested tr.LC_odd_row td.LC_right_item, |
|
| .ui-accordion table.LC_nested tr.LC_even_row td.LC_right_item { |
|
| text-align: left; |
|
| width: 60%; |
|
| padding: 2px 4px; |
|
| } |
|
| |
|
| table.LC_nested tr.LC_odd_row td { |
table.LC_nested tr.LC_odd_row td { |
| background-color: #EEEEEE; |
background-color: #EEEEEE; |
| } |
} |
|
Line 5462 span.LC_current_location {
|
Line 5700 span.LC_current_location {
|
| background: $pgbg; |
background: $pgbg; |
| } |
} |
| |
|
| |
span.LC_current_nav_location { |
| |
font-weight:bold; |
| |
background: $sidebg; |
| |
} |
| |
|
| span.LC_parm_menu_item { |
span.LC_parm_menu_item { |
| font-size: larger; |
font-size: larger; |
| } |
} |
|
Line 5963 div.LC_edit_problem_footer {
|
Line 6206 div.LC_edit_problem_footer {
|
| font-weight: normal; |
font-weight: normal; |
| font-size: medium; |
font-size: medium; |
| margin: 2px; |
margin: 2px; |
| |
background-color: $sidebg; |
| } |
} |
| |
|
| div.LC_edit_problem_header, |
div.LC_edit_problem_header, |
|
Line 5979 div.LC_edit_problem_header_title {
|
Line 6223 div.LC_edit_problem_header_title {
|
| font-size: larger; |
font-size: larger; |
| background: $tabbg; |
background: $tabbg; |
| padding: 3px; |
padding: 3px; |
| |
margin: 0 0 5px 0; |
| } |
} |
| |
|
| table.LC_edit_problem_header_title { |
table.LC_edit_problem_header_title { |
|
Line 6016 div.LC_createcourse {
|
Line 6261 div.LC_createcourse {
|
| display:none; |
display:none; |
| } |
} |
| |
|
| a:hover, |
|
| ol.LC_primary_menu a:hover, |
ol.LC_primary_menu a:hover, |
| ol#LC_MenuBreadcrumbs a:hover, |
ol#LC_MenuBreadcrumbs a:hover, |
| ol#LC_PathBreadcrumbs a:hover, |
ol#LC_PathBreadcrumbs a:hover, |
|
Line 6187 ul.LC_TabContent {
|
Line 6431 ul.LC_TabContent {
|
| background: $sidebg; |
background: $sidebg; |
| border-bottom: solid 1px $lg_border_color; |
border-bottom: solid 1px $lg_border_color; |
| list-style:none; |
list-style:none; |
| margin: 0 -10px; |
margin: -1px -10px 0 -10px; |
| padding: 0; |
padding: 0; |
| } |
} |
| |
|
|
Line 6210 ul.LC_TabContent li {
|
Line 6454 ul.LC_TabContent li {
|
| padding: 0 16px 0 10px; |
padding: 0 16px 0 10px; |
| background-color:$tabbg; |
background-color:$tabbg; |
| border-bottom:solid 1px $lg_border_color; |
border-bottom:solid 1px $lg_border_color; |
| border-right: solid 1px $font; |
border-left: solid 1px $font; |
| } |
} |
| |
|
| ul.LC_TabContent .right { |
ul.LC_TabContent .right { |
|
Line 6250 ul.LC_TabContent li.active a {
|
Line 6494 ul.LC_TabContent li.active a {
|
| background:#FFFFFF; |
background:#FFFFFF; |
| outline: none; |
outline: none; |
| } |
} |
| |
|
| |
ul.LC_TabContent li.goback { |
| |
float: left; |
| |
border-left: none; |
| |
} |
| |
|
| #maincoursedoc { |
#maincoursedoc { |
| clear:both; |
clear:both; |
| } |
} |
|
Line 6309 ul.LC_TabContentBigger li.active b {
|
Line 6559 ul.LC_TabContentBigger li.active b {
|
| |
|
| ul.LC_CourseBreadcrumbs { |
ul.LC_CourseBreadcrumbs { |
| background: $sidebg; |
background: $sidebg; |
| line-height: 32px; |
height: 2em; |
| padding-left: 10px; |
padding-left: 10px; |
| margin: 0 0 10px 0; |
margin: 0; |
| list-style-position: inside; |
list-style-position: inside; |
| |
|
| } |
} |
| |
|
| ol#LC_MenuBreadcrumbs, |
ol#LC_MenuBreadcrumbs, |
|
Line 6355 ol#LC_PathBreadcrumbs li a {
|
Line 6604 ol#LC_PathBreadcrumbs li a {
|
| padding: 0 10px 10px 10px; |
padding: 0 10px 10px 10px; |
| } |
} |
| |
|
| |
.LC_DocsBox { |
| |
border: solid 1px $lg_border_color; |
| |
padding: 0 0 10px 10px; |
| |
} |
| |
|
| .LC_AboutMe_Image { |
.LC_AboutMe_Image { |
| float:left; |
float:left; |
| margin-right:10px; |
margin-right:10px; |
|
Line 6495 a#LC_content_toolbar_changefolder_toggle
|
Line 6749 a#LC_content_toolbar_changefolder_toggle
|
| background-image:url(/res/adm/pages/open-all-folders.gif); |
background-image:url(/res/adm/pages/open-all-folders.gif); |
| } |
} |
| |
|
| |
a#LC_content_toolbar_edittoplevel { |
| |
background-image:url(/res/adm/pages/edittoplevel.gif); |
| |
} |
| |
|
| ul#LC_toolbar li a:hover { |
ul#LC_toolbar li a:hover { |
| background-position: bottom center; |
background-position: bottom center; |
| } |
} |
|
Line 6559 ul.LC_funclist li {
|
Line 6817 ul.LC_funclist li {
|
| line-height: 150%; |
line-height: 150%; |
| } |
} |
| |
|
| .ui-accordion .LC_advanced_toggle { |
|
| float: right; |
|
| font-size: 90%; |
|
| padding: 0px 4px |
|
| } |
|
| |
|
| .LC_hidden { |
.LC_hidden { |
| display: none; |
display: none; |
| } |
} |
| |
|
| |
.LCmodal-overlay { |
| |
position:fixed; |
| |
top:0; |
| |
right:0; |
| |
bottom:0; |
| |
left:0; |
| |
height:100%; |
| |
width:100%; |
| |
margin:0; |
| |
padding:0; |
| |
background:#999; |
| |
opacity:.75; |
| |
filter: alpha(opacity=75); |
| |
-moz-opacity: 0.75; |
| |
z-index:101; |
| |
} |
| |
|
| |
* html .LCmodal-overlay { |
| |
position: absolute; |
| |
height: expression(document.body.scrollHeight > document.body.offsetHeight ? document.body.scrollHeight : document.body.offsetHeight + 'px'); |
| |
} |
| |
|
| |
.LCmodal-window { |
| |
position:fixed; |
| |
top:50%; |
| |
left:50%; |
| |
margin:0; |
| |
padding:0; |
| |
z-index:102; |
| |
} |
| |
|
| |
* html .LCmodal-window { |
| |
position:absolute; |
| |
} |
| |
|
| |
.LCclose-window { |
| |
position:absolute; |
| |
width:32px; |
| |
height:32px; |
| |
right:8px; |
| |
top:8px; |
| |
background:transparent url('/res/adm/pages/process-stop.png') no-repeat scroll right top; |
| |
text-indent:-99999px; |
| |
overflow:hidden; |
| |
cursor:pointer; |
| |
} |
| |
|
| END |
END |
| } |
} |
| |
|
|
Line 6617 sub headtag {
|
Line 6916 sub headtag {
|
| '<head>'. |
'<head>'. |
| &font_settings(); |
&font_settings(); |
| |
|
| |
my $inhibitprint = &print_suppression(); |
| |
|
| if (!$args->{'frameset'}) { |
if (!$args->{'frameset'}) { |
| $result .= &Apache::lonhtmlcommon::htmlareaheaders(); |
$result .= &Apache::lonhtmlcommon::htmlareaheaders(); |
| } |
} |
|
Line 6627 sub headtag {
|
Line 6928 sub headtag {
|
| && !$args->{'only_body'} |
&& !$args->{'only_body'} |
| && !$args->{'frameset'}) { |
&& !$args->{'frameset'}) { |
| $result .= &help_menu_js(); |
$result .= &help_menu_js(); |
| |
$result.=&modal_window(); |
| |
$result.=&togglebox_script(); |
| |
$result.=&wishlist_window(); |
| |
$result.=&LCprogressbarUpdate_script(); |
| |
} else { |
| |
if ($args->{'add_modal'}) { |
| |
$result.=&modal_window(); |
| |
} |
| |
if ($args->{'add_wishlist'}) { |
| |
$result.=&wishlist_window(); |
| |
} |
| |
if ($args->{'add_togglebox'}) { |
| |
$result.=&togglebox_script(); |
| |
} |
| |
if ($args->{'add_progressbar'}) { |
| |
$result.=&LCprogressbarUpdate_script(); |
| |
} |
| } |
} |
| |
|
| if (ref($args->{'redirect'})) { |
if (ref($args->{'redirect'})) { |
| my ($time,$url,$inhibit_continue) = @{$args->{'redirect'}}; |
my ($time,$url,$inhibit_continue) = @{$args->{'redirect'}}; |
| $url = &Apache::lonenc::check_encrypt($url); |
$url = &Apache::lonenc::check_encrypt($url); |
|
Line 6646 ADDMETA
|
Line 6963 ADDMETA
|
| 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.'" />' |
| |
.$inhibitprint |
| .$head_extra; |
.$head_extra; |
| return $result.'</head>'; |
return $result.'</head>'; |
| } |
} |
|
Line 6671 sub font_settings {
|
Line 6989 sub font_settings {
|
| |
|
| =pod |
=pod |
| |
|
| |
=item * &print_suppression() |
| |
|
| |
In course context returns css which causes the body to be blank when media="print", |
| |
if printout generation is unavailable for the current resource. |
| |
|
| |
This could be because: |
| |
|
| |
(a) printstartdate is in the future |
| |
|
| |
(b) printenddate is in the past |
| |
|
| |
(c) there is an active exam block with "printout" |
| |
functionality blocked |
| |
|
| |
Users with pav, pfo or evb privileges are exempt. |
| |
|
| |
Inputs: none |
| |
|
| |
=cut |
| |
|
| |
|
| |
sub print_suppression { |
| |
my $noprint; |
| |
if ($env{'request.course.id'}) { |
| |
my $scope = $env{'request.course.id'}; |
| |
if ((&Apache::lonnet::allowed('pav',$scope)) || |
| |
(&Apache::lonnet::allowed('pfo',$scope))) { |
| |
return; |
| |
} |
| |
if ($env{'request.course.sec'} ne '') { |
| |
$scope .= "/$env{'request.course.sec'}"; |
| |
if ((&Apache::lonnet::allowed('pav',$scope)) || |
| |
(&Apache::lonnet::allowed('pfo',$scope))) { |
| |
return; |
| |
} |
| |
} |
| |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
| |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
| |
my $blocked = &blocking_status('printout',$cnum,$cdom); |
| |
if ($blocked) { |
| |
my $checkrole = "cm./$cdom/$cnum"; |
| |
if ($env{'request.course.sec'} ne '') { |
| |
$checkrole .= "/$env{'request.course.sec'}"; |
| |
} |
| |
unless ((&Apache::lonnet::allowed('evb',undef,undef,$checkrole)) && |
| |
($env{'request.role'} !~ m{^st\./$cdom/$cnum})) { |
| |
$noprint = 1; |
| |
} |
| |
} |
| |
unless ($noprint) { |
| |
my $symb = &Apache::lonnet::symbread(); |
| |
if ($symb ne '') { |
| |
my $navmap = Apache::lonnavmaps::navmap->new(); |
| |
if (ref($navmap)) { |
| |
my $res = $navmap->getBySymb($symb); |
| |
if (ref($res)) { |
| |
if (!$res->resprintable()) { |
| |
$noprint = 1; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
if ($noprint) { |
| |
return <<"ENDSTYLE"; |
| |
<style type="text/css" media="print"> |
| |
body { display:none } |
| |
</style> |
| |
ENDSTYLE |
| |
} |
| |
} |
| |
return; |
| |
} |
| |
|
| |
=pod |
| |
|
| =item * &xml_begin() |
=item * &xml_begin() |
| |
|
| Returns the needed doctype and <html> |
Returns the needed doctype and <html> |
|
Line 6753 $args - additional optional args support
|
Line 7147 $args - additional optional args support
|
| sub start_page { |
sub start_page { |
| my ($title,$head_extra,$args) = @_; |
my ($title,$head_extra,$args) = @_; |
| #&Apache::lonnet::logthis("start_page ".join(':',caller(0))); |
#&Apache::lonnet::logthis("start_page ".join(':',caller(0))); |
| #SD |
|
| #I don't see why we copy certain elements of %$args to %head_args |
|
| #head args is passed to headtag() and this routine only reads those |
|
| #keys that are needed. There doesn't happen any writes or any processing |
|
| #of other keys. |
|
| #proposal: just pass $args to headtag instead of \%head_args and delete |
|
| #marked lines |
|
| #<- MARK |
|
| my %head_args; |
|
| foreach my $arg ('redirect','force_register','domain','function', |
|
| 'bgcolor','frameset','no_nav_bar','only_body', |
|
| 'no_auto_mt_title') { |
|
| if (defined($args->{$arg})) { |
|
| $head_args{$arg} = $args->{$arg}; |
|
| } |
|
| } |
|
| #MARK -> |
|
| |
|
| $env{'internal.start_page'}++; |
$env{'internal.start_page'}++; |
| my $result; |
my $result; |
| |
|
| if (! exists($args->{'skip_phases'}{'head'}) ) { |
if (! exists($args->{'skip_phases'}{'head'}) ) { |
| $result .= |
$result .= &xml_begin() . &headtag($title, $head_extra, $args); |
| &xml_begin() . &headtag($title,$head_extra,\%head_args); |
|
| #replace prev line by |
|
| # &xml_begin() . &headtag($title, $head_extra, $args); |
|
| } |
} |
| |
|
| if (! exists($args->{'skip_phases'}{'body'}) ) { |
if (! exists($args->{'skip_phases'}{'body'}) ) { |
|
Line 6844 sub end_page {
|
Line 7218 sub end_page {
|
| } |
} |
| $result .= &Apache::lonxml::xmlend($target,$parser); |
$result .= &Apache::lonxml::xmlend($target,$parser); |
| } |
} |
| |
|
| if ($args->{'frameset'}) { |
if ($args->{'frameset'}) { |
| $result .= '</frameset>'; |
$result .= '</frameset>'; |
| } else { |
} else { |
|
Line 6863 sub end_page {
|
Line 7236 sub end_page {
|
| return $result; |
return $result; |
| } |
} |
| |
|
| |
sub wishlist_window { |
| |
return(<<'ENDWISHLIST'); |
| |
<script type="text/javascript"> |
| |
// <![CDATA[ |
| |
// <!-- BEGIN LON-CAPA Internal |
| |
function set_wishlistlink(title, path) { |
| |
if (!title) { |
| |
title = document.title; |
| |
title = title.replace(/^LON-CAPA /,''); |
| |
} |
| |
if (!path) { |
| |
path = location.pathname; |
| |
} |
| |
Win = window.open('/adm/wishlist?mode=newLink&setTitle='+title+'&setPath='+path, |
| |
'wishlistNewLink','width=560,height=350,scrollbars=0'); |
| |
} |
| |
// END LON-CAPA Internal --> |
| |
// ]]> |
| |
</script> |
| |
ENDWISHLIST |
| |
} |
| |
|
| |
sub modal_window { |
| |
return(<<'ENDMODAL'); |
| |
<script type="text/javascript"> |
| |
// <![CDATA[ |
| |
// <!-- BEGIN LON-CAPA Internal |
| |
var modalWindow = { |
| |
parent:"body", |
| |
windowId:null, |
| |
content:null, |
| |
width:null, |
| |
height:null, |
| |
close:function() |
| |
{ |
| |
$(".LCmodal-window").remove(); |
| |
$(".LCmodal-overlay").remove(); |
| |
}, |
| |
open:function() |
| |
{ |
| |
var modal = ""; |
| |
modal += "<div class=\"LCmodal-overlay\"></div>"; |
| |
modal += "<div id=\"" + this.windowId + "\" class=\"LCmodal-window\" style=\"width:" + this.width + "px; height:" + this.height + "px; margin-top:-" + (this.height / 2) + "px; margin-left:-" + (this.width / 2) + "px;\">"; |
| |
modal += this.content; |
| |
modal += "</div>"; |
| |
|
| |
$(this.parent).append(modal); |
| |
|
| |
$(".LCmodal-window").append("<a class=\"LCclose-window\"></a>"); |
| |
$(".LCclose-window").click(function(){modalWindow.close();}); |
| |
$(".LCmodal-overlay").click(function(){modalWindow.close();}); |
| |
} |
| |
}; |
| |
var openMyModal = function(source,width,height,scrolling) |
| |
{ |
| |
modalWindow.windowId = "myModal"; |
| |
modalWindow.width = width; |
| |
modalWindow.height = height; |
| |
modalWindow.content = "<iframe width='"+width+"' height='"+height+"' frameborder='0' scrolling='"+scrolling+"' allowtransparency='true' src='" + source + "'></iframe>"; |
| |
modalWindow.open(); |
| |
}; |
| |
// END LON-CAPA Internal --> |
| |
// ]]> |
| |
</script> |
| |
ENDMODAL |
| |
} |
| |
|
| |
sub modal_link { |
| |
my ($link,$linktext,$width,$height,$target,$scrolling,$title)=@_; |
| |
unless ($width) { $width=480; } |
| |
unless ($height) { $height=400; } |
| |
unless ($scrolling) { $scrolling='yes'; } |
| |
return '<a href="'.$link.'" target="'.$target.'" title="'.$title.'" onclick="openMyModal(\''.$link.'\','.$width.','.$height.',\''.$scrolling.'\'); return false;">'. |
| |
$linktext.'</a>'; |
| |
} |
| |
|
| |
sub modal_adhoc_script { |
| |
my ($funcname,$width,$height,$content)=@_; |
| |
return (<<ENDADHOC); |
| |
<script type="text/javascript"> |
| |
// <![CDATA[ |
| |
var $funcname = function() |
| |
{ |
| |
modalWindow.windowId = "myModal"; |
| |
modalWindow.width = $width; |
| |
modalWindow.height = $height; |
| |
modalWindow.content = '$content'; |
| |
modalWindow.open(); |
| |
}; |
| |
// ]]> |
| |
</script> |
| |
ENDADHOC |
| |
} |
| |
|
| |
sub modal_adhoc_inner { |
| |
my ($funcname,$width,$height,$content)=@_; |
| |
my $innerwidth=$width-20; |
| |
$content=&js_ready( |
| |
&start_page('Dialog',undef,{'only_body'=>1,'bgcolor'=>'#FFFFFF'}). |
| |
&start_scrollbox($width.'px',$innerwidth.'px',$height.'px'). |
| |
$content. |
| |
&end_scrollbox(). |
| |
&end_page() |
| |
); |
| |
return &modal_adhoc_script($funcname,$width,$height,$content); |
| |
} |
| |
|
| |
sub modal_adhoc_window { |
| |
my ($funcname,$width,$height,$content,$linktext)=@_; |
| |
return &modal_adhoc_inner($funcname,$width,$height,$content). |
| |
"<a href=\"javascript:$funcname();void(0);\">".$linktext."</a>"; |
| |
} |
| |
|
| |
sub modal_adhoc_launch { |
| |
my ($funcname,$width,$height,$content)=@_; |
| |
return &modal_adhoc_inner($funcname,$width,$height,$content).(<<ENDLAUNCH); |
| |
<script type="text/javascript"> |
| |
// <![CDATA[ |
| |
$funcname(); |
| |
// ]]> |
| |
</script> |
| |
ENDLAUNCH |
| |
} |
| |
|
| |
sub modal_adhoc_close { |
| |
return (<<ENDCLOSE); |
| |
<script type="text/javascript"> |
| |
// <![CDATA[ |
| |
modalWindow.close(); |
| |
// ]]> |
| |
</script> |
| |
ENDCLOSE |
| |
} |
| |
|
| |
sub togglebox_script { |
| |
return(<<ENDTOGGLE); |
| |
<script type="text/javascript"> |
| |
// <![CDATA[ |
| |
function LCtoggleDisplay(id,hidetext,showtext) { |
| |
link = document.getElementById(id + "link").childNodes[0]; |
| |
with (document.getElementById(id).style) { |
| |
if (display == "none" ) { |
| |
display = "inline"; |
| |
link.nodeValue = hidetext; |
| |
} else { |
| |
display = "none"; |
| |
link.nodeValue = showtext; |
| |
} |
| |
} |
| |
} |
| |
// ]]> |
| |
</script> |
| |
ENDTOGGLE |
| |
} |
| |
|
| |
sub start_togglebox { |
| |
my ($id,$heading,$headerbg,$hidetext,$showtext)=@_; |
| |
unless ($heading) { $heading=''; } else { $heading.=' '; } |
| |
unless ($showtext) { $showtext=&mt('show'); } |
| |
unless ($hidetext) { $hidetext=&mt('hide'); } |
| |
unless ($headerbg) { $headerbg='#FFFFFF'; } |
| |
return &start_data_table(). |
| |
&start_data_table_header_row(). |
| |
'<td bgcolor="'.$headerbg.'">'.$heading. |
| |
'[<a id="'.$id.'link" href="javascript:LCtoggleDisplay(\''.$id.'\',\''.$hidetext.'\',\''. |
| |
$showtext.'\')">'.$showtext.'</a>]</td>'. |
| |
&end_data_table_header_row(). |
| |
'<tr id="'.$id.'" style="display:none""><td>'; |
| |
} |
| |
|
| |
sub end_togglebox { |
| |
return '</td></tr>'.&end_data_table(); |
| |
} |
| |
|
| |
sub LCprogressbar_script { |
| |
my ($id)=@_; |
| |
return(<<ENDPROGRESS); |
| |
<script type="text/javascript"> |
| |
// <![CDATA[ |
| |
\$('#progressbar$id').progressbar({ |
| |
value: 0, |
| |
change: function(event, ui) { |
| |
var newVal = \$(this).progressbar('option', 'value'); |
| |
\$('.pblabel', this).text(LCprogressTxt); |
| |
} |
| |
}); |
| |
// ]]> |
| |
</script> |
| |
ENDPROGRESS |
| |
} |
| |
|
| |
sub LCprogressbarUpdate_script { |
| |
return(<<ENDPROGRESSUPDATE); |
| |
<style type="text/css"> |
| |
.ui-progressbar { position:relative; } |
| |
.pblabel { position: absolute; width: 100%; text-align: center; line-height: 1.9em; } |
| |
</style> |
| |
<script type="text/javascript"> |
| |
// <![CDATA[ |
| |
var LCprogressTxt='---'; |
| |
|
| |
function LCupdateProgress(percent,progresstext,id) { |
| |
LCprogressTxt=progresstext; |
| |
\$('#progressbar'+id).progressbar('value',percent); |
| |
} |
| |
// ]]> |
| |
</script> |
| |
ENDPROGRESSUPDATE |
| |
} |
| |
|
| |
my $LClastpercent; |
| |
my $LCidcnt; |
| |
my $LCcurrentid; |
| |
|
| |
sub LCprogressbar { |
| |
my ($r)=(@_); |
| |
$LClastpercent=0; |
| |
$LCidcnt++; |
| |
$LCcurrentid=$$.'_'.$LCidcnt; |
| |
my $starting=&mt('Starting'); |
| |
my $content=(<<ENDPROGBAR); |
| |
<p> |
| |
<div id="progressbar$LCcurrentid"> |
| |
<span class="pblabel">$starting</span> |
| |
</div> |
| |
</p> |
| |
ENDPROGBAR |
| |
&r_print($r,$content.&LCprogressbar_script($LCcurrentid)); |
| |
} |
| |
|
| |
sub LCprogressbarUpdate { |
| |
my ($r,$val,$text)=@_; |
| |
unless ($val) { |
| |
if ($LClastpercent) { |
| |
$val=$LClastpercent; |
| |
} else { |
| |
$val=0; |
| |
} |
| |
} |
| |
if ($val<0) { $val=0; } |
| |
if ($val>100) { $val=0; } |
| |
$LClastpercent=$val; |
| |
unless ($text) { $text=$val.'%'; } |
| |
$text=&js_ready($text); |
| |
&r_print($r,<<ENDUPDATE); |
| |
<script type="text/javascript"> |
| |
// <![CDATA[ |
| |
LCupdateProgress($val,'$text','$LCcurrentid'); |
| |
// ]]> |
| |
</script> |
| |
ENDUPDATE |
| |
} |
| |
|
| |
sub LCprogressbarClose { |
| |
my ($r)=@_; |
| |
$LClastpercent=0; |
| |
&r_print($r,<<ENDCLOSE); |
| |
<script type="text/javascript"> |
| |
// <![CDATA[ |
| |
\$("#progressbar$LCcurrentid").hide('slow'); |
| |
// ]]> |
| |
</script> |
| |
ENDCLOSE |
| |
} |
| |
|
| |
sub r_print { |
| |
my ($r,$to_print)=@_; |
| |
if ($r) { |
| |
$r->print($to_print); |
| |
$r->rflush(); |
| |
} else { |
| |
print($to_print); |
| |
} |
| |
} |
| |
|
| sub html_encode { |
sub html_encode { |
| my ($result) = @_; |
my ($result) = @_; |
| |
|
|
Line 6870 sub html_encode {
|
Line 7518 sub html_encode {
|
| |
|
| return $result; |
return $result; |
| } |
} |
| |
|
| sub js_ready { |
sub js_ready { |
| my ($result) = @_; |
my ($result) = @_; |
| |
|
|
Line 6908 sub validate_page {
|
Line 7557 sub validate_page {
|
| |
|
| |
|
| sub start_scrollbox { |
sub start_scrollbox { |
| my ($outerwidth,$width,$height)=@_; |
my ($outerwidth,$width,$height,$id)=@_; |
| unless ($outerwidth) { $outerwidth='520px'; } |
unless ($outerwidth) { $outerwidth='520px'; } |
| unless ($width) { $width='500px'; } |
unless ($width) { $width='500px'; } |
| unless ($height) { $height='200px'; } |
unless ($height) { $height='200px'; } |
| return "<table style='width: $outerwidth; border: 1px solid black;'><tr><td style='width: $width;' bgcolor='#FFFFFF'><div style='overflow:auto; width:$width; height: $height;'>"; |
my ($table_id,$div_id); |
| |
if ($id ne '') { |
| |
$table_id = " id='table_$id'"; |
| |
$div_id = " id='div_$id'"; |
| |
} |
| |
return "<table style='width: $outerwidth; border: 1px solid none;'$table_id><tr><td style='width: $width;' bgcolor='#FFFFFF'><div style='overflow:auto; width:$width; height: $height;'$div_id>"; |
| } |
} |
| |
|
| sub end_scrollbox { |
sub end_scrollbox { |
| return '</td></tr></table>'; |
return '</div></td></tr></table>'; |
| } |
} |
| |
|
| sub simple_error_page { |
sub simple_error_page { |
|
Line 6946 sub simple_error_page {
|
Line 7600 sub simple_error_page {
|
| } |
} |
| |
|
| sub start_data_table { |
sub start_data_table { |
| my ($add_class) = @_; |
my ($add_class,$id) = @_; |
| my $css_class = (join(' ','LC_data_table',$add_class)); |
my $css_class = (join(' ','LC_data_table',$add_class)); |
| |
my $table_id; |
| |
if (defined($id)) { |
| |
$table_id = ' id="'.$id.'"'; |
| |
} |
| &start_data_table_count(); |
&start_data_table_count(); |
| return '<table class="'.$css_class.'">'."\n"; |
return '<table class="'.$css_class.'"'.$table_id.'>'."\n"; |
| } |
} |
| |
|
| sub end_data_table { |
sub end_data_table { |
|
Line 7076 sub get_users_function {
|
Line 7734 sub get_users_function {
|
| $function='admin'; |
$function='admin'; |
| } |
} |
| if (($env{'request.role'}=~/^(au|ca|aa)/) || |
if (($env{'request.role'}=~/^(au|ca|aa)/) || |
| ($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) { |
($ENV{'REQUEST_URI'}=~ m{/^(/priv)})) { |
| $function='author'; |
$function='author'; |
| } |
} |
| return $function; |
return $function; |
|
Line 8191 sub get_standard_codeitems {
|
Line 8849 sub get_standard_codeitems {
|
| |
|
| =item * sorted_slots() |
=item * sorted_slots() |
| |
|
| Sorts an array of slot names in order of slot start time (earliest first). |
Sorts an array of slot names in order of an optional sort key, |
| |
default sort is by slot start time (earliest first). |
| |
|
| Inputs: |
Inputs: |
| |
|
|
Line 8201 slotsarr - Reference to array of unsort
|
Line 8860 slotsarr - Reference to array of unsort
|
| |
|
| slots - Reference to hash of hash, where outer hash keys are slot names. |
slots - Reference to hash of hash, where outer hash keys are slot names. |
| |
|
| |
sortkey - Name of key in inner hash to be sorted on (e.g., starttime). |
| |
|
| =back |
=back |
| |
|
| Returns: |
Returns: |
| |
|
| =over 4 |
=over 4 |
| |
|
| sorted - An array of slot names sorted by the start time of the slot. |
sorted - An array of slot names sorted by a specified sort key |
| |
(default sort key is start time of the slot). |
| =back |
|
| |
|
| =back |
=back |
| |
|
|
Line 8217 sorted - An array of slot names sorted
|
Line 8877 sorted - An array of slot names sorted
|
| |
|
| |
|
| sub sorted_slots { |
sub sorted_slots { |
| my ($slotsarr,$slots) = @_; |
my ($slotsarr,$slots,$sortkey) = @_; |
| |
if ($sortkey eq '') { |
| |
$sortkey = 'starttime'; |
| |
} |
| my @sorted; |
my @sorted; |
| if ((ref($slotsarr) eq 'ARRAY') && (ref($slots) eq 'HASH')) { |
if ((ref($slotsarr) eq 'ARRAY') && (ref($slots) eq 'HASH')) { |
| @sorted = |
@sorted = |
| sort { |
sort { |
| if (ref($slots->{$a}) && ref($slots->{$b})) { |
if (ref($slots->{$a}) && ref($slots->{$b})) { |
| return $slots->{$a}{'starttime'} <=> $slots->{$b}{'starttime'} |
return $slots->{$a}{$sortkey} <=> $slots->{$b}{$sortkey} |
| } |
} |
| if (ref($slots->{$a})) { return -1;} |
if (ref($slots->{$a})) { return -1;} |
| if (ref($slots->{$b})) { return 1;} |
if (ref($slots->{$b})) { return 1;} |
|
Line 8233 sub sorted_slots {
|
Line 8896 sub sorted_slots {
|
| return @sorted; |
return @sorted; |
| } |
} |
| |
|
| |
=pod |
| |
|
| |
=item * get_future_slots() |
| |
|
| |
Inputs: |
| |
|
| |
=over 4 |
| |
|
| |
cnum - course number |
| |
|
| |
cdom - course domain |
| |
|
| |
now - current UNIX time |
| |
|
| |
symb - optional symb |
| |
|
| |
=back |
| |
|
| |
Returns: |
| |
|
| |
=over 4 |
| |
|
| |
sorted_reservable - ref to array of student_schedulable slots currently |
| |
reservable, ordered by end date of reservation period. |
| |
|
| |
reservable_now - ref to hash of student_schedulable slots currently |
| |
reservable. |
| |
|
| |
Keys in inner hash are: |
| |
(a) symb: either blank or symb to which slot use is restricted. |
| |
(b) endreserve: end date of reservation period. |
| |
|
| |
sorted_future - ref to array of student_schedulable slots reservable in |
| |
the future, ordered by start date of reservation period. |
| |
|
| |
future_reservable - ref to hash of student_schedulable slots reservable |
| |
in the future. |
| |
|
| |
Keys in inner hash are: |
| |
(a) symb: either blank or symb to which slot use is restricted. |
| |
(b) startreserve: start date of reservation period. |
| |
|
| |
=back |
| |
|
| |
=cut |
| |
|
| |
sub get_future_slots { |
| |
my ($cnum,$cdom,$now,$symb) = @_; |
| |
my (%reservable_now,%future_reservable,@sorted_reservable,@sorted_future); |
| |
my %slots = &Apache::lonnet::get_course_slots($cnum,$cdom); |
| |
foreach my $slot (keys(%slots)) { |
| |
next unless($slots{$slot}->{'type'} eq 'schedulable_student'); |
| |
if ($symb) { |
| |
next if (($slots{$slot}->{'symb'} ne '') && |
| |
($slots{$slot}->{'symb'} ne $symb)); |
| |
} |
| |
if (($slots{$slot}->{'starttime'} > $now) && |
| |
($slots{$slot}->{'endtime'} > $now)) { |
| |
if (($slots{$slot}->{'allowedsections'}) || ($slots{$slot}->{'allowedusers'})) { |
| |
my $userallowed = 0; |
| |
if ($slots{$slot}->{'allowedsections'}) { |
| |
my @allowed_sec = split(',',$slots{$slot}->{'allowedsections'}); |
| |
if (!defined($env{'request.role.sec'}) |
| |
&& grep(/^No section assigned$/,@allowed_sec)) { |
| |
$userallowed=1; |
| |
} else { |
| |
if (grep(/^\Q$env{'request.role.sec'}\E$/,@allowed_sec)) { |
| |
$userallowed=1; |
| |
} |
| |
} |
| |
unless ($userallowed) { |
| |
if (defined($env{'request.course.groups'})) { |
| |
my @groups = split(/:/,$env{'request.course.groups'}); |
| |
foreach my $group (@groups) { |
| |
if (grep(/^\Q$group\E$/,@allowed_sec)) { |
| |
$userallowed=1; |
| |
last; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
if ($slots{$slot}->{'allowedusers'}) { |
| |
my @allowed_users = split(',',$slots{$slot}->{'allowedusers'}); |
| |
my $user = $env{'user.name'}.':'.$env{'user.domain'}; |
| |
if (grep(/^\Q$user\E$/,@allowed_users)) { |
| |
$userallowed = 1; |
| |
} |
| |
} |
| |
next unless($userallowed); |
| |
} |
| |
my $startreserve = $slots{$slot}->{'startreserve'}; |
| |
my $endreserve = $slots{$slot}->{'endreserve'}; |
| |
my $symb = $slots{$slot}->{'symb'}; |
| |
if (($startreserve < $now) && |
| |
(!$endreserve || $endreserve > $now)) { |
| |
my $lastres = $endreserve; |
| |
if (!$lastres) { |
| |
$lastres = $slots{$slot}->{'starttime'}; |
| |
} |
| |
$reservable_now{$slot} = { |
| |
symb => $symb, |
| |
endreserve => $lastres |
| |
}; |
| |
} elsif (($startreserve > $now) && |
| |
(!$endreserve || $endreserve > $startreserve)) { |
| |
$future_reservable{$slot} = { |
| |
symb => $symb, |
| |
startreserve => $startreserve |
| |
}; |
| |
} |
| |
} |
| |
} |
| |
my @unsorted_reservable = keys(%reservable_now); |
| |
if (@unsorted_reservable > 0) { |
| |
@sorted_reservable = |
| |
&sorted_slots(\@unsorted_reservable,\%reservable_now,'endreserve'); |
| |
} |
| |
my @unsorted_future = keys(%future_reservable); |
| |
if (@unsorted_future > 0) { |
| |
@sorted_future = |
| |
&sorted_slots(\@unsorted_future,\%future_reservable,'startreserve'); |
| |
} |
| |
return (\@sorted_reservable,\%reservable_now,\@sorted_future,\%future_reservable); |
| |
} |
| |
|
| =pod |
=pod |
| |
|
| |
=back |
| |
|
| =head1 HTTP Helpers |
=head1 HTTP Helpers |
| |
|
| =over 4 |
=over 4 |
|
Line 8400 sub ask_for_embedded_content {
|
Line 9190 sub ask_for_embedded_content {
|
| $getpropath = 1; |
$getpropath = 1; |
| } elsif (($actionurl eq '/adm/upload') || ($actionurl eq '/adm/testbank') || |
} elsif (($actionurl eq '/adm/upload') || ($actionurl eq '/adm/testbank') || |
| ($actionurl eq '/adm/imsimport')) { |
($actionurl eq '/adm/imsimport')) { |
| ($uname,my $rest) = ($args->{'current_path'} =~ m{/priv/($match_username)/?(.*)$}); |
my ($udom,$uname,$rest) = ($args->{'current_path'} =~ m{/priv/($match_domain)/($match_username)/?(.*)$}); |
| $url = '/home/'.$uname.'/public_html/'; |
$url = $Apache::lonnet::perlvar{'lonDocRoot'}."/priv/$udom/$uname/"; |
| $toplevel = $url; |
$toplevel = $url; |
| if ($rest ne '') { |
if ($rest ne '') { |
| $url .= $rest; |
$url .= $rest; |
|
Line 8451 sub ask_for_embedded_content {
|
Line 9241 sub ask_for_embedded_content {
|
| foreach my $path (keys(%subdependencies)) { |
foreach my $path (keys(%subdependencies)) { |
| my %currsubfile; |
my %currsubfile; |
| if (($actionurl eq '/adm/portfolio') || ($actionurl eq '/adm/coursegrp_portfolio')) { |
if (($actionurl eq '/adm/portfolio') || ($actionurl eq '/adm/coursegrp_portfolio')) { |
| my @subdir_list = &Apache::lonnet::dirlist($url.$path,$udom,$uname,$getpropath); |
my ($sublistref,$listerror) = |
| foreach my $line (@subdir_list) { |
&Apache::lonnet::dirlist($url.$path,$udom,$uname,$getpropath); |
| my ($file_name,$rest) = split(/\&/,$line,2); |
if (ref($sublistref) eq 'ARRAY') { |
| $currsubfile{$file_name} = 1; |
foreach my $line (@{$sublistref}) { |
| |
my ($file_name,$rest) = split(/\&/,$line,2); |
| |
$currsubfile{$file_name} = 1; |
| |
} |
| } |
} |
| } elsif (($actionurl eq '/adm/upload') || ($actionurl eq '/adm/testbank')) { |
} elsif (($actionurl eq '/adm/upload') || ($actionurl eq '/adm/testbank')) { |
| if (opendir(my $dir,$url.'/'.$path)) { |
if (opendir(my $dir,$url.'/'.$path)) { |
|
Line 8477 sub ask_for_embedded_content {
|
Line 9270 sub ask_for_embedded_content {
|
| } |
} |
| my %currfile; |
my %currfile; |
| if (($actionurl eq '/adm/portfolio') || ($actionurl eq '/adm/coursegrp_portfolio')) { |
if (($actionurl eq '/adm/portfolio') || ($actionurl eq '/adm/coursegrp_portfolio')) { |
| my @dir_list = &Apache::lonnet::dirlist($url,$udom,$uname,$getpropath); |
my ($dirlistref,$listerror) = |
| foreach my $line (@dir_list) { |
&Apache::lonnet::dirlist($url,$udom,$uname,$getpropath); |
| my ($file_name,$rest) = split(/\&/,$line,2); |
if (ref($dirlistref) eq 'ARRAY') { |
| $currfile{$file_name} = 1; |
foreach my $line (@{$dirlistref}) { |
| |
my ($file_name,$rest) = split(/\&/,$line,2); |
| |
$currfile{$file_name} = 1; |
| |
} |
| } |
} |
| } elsif (($actionurl eq '/adm/upload') || ($actionurl eq '/adm/testbank')) { |
} elsif (($actionurl eq '/adm/upload') || ($actionurl eq '/adm/testbank')) { |
| if (opendir(my $dir,$url)) { |
if (opendir(my $dir,$url)) { |
|
Line 8759 sub upload_embedded {
|
Line 9555 sub upload_embedded {
|
| my $fullpath = $dir_root.$dirpath.'/'.$path; |
my $fullpath = $dir_root.$dirpath.'/'.$path; |
| my $dest = $fullpath.$fname; |
my $dest = $fullpath.$fname; |
| my $url = $url_root.$dirpath.'/'.$path.$fname; |
my $url = $url_root.$dirpath.'/'.$path.$fname; |
| my @parts=split(/\//,$fullpath); |
my @parts=split(/\//,"$dirpath/$path"); |
| my $count; |
my $count; |
| my $filepath = $dir_root; |
my $filepath = $dir_root; |
| for ($count=4;$count<=$#parts;$count++) { |
foreach my $subdir (@parts) { |
| $filepath .= "/$parts[$count]"; |
$filepath .= "/$subdir"; |
| if ((-e $filepath)!=1) { |
if (!-e $filepath) { |
| mkdir($filepath,0770); |
mkdir($filepath,0770); |
| } |
} |
| } |
} |
|
Line 8883 sub modify_html_refs {
|
Line 9679 sub modify_html_refs {
|
| } elsif ($context eq 'coursedoc') { |
} elsif ($context eq 'coursedoc') { |
| $container = $env{'form.primaryurl'}; |
$container = $env{'form.primaryurl'}; |
| } else { |
} else { |
| $container = $env{'form.filename'}; |
$container = $Apache::lonnet::perlvar{'lonDocRoot'}.$env{'form.filename'}; |
| $container =~ s{^/priv/(\Q$uname\E)/(.*)}{/home/$1/public_html/$2}; |
|
| } |
} |
| my (%allfiles,%codebase,$output,$content); |
my (%allfiles,%codebase,$output,$content); |
| my @changes = &get_env_multiple('form.namechange'); |
my @changes = &get_env_multiple('form.namechange'); |
|
Line 8916 sub modify_html_refs {
|
Line 9711 sub modify_html_refs {
|
| if ($allfiles{$ref}) { |
if ($allfiles{$ref}) { |
| my $newname = $orig; |
my $newname = $orig; |
| my ($attrib_regexp,$codebase); |
my ($attrib_regexp,$codebase); |
| my $attrib_regexp = &unescape($env{'form.embedded_attrib_'.$i}); |
$attrib_regexp = &unescape($env{'form.embedded_attrib_'.$i}); |
| if ($attrib_regexp =~ /:/) { |
if ($attrib_regexp =~ /:/) { |
| $attrib_regexp =~ s/\:/|/g; |
$attrib_regexp =~ s/\:/|/g; |
| } |
} |
|
Line 8925 sub modify_html_refs {
|
Line 9720 sub modify_html_refs {
|
| $count += $numchg; |
$count += $numchg; |
| } |
} |
| if ($env{'form.embedded_codebase_'.$i} ne '') { |
if ($env{'form.embedded_codebase_'.$i} ne '') { |
| my $codebase = &unescape($env{'form.embedded_codebase_'.$i}); |
$codebase = &unescape($env{'form.embedded_codebase_'.$i}); |
| my $numchg = ($content =~ s/(codebase\s*=\s*["']?)\Q$codebase\E(["']?)/$1.$2/i); #' stupid emacs |
my $numchg = ($content =~ s/(codebase\s*=\s*["']?)\Q$codebase\E(["']?)/$1.$2/i); #' stupid emacs |
| $codebasecount ++; |
$codebasecount ++; |
| } |
} |
|
Line 8994 sub check_for_upload {
|
Line 9789 sub check_for_upload {
|
| &mt('Unable to upload [_1]. (size = [_2] bytes)', |
&mt('Unable to upload [_1]. (size = [_2] bytes)', |
| '<span class="LC_filename">'.$fname.'</span>', |
'<span class="LC_filename">'.$fname.'</span>', |
| $filesize).'<br />'. |
$filesize).'<br />'. |
| &mt('Either the file you attempted to upload was empty, or your web browser was unable to read its contents.').'<br />'; |
&mt('Either the file you attempted to upload was empty, or your web browser was unable to read its contents.').'<br />'. |
| '</span>'; |
'</span>'; |
| return ('zero_bytes',$msg); |
return ('zero_bytes',$msg); |
| } |
} |
| $filesize = $filesize/1000; #express in k (1024?) |
$filesize = $filesize/1000; #express in k (1024?) |
| my $getpropath = 1; |
my $getpropath = 1; |
| my @dir_list = &Apache::lonnet::dirlist($portfolio_root.$path,$udom,$uname, |
my ($dirlistref,$listerror) = |
| $getpropath); |
&Apache::lonnet::dirlist($portfolio_root.$path,$udom,$uname,$getpropath); |
| my $found_file = 0; |
my $found_file = 0; |
| my $locked_file = 0; |
my $locked_file = 0; |
| my @lockers; |
my @lockers; |
|
Line 9009 sub check_for_upload {
|
Line 9804 sub check_for_upload {
|
| if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
| $navmap = Apache::lonnavmaps::navmap->new(); |
$navmap = Apache::lonnavmaps::navmap->new(); |
| } |
} |
| foreach my $line (@dir_list) { |
if (ref($dirlistref) eq 'ARRAY') { |
| my ($file_name,$rest)=split(/\&/,$line,2); |
foreach my $line (@{$dirlistref}) { |
| if ($file_name eq $fname){ |
my ($file_name,$rest)=split(/\&/,$line,2); |
| $file_name = $path.$file_name; |
if ($file_name eq $fname){ |
| if ($group ne '') { |
$file_name = $path.$file_name; |
| $file_name = $group.$file_name; |
if ($group ne '') { |
| } |
$file_name = $group.$file_name; |
| $found_file = 1; |
} |
| if (&Apache::lonnet::is_locked($file_name,$udom,$uname,\@lockers) eq 'true') { |
$found_file = 1; |
| foreach my $lock (@lockers) { |
if (&Apache::lonnet::is_locked($file_name,$udom,$uname,\@lockers) eq 'true') { |
| if (ref($lock) eq 'ARRAY') { |
foreach my $lock (@lockers) { |
| my ($symb,$crsid) = @{$lock}; |
if (ref($lock) eq 'ARRAY') { |
| if ($crsid eq $env{'request.course.id'}) { |
my ($symb,$crsid) = @{$lock}; |
| if (ref($navmap)) { |
if ($crsid eq $env{'request.course.id'}) { |
| my $res = $navmap->getBySymb($symb); |
if (ref($navmap)) { |
| foreach my $part (@{$res->parts()}) { |
my $res = $navmap->getBySymb($symb); |
| my ($slot_status,$slot_time,$slot_name)=$res->check_for_slot($part); |
foreach my $part (@{$res->parts()}) { |
| unless (($slot_status == $res->RESERVED) || |
my ($slot_status,$slot_time,$slot_name)=$res->check_for_slot($part); |
| ($slot_status == $res->RESERVED_LOCATION)) { |
unless (($slot_status == $res->RESERVED) || |
| $locked_file = 1; |
($slot_status == $res->RESERVED_LOCATION)) { |
| |
$locked_file = 1; |
| |
} |
| } |
} |
| |
} else { |
| |
$locked_file = 1; |
| } |
} |
| } else { |
} else { |
| $locked_file = 1; |
$locked_file = 1; |
| } |
} |
| } else { |
|
| $locked_file = 1; |
|
| } |
} |
| } |
} |
| } |
} else { |
| } else { |
my @info = split(/\&/,$rest); |
| my @info = split(/\&/,$rest); |
my $currsize = $info[6]/1000; |
| my $currsize = $info[6]/1000; |
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 = '<span class="LC_error">'. |
&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).'</span>'. |
'<br />'.&mt('Disk quota is [_1] kilobytes. Your current disk usage is [_2] kilobytes.', |
| '<br />'.&mt('Disk quota is [_1] kilobytes. Your current disk usage is [_2] kilobytes.', |
$disk_quota,$current_disk_usage); |
| $disk_quota,$current_disk_usage); |
return ('will_exceed_quota',$msg); |
| return ('will_exceed_quota',$msg); |
} |
| } |
} |
| } |
} |
| } |
} |
|
Line 9120 sub check_for_traversal {
|
Line 9917 sub check_for_traversal {
|
| return $cleanpath; |
return $cleanpath; |
| } |
} |
| |
|
| |
sub is_archive_file { |
| |
my ($mimetype) = @_; |
| |
if (($mimetype eq 'application/octet-stream') || |
| |
($mimetype eq 'application/x-stuffit') || |
| |
($mimetype =~ m{^application/(x\-)?(compressed|tar|zip|tgz|gz|gtar|gzip|gunzip|bz|bz2|bzip2)})) { |
| |
return 1; |
| |
} |
| |
return; |
| |
} |
| |
|
| |
sub decompress_form { |
| |
my ($mimetype,$archiveurl,$action,$noextract,$hiddenelements,$dirlist) = @_; |
| |
my %lt = &Apache::lonlocal::texthash ( |
| |
this => 'This file is an archive file.', |
| |
itsc => 'Its contents are as follows:', |
| |
youm => 'You may wish to extract its contents.', |
| |
camt => 'Extraction of contents is recommended for Camtasia zip files.', |
| |
extr => 'Extract contents', |
| |
yes => 'Yes', |
| |
no => 'No', |
| |
); |
| |
my $output = '<p>'.$lt{'this'}; |
| |
my $fileloc = &Apache::lonnet::filelocation(undef,$archiveurl); |
| |
my (%toplevel,@paths); |
| |
my $info = &list_archive_contents($fileloc,\@paths); |
| |
if (@paths) { |
| |
foreach my $path (@paths) { |
| |
$path =~ s{^/}{}; |
| |
if ($path =~ m{^([^/]+)/}) { |
| |
$toplevel{$1} = $path; |
| |
} else { |
| |
$toplevel{$path} = $path; |
| |
} |
| |
} |
| |
} |
| |
if ($info eq '') { |
| |
$output .= ' '.$lt{'youm'}.'</p>'."\n"; |
| |
} else { |
| |
$output .= ' '.$lt{'itsc'}.'</p>'."\n". |
| |
'<div><pre>'.$info.'</pre></div>'; |
| |
} |
| |
my $duplicates; |
| |
my $num = 0; |
| |
if (ref($dirlist) eq 'ARRAY') { |
| |
foreach my $item (@{$dirlist}) { |
| |
if (ref($item) eq 'ARRAY') { |
| |
if (exists($toplevel{$item->[0]})) { |
| |
$duplicates .= |
| |
&start_data_table_row(). |
| |
'<td><label><input type="radio" name="archive_overwrite_'.$num.'" '. |
| |
'value="0" checked="checked" />'.&mt('No').'</label>'. |
| |
' <label><input type="radio" name="archive_overwrite_'.$num.'" '. |
| |
'value="1" />'.&mt('Yes').'</label>'. |
| |
'<input type="hidden" name="archive_overwrite_name_'.$num.'" value="'.$item->[0].'" /></td>'."\n". |
| |
'<td>'.$item->[0].'</td>'; |
| |
if ($item->[2]) { |
| |
$duplicates .= '<td>'.&mt('Directory').'</td>'; |
| |
} else { |
| |
$duplicates .= '<td>'.&mt('File').'</td>'; |
| |
} |
| |
$duplicates .= '<td>'.$item->[3].'</td>'. |
| |
'<td>'. |
| |
&Apache::lonlocal::locallocaltime($item->[4]). |
| |
'</td>'. |
| |
&end_data_table_row(); |
| |
$num ++; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
my $itemcount; |
| |
if (@paths > 0) { |
| |
$itemcount = scalar(@paths); |
| |
} else { |
| |
$itemcount = 1; |
| |
} |
| |
$output .= |
| |
'<input type="hidden" name="archive_overwrite_total" value="'.$num.'" />'. |
| |
'<input type="hidden" name="archive_itemcount" value="'.$itemcount.'" />'."\n"; |
| |
if ($duplicates ne '') { |
| |
$output .= '<p><span class="LC_warning">'. |
| |
&mt('Warning: decompression of the archive will overwrite the following items which already exist:').'</span><br />'. |
| |
&start_data_table(). |
| |
&start_data_table_header_row(). |
| |
'<th>'.&mt('Overwrite?').'</th>'. |
| |
'<th>'.&mt('Name').'</th>'. |
| |
'<th>'.&mt('Type').'</th>'. |
| |
'<th>'.&mt('Size').'</th>'. |
| |
'<th>'.&mt('Last modified').'</th>'. |
| |
&end_data_table_header_row(). |
| |
$duplicates. |
| |
&end_data_table(). |
| |
'</p>'; |
| |
} |
| |
if ($mimetype =~ m{^application/(x\-)?(compressed|zip)}) { |
| |
$output .= '<p>'.$lt{'camt'}.'</p>'; |
| |
} |
| |
$output .= <<"START"; |
| |
<div id="uploadfileresult"> |
| |
<form name="uploaded_decompress" action="$action" method="post"> |
| |
<input type="hidden" name="archiveurl" value="$archiveurl" /> |
| |
START |
| |
if (ref($hiddenelements) eq 'HASH') { |
| |
foreach my $hidden (sort(keys(%{$hiddenelements}))) { |
| |
$output .= '<input type="hidden" name="'.$hidden.'" value="'.$hiddenelements->{$hidden}.'" />'."\n"; |
| |
} |
| |
} |
| |
$output .= <<"END"; |
| |
<input type="submit" name="decompress" value="$lt{'extr'}" /> |
| |
</form> |
| |
$noextract |
| |
</div> |
| |
END |
| |
return $output; |
| |
} |
| |
|
| |
sub decompression_utility { |
| |
my ($program) = @_; |
| |
my @utilities = ('tar','gunzip','bunzip2','unzip'); |
| |
my $location; |
| |
if (grep(/^\Q$program\E$/,@utilities)) { |
| |
foreach my $dir ('/bin/','/usr/bin/','/usr/local/bin/','/sbin/', |
| |
'/usr/sbin/') { |
| |
if (-x $dir.$program) { |
| |
$location = $dir.$program; |
| |
last; |
| |
} |
| |
} |
| |
} |
| |
return $location; |
| |
} |
| |
|
| |
sub list_archive_contents { |
| |
my ($file,$pathsref) = @_; |
| |
my (@cmd,$output); |
| |
my $needsregexp; |
| |
if ($file =~ /\.zip$/) { |
| |
@cmd = (&decompression_utility('unzip'),"-l"); |
| |
$needsregexp = 1; |
| |
} elsif (($file =~ m/\.tar\.gz$/) || |
| |
($file =~ /\.tgz$/)) { |
| |
@cmd = (&decompression_utility('tar'),"-ztf"); |
| |
} elsif ($file =~ /\.tar\.bz2$/) { |
| |
@cmd = (&decompression_utility('tar'),"-jtf"); |
| |
} elsif ($file =~ m|\.tar$|) { |
| |
@cmd = (&decompression_utility('tar'),"-tf"); |
| |
} |
| |
if (@cmd) { |
| |
undef($!); |
| |
undef($@); |
| |
if (open(my $fh,"-|", @cmd, $file)) { |
| |
while (my $line = <$fh>) { |
| |
$output .= $line; |
| |
chomp($line); |
| |
my $item; |
| |
if ($needsregexp) { |
| |
($item) = ($line =~ /^\s*\d+\s+[\d\-]+\s+[\d:]+\s*(.+)$/); |
| |
} else { |
| |
$item = $line; |
| |
} |
| |
if ($item ne '') { |
| |
unless (grep(/^\Q$item\E$/,@{$pathsref})) { |
| |
push(@{$pathsref},$item); |
| |
} |
| |
} |
| |
} |
| |
close($fh); |
| |
} |
| |
} |
| |
return $output; |
| |
} |
| |
|
| |
sub decompress_uploaded_file { |
| |
my ($file,$dir) = @_; |
| |
&Apache::lonnet::appenv({'cgi.file' => $file}); |
| |
&Apache::lonnet::appenv({'cgi.dir' => $dir}); |
| |
my $result = &Apache::lonnet::ssi_body('/cgi-bin/decompress.pl'); |
| |
my ($handle) = ($env{'user.environment'} =~m{/([^/]+)\.id$}); |
| |
my $lonidsdir = $Apache::lonnet::perlvar{'lonIDsDir'}; |
| |
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle,1); |
| |
my $decompressed = $env{'cgi.decompressed'}; |
| |
&Apache::lonnet::delenv('cgi.file'); |
| |
&Apache::lonnet::delenv('cgi.dir'); |
| |
&Apache::lonnet::delenv('cgi.decompressed'); |
| |
return ($decompressed,$result); |
| |
} |
| |
|
| |
sub process_decompression { |
| |
my ($docudom,$docuname,$file,$destination,$dir_root,$hiddenelem) = @_; |
| |
my ($dir,$error,$warning,$output); |
| |
if ($file !~ /\.(zip|tar|bz2|gz|tar.gz|tar.bz2|tgz)$/) { |
| |
$error = &mt('File name not a supported archive file type.'). |
| |
'<br />'.&mt('File name should end with one of: [_1].', |
| |
'.zip, .tar, .bz2, .gz, .tar.gz, .tar.bz2, .tgz'); |
| |
} else { |
| |
my $docuhome = &Apache::lonnet::homeserver($docuname,$docudom); |
| |
if ($docuhome eq 'no_host') { |
| |
$error = &mt('Could not determine home server for course.'); |
| |
} else { |
| |
my @ids=&Apache::lonnet::current_machine_ids(); |
| |
my $currdir = "$dir_root/$destination"; |
| |
if (grep(/^\Q$docuhome\E$/,@ids)) { |
| |
$dir = &LONCAPA::propath($docudom,$docuname). |
| |
"$dir_root/$destination"; |
| |
} else { |
| |
$dir = $Apache::lonnet::perlvar{'lonDocRoot'}. |
| |
"$dir_root/$docudom/$docuname/$destination"; |
| |
unless (&Apache::lonnet::repcopy_userfile("$dir/$file") eq 'ok') { |
| |
$error = &mt('Archive file not found.'); |
| |
} |
| |
} |
| |
my (@to_overwrite,@to_skip); |
| |
if ($env{'form.archive_overwrite_total'} > 0) { |
| |
my $total = $env{'form.archive_overwrite_total'}; |
| |
for (my $i=0; $i<$total; $i++) { |
| |
if ($env{'form.archive_overwrite_'.$i} == 1) { |
| |
push(@to_overwrite,$env{'form.archive_overwrite_name_'.$i}); |
| |
} elsif ($env{'form.archive_overwrite_'.$i} == 0) { |
| |
push(@to_skip,$env{'form.archive_overwrite_name_'.$i}); |
| |
} |
| |
} |
| |
} |
| |
my $numskip = scalar(@to_skip); |
| |
if (($numskip > 0) && |
| |
($numskip == $env{'form.archive_itemcount'})) { |
| |
$warning = &mt('All items in the archive file already exist, and no overwriting of existing files has been requested.'); |
| |
} elsif ($dir eq '') { |
| |
$error = &mt('Directory containing archive file unavailable.'); |
| |
} elsif (!$error) { |
| |
my ($decompressed,$display); |
| |
if ($numskip > 0) { |
| |
my $tempdir = time.'_'.$$.int(rand(10000)); |
| |
mkdir("$dir/$tempdir",0755); |
| |
system("mv $dir/$file $dir/$tempdir/$file"); |
| |
($decompressed,$display) = |
| |
&decompress_uploaded_file($file,"$dir/$tempdir"); |
| |
foreach my $item (@to_skip) { |
| |
if (($item ne '') && ($item !~ /\.\./)) { |
| |
if (-f "$dir/$tempdir/$item") { |
| |
unlink("$dir/$tempdir/$item"); |
| |
} elsif (-d "$dir/$tempdir/$item") { |
| |
system("rm -rf $dir/$tempdir/$item"); |
| |
} |
| |
} |
| |
} |
| |
system("mv $dir/$tempdir/* $dir"); |
| |
rmdir("$dir/$tempdir"); |
| |
} else { |
| |
($decompressed,$display) = |
| |
&decompress_uploaded_file($file,$dir); |
| |
} |
| |
if ($decompressed eq 'ok') { |
| |
$output = '<p class="LC_info">'. |
| |
&mt('Files extracted successfully from archive.'). |
| |
'</p>'."\n"; |
| |
my ($warning,$result,@contents); |
| |
my ($newdirlistref,$newlisterror) = |
| |
&Apache::lonnet::dirlist($currdir,$docudom, |
| |
$docuname,1); |
| |
my (%is_dir,%changes,@newitems); |
| |
my $dirptr = 16384; |
| |
if (ref($newdirlistref) eq 'ARRAY') { |
| |
foreach my $dir_line (@{$newdirlistref}) { |
| |
my ($item,undef,undef,$testdir)=split(/\&/,$dir_line,5); |
| |
unless (($item =~ /^\.+$/) || ($item eq $file) || |
| |
((@to_skip > 0) && (grep(/^\Q$item\E$/,@to_skip)))) { |
| |
push(@newitems,$item); |
| |
if ($dirptr&$testdir) { |
| |
$is_dir{$item} = 1; |
| |
} |
| |
$changes{$item} = 1; |
| |
} |
| |
} |
| |
} |
| |
if (keys(%changes) > 0) { |
| |
foreach my $item (sort(@newitems)) { |
| |
if ($changes{$item}) { |
| |
push(@contents,$item); |
| |
} |
| |
} |
| |
} |
| |
if (@contents > 0) { |
| |
my (%children,%parent,%dirorder,%titles); |
| |
my $wantform = 1; |
| |
my ($count,$datatable) = &get_extracted($docudom,$docuname, |
| |
$currdir,\%is_dir, |
| |
\%children,\%parent, |
| |
\@contents,\%dirorder, |
| |
\%titles,$wantform); |
| |
if ($datatable ne '') { |
| |
$output .= &archive_options_form('decompressed',$datatable, |
| |
$count,$hiddenelem); |
| |
my $startcount = 6; |
| |
$output .= &archive_javascript($startcount,$count, |
| |
\%titles,\%children); |
| |
} |
| |
} else { |
| |
$warning = &mt('No new items extracted from archive file.'); |
| |
} |
| |
} else { |
| |
$output = $display; |
| |
$error = &mt('An error occurred during extraction from the archive file.'); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
if ($error) { |
| |
$output .= '<p class="LC_error">'.&mt('Not extracted.').'<br />'. |
| |
$error.'</p>'."\n"; |
| |
} |
| |
if ($warning) { |
| |
$output .= '<p class="LC_warning">'.$warning.'</p>'."\n"; |
| |
} |
| |
return $output; |
| |
} |
| |
|
| |
sub get_extracted { |
| |
my ($docudom,$docuname,$currdir,$is_dir,$children,$parent,$contents,$dirorder, |
| |
$titles,$wantform) = @_; |
| |
my $count = 0; |
| |
my $depth = 0; |
| |
my $datatable; |
| |
my @hierarchy; |
| |
return unless ((ref($is_dir) eq 'HASH') && (ref($children) eq 'HASH') && |
| |
(ref($parent) eq 'HASH') && (ref($contents) eq 'ARRAY') && |
| |
(ref($dirorder) eq 'HASH') && (ref($titles) eq 'HASH')); |
| |
foreach my $item (@{$contents}) { |
| |
$count ++; |
| |
@{$dirorder->{$count}} = @hierarchy; |
| |
$titles->{$count} = $item; |
| |
&archive_hierarchy($depth,$count,$parent,$children); |
| |
if ($wantform) { |
| |
$datatable .= &archive_row($is_dir->{$item},$item, |
| |
$currdir,$depth,$count); |
| |
} |
| |
if ($is_dir->{$item}) { |
| |
$depth ++; |
| |
push(@hierarchy,$count); |
| |
$parent->{$depth} = $count; |
| |
$datatable .= |
| |
&recurse_extracted_archive("$currdir/$item",$docudom,$docuname, |
| |
\$depth,\$count,\@hierarchy,$dirorder, |
| |
$children,$parent,$titles,$wantform); |
| |
$depth --; |
| |
pop(@hierarchy); |
| |
} |
| |
} |
| |
return ($count,$datatable); |
| |
} |
| |
|
| |
sub recurse_extracted_archive { |
| |
my ($currdir,$docudom,$docuname,$depth,$count,$hierarchy,$dirorder, |
| |
$children,$parent,$titles,$wantform) = @_; |
| |
my $result=''; |
| |
unless ((ref($depth)) && (ref($count)) && (ref($hierarchy) eq 'ARRAY') && |
| |
(ref($children) eq 'HASH') && (ref($parent) eq 'HASH') && |
| |
(ref($dirorder) eq 'HASH')) { |
| |
return $result; |
| |
} |
| |
my $dirptr = 16384; |
| |
my ($newdirlistref,$newlisterror) = |
| |
&Apache::lonnet::dirlist($currdir,$docudom,$docuname,1); |
| |
if (ref($newdirlistref) eq 'ARRAY') { |
| |
foreach my $dir_line (@{$newdirlistref}) { |
| |
my ($item,undef,undef,$testdir)=split(/\&/,$dir_line,5); |
| |
unless ($item =~ /^\.+$/) { |
| |
$$count ++; |
| |
@{$dirorder->{$$count}} = @{$hierarchy}; |
| |
$titles->{$$count} = $item; |
| |
&archive_hierarchy($$depth,$$count,$parent,$children); |
| |
|
| |
my $is_dir; |
| |
if ($dirptr&$testdir) { |
| |
$is_dir = 1; |
| |
} |
| |
if ($wantform) { |
| |
$result .= &archive_row($is_dir,$item,$currdir,$$depth,$$count); |
| |
} |
| |
if ($is_dir) { |
| |
$$depth ++; |
| |
push(@{$hierarchy},$$count); |
| |
$parent->{$$depth} = $$count; |
| |
$result .= |
| |
&recurse_extracted_archive("$currdir/$item",$docudom, |
| |
$docuname,$depth,$count, |
| |
$hierarchy,$dirorder,$children, |
| |
$parent,$titles,$wantform); |
| |
$$depth --; |
| |
pop(@{$hierarchy}); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
return $result; |
| |
} |
| |
|
| |
sub archive_hierarchy { |
| |
my ($depth,$count,$parent,$children) =@_; |
| |
if ((ref($parent) eq 'HASH') && (ref($children) eq 'HASH')) { |
| |
if (exists($parent->{$depth})) { |
| |
$children->{$parent->{$depth}} .= $count.':'; |
| |
} |
| |
} |
| |
return; |
| |
} |
| |
|
| |
sub archive_row { |
| |
my ($is_dir,$item,$currdir,$depth,$count) = @_; |
| |
my ($name) = ($item =~ m{([^/]+)$}); |
| |
my %choices = &Apache::lonlocal::texthash ( |
| |
'display' => 'Add as file', |
| |
'dependency' => 'Include as dependency', |
| |
'discard' => 'Discard', |
| |
); |
| |
if ($is_dir) { |
| |
$choices{'display'} = &mt('Add as folder'); |
| |
} |
| |
my $output = &start_data_table_row().'<td align="right">'.$count.'</td>'."\n"; |
| |
my $offset = 0; |
| |
foreach my $action ('display','dependency','discard') { |
| |
$offset ++; |
| |
if ($action ne 'display') { |
| |
$offset ++; |
| |
} |
| |
$output .= '<td><span class="LC_nobreak">'. |
| |
'<label><input type="radio" name="archive_'.$count. |
| |
'" id="archive_'.$action.'_'.$count.'" value="'.$action.'"'; |
| |
my $text = $choices{$action}; |
| |
if ($is_dir) { |
| |
$output .= ' onclick="javascript:propagateCheck(this.form,'."'$count'".');"'; |
| |
if ($action eq 'display') { |
| |
$text = &mt('Add as folder'); |
| |
} |
| |
} else { |
| |
$output .= ' onclick="javascript:dependencyCheck(this.form,'."$count,$offset".');"'; |
| |
|
| |
} |
| |
$output .= ' /> '.$choices{$action}.'</label></span>'; |
| |
if ($action eq 'dependency') { |
| |
$output .= '<div id="arc_depon_'.$count.'" style="display:none;">'."\n". |
| |
&mt('Used by:').' <select name="archive_dependent_on_'.$count.'" '. |
| |
'onchange="propagateSelect(this.form,'."$count,$offset".')">'."\n". |
| |
'<option value=""></option>'."\n". |
| |
'</select>'."\n". |
| |
'</div>'; |
| |
} elsif ($action eq 'display') { |
| |
$output .= '<div id="arc_title_'.$count.'" style="display:none;">'."\n". |
| |
&mt('Title:').' <input type="text" name="archive_title_'.$count.'" id="archive_title_'.$count.'" />'."\n". |
| |
'</div>'; |
| |
} |
| |
$output .= '</td>'; |
| |
} |
| |
$output .= '<td><input type="hidden" name="archive_content_'.$count.'" value="'. |
| |
&HTML::Entities::encode("$currdir/$item",'"<>&').'" />'.(' ' x 2); |
| |
for (my $i=0; $i<$depth; $i++) { |
| |
$output .= ('<img src="/adm/lonIcons/whitespace1.gif" class="LC_docs_spacer" alt="" />' x2)."\n"; |
| |
} |
| |
if ($is_dir) { |
| |
$output .= '<img src="/adm/lonIcons/navmap.folder.open.gif" alt="" /> '."\n". |
| |
'<input type="hidden" name="archive_directory" value="'.$count.'" />'."\n"; |
| |
} else { |
| |
$output .= '<input type="hidden" name="archive_file" value="'.$count.'" />'."\n"; |
| |
} |
| |
$output .= ' '.$name.'</td>'."\n". |
| |
&end_data_table_row(); |
| |
return $output; |
| |
} |
| |
|
| |
sub archive_options_form { |
| |
my ($form,$display,$count,$hiddenelem) = @_; |
| |
my %lt = &Apache::lonlocal::texthash( |
| |
perm => 'Permanently remove archive file?', |
| |
hows => 'How should each extracted item be incorporated in the course?', |
| |
cont => 'Content actions for all', |
| |
addf => 'Add as folder/file', |
| |
incd => 'Include as dependency for a displayed file', |
| |
disc => 'Discard', |
| |
no => 'No', |
| |
yes => 'Yes', |
| |
save => 'Save', |
| |
); |
| |
my $output = <<"END"; |
| |
<form name="$form" method="post" action=""> |
| |
<p><span class="LC_nobreak">$lt{'perm'} |
| |
<label> |
| |
<input type="radio" name="archivedelete" value="0" checked="checked" />$lt{'no'} |
| |
</label> |
| |
|
| |
<label> |
| |
<input type="radio" name="archivedelete" value="1" />$lt{'yes'}</label> |
| |
</span> |
| |
</p> |
| |
<input type="hidden" name="phase" value="decompress_cleanup" /> |
| |
<br />$lt{'hows'} |
| |
<div class="LC_columnSection"> |
| |
<fieldset> |
| |
<legend>$lt{'cont'}</legend> |
| |
<input type="button" value="$lt{'addf'}" onclick="javascript:checkAll(document.$form,'display');" /> |
| |
<input type="button" value="$lt{'incd'}" onclick="javascript:checkAll(document.$form,'dependency');" /> |
| |
<input type="button" value="$lt{'disc'}" onclick="javascript:checkAll(document.$form,'discard');" /> |
| |
</fieldset> |
| |
</div> |
| |
END |
| |
return $output. |
| |
&start_data_table()."\n". |
| |
$display."\n". |
| |
&end_data_table()."\n". |
| |
'<input type="hidden" name="archive_count" value="'.$count.'" />'. |
| |
$hiddenelem. |
| |
'<br /><input type="submit" name="archive_submit" value="'.$lt{'save'}.'" />'. |
| |
'</form>'; |
| |
} |
| |
|
| |
sub archive_javascript { |
| |
my ($startcount,$numitems,$titles,$children) = @_; |
| |
return unless ((ref($titles) eq 'HASH') && (ref($children) eq 'HASH')); |
| |
my $maintitle = $env{'form.comment'}; |
| |
my $scripttag = <<START; |
| |
<script type="text/javascript"> |
| |
// <![CDATA[ |
| |
|
| |
function checkAll(form,prefix) { |
| |
var idstr = new RegExp("^archive_"+prefix+"_\\\\d+\$"); |
| |
for (var i=0; i < form.elements.length; i++) { |
| |
var id = form.elements[i].id; |
| |
if ((id != '') && (id != undefined)) { |
| |
if (idstr.test(id)) { |
| |
if (form.elements[i].type == 'radio') { |
| |
form.elements[i].checked = true; |
| |
var nostart = i-$startcount; |
| |
var offset = nostart%7; |
| |
var count = (nostart-offset)/7; |
| |
dependencyCheck(form,count,offset); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
|
| |
function propagateCheck(form,count) { |
| |
if (count > 0) { |
| |
var startelement = $startcount + ((count-1) * 7); |
| |
for (var j=1; j<6; j++) { |
| |
if ((j != 2) && (j != 4)) { |
| |
var item = startelement + j; |
| |
if (form.elements[item].type == 'radio') { |
| |
if (form.elements[item].checked) { |
| |
containerCheck(form,count,j); |
| |
break; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
|
| |
numitems = $numitems |
| |
var titles = new Array(numitems); |
| |
var parents = new Array(numitems); |
| |
for (var i=0; i<numitems; i++) { |
| |
parents[i] = new Array; |
| |
} |
| |
var maintitle = '$maintitle'; |
| |
|
| |
START |
| |
|
| |
foreach my $container (sort { $a <=> $b } (keys(%{$children}))) { |
| |
my @contents = split(/:/,$children->{$container}); |
| |
for (my $i=0; $i<@contents; $i ++) { |
| |
$scripttag .= 'parents['.$container.']['.$i.'] = '.$contents[$i]."\n"; |
| |
} |
| |
} |
| |
|
| |
foreach my $key (sort { $a <=> $b } (keys(%{$titles}))) { |
| |
$scripttag .= "titles[$key] = '".$titles->{$key}."';\n"; |
| |
} |
| |
|
| |
$scripttag .= <<END; |
| |
|
| |
function containerCheck(form,count,offset) { |
| |
if (count > 0) { |
| |
dependencyCheck(form,count,offset); |
| |
var item = (offset+$startcount)+7*(count-1); |
| |
form.elements[item].checked = true; |
| |
if(Object.prototype.toString.call(parents[count]) === '[object Array]') { |
| |
if (parents[count].length > 0) { |
| |
for (var j=0; j<parents[count].length; j++) { |
| |
containerCheck(form,parents[count][j],offset); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
|
| |
function dependencyCheck(form,count,offset) { |
| |
if (count > 0) { |
| |
var chosen = (offset+$startcount)+7*(count-1); |
| |
var depitem = $startcount + ((count-1) * 7) + 4; |
| |
var currtype = form.elements[depitem].type; |
| |
if (form.elements[chosen].value == 'dependency') { |
| |
document.getElementById('arc_depon_'+count).style.display='block'; |
| |
form.elements[depitem].options.length = 0; |
| |
form.elements[depitem].options[0] = new Option('Select','',true,true); |
| |
for (var i=1; i<count; i++) { |
| |
var startelement = $startcount + (i-1) * 7; |
| |
for (var j=1; j<6; j++) { |
| |
if ((j != 2) && (j!= 4)) { |
| |
var item = startelement + j; |
| |
if (form.elements[item].type == 'radio') { |
| |
if (form.elements[item].checked) { |
| |
if (form.elements[item].value == 'display') { |
| |
var n = form.elements[depitem].options.length; |
| |
form.elements[depitem].options[n] = new Option(titles[i],i,false,false); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} else { |
| |
document.getElementById('arc_depon_'+count).style.display='none'; |
| |
form.elements[depitem].options.length = 0; |
| |
form.elements[depitem].options[0] = new Option('Select','',true,true); |
| |
} |
| |
titleCheck(form,count,offset); |
| |
} |
| |
} |
| |
|
| |
function propagateSelect(form,count,offset) { |
| |
if (count > 0) { |
| |
var item = (1+offset+$startcount)+7*(count-1); |
| |
var picked = form.elements[item].options[form.elements[item].selectedIndex].value; |
| |
if (Object.prototype.toString.call(parents[count]) === '[object Array]') { |
| |
if (parents[count].length > 0) { |
| |
for (var j=0; j<parents[count].length; j++) { |
| |
containerSelect(form,parents[count][j],offset,picked); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
|
| |
function containerSelect(form,count,offset,picked) { |
| |
if (count > 0) { |
| |
var item = (offset+$startcount)+7*(count-1); |
| |
if (form.elements[item].type == 'radio') { |
| |
if (form.elements[item].value == 'dependency') { |
| |
if (form.elements[item+1].type == 'select-one') { |
| |
for (var i=0; i<form.elements[item+1].options.length; i++) { |
| |
if (form.elements[item+1].options[i].value == picked) { |
| |
form.elements[item+1].selectedIndex = i; |
| |
break; |
| |
} |
| |
} |
| |
} |
| |
if (Object.prototype.toString.call(parents[count]) === '[object Array]') { |
| |
if (parents[count].length > 0) { |
| |
for (var j=0; j<parents[count].length; j++) { |
| |
containerSelect(form,parents[count][j],offset,picked); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
|
| |
function titleCheck(form,count,offset) { |
| |
if (count > 0) { |
| |
var chosen = (offset+$startcount)+7*(count-1); |
| |
var depitem = $startcount + ((count-1) * 7) + 2; |
| |
var currtype = form.elements[depitem].type; |
| |
if (form.elements[chosen].value == 'display') { |
| |
document.getElementById('arc_title_'+count).style.display='block'; |
| |
if ((count==1) && ((parents[count].length > 0) || (numitems == 1))) { |
| |
document.getElementById('archive_title_'+count).value=maintitle; |
| |
} |
| |
} else { |
| |
document.getElementById('arc_title_'+count).style.display='none'; |
| |
if (currtype == 'text') { |
| |
document.getElementById('archive_title_'+count).value=''; |
| |
} |
| |
} |
| |
} |
| |
return; |
| |
} |
| |
|
| |
// ]]> |
| |
</script> |
| |
END |
| |
return $scripttag; |
| |
} |
| |
|
| |
sub process_extracted_files { |
| |
my ($context,$docudom,$docuname,$url,$destination,$dir_root,$hiddenelem) = @_; |
| |
my $numitems = $env{'form.archive_count'}; |
| |
return unless ($numitems); |
| |
my @ids=&Apache::lonnet::current_machine_ids(); |
| |
my ($prefix,$pathtocheck,$dir,$ishome,$error,$warning,%toplevelitems,%is_dir, |
| |
%folders,%containers,%mapinner); |
| |
my $docuhome = &Apache::lonnet::homeserver($docuname,$docudom); |
| |
if (grep(/^\Q$docuhome\E$/,@ids)) { |
| |
$prefix = &LONCAPA::propath($docudom,$docuname); |
| |
$pathtocheck = "$dir_root/$destination"; |
| |
$dir = $dir_root; |
| |
$ishome = 1; |
| |
} else { |
| |
$prefix = $Apache::lonnet::perlvar{'lonDocRoot'}; |
| |
$pathtocheck = "$dir_root/$docudom/$docuname/$destination"; |
| |
$dir = "$dir_root/$docudom/$docuname"; |
| |
} |
| |
my $currdir = "$dir_root/$destination"; |
| |
(my $docstype,$mapinner{'0'}) = ($destination =~ m{^(docs|supplemental)/(\w+)/}); |
| |
if ($env{'form.folderpath'}) { |
| |
my @items = split('&',$env{'form.folderpath'}); |
| |
$folders{'0'} = $items[-2]; |
| |
$containers{'0'}='sequence'; |
| |
} elsif ($env{'form.pagepath'}) { |
| |
my @items = split('&',$env{'form.pagepath'}); |
| |
$folders{'0'} = $items[-2]; |
| |
$containers{'0'}='page'; |
| |
} |
| |
my @archdirs = &get_env_multiple('form.archive_directory'); |
| |
if ($numitems) { |
| |
for (my $i=1; $i<=$numitems; $i++) { |
| |
my $path = $env{'form.archive_content_'.$i}; |
| |
if ($path =~ m{^\Q$pathtocheck\E/([^/]+)$}) { |
| |
my $item = $1; |
| |
$toplevelitems{$item} = $i; |
| |
if (grep(/^\Q$i\E$/,@archdirs)) { |
| |
$is_dir{$item} = 1; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
my ($output,%children,%parent,%titles,%dirorder); |
| |
if (keys(%toplevelitems) > 0) { |
| |
my @contents = sort(keys(%toplevelitems)); |
| |
(my $count,undef) = &get_extracted($docudom,$docuname,$currdir,\%is_dir,\%children, |
| |
\%parent,\@contents,\%dirorder,\%titles); |
| |
} |
| |
my (%referrer,%orphaned,%todelete,%todeletedir,%newdest,%newseqid); |
| |
if ($numitems) { |
| |
for (my $i=1; $i<=$numitems; $i++) { |
| |
my $path = $env{'form.archive_content_'.$i}; |
| |
if ($path =~ /^\Q$pathtocheck\E/) { |
| |
if ($env{'form.archive_'.$i} eq 'discard') { |
| |
if ($prefix ne '' && $path ne '') { |
| |
if (-e $prefix.$path) { |
| |
if ((@archdirs > 0) && |
| |
(grep(/^\Q$i\E$/,@archdirs))) { |
| |
$todeletedir{$prefix.$path} = 1; |
| |
} else { |
| |
$todelete{$prefix.$path} = 1; |
| |
} |
| |
} |
| |
} |
| |
} elsif ($env{'form.archive_'.$i} eq 'display') { |
| |
my ($docstitle,$title,$url,$outer); |
| |
($title) = ($path =~ m{/([^/]+)$}); |
| |
$docstitle = $env{'form.archive_title_'.$i}; |
| |
if ($docstitle eq '') { |
| |
$docstitle = $title; |
| |
} |
| |
$outer = 0; |
| |
if (ref($dirorder{$i}) eq 'ARRAY') { |
| |
if (@{$dirorder{$i}} > 0) { |
| |
foreach my $item (reverse(@{$dirorder{$i}})) { |
| |
if ($env{'form.archive_'.$item} eq 'display') { |
| |
$outer = $item; |
| |
last; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
my ($errtext,$fatal) = |
| |
&LONCAPA::map::mapread('/uploaded/'.$docudom.'/'.$docuname. |
| |
'/'.$folders{$outer}.'.'. |
| |
$containers{$outer}); |
| |
next if ($fatal); |
| |
if ((@archdirs > 0) && (grep(/^\Q$i\E$/,@archdirs))) { |
| |
if ($context eq 'coursedocs') { |
| |
$mapinner{$i} = time; |
| |
$folders{$i} = 'default_'.$mapinner{$i}; |
| |
$containers{$i} = 'sequence'; |
| |
my $url = '/uploaded/'.$docudom.'/'.$docuname.'/'. |
| |
$folders{$i}.'.'.$containers{$i}; |
| |
my $newidx = &LONCAPA::map::getresidx(); |
| |
$LONCAPA::map::resources[$newidx]= |
| |
$docstitle.':'.$url.':false:normal:res'; |
| |
push(@LONCAPA::map::order,$newidx); |
| |
my ($outtext,$errtext) = |
| |
&LONCAPA::map::storemap('/uploaded/'.$docudom.'/'. |
| |
$docuname.'/'.$folders{$outer}. |
| |
'.'.$containers{$outer},1); |
| |
$newseqid{$i} = $newidx; |
| |
} |
| |
} else { |
| |
if ($context eq 'coursedocs') { |
| |
my $newidx=&LONCAPA::map::getresidx(); |
| |
my $url = '/uploaded/'.$docudom.'/'.$docuname.'/'. |
| |
$docstype.'/'.$mapinner{$outer}.'/'.$newidx.'/'. |
| |
$title; |
| |
if (!-e "$prefix$dir/$docstype/$mapinner{$outer}") { |
| |
mkdir("$prefix$dir/$docstype/$mapinner{$outer}",0755); |
| |
} |
| |
if (!-e "$prefix$dir/$docstype/$mapinner{$outer}/$newidx") { |
| |
mkdir("$prefix$dir/$docstype/$mapinner{$outer}/$newidx"); |
| |
} |
| |
if (-e "$prefix$dir/$docstype/$mapinner{$outer}/$newidx") { |
| |
system("mv $prefix$path $prefix$dir/$docstype/$mapinner{$outer}/$newidx/$title"); |
| |
$newdest{$i} = "$prefix$dir/$docstype/$mapinner{$outer}/$newidx"; |
| |
} |
| |
$LONCAPA::map::resources[$newidx]= |
| |
$docstitle.':'.$url.':false:normal:res'; |
| |
push(@LONCAPA::map::order, $newidx); |
| |
my ($outtext,$errtext)= |
| |
&LONCAPA::map::storemap('/uploaded/'.$docudom.'/'. |
| |
$docuname.'/'.$folders{$outer}. |
| |
'.'.$containers{$outer},1); |
| |
} |
| |
} |
| |
} elsif ($env{'form.archive_'.$i} eq 'dependency') { |
| |
my ($title) = ($path =~ m{/([^/]+)$}); |
| |
$referrer{$i} = $env{'form.archive_dependent_on_'.$i}; |
| |
if ($env{'form.archive_'.$referrer{$i}} eq 'display') { |
| |
if (ref($dirorder{$i}) eq 'ARRAY') { |
| |
my ($itemidx,$fullpath); |
| |
for (my $j=0; $j<@{$dirorder{$i}}; $j++) { |
| |
if (ref($dirorder{$referrer{$i}}) eq 'ARRAY') { |
| |
my $container = $dirorder{$referrer{$i}}->[-1]; |
| |
for (my $j=0; $j<@{$dirorder{$i}}; $j++) { |
| |
if ($dirorder{$i}->[$j] eq $container) { |
| |
$itemidx = $j; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
if ($itemidx ne '') { |
| |
if (grep(/^\Q$referrer{$i}\E$/,@archdirs)) { |
| |
if ($mapinner{$referrer{$i}}) { |
| |
$fullpath = "$prefix$dir/$docstype/$mapinner{$referrer{$i}}"; |
| |
for (my $j=$itemidx; $j<@{$dirorder{$i}}; $j++) { |
| |
if (grep(/^\Q$dirorder{$i}->[$j]\E$/,@archdirs)) { |
| |
unless (defined($newseqid{$dirorder{$i}->[$j]})) { |
| |
$fullpath .= '/'.$titles{$dirorder{$i}->[$j]}; |
| |
if (!-e $fullpath) { |
| |
mkdir($fullpath,0755); |
| |
} |
| |
} |
| |
} else { |
| |
last; |
| |
} |
| |
} |
| |
} |
| |
} elsif ($newdest{$referrer{$i}}) { |
| |
$fullpath = $newdest{$referrer{$i}}; |
| |
for (my $j=$itemidx; $j<@{$dirorder{$i}}; $j++) { |
| |
if ($env{'form.archive_'.$dirorder{$i}->[$j]} eq 'discard') { |
| |
$orphaned{$i} = $env{'form.archive_'.$dirorder{$i}->[$j]}; |
| |
last; |
| |
} elsif (grep(/^\Q$dirorder{$i}->[$j]\E$/,@archdirs)) { |
| |
unless (defined($newseqid{$dirorder{$i}->[$j]})) { |
| |
$fullpath .= '/'.$titles{$dirorder{$i}->[$j]}; |
| |
if (!-e $fullpath) { |
| |
mkdir($fullpath,0755); |
| |
} |
| |
} |
| |
} else { |
| |
last; |
| |
} |
| |
} |
| |
} |
| |
if ($fullpath ne '') { |
| |
system("mv $prefix$path $fullpath/$title"); |
| |
} |
| |
} |
| |
} |
| |
} elsif ($env{'form.archive_'.$referrer{$i}} eq 'discard') { |
| |
$warning .= &mt('[_1] is a dependency of [_2], which was discarded.', |
| |
$path,$env{'form.archive_content_'.$referrer{$i}}).'<br />'; |
| |
} |
| |
} |
| |
} else { |
| |
$warning .= &mt('Item extracted from archive: [_1] has unexpected path.',$path).'<br />'; |
| |
} |
| |
} |
| |
if (keys(%todelete)) { |
| |
foreach my $key (keys(%todelete)) { |
| |
unlink($key); |
| |
} |
| |
} |
| |
if (keys(%todeletedir)) { |
| |
foreach my $key (keys(%todeletedir)) { |
| |
rmdir($key); |
| |
} |
| |
} |
| |
foreach my $dir (sort(keys(%is_dir))) { |
| |
if (($pathtocheck ne '') && ($dir ne '')) { |
| |
&cleanup_empty_dirs($prefix."$pathtocheck/$dir"); |
| |
} |
| |
} |
| |
} else { |
| |
$warning = &mt('No items found in archive.'); |
| |
} |
| |
if ($error) { |
| |
$output .= '<p class="LC_error">'.&mt('Not extracted.').'<br />'. |
| |
$error.'</p>'."\n"; |
| |
} |
| |
if ($warning) { |
| |
$output .= '<p class="LC_warning">'.$warning.'</p>'."\n"; |
| |
} |
| |
return $output; |
| |
} |
| |
|
| |
sub cleanup_empty_dirs { |
| |
my ($path) = @_; |
| |
if (($path ne '') && (-d $path)) { |
| |
if (opendir(my $dirh,$path)) { |
| |
my @dircontents = grep(!/^\./,readdir($dirh)); |
| |
my $numitems = 0; |
| |
foreach my $item (@dircontents) { |
| |
if (-d "$path/$item") { |
| |
&recurse_dirs("$path/$item"); |
| |
if (-e "$path/$item") { |
| |
$numitems ++; |
| |
} |
| |
} else { |
| |
$numitems ++; |
| |
} |
| |
} |
| |
if ($numitems == 0) { |
| |
rmdir($path); |
| |
} |
| |
closedir($dirh); |
| |
} |
| |
} |
| |
return; |
| |
} |
| |
|
| |
=pod |
| |
|
| |
=item * &get_turnedin_filepath() |
| |
|
| |
Determines path in a user's portfolio file for storage of files uploaded |
| |
to a specific essayresponse or dropbox item. |
| |
|
| |
Inputs: 3 required + 1 optional. |
| |
$symb is symb for resource, $uname and $udom are for current user (required). |
| |
$caller is optional (can be "submission", if routine is called when storing |
| |
an upoaded file when "Submit Answer" button was pressed). |
| |
|
| |
Returns array containing $path and $multiresp. |
| |
$path is path in portfolio. $multiresp is 1 if this resource contains more |
| |
than one file upload item. Callers of routine should append partid as a |
| |
subdirectory to $path in cases where $multiresp is 1. |
| |
|
| |
Called by: homework/essayresponse.pm and homework/structuretags.pm |
| |
|
| |
=cut |
| |
|
| |
sub get_turnedin_filepath { |
| |
my ($symb,$uname,$udom,$caller) = @_; |
| |
my ($map,$resid,$resurl)=&Apache::lonnet::decode_symb($symb); |
| |
my $turnindir; |
| |
my %userhash = &Apache::lonnet::userenvironment($udom,$uname,'turnindir'); |
| |
$turnindir = $userhash{'turnindir'}; |
| |
my ($path,$multiresp); |
| |
if ($turnindir eq '') { |
| |
if ($caller eq 'submission') { |
| |
$turnindir = &mt('turned in'); |
| |
$turnindir =~ s/\W+/_/g; |
| |
my %newhash = ( |
| |
'turnindir' => $turnindir, |
| |
); |
| |
&Apache::lonnet::put('environment',\%newhash,$udom,$uname); |
| |
} |
| |
} |
| |
if ($turnindir ne '') { |
| |
$path = '/'.$turnindir.'/'; |
| |
my ($multipart,$turnin,@pathitems); |
| |
my $navmap = Apache::lonnavmaps::navmap->new(); |
| |
if (defined($navmap)) { |
| |
my $mapres = $navmap->getResourceByUrl($map); |
| |
if (ref($mapres)) { |
| |
my $pcslist = $mapres->map_hierarchy(); |
| |
if ($pcslist ne '') { |
| |
foreach my $pc (split(/,/,$pcslist)) { |
| |
my $res = $navmap->getByMapPc($pc); |
| |
if (ref($res)) { |
| |
my $title = $res->compTitle(); |
| |
$title =~ s/\W+/_/g; |
| |
if ($title ne '') { |
| |
push(@pathitems,$title); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
my $maptitle = $mapres->compTitle(); |
| |
$maptitle =~ s/\W+/_/g; |
| |
if ($maptitle ne '') { |
| |
push(@pathitems,$maptitle); |
| |
} |
| |
unless ($env{'request.state'} eq 'construct') { |
| |
my $res = $navmap->getBySymb($symb); |
| |
if (ref($res)) { |
| |
my $partlist = $res->parts(); |
| |
my $totaluploads = 0; |
| |
if (ref($partlist) eq 'ARRAY') { |
| |
foreach my $part (@{$partlist}) { |
| |
my @types = $res->responseType($part); |
| |
my @ids = $res->responseIds($part); |
| |
for (my $i=0; $i < scalar(@ids); $i++) { |
| |
if ($types[$i] eq 'essay') { |
| |
my $partid = $part.'_'.$ids[$i]; |
| |
if (&Apache::lonnet::EXT("resource.$partid.uploadedfiletypes") ne '') { |
| |
$totaluploads ++; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
if ($totaluploads > 1) { |
| |
$multiresp = 1; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} else { |
| |
return; |
| |
} |
| |
} else { |
| |
return; |
| |
} |
| |
my $restitle=&Apache::lonnet::gettitle($symb); |
| |
$restitle =~ s/\W+/_/g; |
| |
if ($restitle eq '') { |
| |
$restitle = ($resurl =~ m{/[^/]+$}); |
| |
if ($restitle eq '') { |
| |
$restitle = time; |
| |
} |
| |
} |
| |
push(@pathitems,$restitle); |
| |
$path .= join('/',@pathitems); |
| |
} |
| |
return ($path,$multiresp); |
| |
} |
| |
|
| =pod |
=pod |
| |
|
| =back |
=back |
|
Line 11158 sub init_user_environment {
|
Line 13002 sub init_user_environment {
|
| |
|
| # See if old ID present, if so, remove |
# See if old ID present, if so, remove |
| |
|
| my ($filename,$cookie,$userroles); |
my ($filename,$cookie,$userroles,$firstaccenv,$timerintenv); |
| my $now=time; |
my $now=time; |
| |
|
| if ($public) { |
if ($public) { |
|
Line 11196 sub init_user_environment {
|
Line 13040 sub init_user_environment {
|
| |
|
| # Initialize roles |
# Initialize roles |
| |
|
| $userroles=&Apache::lonnet::rolesinit($domain,$username,$authhost); |
($userroles,$firstaccenv,$timerintenv) = |
| |
&Apache::lonnet::rolesinit($domain,$username,$authhost); |
| } |
} |
| # ------------------------------------ Check browser type and MathML capability |
# ------------------------------------ Check browser type and MathML capability |
| |
|
|
Line 11252 sub init_user_environment {
|
Line 13097 sub init_user_environment {
|
| } |
} |
| |
|
| my %is_adv = ( is_adv => $env{'user.adv'} ); |
my %is_adv = ( is_adv => $env{'user.adv'} ); |
| my %domdef = &Apache::lonnet::get_domain_defaults($domain); |
my %domdef; |
| |
unless ($domain eq 'public') { |
| |
%domdef = &Apache::lonnet::get_domain_defaults($domain); |
| |
} |
| |
|
| foreach my $tool ('aboutme','blog','portfolio') { |
foreach my $tool ('aboutme','blog','portfolio') { |
| $userenv{'availabletools.'.$tool} = |
$userenv{'availabletools.'.$tool} = |
|
Line 11268 sub init_user_environment {
|
Line 13116 sub init_user_environment {
|
| } |
} |
| |
|
| $env{'user.environment'} = "$lonids/$cookie.id"; |
$env{'user.environment'} = "$lonids/$cookie.id"; |
| |
|
| if (tie(my %disk_env,'GDBM_File',"$lonids/$cookie.id", |
if (tie(my %disk_env,'GDBM_File',"$lonids/$cookie.id", |
| &GDBM_WRCREAT(),0640)) { |
&GDBM_WRCREAT(),0640)) { |
| &_add_to_env(\%disk_env,\%initial_env); |
&_add_to_env(\%disk_env,\%initial_env); |
| &_add_to_env(\%disk_env,\%userenv,'environment.'); |
&_add_to_env(\%disk_env,\%userenv,'environment.'); |
| &_add_to_env(\%disk_env,$userroles); |
&_add_to_env(\%disk_env,$userroles); |
| |
if (ref($firstaccenv) eq 'HASH') { |
| |
&_add_to_env(\%disk_env,$firstaccenv); |
| |
} |
| |
if (ref($timerintenv) eq 'HASH') { |
| |
&_add_to_env(\%disk_env,$timerintenv); |
| |
} |
| if (ref($args->{'extra_env'})) { |
if (ref($args->{'extra_env'})) { |
| &_add_to_env(\%disk_env,$args->{'extra_env'}); |
&_add_to_env(\%disk_env,$args->{'extra_env'}); |
| } |
} |
![[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