--- loncom/interface/lonsearchcat.pm	2002/06/25 15:08:59	1.129
+++ loncom/interface/lonsearchcat.pm	2002/06/27 14:46:00	1.132
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Search Catalog
 #
-# $Id: lonsearchcat.pm,v 1.129 2002/06/25 15:08:59 matthew Exp $
+# $Id: lonsearchcat.pm,v 1.132 2002/06/27 14:46:00 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -223,10 +223,10 @@ END
     ##
     if ($ENV{'form.basicsubmit'} eq 'SEARCH') {
         # Perform basic search and give results
-	return &basicsearch($r,\%ENV,$hidden);
+	return &basicsearch($r,$hidden);
     } elsif ($ENV{'form.advancedsubmit'} eq 'SEARCH') {
         # Perform advanced search and give results
-	return &advancedsearch($r,\%ENV,$hidden);
+	return &advancedsearch($r,$hidden);
     } elsif ($ENV{'form.reqinterface'} eq 'advanced') {
         # Output the advanced interface
         $r->print(&advanced_search_form($closebutton,$hidden));
@@ -273,7 +273,7 @@ sub basic_search_form{
 $hidden
 <h3>Basic Search</h3>
 <p>
-Enter terms or quoted phrases separated by AND, OR, or NOT 
+Enter terms or phrases separated by AND, OR, or NOT 
 then press SEARCH below.
 </p>
 <p>
@@ -290,15 +290,14 @@ ENDDOCUMENT
 <p>
 &nbsp;<input type="submit" name="basicsubmit" value='SEARCH' />&nbsp;
 $closebutton
-<!-- basic view selection -->
-<select name='basicviewselect'>
-<option value='Detailed Citation View' selected="true">
-Detailed Citation View</option>
-<option value='Summary View'>Summary View</option>
-<option value='Fielded Format'>Fielded Format</option>
-<option value='XML/SGML'>XML/SGML</option>
+<!-- view selection -->
+<select name="viewselect">
+<option value="Detailed Citation View" selected="true" >Detailed Citation View</option>
+<option value="Summary View"  >Summary View</option>
+<option value="Fielded Format">Fielded Format</option>
+<option value="XML/SGML"      >XML/SGML</option>
 </select>
-<!-- end of basic view selection -->
+<!-- end of view selection -->
 <input type="button" value="HELP" onClick="openhelp()" />
 </p>
 </form>
@@ -328,15 +327,6 @@ sub advanced_search_form{
 <input type="submit" name="advancedsubmit" value='SEARCH' />
 <input type="reset" name="reset" value='RESET' />
 $closebutton
-<!-- advance view select -->
-<select name='advancedviewselect'>
-<option value='Detailed Citation View' selected="true">
-Detailed Citation View</option>
-<option value='Summary View'>Summary View</option>
-<option value='Fielded Format'>Fielded Format</option>
-<option value='XML/SGML'>XML/SGML</option>
-</select>
-<!-- end of advanced view select -->
 <input type="button" value="HELP" onClick="openhelp()" />
 </p>
 END
@@ -356,11 +346,23 @@ END
 <img align='right' src='/adm/lonIcons/lonlogos.gif' />
 <h1>Advanced Catalog Search</h1>
 <hr />
-Enter terms or quoted phrases separated by search operators 
+Enter terms or phrases separated by search operators 
 such as AND, OR, or NOT.<br />
+<form method="post" action="/adm/searchcat">
 $advanced_buttons
 $hidden
 <table>
+<tr><td><font color="#800000" face="helvetica"><b>VIEW:</b></font></td>
+<td>
+<!-- view selection -->
+<select name="viewselect" size ="1">
+    <option value="Detailed Citation View" selected="true">Detailed Citation View</option>
+    <option value="Summary View">Summary View</option>
+    <option value="Fielded Format">Fielded Format</option>
+    <option value="XML/SGML">XML/SGML</option>
+</select>
+<!-- end of view selection -->
+</td></tr>
 ENDHEADER
     $scrout.=&searchphrasefield('title','title',
 			$ENV{'form.title'});
@@ -386,13 +388,37 @@ ENDHEADER
     $scrout.=&searchphrasefield('publisher<br />owner','owner',
 				$ENV{'form.owner'});
     $scrout.="</table>\n";
-#    $ENV{'form.mime'}='any' unless length($ENV{'form.mime'});
-#    $scrout.=&selectbox('Limit by MIME type','mime',
-#			$ENV{'form.mime'},
-#			'any','Any type',
-#			\&{Apache::loncommon::filedescriptionex},
-#			(&Apache::loncommon::fileextensions));
+    $ENV{'form.category'}='any' unless length($ENV{'form.category'});
+    $scrout.=&selectbox('File Category','category',
+			$ENV{'form.category'},
+			'any','Any category',
+			undef,
+			(&Apache::loncommon::filecategories()));
     $ENV{'form.language'}='any' unless length($ENV{'form.language'});
+    #
+    # Allow restriction to multiple domains.
+    #   I make the crazy assumption that there will never be a domain 'any'.
+    #
+    my @domains =&Apache::loncommon::get_domains();
+    # adjust the size of the select box
+    my $size = 4;
+    my $size = (scalar @domains < ($size - 1) ? scalar @domains + 1 : $size);
+    # standalone machines do not get to choose a domain to search.
+    if ((scalar @domains) == 1) {
+        $scrout .='<input type="hidden" name="domains" value="any" />'."\n";
+    } else {
+        $scrout.='<font color="#800000" face="helvetica"><b>'.
+            'DOMAINS</b></font><br />'.
+                '<select name="domains" size="'.$size.'" multiple>'."\n".
+                    '<option name="any" selected>all domains</option>'."\n";
+        foreach my $dom (sort @domains) {
+            $scrout.="<option name=\"$dom\">$dom</option>\n";
+        }
+        $scrout.="</select>\n";
+    }
+    #
+    # 
+    #
     $scrout.=&selectbox('Limit by language','language',
 			$ENV{'form.language'},'any','Any Language',
 			\&{Apache::loncommon::languagedescription},
@@ -665,7 +691,7 @@ sub selectbox {
     if (! defined($functionref)) { $functionref = sub { $_[0]}; }
     my $uctitle=uc($title);
     my $selout="\n".'<p><font color="#800000" face="helvetica">'.
-        '<b>'.$uctitle.':</b></font><br /><select name="'.$name.'">';
+        '<b>'.$uctitle.': </b></font><select name="'.$name.'">';
     foreach ($anyvalue,@idlist) {
         $selout.='<option value="'.$_.'"';
         if ($_ eq $default and !/^any$/) {
@@ -693,8 +719,7 @@ Parse advanced search results.
 ######################################################################
 ######################################################################
 sub advancedsearch {
-    my ($r,$envhash,$hidden)=@_;
-    my %ENV=%{$envhash};
+    my ($r,$hidden)=@_;
     my $fillflag=0;
     # Clean up fields for safety
     for my $field ('title','author','subject','keywords','url','version',
@@ -705,7 +730,7 @@ sub advancedsearch {
 		   'lastrevisiondatestart_year','lastrevisiondateend_month',
 		   'lastrevisiondateend_day','lastrevisiondateend_year',
 		   'notes','abstract','mime','language','owner',
-		   'custommetadata','customshow') {
+		   'custommetadata','customshow','category') {
 	$ENV{"form.$field"}=~s/[^\w\/\s\(\)\=\-\"\']//g;
     }
     foreach ('mode','form','element') {
@@ -714,6 +739,12 @@ sub advancedsearch {
 	$ENV{"form.$_"}=&Apache::lonnet::unescape($ENV{"form.$_"});
 	$ENV{"form.$_"}=~s/[^\w\/\s\(\)\=\-\"\']//g;
     }
+    # Preprocess the category form element.
+    if ($ENV{'form.category'} ne 'any') {
+        my @extensions = &Apache::loncommon::filecategorytypes
+            ($ENV{'form.category'});
+        $ENV{'form.mime'} = join ' OR ',@extensions;
+    }
     # Check to see if enough information was filled in
     for my $field ('title','author','subject','keywords','url','version',
 		   'notes','abstract','mime','language','owner',
@@ -734,15 +765,12 @@ sub advancedsearch {
 		       'keywords','version','owner','mime') {
 	if ($ENV{'form.'.$field}) {
 	    push @queries,&build_SQL_query($field,$ENV{'form.'.$field});
-	}
+        }
     }
     # Evaluate option lists
     if ($ENV{'form.language'} and $ENV{'form.language'} ne 'any') {
 	push @queries,"(language like \"$ENV{'form.language'}\")";
     }
-#    if ($ENV{'form.mime'} and $ENV{'form.mime'} ne 'any') {
-#	push @queries,"(mime like \"$ENV{'form.mime'}\")";
-#    }
     if ($ENV{'form.copyright'} and $ENV{'form.copyright'} ne 'any') {
 	push @queries,"(copyright like \"$ENV{'form.copyright'}\")";
     }
@@ -782,6 +810,33 @@ sub advancedsearch {
 	my @fields=split(/\s+/,$customshow);
 	$customshow=join(" ",@fields);
     }
+    ##
+    ## Deal with restrictions to given domains
+    ## 
+    my $libraries_to_query = undef;
+    # $ENV{'form.domains'} can be either a scalar or an array reference.
+    # We need an array.
+    my @allowed_domains = (ref($ENV{'form.domains'}) ? @{$ENV{'form.domains'}} 
+                           :  ($ENV{'form.domains'}) );
+    my %domain_hash = ();
+    foreach (@allowed_domains) {
+        $domain_hash{$_}++;
+    }
+    foreach (keys(%Apache::lonnet::libserv)) {
+        if ($_ eq 'any') {
+            $libraries_to_query = undef;
+            last;
+        }
+        if (exists($domain_hash{$Apache::lonnet::hostdom{$_}})) {
+            push @$libraries_to_query,$_;
+        }
+    }
+    if (defined($libraries_to_query)) {
+        &Apache::lonnet::logthis("libraries: @$libraries_to_query");
+    } else {
+        &Apache::lonnet::logthis("libraries: undef");
+    }
+    #
     # Send query statements over the network to be processed by either the SQL
     # database or a recursive scheme of 'grep'-like actions (for custom
     # metadata).
@@ -790,19 +845,22 @@ sub advancedsearch {
 	$query="select * from metadata where $query";
 	my $reply; # reply hash reference
 	unless ($customquery or $customshow) {
-	    $reply=&Apache::lonnet::metadata_query($query);
+            $reply=&Apache::lonnet::metadata_query($query,undef,undef,
+                                                   $libraries_to_query);
 	}
 	else {
 	    $reply=&Apache::lonnet::metadata_query($query,
-						   $customquery,$customshow);
+						   $customquery,$customshow,
+                                                   $libraries_to_query);
 	}
-	&output_results('Advanced',$r,$envhash,$customquery,$reply,$hidden);
+	&output_results('Advanced',$r,$customquery,$reply,$hidden);
         return OK;
     } elsif ($customquery) {
 	my $reply; # reply hash reference
 	$reply=&Apache::lonnet::metadata_query('',
-					       $customquery,$customshow);
-	&output_results('Advanced',$r,$envhash,$customquery,$reply,$hidden);
+					       $customquery,$customshow,
+                                               $libraries_to_query);
+	&output_results('Advanced',$r,$customquery,$reply,$hidden);
         return OK;
     }
     # should not get to this point
@@ -823,8 +881,7 @@ Parse basic search form.
 ######################################################################
 ######################################################################
 sub basicsearch {
-    my ($r,$envhash,$hidden)=@_;
-    my %ENV=%{$envhash};
+    my ($r,$hidden)=@_;
     # Clean up fields for safety
     for my $field ('basicexp') {
 	$ENV{"form.$field"}=~s/[^\w\s\(\)\-]//g;
@@ -857,7 +914,7 @@ sub basicsearch {
 #    &Apache::lonnet::logthis("metadata query finished:".time);
     # Output search results
 
-    &output_results('Basic',$r,$envhash,$query,$reply,$hidden);
+    &output_results('Basic',$r,$query,$reply,$hidden);
 
     return OK;
 }
@@ -1049,27 +1106,21 @@ contacted, etc.)
 sub output_results {
 #    &Apache::lonnet::logthis("output_results:".time);
     my $fnum; # search result counter
-    my ($mode,$r,$envhash,$query,$replyref,$hidden)=@_;
-    my %ENV=%{$envhash};
+    my ($mode,$r,$query,$replyref,$hidden)=@_;
     my %rhash=%{$replyref};
     my $compiledresult='';
     my $timeremain=300; # (seconds)
     my $elapsetime=0;
     my $resultflag=0;
     my $tflag=1;
+    my $viewselect=$ENV{'form.viewselect'};
     #
     # make query information persistent to allow for subsequent revision
     my $persistent=&make_persistent();
-    # spit out the generic header
-    $r->print(&search_results_header());
+    # spit out the results header
+    $r->print(&search_results_header($mode));
     $r->rflush();
     # begin showing the cataloged results
-    $r->print(<<CATALOGBEGIN);
-</head>
-<body bgcolor="#ffffff">
-<img align=right src=/adm/lonIcons/lonlogos.gif>
-<h1>Search Catalog</h1>
-CATALOGBEGIN
     my $action = "/adm/searchcat";
     if ($mode eq 'Basic') { 
         $action .= "?reqinterface=basic";
@@ -1086,19 +1137,8 @@ $importbutton
 $closebutton
 $persistent
 <hr />
-<h3>Search Query</h3>
 CATALOGCONTROLS
     #
-    # Remind them what they searched for
-    #
-    if ($mode eq 'Basic') {
-	$r->print('<p><b>Basic search:</b> '.$ENV{'form.basicexp'}.'</p>');
-    } elsif ($mode eq 'Advanced') {
-	$r->print('<p><b>Advanced search</b> '.$query.'</p>');
-    }
-    $r->print('<h3>Search Results</h3>');
-    $r->rflush();
-    #
     # make the pop-up window for status
     #
     $r->print(&make_popwin(%rhash));
@@ -1202,9 +1242,6 @@ CATALOGCONTROLS
                         $Fields{'extrashow'}=~s/\<\!\-\- $field \-\-\>/ $value/g;
                     }
                 }
-                if ($compiledresult or $servercount!=$servernum) {
-                    $compiledresult.="<hr align='left' width='200' noshade />";
-                }
                 $compiledresult.="\n<p>\n";
                 if ($ENV{'form.catalogmode'} eq 'interactive') {
                     my $titleesc=$Fields{'title'};
@@ -1231,13 +1268,6 @@ END
 # <input type="hidden" name="url$fnum" value="$url" />
                     $fnum++;
 		}
-	        my $viewselect;
-	        if ($mode eq 'Basic') {
-		    $viewselect=$ENV{'form.basicviewselect'};
-		}
-	        elsif ($mode eq 'Advanced') {
-		    $viewselect=$ENV{'form.advancedviewselect'};
-		}
 	        if ($viewselect eq 'Detailed Citation View') {
 		    $compiledresult.=&detailed_citation_view
                         (%Fields, hostname => $rkey );
@@ -1254,6 +1284,9 @@ END
 		    $compiledresult.=&xml_sgml_view
                         (%Fields, hostname => $rkey );
 		}
+                if ($compiledresult or $servercount!=$servernum) {
+                    $compiledresult.="<hr align='left' width='200' noshade />";
+                }
             }
             untie %hash;
         }
@@ -1402,10 +1435,18 @@ sub handle_custom_fields {
 
 =item &search_results_header
 
-Output the proper javascript code to deal with different calling modes.
+Output the proper html headers and javascript code to deal with different 
+calling modes.
 
-Takes inputs directly from from %ENV.  The following environment variables
-are checked:
+Takes most inputs directly from %ENV, except $mode.  
+
+=over 4
+
+=item $mode is either (at this writing) 'Basic' or 'Advanced'
+
+=back
+
+The following environment variables are checked:
 
 =over 4
 
@@ -1428,12 +1469,20 @@ Checked for existance & 'edit' mode.
 ######################################################################
 ######################################################################
 sub search_results_header {
+    my ($mode) = @_;
+    $mode = lc($mode);
+    my $title;
+    if ($mode eq 'advanced') {
+        $title = "Advanced Search Results";
+    } elsif ($mode eq 'basic') {
+        $title = "Basic Search Results";
+    }
     my $result = '';
     # output beginning of search page
     $result.=<<BEGINNING;
 <html>
 <head>
-<title>The LearningOnline Network with CAPA</title>
+<title>$title</title>
 BEGINNING
     # conditional output of script functions dependent on the mode in
     # which the search was invoked
@@ -1516,6 +1565,12 @@ SCRIPT
     }
 </script>
 SCRIPT
+    $result.=<<END;
+</head>
+<body bgcolor="#ffffff">
+<img align=right src=/adm/lonIcons/lonlogos.gif>
+<h1>$title</h1>
+END
     return $result;
 }
 
@@ -1639,30 +1694,17 @@ extra custom metadata to show.
 sub detailed_citation_view {
     my %values = @_;
     my $result=<<END;
-<i>$values{'owner'}</i>, last revised $values{'lastrevisiondate'}
 <h3><a href="http://$ENV{'HTTP_HOST'}$values{'url'}" 
     target='search_preview'>$values{'title'}</a></h3>
-<h3>$values{'author'}</h3>
-</p>
 <p>
-<b>Subject:</b> $values{'subject'}<br />
-<b>Keyword(s):</b> $values{'keywords'}<br />
-<b>Notes:</b> $values{'notes'}<br />
-<b>MIME Type:</b>
-END
-    $result.=&Apache::loncommon::filedescription($values{'mime'});
-    $result.=<<END;
-<br />
-<b>Language:</b> 
-END
-    $result.=&Apache::loncommon::languagedescription($values{'lang'});
-    $result.=<<END;
-<br />
-<b>Copyright/Distribution:</b> 
-END
-    $result.=&Apache::loncommon::copyrightdescription($values{'copyright'});
-    $result.=<<END;
-<br />
+<b>$values{'author'}</b>, <i>$values{'owner'}</i><br />
+
+<b>Subject:       </b> $values{'subject'}<br />
+<b>Keyword(s):    </b> $values{'keywords'}<br />
+<b>Notes:         </b> $values{'notes'}<br />
+<b>MIME Type:     </b> $values{'mimetag'}<br />
+<b>Language:      </b> $values{'language'}<br />
+<b>Copyright/Distribution:</b> $values{'cprtag'}<br />
 </p>
 $values{'extrashow'}
 <p>