loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1204, 2012/11/30 20:48:34	version 1.1205, 2012/12/03 14:47:37
Line 10324 sub getdocspath {	Line 10324 sub getdocspath {
':'.$res->randompick().	':'.$res->randompick().
':'.$res->randomout().	':'.$res->randomout().
':'.$res->encrypted().	':'.$res->encrypted().
':'.$res->randomorder();	':'.$res->randomorder().
	':'.$res->is_page();
}	}
}	}
}	}
Line 10339 sub getdocspath {	Line 10340 sub getdocspath {
':'.$mapresobj->randompick().	':'.$mapresobj->randompick().
':'.$mapresobj->randomout().	':'.$mapresobj->randomout().
':'.$mapresobj->encrypted().	':'.$mapresobj->encrypted().
':'.$mapresobj->randomorder();	':'.$mapresobj->randomorder().
	':'.$mapresobj->is_page();
} else {	} else {
my $maptitle = &gettitle($mapurl);	my $maptitle = &gettitle($mapurl);
	my $ispage;
	if ($mapurl =~ /\.page$/) {
	$ispage = 1;
	}
if ($mapurl eq 'default') {	if ($mapurl eq 'default') {
$maptitle = 'Main Course Documents';	$maptitle = 'Main Course Documents';
}	}
$path = &Apache::lonhtmlcommon::entity_encode($mapurl).'&'.	$path = &Apache::lonhtmlcommon::entity_encode($mapurl).'&'.
&Apache::lonhtmlcommon::entity_encode($maptitle).'::::';	&Apache::lonhtmlcommon::entity_encode($maptitle).':::::'.$ispage;
}	}
unless ($mapurl eq 'default') {	unless ($mapurl eq 'default') {
$path = 'default&'.	$path = 'default&'.
&Apache::lonhtmlcommon::entity_encode('Main Course Documents').	&Apache::lonhtmlcommon::entity_encode('Main Course Documents').
'::::&'.$path;	':::::&'.$path;
}	}
}	}
return $path;	return $path;