version 1.34, 2002/10/20 18:42:53
|
version 1.35, 2002/10/21 20:31:06
|
Line 265 sub checkonthis {
|
Line 265 sub checkonthis {
|
if (&Apache::loncommon::fileembstyle($1) eq 'ssi') { |
if (&Apache::loncommon::fileembstyle($1) eq 'ssi') { |
$r->print('<br />'); |
$r->print('<br />'); |
$r->rflush(); |
$r->rflush(); |
my $default=''; |
|
if ($1=~/(problem|exam|quiz|assess|survey|form|library)/) { |
|
$default=&Apache::lonnet::getfile( |
|
'/home/httpd/html/res/adm/includes/default_homework.lcpm'); |
|
} |
|
for (my $i=0;$i<=$level*5;$i++) { |
for (my $i=0;$i<=$level*5;$i++) { |
$r->print(' '); |
$r->print(' '); |
} |
} |
$r->print('- Rendering: '); |
$r->print('- Rendering: '); |
&Apache::lonxml::xmlparse($r,'web', |
&Apache::lonxml::xmlparse($r,'web', |
&Apache::lonnet::getfile( |
&Apache::lonnet::getfile( |
&Apache::lonnet::filelocation('',$url)),$default); |
&Apache::lonnet::filelocation('',$url))); |
if (($Apache::lonxml::errorcount) || |
if (($Apache::lonxml::errorcount) || |
($Apache::lonxml::warningcount)) { |
($Apache::lonxml::warningcount)) { |
if ($Apache::lonxml::errorcount) { |
if ($Apache::lonxml::errorcount) { |