loncom/interface/lonhelpmenu.pm - diff

Return to lonhelpmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.24, 2006/04/10 21:40:08	version 1.25, 2006/05/30 12:46:09
Line 32 use Apache::Constants qw(:common);	Line 32 use Apache::Constants qw(:common);
use Apache::loncommon();	use Apache::loncommon();
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonnet;	use Apache::lonnet;
	use lib '/home/httpd/lib/perl/';
	use LONCAPA;

sub handler {	sub handler {
my ($r) = @_;	my ($r) = @_;
Line 82 sub display_help_banner {	Line 84 sub display_help_banner {
}	}
my $scripttag = '';	my $scripttag = '';
if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) {	if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) {
my $displayurl = &Apache::lonnet::escape($origurl);	my $displayurl = &escape($origurl);
$scripttag = (<<"SCRIPT_ONE");	$scripttag = (<<"SCRIPT_ONE");
<script>	<script>
function gohelpdesk() {	function gohelpdesk() {
Line 283 sub display_help_mainpage {	Line 285 sub display_help_mainpage {
if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) {	if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) {
$r->print("	$r->print("
<ul>	<ul>
<li><a href=\"/adm/support?origurl=".&Apache::lonnet::escape($origurl)."&function=$function\">$lt{'cont'}</a></li>	<li><a href=\"/adm/support?origurl=".&escape($origurl)."&function=$function\">$lt{'cont'}</a></li>
</ul>	</ul>
<p>$lt{'suhr'}");	<p>$lt{'suhr'}");
unless ($env{'user.adv'}) {	unless ($env{'user.adv'}) {