loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.463, 2011/11/07 20:05:55	version 1.465, 2011/11/27 21:04:19
Line 2872 sub handler {	Line 2872 sub handler {
my $containertag;	my $containertag;
my $uploadtag;	my $uploadtag;

	# Do we directly jump somewhere?
	if ($env{'form.command'} eq 'direct') {
	(my $mapurl) = &Apache::lonnet::decode_symb($env{'form.symb'});
	my $maptitle = &Apache::lonnet::gettitle($mapurl);
	$mapurl=~s{^.*/([^/]+)\.\w+$}{$1};
	$env{'form.folderpath'}=
	'default&'.&Apache::lonhtmlcommon::entity_encode('Main Course Documents').
	'&default&...::::&'.
	&Apache::lonhtmlcommon::entity_encode($mapurl).'&'.
	&Apache::lonhtmlcommon::entity_encode($maptitle).'::::';
	}

# Where do we store these for when we come back?	# Where do we store these for when we come back?
my $stored_folderpath='docs_folderpath';	my $stored_folderpath='docs_folderpath';
if ($supplementalflag) {	if ($supplementalflag) {
$stored_folderpath='docs_sup_folderpath';	$stored_folderpath='docs_sup_folderpath';
}	}

# No folderpath, no pagepath, see if we have something stored	# No folderpath, no pagepath, see if we have something stored
if ((!$env{'form.folderpath'}) && (!$env{'form.pagepath'})) {	if ((!$env{'form.folderpath'}) && (!$env{'form.pagepath'})) {
&Apache::loncommon::restore_course_settings($stored_folderpath,	&Apache::loncommon::restore_course_settings($stored_folderpath,