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

[harris41]

harris41		Sun Jul 14 03:42:14 2002 EDT

  Modified files:              
    /nsdl/lib/perl/Apache/GATEWAY	FromNSDL.pm ToLONCAPA.pm 
  Log:
  filling in some stubs
  
  
Index: nsdl/lib/perl/Apache/GATEWAY/FromNSDL.pm
diff -u nsdl/lib/perl/Apache/GATEWAY/FromNSDL.pm:1.3 nsdl/lib/perl/Apache/GATEWAY/FromNSDL.pm:1.4
--- nsdl/lib/perl/Apache/GATEWAY/FromNSDL.pm:1.3	Tue May 28 21:05:09 2002
+++ nsdl/lib/perl/Apache/GATEWAY/FromNSDL.pm	Sun Jul 14 03:42:13 2002
@@ -39,7 +39,7 @@
 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 @@
 
 # ------------------------------------------- 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;
Index: nsdl/lib/perl/Apache/GATEWAY/ToLONCAPA.pm
diff -u nsdl/lib/perl/Apache/GATEWAY/ToLONCAPA.pm:1.3 nsdl/lib/perl/Apache/GATEWAY/ToLONCAPA.pm:1.4
--- nsdl/lib/perl/Apache/GATEWAY/ToLONCAPA.pm:1.3	Tue May 28 21:05:54 2002
+++ nsdl/lib/perl/Apache/GATEWAY/ToLONCAPA.pm	Sun Jul 14 03:42:13 2002
@@ -40,7 +40,7 @@
 use Apache::GATEWAY::FromNSDL;
 
 # ============================================================ 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
 
@@ -52,8 +52,8 @@
 
 # ------------------------------------------- GATEWAY->view_NSDLnetwork_results
 sub view_NSDLnetwork_results {
-# Not yet implemented
-# Need to specifically characterize INPUT arguments and OUTPUT data
+    my ($eref)=@_;
+    return Apache::GATEWAY::FromNSDL::view_NSDLnetwork_results($eref);
 }
 
 # ----------------------------------- GATEWAY->view_NSDLnetwork_metadata_record
@@ -74,8 +74,8 @@
 
 # ---------------------------------------- GATEWAY->access_NSDLnetwork_resource
 sub access_NSDLnetwork_resource {
-# Not yet implemented
-# Need to specifically characterize INPUT arguments and OUTPUT data
+    my ($eref)=@_;
+    return Apache::GATEWAY::FromNSDL::access_NSDLnetwork_resource($eref);
 }
 
 1;