loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.948.2.32, 2011/10/07 14:55:24	version 1.948.2.33, 2011/11/08 02:27:47
Line 4560 sub head_subbox {	Line 4560 sub head_subbox {

=item * &CSTR_pageheader()	=item * &CSTR_pageheader()

Inputs: ./.	Input: (optional) filename from which breadcrumb trail is built.
	In most cases no input is needed, as $env{'request.filename'}
	is appropriate for use in building the breadcrumb trail.

Returns: HTML div with CSTR path and recent box	Returns: HTML div with CSTR path and recent box
To be included on Construction Space pages	To be included on Construction Space pages
Line 4568 Returns: HTML div with CSTR path and rec	Line 4570 Returns: HTML div with CSTR path and rec
=cut	=cut

sub CSTR_pageheader {	sub CSTR_pageheader {
# this is for resources; directories have customtitle, and crumbs	my ($trailfile) = @_;
# and select recent are created in lonpubdir.pm	if ($trailfile eq '') {
	$trailfile = $env{'request.filename'};
	}

	# this is for resources; directories have customtitle, and crumbs
	# and select recent are created in lonpubdir.pm

my ($uname,$thisdisfn)=	my ($uname,$thisdisfn)=
($env{'request.filename'} =~ m\|^/home/([^/]+)/public_html/(.*)\|);	($trailfile =~ m\|^/home/([^/]+)/public_html/(.*)\|);
my $formaction='/priv/'.$uname.'/'.$thisdisfn;	my $formaction='/priv/'.$uname.'/'.$thisdisfn;
$formaction=~s/\/+/\//g;	$formaction=~s/\/+/\//g;