$defref = {
email_subject => "PrsRls: Testing Software",
distribute_by => [],
release_date => $releasedate,
contact => $contact,
title => $title,
subtitle => $subtitle,
body => $body,
more_info => $moreinfo,
};
print STDERR "About to render page with test release loaded:\n",
$title,$subtitle,"\n";
print $form->render(header => 1, sticky => 1, values => $defref );
print STDERR "Should have just rendered form.\n",
$releasedate,"\n",$title,"\n",
"\$defref is $defref.\n";
print STDERR "In fact, \$defref says the title is: \n$defref->{title}";
####
Now running DistroPrsRls::setup() method.
Just ran setup() method.
The __Load Test Release__ button was chosen.
Will now render:
/home/hesco/pr-test.txt
About to render page with test release loaded:
Entire administration Resigns
Should have just rendered form.
December 31st, 2004
Entire administration Resigns
$defref is HASH(0x88636c4).
In fact, $defref says the title is:
Entire administration Resigns
####
$form->field(name => 'name_of_field',
value => $value,
force => 1);