version 1.2, 2002/05/07 15:56:27
|
version 1.3, 2002/05/19 17:35:24
|
Line 52 sub view_LONCAPAnetwork_results {
|
Line 52 sub view_LONCAPAnetwork_results {
|
# -------------------------------- GATEWAY->view_LONCAPAnetwork_metadata_record |
# -------------------------------- GATEWAY->view_LONCAPAnetwork_metadata_record |
sub view_LONCAPAnetwork_metadata_record { |
sub view_LONCAPAnetwork_metadata_record { |
# Not yet implemented |
# Not yet implemented |
# Need to specifically characterize INPUT arguments and OUTPUT data |
my ($id)=@_; |
|
unless (-e '/home/gateway/'.$id) { |
|
die('Cannot open /home/gateway/'.$id."\n"); |
|
} |
|
my $tr=new XML::Xalan::Transformer(); # or something |
|
# set up xsl |
|
# set up xml |
|
# process |
|
undef($tr); |
|
return ($ref); |
} |
} |
|
|
# ------------------------------------- GATEWAY->access_LONCAPAnetwork_resource |
# ------------------------------------- GATEWAY->access_LONCAPAnetwork_resource |