--- loncom/interface/lonsearchcat.pm 2004/01/02 16:34:03 1.201 +++ loncom/interface/lonsearchcat.pm 2004/01/02 19:23:47 1.202 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Search Catalog # -# $Id: lonsearchcat.pm,v 1.201 2004/01/02 16:34:03 www Exp $ +# $Id: lonsearchcat.pm,v 1.202 2004/01/02 19:23:47 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -629,83 +629,36 @@ ENDHEADER $scrout.=''; $scrout.="\n"; - foreach ('title','author','keywords','notes','abstract','standards', + foreach ('title','author','owner','authorspace','modifyinguser', + 'keywords','notes','abstract','standards', 'lowestgradelevel','highestgradelevel','mime') { $scrout.=''; } + $scrout.=''; + $scrout.=''; my %dates=&Apache::lonlocal::texthash('creationdatestart' => 'Creation Date After', 'creationdateend' => 'Creation Date Before', 'lastrevisiondatestart' => 'Last Revision Date After', 'lastrevisiondateend' => 'Last Revision Date Before'); foreach (sort keys %dates) { - $scrout.=''; } - - - # Hack - an empty table row. - $scrout.="\n"; -# $scrout.=&searchphrasefield('file
extension','extension', -# $ENV{'form.extension'}); -# $scrout.="\n"; -# $scrout.=&searchphrasefield('publisher
owner','owner', - # $ENV{'form.owner'}); $scrout.="
".&mt('Field').''.&mt('Value').'' .&mt('Related').'
'.&mt('Words')."
'.&titlefield($fields{$_}).''. &Apache::lonmeta::prettyinput($_,$ENV{'form.'.$_},$_,'advsearch', 1,'',$ENV{'form.'.$_.'_related'}). '
'. + &titlefield(&mt('MIME Type Category')).''. + &Apache::loncommon::filecategoryselect('category', + $ENV{'form.category'}). + ' 
'. + &titlefield(&mt('Limit Search to Domains')).''. + &Apache::loncommon::domain_select('domains', + $ENV{'form.domains'},1). + ' 
'.&titlefield($dates{$_}).''. + $scrout.='
'.&titlefield($dates{$_}).''. &Apache::lonhtmlcommon::date_setter('advsearch',$_,0,'',1). ' 
   
   
\n"; -# $scrout.=&Apache::lonmeta::selectbox('File Category','category', -# $ENV{'form.category'}, -# 'any','Any category', -# undef, -# (&Apache::loncommon::filecategories())); - #---------------------------------------------------------------- - # Allow restriction to multiple domains. - # I make the crazy assumption that there will never be a domain 'any'. - # - my @allowed_domains = (ref($ENV{'form.domains'}) ? @{$ENV{'form.domains'}} - : ($ENV{'form.domains'}) ); - my %domain_hash = (); - foreach (@allowed_domains) { - $domain_hash{$_}++; - } - my @domains =&Apache::loncommon::get_domains(); - # adjust the size of the select box - my $size = 4; - $size = (scalar @domains < ($size - 1) ? scalar @domains + 1 : $size); - $scrout.="\n".&titlefield(&mt('Domain to be searched')). - '\n"; - -# ------------------------------------------- Compute customized metadata field -# $scrout.=< -#LIMIT BY SPECIAL METADATA FIELDS: -# -#For resource-specific metadata, enter in an expression in the form of -#key=value separated by operators such as AND, OR or NOT.
-#Example: grandmother=75 OR grandfather=85 -#
-#CUSTOMMETADATA -# $scrout.=&simpletextfield('custommetadata',$ENV{'form.custommetadata'}); -# $scrout.=< -#SHOW SPECIAL METADATA FIELDS: -# -#Enter in a space-separated list of special metadata fields to show -#in a fielded listing for each record result. -#
-#CUSTOMSHOW -# $scrout.=&simpletextfield('customshow',$ENV{'form.customshow'}); + $scrout.=<