--- loncom/interface/lonsearchcat.pm	2002/07/08 20:35:36	1.139
+++ loncom/interface/lonsearchcat.pm	2002/07/12 14:36:16	1.141
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Search Catalog
 #
-# $Id: lonsearchcat.pm,v 1.139 2002/07/08 20:35:36 matthew Exp $
+# $Id: lonsearchcat.pm,v 1.141 2002/07/12 14:36:16 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -40,7 +40,7 @@
 
 =head1 NAME
 
-lonsearchcat
+lonsearchcat - LONCAPA Search Interface
 
 =head1 SYNOPSIS
 
@@ -318,8 +318,11 @@ ENDDOCUMENT
         ' ';
 #    $scrout.=&simplecheckbox('allversions',$ENV{'form.allversions'});
 #    $scrout.='<font color="#800000">Search historic archives</font>';
+    my $checkbox = &simplecheckbox('related',$ENV{'form.related'});
     $scrout.=<<END;
-</td><td><a href="/adm/searchcat?reqinterface=advanced">Advanced Search</a></td></tr></table>
+</td><td><a href="/adm/searchcat?reqinterface=advanced">Advanced Search</a></td></tr>
+<tr><td>$checkbox use related words</td><td></td></tr>
+</table>
 </p>
 <p>
 &nbsp;<input type="submit" name="basicsubmit" value='SEARCH' />&nbsp;
@@ -927,7 +930,18 @@ sub parse_basic_search {
 	&output_blank_field_error($r);
 	return OK;
     }
-
+    if ($ENV{'form.related'}) {
+        my $tmp = $ENV{'form.basicexp'};
+        while ($ENV{'form.basicexp'} =~ /(\w+)/cg) {
+            my $word = $1;
+            my @Words = &Apache::loncommon::get_related_words($word);
+            my $replacement = join " OR ", ($word,
+                                            ($#Words>4? @Words[0..4] : @Words)
+                                            );
+            $tmp =~ s/\b$word\b/ $replacement /g;
+        }
+        $ENV{'form.basicexp'} = $tmp;
+    }
     # Build SQL query string based on form page
     my $query='';
     my $concatarg=join(',"    ",',