loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.455, 2006/09/13 21:43:25	version 1.457, 2006/09/19 21:47:32
Line 3199 form, .inline { display: inline; }	Line 3199 form, .inline { display: inline; }
color: red;	color: red;
font-size: larger;	font-size: larger;
}	}
.LC_warning {	.LC_warning,
	.LC_diff_removed {
color: red;	color: red;
}	}
.LC_success {	.LC_success,
	.LC_diff_added {
color: green;	color: green;
}	}
.LC_icon {	.LC_icon {
Line 5951 sub lonhttpdurl {	Line 5953 sub lonhttpdurl {
return 'http://'.$ENV{'SERVER_NAME'}.':'.$lonhttpd_port.$url;	return 'http://'.$ENV{'SERVER_NAME'}.':'.$lonhttpd_port.$url;
}	}

sub absolute_url {
my ($host_name) = @_;
my $protocol = ($ENV{'SERVER_PORT'} == 443?'https://':'http://');
if ($host_name eq '') {
$host_name = $ENV{'SERVER_NAME'};
}
return $protocol.$host_name;
}

sub connection_aborted {	sub connection_aborted {
my ($r)=@_;	my ($r)=@_;
$r->print(" ");$r->rflush();	$r->print(" ");$r->rflush();