--- nsdl/lib/perl/Apache/NSDL/FromTheGateway.pm 2002/05/29 01:18:53 1.6 +++ nsdl/lib/perl/Apache/NSDL/FromTheGateway.pm 2002/07/14 07:43:22 1.7 @@ -39,14 +39,14 @@ package Apache::NSDL::FromTheGateway; use strict; # enforce handling of variables, references and subroutines # ============================================================ MODULE VARIABLES -my $VERSION = sprintf("%d.%02d", q$Revision: 1.6 $ =~ /(\d+)\.(\d+)/); +my $VERSION = sprintf("%d.%02d", q$Revision: 1.7 $ =~ /(\d+)\.(\d+)/); # ================================================================= SUBROUTINES # ------------------------------------------- NSDL->view_LONCAPAgateway_results sub view_LONCAPAgateway_results { -# Not yet implemented -# Need to specifically characterize INPUT arguments and OUTPUT data + my ($eref)=@_; + return Apache::GATEWAY::ToNSDL::view_LONCAPAnetwork_results($eref); } # ----------------------------------- NSDL->view_LONCAPAgateway_metadata_record @@ -57,14 +57,14 @@ sub view_LONCAPAgateway_metadata_record # ---------------------------------------- NSDL->access_LONCAPAgateway_resource sub access_LONCAPAgateway_resource { -# Not yet implemented -# Need to specifically characterize INPUT arguments and OUTPUT data + my ($eref)=@_; + return Apache::GATEWAY::ToNSDL::access_LONCAPAnetwork_resource($eref); } # ----------------------------------------- NSDL->search_against_LONCAPAgateway sub search_against_LONCAPAgateway { -# Not yet implemented -# Need to specifically characterize INPUT arguments and OUTPUT data + my ($eref)=@_; + return Apache::GATEWAY::ToNSDL::search_against_LONCAPAnetwork($eref); } 1;