--- loncom/interface/lonsearchcat.pm 2001/03/12 17:28:32 1.7
+++ loncom/interface/lonsearchcat.pm 2001/03/14 15:26:47 1.9
@@ -36,9 +36,15 @@ sub handler {
%metadatafields=();
+ my $hidden='';
+ $hidden=<
+END
+
# ------------------------------------------------ First, check out environment
$metadatafields{'owner'}=$ENV{'user.name'}.'@'.$ENV{'user.domain'};
+# --------------------------------- Compute various listings of metadata values
%language=();
$language{'any'}='Any language';
@@ -74,7 +80,7 @@ sub handler {
return &basicsearch($r,$ENV{'form.basicexp'});
}
- $scrout="";
+ $scrout=''; # building a part of screen output
$scrout.=&searchphrasefield('Limit by title','title',
'');
@@ -96,404 +102,108 @@ sub handler {
$scrout.=&selectbox('Limit by language','language',
'any',%language);
- $scrout.=<
LIMIT BY CREATION DATE RANGE:
-between:
-
-
-and:
-
-
-
+between:
+CREATIONDATESTART
+ $scrout.=&dateboxes('creationdatestart',1,1,1976);
+ $scrout.=<";
- $scrout.=<
LIMIT BY LAST REVISION DATE RANGE:
-
between:
-
-
-and: