Project Contacts
Matt Bachmann
(mbachman@usgs.gov)
(253) 552-1672

Sue Kahle
(sckahle@usgs.gov)
(253) 552-1616

934 Broadway,
Suite 300
Tacoma, WA 98402

Yakima River Basin

Publications and Products

	Project Home | Status | Publications and Products | Related Links | News Releases | Data | Maps | Bibliography | Contact Us | Project Summaries | Partnerships | Proposed Model Scenarios | Summary of Results |

Jones, M.A., and Julich, R.J., 2008, 3D hydrogeologic framework of basalt and interbed units, Yakima, Washington

Vaccaro, J.J., 2008, A thermal profile method for long river reaches to identify potential areas of ground-water discharge and preferred salmonid habitat and to document the longitudinal temperature regime, Symposium on Identifying, Protecting, and Restoring Thermal Refuges for Coldwater Fishes, A.F.S., May 4-8, 2008, Portland, Oregon

#!/usr/bin/perl -- -*-perl-*- # This script searches the bibliography database and prints # citations to the corresponding project page. #---------------------------------------------------------------------------------------------------------------------- # Print html header #---------------------------------------------------------------------------------------------------------------------- print "Content-type: text/html\n\n"; #---------------------------------------------------------------------------------------------------------------------- # Set Variables #---------------------------------------------------------------------------------------------------------------------- $study = $ENV{'QUERY_STRING'}; $study =~ s/%([0-9|A-F]{2})/pack("C",hex($1))/eg; $study =~ s/[;<>\*\|'&\$!#\(\)\[\]\{\}:"\\\/]//g; $temp = int(rand(time ^ $$)); $temp2 = int(rand(time ^ $$)); #---------------------------------------------------------------------------------------------------------------------- # Execute script #---------------------------------------------------------------------------------------------------------------------- &search(); &sorting(); &opendb(); &results(); #---------------------------------------------------------------------------------------------------------------------- # Search by project name #---------------------------------------------------------------------------------------------------------------------- sub search { system("/usr/opt/bin/row Study =~ /$study/i < /afs/usgs.gov/www/wa.water/htdocs/pubs/Bibliography.rdb > /tmp/$temp.rdb"); #system("/usr/opt/bin/row Study =~ /$study/i < /snld07/www_projects/webdev/wa.water.gov/htdocs/pubs/Bibliography.rdb > /tmp/$temp.rdb"); } #---------------------------------------------------------------------------------------------------------------------- # Perform final sorting and delete extra temp files #---------------------------------------------------------------------------------------------------------------------- sub sorting { system("/usr/opt/bin/sorttbl Authors < /tmp/$temp.rdb > /tmp/$temp2.rdb"); system("/bin/rm /tmp/$temp.rdb"); system("/usr/opt/bin/column -v ID < /tmp/$temp2.rdb > /tmp/$temp.rdb"); system("/usr/opt/bin/headchg -del < /tmp/$temp.rdb > /tmp/$temp2.rdb"); system("/bin/rm /tmp/$temp.rdb"); } #---------------------------------------------------------------------------------------------------------------------- # Open database results from search for display #---------------------------------------------------------------------------------------------------------------------- sub opendb {open(INFO, "/tmp/$temp2.rdb"); # Open db for reading @array=; close (INFO); } #---------------------------------------------------------------------------------------------------------------------- # Split fields in database and display results #---------------------------------------------------------------------------------------------------------------------- sub results { foreach $array (@array){ ($pub_type, $authors, $year, $title, $pub, $url, $study, $display, $county, $basin, $keywords,$test)=split(/\t/,$array); if ($url) { print qq~

$authors, $year, $title: $pub

~; } else { print qq~

$authors, $year, $title: $pub

~; } } } unlink("/tmp/$temp.rdb", "/tmp/$temp2.rdb") or die "couldn't delete file\n"; #---------------------------------------------------------------------------------------------------------------------- # End Script #----------------------------------------------------------------------------------------------------------------------