loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.424, 2006/11/01 23:24:51	version 1.426, 2006/11/23 02:26:43
Line 342 sub xmlparse {	Line 342 sub xmlparse {
my $finaloutput = &inner_xmlparse($target,\@stack,\@parstack,\@pars,	my $finaloutput = &inner_xmlparse($target,\@stack,\@parstack,\@pars,
$safeeval,\%style_for_target,1);	$safeeval,\%style_for_target,1);

	if (@stack) {
	&warning("At end of file some tags were still left unclosed, ".
	'<tt><'.join('></tt>, <tt><',reverse(@stack)).
	'></tt>');
	}
if ($env{'request.uri'}) {	if ($env{'request.uri'}) {
&writeallows($env{'request.uri'});	&writeallows($env{'request.uri'});
}	}
Line 1327 FULLPAGE	Line 1332 FULLPAGE
my $cleanbut = '';	my $cleanbut = '';

my $titledisplay=&display_title();	my $titledisplay=&display_title();
my %lt=&Apache::lonlocal::texthash('st' => 'Save this',	my %lt=&Apache::lonlocal::texthash('st' => 'Save and Edit',
'vi' => 'View',	'vi' => 'Save and View',
'ed' => 'Edit');	'ed' => 'Edit');
my $buttons=(<<BUTTONS);	my $buttons=(<<BUTTONS);
$cleanbut	$cleanbut
Line 1412 sub handler {	Line 1417 sub handler {
# Edit action? Save file.	# Edit action? Save file.
#	#
unless ($env{'request.state'} eq 'published') {	unless ($env{'request.state'} eq 'published') {
if ($env{'form.savethisfile'}) {	if ($env{'form.savethisfile'} \|\| $env{'form.viewmode'}) {
if (&storefile($file,$env{'form.filecont'})) {	if (&storefile($file,$env{'form.filecont'})) {
&Apache::lonxml::info("<font COLOR=\"#0000FF\">".	&Apache::lonxml::info("<font COLOR=\"#0000FF\">".
&mt('Updated').": ".	&mt('Updated').": ".