|
version 1.240, 2003/02/26 17:52:14
|
version 1.241, 2003/03/25 22:51:48
|
|
Line 795 sub default_homework_load {
|
Line 795 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('/home/httpd/html/res/adm/includes/default_homework.lcpm'); |
| if ($default == -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 { |
| &Apache::run::run($default,$safeeval); |
&Apache::run::run($default,$safeeval); |
|
Line 1187 sub handler {
|
Line 1187 sub handler {
|
| my %mystyle; |
my %mystyle; |
| my $result = ''; |
my $result = ''; |
| my $filecontents=&Apache::lonnet::getfile($file); |
my $filecontents=&Apache::lonnet::getfile($file); |
| if ($filecontents == -1) { |
if ($filecontents eq -1) { |
| $result=(<<ENDNOTFOUND); |
$result=(<<ENDNOTFOUND); |
| <html> |
<html> |
| <head> |
<head> |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonxml.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml