# Herbarium # # HSQL Application #1 # # Written by Eric T. Peterson on Jan 21, 1996 # Modified by hanusj to new hyperSQL standards, 10/10/96 ENVIRONMENT BEGIN USEDATABASE herbtypes LOGIN= herbuser PASSWORD= NONE ; BANNER "

" ; ENVIRONMENT END QUERY BEGIN HEADER "

Query Screen

In all of the following fields you can supplement your query with the * wild card character.

" ; INPRINT " " ; INPRINT "" ; INPRINT "" ; INPRINT "" ; INPRINT "" ; INPRINT "" ; INPRINT "
Genus basionym: " ; INPUT genusbasionym TYPE=TEXTINPUT DEFAULT="*" ; INPRINT "Species basionym: " ; INPUT speciesbasionym TYPE=TEXTINPUT DEFAULT="*" ; INPRINT "Basionym authority: " ; INPUT author_basionym TYPE=TEXTINPUT DEFAULT="*" ; INPRINT "
Current genus: " ; INPUT genus TYPE=TEXTINPUT DEFAULT="*" ; INPRINT "Current species: " ; INPUT species TYPE=TEXTINPUT DEFAULT="*" ; INPRINT "Authority: " ; INPUT authority TYPE=TEXTINPUT DEFAULT="*" ; INPRINT "
Family: " ; INPUT family TYPE=TEXTINPUT DEFAULT="*" ; INPRINT "State/Province: " ; INPUT state_prov TYPE=TEXTINPUT DEFAULT="*" ; INPRINT "Collected by: " ; INPUT collectors TYPE=TEXTINPUT DEFAULT="*" ; INPRINT "
County: " ; INPUT county TYPE=TEXTINPUT DEFAULT="*" ; INPRINT "Location: " ; INPUT location TYPE=TEXTINPUT DEFAULT="*" ; INPRINT "Habitat: " ; INPUT habitat TYPE=TEXTINPUT DEFAULT="*" ; INPRINT "
" ; FOOTER "
OSU Herbarium Home Page OSU Home Page Written in HyperSQL

This document was last updated: December 5, 1996

petersoe@ucs.orst.edu

" ; QUERY END SQL BEGIN SUB genus WHERELIST AS upper(herbtypes..herbtypes2.genus) like upper ('$') ; SUB species WHERELIST AS upper(herbtypes..herbtypes2.species) like upper ('$') ; SUB authority WHERELIST AS upper(herbtypes..herbtypes2.authority) like upper ('$') ; SUB state_prov WHERELIST AS upper(herbtypes..herbtypes2.state_prov) like upper ('$') ; SUB country WHERELIST AS upper(herbtypes..herbtypes2.country) like upper ('$') ; SUB accession_num_osc WHERELIST AS upper(herbtypes..herbtypes2.accession_num) like upper ('$') ; SUB family WHERELIST AS upper(herbtypes..herbtypes2.family) like upper ('$') ; SUB collectors WHERELIST AS upper(herbtypes..herbtypes2.collectors) like upper ('$') ; SUB genusbasionym WHERELIST AS upper(herbtypes..herbtypes2.genustypebasionym) like upper ('$') ; SUB speciesbasionym WHERELIST AS upper(herbtypes..herbtypes2.speciestypebasionym) like upper ('$') ; SUB author_basionym WHERELIST AS upper(herbtypes..herbtypes2.authority_1) like upper ('$') ; SUB county WHERELIST AS upper(herbtypes..herbtypes2.county) like upper ('$') ; SUB location WHERELIST AS upper(herbtypes..herbtypes2.location) like upper ('$') ; SUB habitat WHERELIST AS upper(herbtypes..herbtypes2.habitat) like upper ('$') ; FROMLIST herbtypes..herbtypes2 ; SELECTLIST genustypebasionym, speciestypebasionym,authority_1, subtaxon,subtaxonbasionym, subtaxonauthority, county,state_prov,country, accession_num ; SORTLIST genustypebasionym , speciestypebasionym ; SQL END RESULTS BEGIN HEADER "

Results Screen

If this screen is empty try a more general search or using the wildcard character (*).

    " ; OUTPRINT "
  1. DATA_FIELD=genustypebasionym DATA_FIELD=speciestypebasionym DATA_FIELD=authority_1" ; OUTPRINT SUPPRESS_IF_EMPTY " DATA_FIELD=subtaxon DATA_FIELD=subtaxonbasionym DATA_FIELD=subtaxonauthority" ; OUTPRINT SUPPRESS_IF_EMPTY "
    DATA_FIELD=county County, DATA_FIELD=state_prov DATA_FIELD=country" ; OUTPRINT "
    Accession number: DATA_FIELD=accession_num

    " ; LINK accession_num TO herbtypes..herbGetMore2(accession_num) BROWSE_SCREEN=1 ; FOOTER "

OSU Herbarium Home Page OSU Home Page Written in HyperSQL

This document was last updated: December 5, 1996

petersoe@ucs.orst.edu

" ; RESULTS END BROWSE 1 BEGIN HEADER "

Browse Screen

