--- nsdl/lib/perl/Apache/NSDL/FromTheGateway.pm 2002/05/06 19:51:21 1.5 +++ nsdl/lib/perl/Apache/NSDL/FromTheGateway.pm 2002/07/14 07:43:22 1.7 @@ -39,32 +39,32 @@ package Apache::NSDL::FromTheGateway; use strict; # enforce handling of variables, references and subroutines # ============================================================ MODULE VARIABLES -my $VERSION = sprintf("%d.%02d", q$Revision: 1.5 $ =~ /(\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 sub view_LONCAPAgateway_metadata_record { -# Not yet implemented -# Need to specifically characterize INPUT arguments and OUTPUT data + my ($eref)=@_; + return Apache::GATEWAY::ToNSDL::view_LONCAPAnetwork_metadata_record($eref); } # ---------------------------------------- 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;