loncom/publisher/lonretrieve.pm - diff

Return to lonretrieve.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.42, 2010/12/14 16:26:04	version 1.42.2.1, 2011/11/07 13:38:45
Line 292 sub handler {	Line 292 sub handler {

my $r=shift;	my $r=shift;

my $fn;	my ($fn,$trailfile);


# Get query string for limited number of parameters	# Get query string for limited number of parameters
Line 330 sub handler {	Line 330 sub handler {
}	}

$fn=~s{/~($LONCAPA::username_re)}{};	$fn=~s{/~($LONCAPA::username_re)}{};
	$trailfile = "/home/$uname/public_html".$fn;

&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
Line 348 sub handler {	Line 349 sub handler {
$r->print(&Apache::loncommon::start_page('Retrieve Published Resources')	$r->print(&Apache::loncommon::start_page('Retrieve Published Resources')
.&Apache::lonhtmlcommon::breadcrumbs()	.&Apache::lonhtmlcommon::breadcrumbs()
.&Apache::loncommon::head_subbox(	.&Apache::loncommon::head_subbox(
&Apache::loncommon::CSTR_pageheader()) # FIXME crumbs broken?	&Apache::loncommon::CSTR_pageheader($trailfile))
);	);

$r->print('<p>'	$r->print('<p>'