[LON-CAPA-cvs] cvs: nsdl /lib/perl/Apache/GATEWAY FromNSDL.pm

[harris41]

harris41		Tue May 28 21:05:09 2002 EDT

  Modified files:              
    /nsdl/lib/perl/Apache/GATEWAY	FromNSDL.pm 
  Log:
  initial implementation of search_NSDLnetwork
  
  
Index: nsdl/lib/perl/Apache/GATEWAY/FromNSDL.pm
diff -u nsdl/lib/perl/Apache/GATEWAY/FromNSDL.pm:1.2 nsdl/lib/perl/Apache/GATEWAY/FromNSDL.pm:1.3
--- nsdl/lib/perl/Apache/GATEWAY/FromNSDL.pm:1.2	Tue May  7 11:56:27 2002
+++ nsdl/lib/perl/Apache/GATEWAY/FromNSDL.pm	Tue May 28 21:05:09 2002
@@ -39,14 +39,14 @@
 use strict; # enforce handling of variables, references and subroutines
 
 # ============================================================ MODULE VARIABLES
-my $VERSION = sprintf("%d.%02d", q$Revision: 1.2 $ =~ /(\d+)\.(\d+)/);
+my $VERSION = sprintf("%d.%02d", q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/);
 
 # ================================================================= SUBROUTINES
 
 # ------------------------------------------------- GATEWAY->search_NSDLnetwork
 sub search_NSDLnetwork {
-# 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_results