| Information Item |
Value |
|---|
| Dataset Name |
$eds{EDSName} |
| Dataset Number |
$eds{EDSNo} |
| Short Description |
$shortdescrip |
| Source URL |
$url |
| Reference |
$reference |
| Strains |
$strain |
| Conditions |
$conditions |
| Date Entered on ExpressDB |
$eds{DateEntered} |
| Last date modified on EDS |
$lastmoddate |
| Last modification userid |
$lastmoduser |
| Last modification reason |
$lastmodreason |
| Number of Measures on ExpressDB |
$meascount (here to select dataset and view measure details) |
| Long Description |
$longdescrip |
| Display Level |
$eds{DisplayLevel} $displaylevelmsg |
| Data Security Status |
$securitystatus |
_HTML1
;
EXDutilities->EndPage();
sub GetEDSDetails {
my $dbh=$_[0];
my $edsno = $_[1];
my $eds_ref = $_[2];
my $sqlcmd;
my @data;
my $status;
my $colname;
$sqlcmd = "select * from EDS where EDSNo = $edsno and IsDeletedInd = 0";
$status = $dbh->dbcmd($sqlcmd);
if ($status != $SUCCEED) {
EXDutilities->TakeExit("\nERROR: $MODULE->GetEDSDetails: Return code from dbcmd = $status\n");
}
$status = $dbh->dbsqlexec;
if ($status != $SUCCEED) {
EXDutilities->TakeExit("\nERROR: $MODULE->GetEDSDetails: Return code from dbsqlexec = $status\n");
}
$status = $dbh->dbresults;
if ($status != $SUCCEED) {
EXDutilities->TakeExit("\nERROR: $MODULE->GetEDSDetails: Return code from dbresults = $status\n");
}
$status = $dbh->DBROWS;
if ($status == $SUCCEED) {
while (@data = $dbh->dbnextrow) {
if (exists $eds{EDSNo}) { # Error if we go through this loop more than one time.
EXDutilities->TakeExit("\nERROR: $MODULE->GetEDSDetails: Multiple EDS records exist ".
"with EDSNo = $eds{EDSNo}.\n");
}
for ($i=0;$i<@data;++$i) {
$colname = $dbh->dbcolname($i+1);
$eds{$colname} = $data[$i];
}
}
}
else {
EXDutilities->TakeExit("\nERROR: $MODULE->GetEDSDetails: Return code from DBROWS = $status\n");
}
}
sub GetMeasureCount {
my $dbh=$_[0];
my $edsno = $_[1];
my $sqlcmd;
my @data;
my $status;
my $measure_count;
$sqlcmd = "select count(*) from Measure where EDSNo = $edsno and IsDeletedInd = 0 ";
$status = $dbh->dbcmd($sqlcmd);
if ($status != $SUCCEED) {
EXDutilities->TakeExit("\nERROR: $MODULE->GetMeasureCount: Return code from dbcmd = $status\n");
}
$status = $dbh->dbsqlexec;
if ($status != $SUCCEED) {
EXDutilities->TakeExit("\nERROR: $MODULE->GetMeasureCount: Return code from dbsqlexec = $status\n");
}
$status = $dbh->dbresults;
if ($status != $SUCCEED) {
EXDutilities->TakeExit("\nERROR: $MODULE->GetMeasureCount: Return code from dbresults = $status\n");
}
$status = $dbh->DBROWS;
if ($status == $SUCCEED) {
@data = $dbh->dbnextrow;
$measure_count = $data[0];
}
else {
EXDutilities->TakeExit("\nERROR: $MODULE->GetMeasureCount: Return code from DBROWS = $status\n");
}
if ($measure_count == "") {
$measure_count = 0;
}
return $measure_count;
}