version 1.488, 2008/10/27 19:15:35
|
version 1.491, 2009/02/18 06:43:55
|
Line 37
|
Line 37
|
# to any other parties under any circumstances. |
# to any other parties under any circumstances. |
# |
# |
|
|
|
=pod |
|
|
|
=head1 NAME |
|
|
|
Apache::lonxml |
|
|
|
=head1 SYNOPSIS |
|
|
|
XML Parsing Module |
|
|
|
This is part of the LearningOnline Network with CAPA project |
|
described at http://www.lon-capa.org. |
|
|
|
|
|
=head1 SUBROUTINES |
|
|
|
=cut |
|
|
|
|
|
|
package Apache::lonxml; |
package Apache::lonxml; |
use vars |
use vars |
Line 658 sub setup_globals {
|
Line 677 sub setup_globals {
|
$Apache::lonxml::request=$request; |
$Apache::lonxml::request=$request; |
$errorcount=0; |
$errorcount=0; |
$warningcount=0; |
$warningcount=0; |
|
$Apache::lonxml::internal_error=0; |
$Apache::lonxml::default_homework_loaded=0; |
$Apache::lonxml::default_homework_loaded=0; |
$Apache::lonxml::usestyle=1; |
$Apache::lonxml::usestyle=1; |
&init_counter(); |
&init_counter(); |
Line 1586 FULLPAGE
|
Line 1606 FULLPAGE
|
my $spelllink .=&Apache::lonhtmlcommon::spelllink('xmledit','filecont'); |
my $spelllink .=&Apache::lonhtmlcommon::spelllink('xmledit','filecont'); |
my $textarea_events = &Apache::edit::element_change_detection(); |
my $textarea_events = &Apache::edit::element_change_detection(); |
my $form_events = &Apache::edit::form_change_detection(); |
my $form_events = &Apache::edit::form_change_detection(); |
my $htmlerror=&verify_html($filecontents); |
my $htmlerror; |
if ($htmlerror) { |
if ($filetype eq 'html') { |
$htmlerror='<span class="LC_error">'.$htmlerror.'</span>'; |
$htmlerror=&verify_html($filecontents); |
|
if ($htmlerror) { |
|
$htmlerror='<span class="LC_error">'.$htmlerror.'</span>'; |
|
} |
} |
} |
my $editfooter=(<<ENDFOOTER); |
my $editfooter=(<<ENDFOOTER); |
$initialize |
$initialize |
Line 1828 sub error {
|
Line 1851 sub error {
|
|
|
$errorcount++; |
$errorcount++; |
|
|
|
$Apache::lonxml::internal_error=1; |
|
|
if (defined($Apache::inputtags::part)) { |
if (defined($Apache::inputtags::part)) { |
if ( @Apache::inputtags::response ) { |
if ( @Apache::inputtags::response ) { |
push(@errors, |
push(@errors, |