|
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); |
![[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