loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.75, 2004/04/19 16:47:43	version 1.77, 2004/05/07 17:17:58
Line 404 sub prettyinput {	Line 404 sub prettyinput {
$value=~s/^\s+//gs;	$value=~s/^\s+//gs;
$value=~s/\s+$//gs;	$value=~s/\s+$//gs;
$value=~s/\s+/ /gs;	$value=~s/\s+/ /gs;
$value=~s/\"/\&quod\;/gs;	$value=~s/\"/\&quot\;/gs;
return	return
'<input type="text" name="'.$fieldname.'" size="'.$size.'" '.	'<input type="text" name="'.$fieldname.'" size="'.$size.'" '.
'value="'.$value.'" />'.	'value="'.$value.'" />'.
Line 418 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>');