[LON-CAPA-cvs] cvs: loncom /interface lonmeta.pm
matthew
lon-capa-cvs@mail.lon-capa.org
Thu, 06 May 2004 20:56:07 -0000
matthew Thu May 6 16:56:07 2004 EDT
Modified files:
/loncom/interface lonmeta.pm
Log:
Removed overload checks at Guys request.
Index: loncom/interface/lonmeta.pm
diff -u loncom/interface/lonmeta.pm:1.75 loncom/interface/lonmeta.pm:1.76
--- loncom/interface/lonmeta.pm:1.75 Mon Apr 19 12:47:43 2004
+++ loncom/interface/lonmeta.pm Thu May 6 16:56:07 2004
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Metadata display handler
#
-# $Id: lonmeta.pm,v 1.75 2004/04/19 16:47:43 matthew Exp $
+# $Id: lonmeta.pm,v 1.76 2004/05/06 20:56:07 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -418,26 +418,13 @@
#
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
&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
return OK if $r->header_only;
#
+ my ($resdomain,$resuser)=
+ (&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//);
$r->print('<html><head><title>'.
'Catalog Information'.
'</title></head>');