Show AnnotationDetail.pl syntax highlighted
#!/usr/bin/perl
do 'UCAconf.pl';
do 'functions.pl';
#&{$GV->{InitFunction}};
$PRM->{USERid} = &{$GV->{getUserIdFunction}};
# no edit link for PlantGDB implementaiton because virtual does not pass cookie, thus session
loadUCA();
print header();
print &{$GV->{getUserIdFunction}};
if ($PRM->{owner}){ # if returned record, loadUCA checks to see if valid user request
$txt = printEditLink();
$txt .= "<br>".printDetail();
print "<pre>$txt</pre>";
}else{
print "<BR>You currently do not have permission to access this UCA record! Please try again at a later date.<BR>";
}
See more files for this project here