--- loncom/interface/lonsearchcat.pm 2001/03/21 03:06:50 1.56 +++ loncom/interface/lonsearchcat.pm 2001/03/21 03:15:46 1.57 @@ -107,7 +107,7 @@ END { my $fh=Apache::File->new($r->dir_config('lonTabDir').'/language.tab'); map { - $_=~/(\w+)\s+([\w\s\-]+)/; + $_=~/(\w+)\s+([\w\s\-]+)/; chomp; $language{$1}=$2; } <$fh>; } @@ -117,7 +117,7 @@ END { my $fh=Apache::File->new($r->dir_config('lonIncludes').'/copyright.tab'); map { - $_=~/(\w+)\s+([\w\s\-]+)/; + $_=~/(\w+)\s+([\w\s\-]+)/; chomp; $cprtag{$1}=$2; } <$fh>; } @@ -127,7 +127,7 @@ END { my $fh=Apache::File->new($r->dir_config('lonTabDir').'/filetypes.tab'); map { - $_=~/(\w+)\s+(\w+)\s+([\w\s\-]+)/; + $_=~/(\w+)\s+(\w+)\s+([\w\s\-]+)/; chomp; $mimetag{$1}=".$1 $3"; } <$fh>; } @@ -784,7 +784,6 @@ sub detailed_citation_view { $notes,$shortabstract,$mime,$lang, $creationdate,$lastrevisiondate,$owner,$copyright, $hostname,$httphost)=@_; - return 'abc'; my $result=<$owner, last revised $lastrevisiondate

$title

@@ -855,7 +854,7 @@ sub xml_sgml_view { my $result=< <LonCapaResource> -<url>http://$httphost$url</url> +<url>$url</url> <title>$title</title> <author>$author</author> <subject>$subject</subject> @@ -878,6 +877,7 @@ sub xml_sgml_view { </copyrightInfo> <repositoryLocation>$hostname</repositoryLocation> <shortabstract>$shortabstract</shortabstract> +</LonCapaResource> END return $result;