#! /usr/bin/perl -w # # Richard Capone # alcapone@ece.lsu.edu # 7.15.2003 - # use Win32::ODBC; use CGI qw(param); require 'cgi-lib.pl'; $DSN = 'DocumentCenter'; print &PrintHeader(); $name = param('name'); &ReadParse(); if (!($db = new Win32::ODBC($DSN))) { print "Error connecting to $DSN. \n"; print "Error: . Win32::ODBC::Error() . "; exit; } print < LSU ECE Document Center

Faculty Publications

Results:

ET $SQLQuery= "SELECT Publications.Authors, Publications.Title, Publications.Source, Publications.PublishDate, Faculty.Web, Faculty.Email FROM (Publications INNER JOIN Faculty ON Publications.ECEAuthor = Faculty.LastName) WHERE ((Publications.ECEAuthor = '$name') AND (Publications.Type eq 'Book')) ORDER BY Publications.PublishDate desc;"; if ($db->Sql($SQLQuery)) { print "Query failed.\n"; print "Error: . $db->Error() . \n"; $db->Close(); exit; } print <Books ET while ($db->FetchRow()) { undef %Data; %Data = $db->DataHash(); print < ET } print <

Journal Articles

$Data{'Authors'}

$Data{'Title'}

$Data{'Source'}

$Data{'PublishDate'}

links

ET $SQLQuery= "SELECT Publications.Authors, Publications.Title, Publications.Source, Publications.PublishDate, Faculty.Web, Faculty.Email FROM (Publications INNER JOIN Faculty ON Publications.ECEAuthor = Faculty.LastName) WHERE ((Publications.ECEAuthor = '$name') AND (Publications.Type eq 'Journal')) ORDER BY Publications.PublishDate desc;"; if ($db->Sql($SQLQuery)) { print "Query failed.\n"; print "Error: . $db->Error() . \n"; $db->Close(); exit; } while ($db->FetchRow()) { undef %Data; %Data = $db->DataHash(); print < ET } print <

Conferences

$Data{'Authors'}

$Data{'Title'}

$Data{'Source'}

$Data{'PublishDate'}

links

ET $SQLQuery= "SELECT Publications.Authors, Publications.Title, Publications.Source, Publications.PublishDate, Faculty.Web, Faculty.Email FROM (Publications INNER JOIN Faculty ON Publications.ECEAuthor = Faculty.LastName) WHERE ((Publications.ECEAuthor = '$name') AND (Publications.Type eq 'Conference')) ORDER BY Publications.PublishDate desc;"; if ($db->Sql($SQLQuery)) { print "Query failed.\n"; print "Error: . $db->Error() . \n"; $db->Close(); exit; } while ($db->FetchRow()) { undef %Data; %Data = $db->DataHash(); print < ET } print <

Presentations

$Data{'Authors'}

$Data{'Title'}

$Data{'Source'}

$Data{'PublishDate'}

links

ET $SQLQuery= "SELECT Publications.Authors, Publications.Title, Publications.Source, Publications.PublishDate, Faculty.Web, Faculty.Email FROM (Publications INNER JOIN Faculty ON Publications.ECEAuthor = Faculty.LastName) WHERE ((Publications.ECEAuthor = '$name') AND (Publications.Type eq 'Presentations')) ORDER BY Publications.PublishDate desc;"; if ($db->Sql($SQLQuery)) { print "Query failed.\n"; print "Error: . $db->Error() . \n"; $db->Close(); exit; } while ($db->FetchRow()) { undef %Data; %Data = $db->DataHash(); print < ET } print <

Awards

$Data{'Authors'}

$Data{'Title'}

$Data{'Source'}

$Data{'PublishDate'}

links

ET $SQLQuery= "SELECT Publications.Authors, Publications.Title, Publications.Source, Publications.PublishDate, Faculty.Web, Faculty.Email FROM (Publications INNER JOIN Faculty ON Publications.ECEAuthor = Faculty.LastName) WHERE ((Publications.ECEAuthor = '$name') AND (Publications.Type eq 'Awards')) ORDER BY Publications.PublishDate desc;"; if ($db->Sql($SQLQuery)) { print "Query failed.\n"; print "Error: . $db->Error() . \n"; $db->Close(); exit; } while ($db->FetchRow()) { undef %Data; %Data = $db->DataHash(); print < ET } print <

Other

$Data{'Authors'}

$Data{'Title'}

$Data{'Source'}

$Data{'PublishDate'}

links

ET $SQLQuery= "SELECT Publications.Authors, Publications.Title, Publications.Source, Publications.PublishDate, Faculty.Web, Faculty.Email FROM (Publications INNER JOIN Faculty ON Publications.ECEAuthor = Faculty.LastName) WHERE ((Publications.ECEAuthor = '$name') AND (Publications.Type eq 'Other')) ORDER BY Publications.PublishDate desc;"; if ($db->Sql($SQLQuery)) { print "Query failed.\n"; print "Error: . $db->Error() . \n"; $db->Close(); exit; } while ($db->FetchRow()) { undef %Data; %Data = $db->DataHash(); print < ET } print < ET

$Data{'Authors'}

$Data{'Title'}

$Data{'Source'}

$Data{'PublishDate'}

links