Please note: Further nomenclatural information can be obtained by selecting information followed by the 'QUERY' icon.
" ; OUTPRINT SUPPRESS_IF_EMPTY "" ; OUTPRINT SUPPRESS_IF_EMPTY "" ; OUTPRINT SUPPRESS_IF_EMPTY "" ; OUTPRINT SUPPRESS_IF_EMPTY "" ; OUTPRINT SUPPRESS_IF_EMPTY "" ; OUTPRINT SUPPRESS_IF_EMPTY "" ; OUTPRINT SUPPRESS_IF_EMPTY " " ; OUTPRINT SUPPRESS_IF_EMPTY "" ; OUTPRINT SUPPRESS_IF_EMPTY "" ; OUTPRINT SUPPRESS_IF_EMPTY "" ; LINK collectors TO herbtypes..getColl2(accession_num) BROWSE_SCREEN=3 ; LINK arethereannotations_1 TO herbtypes..getAnno2(accession_num) BROWSE_SCREEN=2 ; LINK type_of_type TO herbtypes..getColl2(accession_num) BROWSE_SCREEN=4 ; FOOTER "
Accession number DATA_FIELD=accession_numFamily: DATA_FIELD=family
Basionym: DATA_FIELD=genustypebasionym DATA_FIELD=speciestypebasionym DATA_FIELD=authority_1" ; OUTPRINT SUPPRESS_IF_EMPTY " DATA_FIELD=subtaxon DATA_FIELD=subtaxonbasionym DATA_FIELD=subtaxonauthorityDATA_FIELD=type_of_type
Collector(s): DATA_FIELD=collectors" ; OUTPRINT SUPPRESS_IF_EMPTY "
Collection number: DATA_FIELD=collectors_numDate collected: DATA_FIELD=coll_date
State/Province: DATA_FIELD=state_prov" ; OUTPRINT SUPPRESS_IF_EMPTY "DATA_FIELD=county Co." ; OUTPRINT SUPPRESS_IF_EMPTY "DATA_FIELD=country" ; OUTPRINT SUPPRESS_IF_EMPTY "
Elevation: DATA_FIELD=elevation" ; OUTPRINT SUPPRESS_IF_EMPTY "Recorded in: DATA_FIELD=feet_meters
Coordinate: DATA_FIELD=coordinate
Location: DATA_FIELD=location
Habitat: DATA_FIELD=habitat
Associated species: DATA_FIELD=assoc_spp" ; OUTPRINT SUPPRESS_IF_EMPTY "
Annotation history: DATA_FIELD=arethereannotations_1
OSU Herbarium Home Page OSU Home Page Written in HyperSQL

This document was last updated: December 5, 1996

petersoe@ucs.orst.edu

" ; BROWSE 1 END BROWSE 2 BEGIN HEADER "

Annotations

" ; OUTPRINT SUPPRESS_IF_EMPTY "" ; OUTPRINT SUPPRESS_IF_EMPTY "" ; OUTPRINT SUPPRESS_IF_EMPTY "" ; OUTPRINT SUPPRESS_IF_EMPTY "" ; OUTPRINT SUPPRESS_IF_EMPTY "" ; OUTPRINT SUPPRESS_IF_EMPTY "" ; OUTPRINT SUPPRESS_IF_EMPTY "" ; OUTPRINT SUPPRESS_IF_EMPTY ""; OUTPRINT SUPPRESS_IF_EMPTY "" ; OUTPRINT SUPPRESS_IF_EMPTY "" ; OUTPRINT SUPPRESS_IF_EMPTY "" ; FOOTER "
Current name: DATA_FIELD=genus DATA_FIELD=species DATA_FIELD=authority
Current name determined by: DATA_FIELD=current_name_det_by on DATA_FIELD=current_name_det_date
Original determination (on label): DATA_FIELD=original_determination
Original determination by (on label): DATA_FIELD=orig_name_det_by
DATA_FIELD=annotname1DATA_FIELD=annotated_by_1DATA_FIELD=date_1
DATA_FIELD=annotname_2"; OUTPRINT SUPPRESS_IF_EMPTY "DATA_FIELD=annotated_by_2DATA_FIELD=date_2
Keyed by: DATA_FIELD=keyed_by
Notes: DATA_FIELD=notes
OSU Herbarium Home Page OSU Home Page Written in HyperSQL

This document was last updated: December 5, 1996

petersoe@ucs.orst.edu

" ; BROWSE 2 END BROWSE 3 BEGIN HEADER "

Collector Information

" ; OUTPRINT "" ; OUTPRINT "" ; OUTPRINT "" ; OUTPRINT "" ; OUTPRINT "" ; OUTPRINT SUPPRESS_IF_EMPTY "" ; FOOTER "
DATA_FIELD=collectors Collectors #DATA_FIELD=collectors_num Date: DATA_FIELD=coll_date
Original Determination: DATA_FIELD=original_determination"; OUTPRINT SUPPRESS_IF_EMPTY " by DATA_FIELD=orig_name_det_by"; OUTPRINT "
First Collectors Last Name: DATA_FIELD=first_coll_last_nameKeyed by DATA_FIELD=keyed_by
Date notes: DATA_FIELD=datenote
OSU Herbarium Home Page OSU Home Page Written in HyperSQL

This document was last updated: December 5, 1996

petersoe@ucs.orst.edu

" ; BROWSE 3 END BROWSE 4 BEGIN HEADER "

Further nomenclatural information

" ; OUTPRINT "" ; OUTPRINT SUPPRESS_IF_EMPTY "" ; OUTPRINT SUPPRESS_IF_EMPTY "" ; OUTPRINT SUPPRESS_IF_EMPTY "" ; FOOTER "
Basionym: DATA_FIELD=genustypebasionym DATA_FIELD=speciestypebasionym DATA_FIELD=authority_1" ; OUTPRINT SUPPRESS_IF_EMPTY " DATA_FIELD=subtaxon DATA_FIELD=subtaxonbasionym DATA_FIELD=subtaxonauthority" ; OUTPRINT SUPPRESS_IF_EMPTY "
DATA_FIELD=type_of_type
Published in: DATA_FIELD=citation
Confirmed by DATA_FIELD=type_det_byDate confirmed: DATA_FIELD=date_of_det
OSU Herbarium Home Page OSU Home Page Written in HyperSQL

This document was last updated: December 5, 1996

petersoe@ucs.orst.edu

" ; BROWSE 4 END