loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/lonxml.pm between versions 1.336 and 1.338

version 1.336, 2004/08/19 20:53:48	version 1.338, 2004/08/29 08:14:41
Line 320 sub xmlparse {	Line 320 sub xmlparse {
my $bodytext=	my $bodytext=
$ENV{'course.'.$ENV{'request.course.id'}.'.default_xml_style'};	$ENV{'course.'.$ENV{'request.course.id'}.'.default_xml_style'};
if ($bodytext) {	if ($bodytext) {
my $location=&Apache::lonnet::filelocation('',$bodytext);	foreach my $file (split(',',$bodytext)) {
my $styletext=&Apache::lonnet::getfile($location);	my $location=&Apache::lonnet::filelocation('',$file);
if ($styletext ne '-1') {	my $styletext=&Apache::lonnet::getfile($location);
%style_for_target = (%style_for_target,	if ($styletext ne '-1') {
&Apache::style::styleparser($target,$styletext));	%style_for_target = (%style_for_target,
}	&Apache::style::styleparser($target,$styletext));
}	}
	}
	}
} elsif ($ENV{'construct.style'} && ($ENV{'request.state'} eq 'construct')) {	} elsif ($ENV{'construct.style'} && ($ENV{'request.state'} eq 'construct')) {
my $location=&Apache::lonnet::filelocation('',$ENV{'construct.style'});	my $location=&Apache::lonnet::filelocation('',$ENV{'construct.style'});
my $styletext=&Apache::lonnet::getfile($location);	my $styletext=&Apache::lonnet::getfile($location);
Line 1167 $cleanbut	Line 1169 $cleanbut
<input type="submit" name="viewmode" accesskey="v" value="$lt{'vi'}" />	<input type="submit" name="viewmode" accesskey="v" value="$lt{'vi'}" />
BUTTONS	BUTTONS
$buttons.=&Apache::lonhtmlcommon::spelllink('xmledit','filecont');	$buttons.=&Apache::lonhtmlcommon::spelllink('xmledit','filecont');
	$buttons.=&Apache::lonhtmlcommon::htmlareaselectactive('filecont');
my $editfooter=(<<ENDFOOTER);	my $editfooter=(<<ENDFOOTER);
$initialize	$initialize
<hr />	<hr />

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.336
changed lines
	Added in v.1.338