version 1.409, 2006/04/18 20:55:26
|
version 1.410, 2006/04/18 22:35:55
|
Line 40
|
Line 40
|
|
|
package Apache::lonxml; |
package Apache::lonxml; |
use vars |
use vars |
qw(@pwd @outputstack $redirection $import @extlinks $metamode $evaluate %insertlist @namespace $errorcount $warningcount @htmlareafields); |
qw(@pwd @outputstack $redirection $import @extlinks $metamode $evaluate %insertlist @namespace $errorcount $warningcount); |
use strict; |
use strict; |
use HTML::LCParser(); |
use HTML::LCParser(); |
use HTML::TreeBuilder(); |
use HTML::TreeBuilder(); |
Line 604 sub setup_globals {
|
Line 604 sub setup_globals {
|
my ($request,$target)=@_; |
my ($request,$target)=@_; |
$Apache::lonxml::request=$request; |
$Apache::lonxml::request=$request; |
$Apache::lonxml::registered = 0; |
$Apache::lonxml::registered = 0; |
@Apache::lonxml::htmlareafields=(); |
|
$errorcount=0; |
$errorcount=0; |
$warningcount=0; |
$warningcount=0; |
$Apache::lonxml::default_homework_loaded=0; |
$Apache::lonxml::default_homework_loaded=0; |
Line 1293 sub inserteditinfo {
|
Line 1292 sub inserteditinfo {
|
my $initialize=''; |
my $initialize=''; |
if ($filetype eq 'html') { |
if ($filetype eq 'html') { |
my $addbuttons=&Apache::lonhtmlcommon::htmlareaaddbuttons(); |
my $addbuttons=&Apache::lonhtmlcommon::htmlareaaddbuttons(); |
$initialize=&Apache::lonhtmlcommon::htmlareaheaders(). |
$initialize=&Apache::lonhtmlcommon::spellheader(); |
&Apache::lonhtmlcommon::spellheader(); |
|
if (!&Apache::lonhtmlcommon::htmlareablocked() && |
if (!&Apache::lonhtmlcommon::htmlareablocked() && |
&Apache::lonhtmlcommon::htmlareabrowser()) { |
&Apache::lonhtmlcommon::htmlareabrowser()) { |
$initialize.=(<<FULLPAGE); |
$initialize.=(<<FULLPAGE); |