--- loncom/interface/lonsearchcat.pm	2001/12/13 01:34:03	1.111
+++ loncom/interface/lonsearchcat.pm	2002/01/17 13:53:45	1.115
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Search Catalog
 #
-# $Id: lonsearchcat.pm,v 1.111 2001/12/13 01:34:03 harris41 Exp $
+# $Id: lonsearchcat.pm,v 1.115 2002/01/17 13:53:45 harris41 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -28,7 +28,9 @@
 # YEAR=2001
 # 3/8, 3/12, 3/13, 3/14, 3/15, 3/19 Scott Harrison
 # 3/20, 3/21, 3/22, 3/26, 3/27, 4/2, 8/15, 8/24, 8/25 Scott Harrison
-# 10/12,10/14,10/15,10/16,11/28,11/29,12/10,12/12 Scott Harrison
+# 10/12,10/14,10/15,10/16,11/28,11/29,12/10,12/12,12/16 Scott Harrison
+# YEAR=2002
+# 1/17 Scott Harrison
 #
 ###
 
@@ -54,13 +56,11 @@ use Apache::File();
 use CGI qw(:standard);
 use Text::Query;
 use GDBM_File;
+use Apache::loncommon();
 
 # ---------------------------------------- variables used throughout the module
 
 # -- information holders
-# my %language; # holds contents of language.tab
-# my %cprtag; # holds contents of copyright.tab
-# my %mimetag; # holds contents of filetypes.tab
 my %hostdomains; # matches host name to host domain
 my %hostips; # matches host name to host ip
 my %hitcount; # stores number of hits per host
@@ -97,7 +97,7 @@ my $advancedviewselect=<<END;
 END
 
 # ----------------------------------------------------------------------- BEGIN
-sub BEGIN {
+BEGIN {
     {
 	my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.
 				 '/hosts.tab');
@@ -1230,12 +1230,18 @@ END
                 $compiledresult.=<<END;
 <p>
 END
-                $compiledresult.=<<END if $ENV{'form.catalogmode'} eq 'interactive';
+               if ($ENV{'form.catalogmode'} eq 'interactive') {
+		   my $titleesc=$title;
+		   $titleesc=~s/\'/\\'/;
+
+                   $compiledresult.=<<END
+                       if $ENV{'form.catalogmode'} eq 'interactive';
 <font size='-1'><INPUT TYPE="button" NAME="returnvalues" VALUE="SELECT"
-onClick="javascript:select_data('$title','$url')">
+onClick="javascript:select_data('$titleesc','$url')">
 </font>
 <br />
 END
+                }
                 if ($ENV{'form.catalogmode'} eq 'groupsearch') {
 		    $fnum+=0;
 		    $hash{"pre_${fnum}_link"}=$url;
@@ -1560,18 +1566,6 @@ This routine is only run once after comp
 
 =item *
 
-Initializes %language hash table.
-
-=item *
-
-Initializes %cprtag hash table (for copyright.tab).
-
-=item *
-
-Initializes %mimetag hash table (for filetypes.tab).
-
-=item *
-
 Initializes %hostdomains and hostips hash table (for hosts.tab).
 
 =back