loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.528, 2011/12/28 13:15:00	version 1.529, 2012/04/11 15:58:07
Line 113 use Apache::lonr();	Line 113 use Apache::lonr();
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonhtmlcommon();	use Apache::lonhtmlcommon();
use Apache::functionplotresponse();	use Apache::functionplotresponse();
	use Apache::lonnavmaps();

#==================================== Main subroutine: xmlparse	#==================================== Main subroutine: xmlparse

Line 1789 ENDNOTFOUND	Line 1790 ENDNOTFOUND
if ($env{'form.editmode'} && (!($env{'form.viewmode'})) && (!($env{'form.discardview'})))	if ($env{'form.editmode'} && (!($env{'form.viewmode'})) && (!($env{'form.discardview'})))
{	{
my $displayfile=$request->uri;	my $displayfile=$request->uri;
$displayfile=~s/^\/[^\/]*//;	if ($displayfile =~ m{^/uploaded/}) {
	if ($env{'request.course.id'}) {
	my $symb = &Apache::lonnet::symbread();
	my ($map,$id,$res)=&Apache::lonnet::decode_symb($symb);
	my $navmap=Apache::lonnavmaps::navmap->new;
	if (ref($navmap)) {
	my $res = $navmap->getBySymb($symb);
	my @pathitems =
	&Apache::loncommon::get_folder_hierarchy($navmap,$map,1);
	push(@pathitems,$res->compTitle());
	$displayfile = join(' » ',@pathitems);
	}
	}
	} else {
	$displayfile=~s/^\/[^\/]*//;
	}

my ($edit_info, $add_to_onload, $add_to_onresize)=	my ($edit_info, $add_to_onload, $add_to_onresize)=
&inserteditinfo($filecontents,$filetype,$displayfile);	&inserteditinfo($filecontents,$filetype,$displayfile);