loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.261, 2009/07/25 06:55:31	version 1.262, 2009/07/30 09:42:25
Line 1770 sub phasetwo {	Line 1770 sub phasetwo {
my $thissrcdir=$thissrc;	my $thissrcdir=$thissrc;
$thissrcdir=~s/\/[^\/]+$/\//;	$thissrcdir=~s/\/[^\/]+$/\//;

	$r->print(&Apache::lonhtmlcommon::start_funclist());
	unless ($env{'request.role'}=~/^(aa)/) {
	$r->print(
	&Apache::lonhtmlcommon::add_item_funclist(
	'<a href="'.$thisdistarget.'">'
	.&mt('View Published Version')
	.'</a>')
	);
	}
$r->print(	$r->print(
'<hr /><a href="'.$thisdistarget.'"><font size="+2">'.	&Apache::lonhtmlcommon::add_item_funclist(
&mt('View Published Version').'</font></a>'.	'<a href="'.$thissrc.'">'
'<p><a href="'.$thissrc.'"><font size="+2">'.	.&mt('Back to Source')
&mt('Back to Source').'</font></a></p>'.	.'</a>')
'<p><a href="'.$thissrcdir.	.&Apache::lonhtmlcommon::add_item_funclist(
'"><font size="+2">'.	'<a href="'.$thissrcdir.'">'
&mt('Back to Source Directory').'</font></a></p>');	.&mt('Back to Source Directory')
	.'</a>')
	.&Apache::lonhtmlcommon::end_funclist()
	);
}	}
return 1;	return 1;
}	}
Line 2283 ENDDIFF	Line 2294 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());