--- loncom/interface/lonmeta.pm 2004/04/19 16:43:53 1.74
+++ loncom/interface/lonmeta.pm 2004/05/07 17:17:58 1.77
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Metadata display handler
#
-# $Id: lonmeta.pm,v 1.74 2004/04/19 16:43:53 matthew Exp $
+# $Id: lonmeta.pm,v 1.77 2004/05/07 17:17:58 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -346,6 +346,9 @@ sub relatedfield {
sub prettyinput {
my ($type,$value,$fieldname,$formname,
$relatedsearchflag,$relatedsep,$relatedvalue,$size)=@_;
+ if (! defined($size)) {
+ $size = 80;
+ }
# Language
if ($type eq 'language') {
return &selectbox($fieldname,
@@ -401,7 +404,7 @@ sub prettyinput {
$value=~s/^\s+//gs;
$value=~s/\s+$//gs;
$value=~s/\s+/ /gs;
- $value=~s/\"/\&quod\;/gs;
+ $value=~s/\"/\"\;/gs;
return
''.
@@ -415,26 +418,13 @@ sub handler {
#
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(''.
'Catalog Information'.
'');