--- loncom/interface/lonsearchcat.pm 2006/07/28 19:16:08 1.274 +++ loncom/interface/lonsearchcat.pm 2006/07/31 19:45:58 1.275 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Search Catalog # -# $Id: lonsearchcat.pm,v 1.274 2006/07/28 19:16:08 www Exp $ +# $Id: lonsearchcat.pm,v 1.275 2006/07/31 19:45:58 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3200,7 +3200,7 @@ sub detailed_citation_view { my ($prefix,%values) = @_; my $result; my $jumpurl=$values{'url'}; - $jumpurl=~s/^\/ext\//http\:\/\//; + $jumpurl=~s|^/ext/|http://|; $result .= ''.$prefix. ''.' '. ''; } else { $link=&Apache::lonhtmlcommon::crumbs($jumpurl, @@ -3392,8 +3392,8 @@ sub compact_view { my ($prefix,%values) = @_; my $jumpurl=$values{'url'}; my $link; - if ($jumpurl=~/^\/ext\//) { - $jumpurl=~s/^\/ext\//http\:\/\//; + if ($jumpurl=~m|^/ext/|) { + $jumpurl=~s|^/ext/|http://|; $link=''.$jumpurl.''; } else { $link=&Apache::lonhtmlcommon::crumbs($jumpurl, @@ -3432,7 +3432,7 @@ sub fielded_format_view { my $icon=&Apache::loncommon::icon($values{'url'}); my %Translated = &Apache::lonmeta::fieldnames(); my $jumpurl=$values{'url'}; - $jumpurl=~s/^\/ext\//http\:\/\//; + $jumpurl=~s|^/ext/|http://|; my $result=<