#!/usr/bin/perl

require '../global/global.pl';

&env();

&mysql_connect();

$sth = $dbh->prepare("select label,notes from departments where department='$query'");
$sth->execute;
($departmentlabel,$departmentnotes) = $sth->fetchrow_array;
$sth->finish;

$dbh->disconnect;

&form_read();
print $fr{aformfield};