[LON-CAPA-cvs] cvs: loncom /xml lonxml.pm
raeburn
raeburn at source.lon-capa.org
Wed Apr 17 11:15:13 EDT 2024
raeburn Wed Apr 17 15:15:13 2024 EDT
Modified files:
/loncom/xml lonxml.pm
Log:
- Remove trailing white space.
-------------- next part --------------
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.571 loncom/xml/lonxml.pm:1.572
--- loncom/xml/lonxml.pm:1.571 Wed Apr 17 13:37:37 2024
+++ loncom/xml/lonxml.pm Wed Apr 17 15:15:13 2024
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
-# XML Parser Module
+# XML Parser Module
#
-# $Id: lonxml.pm,v 1.571 2024/04/17 13:37:37 raeburn Exp $
+# $Id: lonxml.pm,v 1.572 2024/04/17 15:15:13 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -25,13 +25,13 @@
#
# http://www.lon-capa.org/
#
-# Copyright for TtHfunc and TtMfunc by Ian Hutchinson.
-# TtHfunc and TtMfunc (the "Code") may be compiled and linked into
-# binary executable programs or libraries distributed by the
-# Michigan State University (the "Licensee"), but any binaries so
+# Copyright for TtHfunc and TtMfunc by Ian Hutchinson.
+# TtHfunc and TtMfunc (the "Code") may be compiled and linked into
+# binary executable programs or libraries distributed by the
+# Michigan State University (the "Licensee"), but any binaries so
# distributed are hereby licensed only for use in the context
-# of a program or computational system for which the Licensee is the
-# primary author or distributor, and which performs substantial
+# of a program or computational system for which the Licensee is the
+# primary author or distributor, and which performs substantial
# additional tasks beyond the translation of (La)TeX into HTML.
# The C source of the Code may not be distributed by the Licensee
# to any other parties under any circumstances.
@@ -57,7 +57,7 @@
-package Apache::lonxml;
+package Apache::lonxml;
use vars
qw(@pwd @outputstack $redirection $import @extlinks $metamode $evaluate %insertlist @namespace $errorcount $warningcount);
use strict;
@@ -117,7 +117,7 @@
use Apache::functionplotresponse();
use Apache::lonnavmaps();
-#==================================== Main subroutine: xmlparse
+#==================================== Main subroutine: xmlparse
#debugging control, to turn on debugging modify the correct handler
@@ -208,7 +208,7 @@
if ($Apache::lonhomework::parsing_a_problem ||
$Apache::lonhomework::parsing_a_task ) {
$mode='problem';
- $status=$Apache::inputtags::status[-1];
+ $status=$Apache::inputtags::status[-1];
}
my $discussion;
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
@@ -317,7 +317,7 @@
}
&init_state();
if ($env{'form.return_only_error_and_warning_counts'}) {
- if ($env{'request.filename'}=~/\.(html|htm|xml)$/i) {
+ if ($env{'request.filename'}=~/\.(html|htm|xml)$/i) {
my $error=&verify_html($content_file_string);
if ($error) { $errorcount++; }
}
@@ -343,7 +343,7 @@
$string=~s/([^\\])\&/$1\\\&/g;
$string=~s/([^\\])\#/$1\\\#/g;
$string =~ s/_/\\_/g; # _ -> \_
- $string =~ s/\^/\\\^{}/g; # ^ -> \^{}
+ $string =~ s/\^/\\\^{}/g; # ^ -> \^{}
} else {
$string=~s/\\/\\ensuremath{\\backslash}/g;
$string=~s/\\\%|\%/\\\%/g;
@@ -469,7 +469,7 @@
if ($token->[0] eq 'E') {
if ($dontpop) {
- $lastdontpop = $token;
+ $lastdontpop = $token;
} else {
$lastendtag = $token->[1];
&end_tag($stack,$parstack,$token);
@@ -483,7 +483,7 @@
}
}
- if (($#$stack == 0) && ($stack->[0] eq 'physnet') && ($target eq 'web') &&
+ if (($#$stack == 0) && ($stack->[0] eq 'physnet') && ($target eq 'web') &&
($lastendtag eq 'LONCAPA_INTERNAL_TURN_STYLE_ON')) {
if ((ref($lastdontpop) eq 'ARRAY') && ($lastdontpop->[1] eq 'physnet')) {
&end_tag($stack,$parstack,$lastdontpop);
@@ -506,11 +506,11 @@
if ($target eq 'modified') {
# if modfied, handle startpart and endpart
$finaloutput=~s/\<startpartmarker[^\>]*\>(.*)\<endpartmarker[^\>]*\>/<part>$1<\/part>/gs;
- }
+ }
return $finaloutput;
}
-##
+##
## Looks to see if there is a subroutine defined for this tag. If so, call it,
## otherwise do not call it as we do not know what it is.
##
@@ -597,7 +597,7 @@
sub init_state {
undef(%state);
}
-
+
sub set_state {
my ($key,$value) = @_;
$state{$key} = $value;
@@ -699,7 +699,7 @@
$safehole->wrap(\&Apache::lonr::r_check,$safeeval,'&r_check');
$safehole->wrap(\&Apache::lonr::r_cas_formula_fix,$safeeval,
'&r_cas_formula_fix');
-
+
$safehole->wrap(\&Apache::caparesponse::capa_formula_fix,$safeeval,
'&capa_formula_fix');
@@ -725,7 +725,7 @@
$safehole->wrap(\&Math::Cephes::y1,$safeeval,'&y1');
$safehole->wrap(\&Math::Cephes::yn,$safeeval,'&yn');
$safehole->wrap(\&Math::Cephes::yv,$safeeval,'&yv');
-
+
$safehole->wrap(\&Math::Cephes::bdtr ,$safeeval,'&bdtr' );
$safehole->wrap(\&Math::Cephes::bdtrc ,$safeeval,'&bdtrc' );
$safehole->wrap(\&Math::Cephes::bdtri ,$safeeval,'&bdtri' );
@@ -1072,7 +1072,7 @@
}
$Apache::lonxml::counter += $increment;
- # If the caller supplied the response_id parameter,
+ # If the caller supplied the response_id parameter,
# Maintain its counter.. creating if necessary.
if (defined($part_response)) {
@@ -1193,7 +1193,7 @@
=item get_bubble_line_hash
-Returns the current bubble line hash. This is assumed to
+Returns the current bubble line hash. This is assumed to
be small so we return a copy
@@ -1219,8 +1219,8 @@
my $depth=0;
my $token;
my $result='';
- if ( $tag =~ m:^/: ) {
- my $tag=substr($tag,1);
+ if ( $tag =~ m:^/: ) {
+ my $tag=substr($tag,1);
#&Apache::lonxml::debug("have:$tag:");
my $top_empty=0;
while (($depth >=0) && ($#$pars > -1) && (!$top_empty)) {
@@ -1321,7 +1321,7 @@
push (@Apache::lonxml::pwd, $Apache::lonxml::pwd[$#Apache::lonxml::pwd]);
} else {
push (@Apache::lonxml::pwd, $dir);
- }
+ }
}
sub parstring {
@@ -1338,7 +1338,7 @@
push(@values,"\"$val\"");
}
}
- my $var_init =
+ my $var_init =
(@vars) ? 'my ('.join(',', at vars).') = ('.join(',', at values).');'
: '';
return $var_init;
@@ -1591,7 +1591,7 @@
}
} elsif ($symb || $folderpath) {
$deps_button = &Apache::lonhtmlcommon::dependencies_button()."\n";
- $initialize .=
+ $initialize .=
&Apache::lonhtmlcommon::dependencycheck_js($symb,$itemtitle,
undef,$folderpath,$uri)."\n";
}
@@ -1803,7 +1803,7 @@
my $target=&get_target();
$Apache::lonxml::debug=$env{'user.debug'};
-
+
&Apache::loncommon::content_type($request,'text/html');
&Apache::loncommon::no_cache($request);
if ($env{'request.state'} eq 'published') {
@@ -1811,7 +1811,7 @@
'lastrevisiondate'));
}
# Embedded Flash movies from Camtasia served from https will not display in IE
- # if XML config file has expired from cache.
+ # if XML config file has expired from cache.
if ($ENV{'SERVER_PORT'} == 443) {
if ($request->uri =~ /\.xml$/) {
my ($httpbrowser,$clientbrowser) =
@@ -1826,7 +1826,7 @@
}
}
$request->send_http_header;
-
+
return OK if $request->header_only;
@@ -1949,7 +1949,7 @@
$inhibit_menu = 1;
}
}
- if (($filetype ne 'html') &&
+ if (($filetype ne 'html') &&
(!$env{'form.return_only_error_and_warning_counts'}) &&
(!$inhibit_menu)) {
my $nochgview = 1;
@@ -2007,7 +2007,7 @@
if ($request->uri =~ m{^/uploaded/}) {
if ($env{'request.course.id'}) {
if ($request->uri =~ m{^\Q/uploaded/$cdom/$cnum/\E(docs|supplemental)/}) {
- if ($1 eq 'supplemental') {
+ if ($1 eq 'supplemental') {
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['folderpath','title']);
}
@@ -2027,7 +2027,7 @@
}
}
unless ($itemtitle) {
- ($symb,$itemtitle,$displayfile) =
+ ($symb,$itemtitle,$displayfile) =
&get_courseupload_hierarchy($request->uri,
$env{'form.folderpath'},
$env{'form.title'});
@@ -2040,7 +2040,7 @@
&inserteditinfo($filecontents,$filetype,$displayfile,$symb,
$itemtitle,$env{'form.folderpath'},$request->uri,$action);
- my %options =
+ my %options =
('add_entries' =>
{'onresize' => $add_to_onresize,
'onload' => $add_to_onload, });
@@ -2079,7 +2079,7 @@
&Apache::lonxml::add_messages(\$result);
$request->print($result);
-
+
return OK;
}
@@ -2150,7 +2150,7 @@
}
sub show_error_warn_msg {
- if (($env{'request.filename'} eq
+ if (($env{'request.filename'} eq
$Apache::lonnet::perlvar{'lonDocRoot'}.'/res/lib/templates/simpleproblem.problem') &&
(&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) {
return 1;
@@ -2245,7 +2245,7 @@
sub warning {
$warningcount++;
-
+
if ($env{'form.grade_target'} ne 'tex') {
if ( &show_error_warn_msg() ) {
push(@Apache::lonxml::warning_messages,
@@ -2260,7 +2260,7 @@
}
sub info {
- if ($env{'form.grade_target'} ne 'tex'
+ if ($env{'form.grade_target'} ne 'tex'
&& $env{'request.state'} eq 'construct') {
push(@Apache::lonxml::info_messages,join('<br />', at _)."<br />\n");
}
@@ -2310,7 +2310,7 @@
}
} else {
if ( $args =~ /my .*\$\Q$param\E[,\)]/ ) {
-
+
return &Apache::run::run("{$args;".'return $'.$param.'}',
$safeeval); #'
} else {
@@ -2392,7 +2392,7 @@
}
}
}
-
+
# parse the allows and ignore tags set to <show>no</show>
foreach my $tag (@alltags) {
next if (!exists($insertlist{$tag.'.allow'}));
@@ -2498,7 +2498,7 @@
=item &print_pdf_radiobutton(fieldname, value)
Returns a latexline to generate a PDF-Form-Radiobutton.
-Note: Radiobuttons with equal names are automaticly grouped
+Note: Radiobuttons with equal names are automaticly grouped
in a selection-group.
$fieldname: PDF internalname of the radiobutton(group)
@@ -2525,7 +2525,7 @@
my $result;
my ($fieldName) = @_;
$result .= '\begin{tabularx}{\textwidth}{p{2.5cm}X}'."\n";
- $result .= '\comboBox[]{'.$fieldName.'}{2.3cm}{14bp}{'; #
+ $result .= '\comboBox[]{'.$fieldName.'}{2.3cm}{14bp}{'; #
return $result;
}
@@ -2543,10 +2543,10 @@
sub print_pdf_add_combobox_option {
my $result;
- my ($option) = @_;
+ my ($option) = @_;
$result .= '('.$option.')';
-
+
return $result;
}
More information about the LON-CAPA-cvs
mailing list