loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.454, 2006/09/13 19:42:06	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 3499 table#LC_browser tr.LC_browser_file_unpu	Line 3501 table#LC_browser tr.LC_browser_file_unpu
table#LC_browser tr.LC_browser_file_obsolete {	table#LC_browser tr.LC_browser_file_obsolete {
background: #AAAAAA;	background: #AAAAAA;
}	}
table#LC_browser tr.LC_browser_file_modified {	table#LC_browser tr.LC_browser_file_modified,
	table#LC_browser tr.LC_browser_file_metamodified {
background: #FFFF77;	background: #FFFF77;
}	}
table#LC_browser tr.LC_browser_folder {	table#LC_browser tr.LC_browser_folder {
Line 5950 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();