&parse_form;
@fields=keys %Form;
@scols=();
for($i=1;$i<=$#fields;$i++) {
#$Form{$field} = &clean_html($Form{$field});
$field = "c$i";
# print "$i \n";
if ($Form{$field}) {
if ($Form{$field} ne "None") {
$column .= " \"$Form{$field}\"";
push(@scols, $Form{$field});
}
}
}
if ($Form{"rest"}) {
$column .= " -Z";
}
for($i=1;$i<=$#fields;$i++) {
#$Form{$field} = &clean_html($Form{$field});
$field = "r$i";
if ($Form{$field}) { $sorttbl .= " -r" ;}
$field = "s$i";
if ($Form{$field}) {
$sorttbl .= " \"$Form{$field}\""
unless $Form{$field} eq "None" ;
$dosort = "yes";
}
}
#print "$sorttbl\n";
$target="";
$target_="";
if ($Form{"target"}) {
$target=$Form{"target"};
$target_="&target=contents";
};
if ($target eq "") {$target="type";};
if ($target_ eq "") {$target_="&target=contents";};
# 2 space lines are necessary
print <
Select obsid below.
Click here
for more information on X-ray fields (gl, gb, sorting, etc) and here for browsing guide.
Click here
to go back to the main page of data archive.
EOFINPUT
$cmd = "$column < $rdb ";
$cmd .= "| $sorttbl " if $dosort eq "yes";
$cmd .= "| $rdbeval '\$obsid = sprintf(\"link%s\",\$obsid)' ";
#$cmd .= "| $transpose " if $Form{"transpose"} eq "yes";
if ($Form{"format"} eq "html") {
$cmd .= "| $rdb2html ";
} elsif ( $Form{"format"} eq "txt") {
$cmd .= "| $ptbl " ;
} elsif ( $Form{"format"} eq "list") {
$cmd .= "| $tbl2lst " ;
}
$output = `$cmd`;
$output =~ s/link(.\d+)/$1<\/a>/g;
$output = "$output
"
unless $Form{"format"} eq "html";
print $output;
print <