Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/lonpublisher.pm between versions 1.258.2.2 and 1.264

version 1.258.2.2, 2009/08/14 12:26:08	version 1.264, 2009/11/24 01:44:44
Line 1747 sub phasetwo {	Line 1747 sub phasetwo {
# ------------------------------------------------------------- Trigger updates	# ------------------------------------------------------------- Trigger updates
push(@{$modified_urls},[$target,$source]);	push(@{$modified_urls},[$target,$source]);
unless ($registered_cleanup) {	unless ($registered_cleanup) {
$r->register_cleanup(\&notify);	my $handlers = $r->get_handlers('PerlCleanupHandler');
	$r->set_handlers('PerlCleanupHandler' => [\&notify,@{$handlers}]);
$registered_cleanup=1;	$registered_cleanup=1;
}	}

Line 1770 sub phasetwo {	Line 1771 sub phasetwo {
my $thissrcdir=$thissrc;	my $thissrcdir=$thissrc;
$thissrcdir=~s/\/[^\/]+$/\//;	$thissrcdir=~s/\/[^\/]+$/\//;

unless ($env{'request.role'} =~ /^aa/) {	$r->print(&Apache::loncommon::head_subbox(
$r->print(	&Apache::lonhtmlcommon::start_funclist().
'<hr /><a href="'.$thisdistarget.'"><font size="+2">'.	&Apache::lonhtmlcommon::add_item_funclist(
&mt('View Published Version').'</font></a>');	'<a href="'.$thisdistarget.'">'.
}	&mt('View Published Version').
$r->print('<p><a href="'.$thissrc.'"><font size="+2">'.	'</a>').
&mt('Back to Source').'</font></a></p>'.	&Apache::lonhtmlcommon::add_item_funclist(
'<p><a href="'.$thissrcdir.	'<a href="'.$thissrc.'">'.
'"><font size="+2">'.	&mt('Back to Source').
&mt('Back to Source Directory').'</font></a></p>');	'</a>').
	&Apache::lonhtmlcommon::add_item_funclist(
	'<a href="'.$thissrcdir.'">'.
	&mt('Back to Source Directory').
	'</a>').
	&Apache::lonhtmlcommon::end_funclist())
	);
}	}
return 1;	return 1;
}	}
Line 2165 sub handler {	Line 2172 sub handler {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;

	# Breadcrumbs
	&Apache::lonhtmlcommon::clear_breadcrumbs();
	&Apache::lonhtmlcommon::add_breadcrumb({
	'text' => 'Construction Space',
	'href' => &Apache::loncommon::authorspace(),
	});
	&Apache::lonhtmlcommon::add_breadcrumb({
	'text' => 'Resource Publication',
	'href' => '',
	});

my $js='<script type="text/javascript">'.	my $js='<script type="text/javascript">'.
&Apache::loncommon::browser_and_searcher_javascript().	&Apache::loncommon::browser_and_searcher_javascript().
'</script>';	'</script>';
$r->print(&Apache::loncommon::start_page('Resource Publication',$js));	$r->print(&Apache::loncommon::start_page('Resource Publication',$js)
	.&Apache::lonhtmlcommon::breadcrumbs()
	.&Apache::loncommon::head_subbox(
	&Apache::loncommon::CSTR_pageheader()) # FIXME crumbs broken?
	);


my $thisfn=$fn;	my $thisfn=$fn;
Line 2269 ENDDIFF	Line 2291 ENDDIFF
}	}
} else {	} else {
&phasetwo($r,$thisfn,$thistarget,$thisembstyle,$thisdistarget);	&phasetwo($r,$thisfn,$thistarget,$thisembstyle,$thisdistarget);
$r->print('<hr />');
}	}
}	}
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.258.2.2
changed lines
	Added in v.1.264