loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.74, 2004/04/19 16:43:53	version 1.76, 2004/05/06 20:56:07
Line 346 sub relatedfield {	Line 346 sub relatedfield {
sub prettyinput {	sub prettyinput {
my ($type,$value,$fieldname,$formname,	my ($type,$value,$fieldname,$formname,
$relatedsearchflag,$relatedsep,$relatedvalue,$size)=@_;	$relatedsearchflag,$relatedsep,$relatedvalue,$size)=@_;
	if (! defined($size)) {
	$size = 80;
	}
# Language	# Language
if ($type eq 'language') {	if ($type eq 'language') {
return &selectbox($fieldname,	return &selectbox($fieldname,
Line 415 sub handler {	Line 418 sub handler {
#	#
my $uri=$r->uri;	my $uri=$r->uri;
#	#
# Check to see if this server is overloaded
my $loaderror=&Apache::lonnet::overloaderror($r);
if ($loaderror) {
return $loaderror;
}
#
# Check to see if original resource server is overloaded
my ($resdomain,$resuser)=
(&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//);
$loaderror=&Apache::lonnet::overloaderror
($r,&Apache::lonnet::homeserver($resuser,$resdomain));
if ($loaderror) {
return $loaderror;
}
#
# Set document type	# Set document type
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;
#	#
	my ($resdomain,$resuser)=
	(&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//);
$r->print('<html><head><title>'.	$r->print('<html><head><title>'.
'Catalog Information'.	'Catalog Information'.
'</title></head>');	'</title></head>');