version 1.521, 2011/10/14 00:40:32
|
version 1.522, 2011/11/11 02:55:37
|
Line 844 sub initialize_rndseed {
|
Line 844 sub initialize_rndseed {
|
sub default_homework_load { |
sub default_homework_load { |
my ($safeeval)=@_; |
my ($safeeval)=@_; |
&Apache::lonxml::debug('Loading default_homework'); |
&Apache::lonxml::debug('Loading default_homework'); |
my $default=&Apache::lonnet::getfile('/home/httpd/html/res/adm/includes/default_homework.lcpm'); |
my $default=&Apache::lonnet::getfile($Apache::lonnet::perlvar{'lonIncludes'}. |
|
'/default_homework.lcpm'); |
if ($default eq -1) { |
if ($default eq -1) { |
&Apache::lonxml::error("<b>Unable to find <i>default_homework.lcpm</i></b>"); |
&Apache::lonxml::error("<b>Unable to find <i>default_homework.lcpm</i></b>"); |
} else { |
} else { |
Line 1014 the current 'bubble line number' is stor
|
Line 1015 the current 'bubble line number' is stor
|
The value of it is stored in $Apache:lonxml::counter when live and |
The value of it is stored in $Apache:lonxml::counter when live and |
stored back to env after done. |
stored back to env after done. |
|
|
=item &increment_counter($increment); |
=item &increment_counter($increment, $part_response); |
|
|
Increments the internal counter environment variable a specified amount |
Increments the internal counter environment variable a specified amount |
|
|
Line 1847 sub debug {
|
Line 1848 sub debug {
|
} |
} |
|
|
sub show_error_warn_msg { |
sub show_error_warn_msg { |
if ($env{'request.filename'} eq '/home/httpd/html/res/lib/templates/simpleproblem.problem' && |
if (($env{'request.filename'} eq |
&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
$Apache::lonnet::perlvar{'lonDocRoot'}.'/res/lib/templates/simpleproblem.problem') && |
|
(&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) { |
return 1; |
return 1; |
} |
} |
return (($Apache::lonxml::debug eq 1) || |
return (($Apache::lonxml::debug eq 1) || |