--- loncom/interface/lonsearchcat.pm 2001/03/21 00:32:33 1.45 +++ loncom/interface/lonsearchcat.pm 2001/03/21 01:01:43 1.46 @@ -51,6 +51,13 @@ my $scrout; my %metadatafields; my %cprtag; my %mimetag; +my $closebutton; +my $viewselect=< + + + +END sub handler { my $r = shift; @@ -76,6 +83,10 @@ sub handler { END + $closebutton=< +END + # ------------------------------------------------ First, check out environment $metadatafields{'owner'}=$ENV{'user.name'}.'@'.$ENV{'user.domain'}; @@ -248,7 +259,8 @@ ENDDOCUMENT
- +$closebutton +$viewselect


Advanced Search

@@ -256,7 +268,8 @@ $scrout

- +$closebutton +$viewselect

@@ -478,7 +491,7 @@ sub advancedsearch { } if (@queries) { $query="(" . (join(") and ("),@queries) . ")"; - $query="select * from metadata where $testquery"; + $query="select * from metadata where $query"; my $reply=&Apache::lonnet::metadata_query($query); &output_results('Advanced',$r,$envhash,$query,$reply); } @@ -549,8 +562,7 @@ BEGINNING $persistent - +$closebutton

Helpful Message

@@ -676,8 +688,7 @@ SCRIPT

- +$closebutton $persistent

Search Query