--- nsdl/lib/perl/Apache/GATEWAY/FromNSDL.pm 2002/05/29 01:05:09 1.3 +++ nsdl/lib/perl/Apache/GATEWAY/FromNSDL.pm 2002/07/14 07:42:13 1.4 @@ -39,7 +39,7 @@ package Apache::GATEWAY::FromNSDL; use strict; # enforce handling of variables, references and subroutines # ============================================================ MODULE VARIABLES -my $VERSION = sprintf("%d.%02d", q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/); +my $VERSION = sprintf("%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/); # ================================================================= SUBROUTINES @@ -51,20 +51,20 @@ sub search_NSDLnetwork { # ------------------------------------------- GATEWAY->view_NSDLnetwork_results sub view_NSDLnetwork_results { -# Not yet implemented -# Need to specifically characterize INPUT arguments and OUTPUT data + my ($eref)=@_; + return Apache::NSDL::ToTheGateway::answer_search_request($eref); } # ----------------------------------- GATEWAY->view_NSDLnetwork_metadata_record sub view_NSDLnetwork_metadata_record { -# Not yet implemented -# Need to specifically characterize INPUT arguments and OUTPUT data + my ($eref)=@_; + return Apache::NSDL::ToTheGateway::answer_metadata_record_request($eref); } # ---------------------------------------- GATEWAY->access_NSDLnetwork_resource sub access_NSDLnetwork_resource { -# Not yet implemented -# Need to specifically characterize INPUT arguments and OUTPUT data + my ($eref)=@_; + return Apache::NSDL::ToTheGateway::answer_resource_request($eref); } 1;