[LON-CAPA-cvs] cvs: nsdl /lib/perl/Apache/NSDL FromTheGateway.pm

[harris41]

harris41		Sun Jul 14 03:43:22 2002 EDT

  Modified files:              
    /nsdl/lib/perl/Apache/NSDL	FromTheGateway.pm 
  Log:
  filling in stubs (untested; still mismatch with API/documentation)
  
  
Index: nsdl/lib/perl/Apache/NSDL/FromTheGateway.pm
diff -u nsdl/lib/perl/Apache/NSDL/FromTheGateway.pm:1.6 nsdl/lib/perl/Apache/NSDL/FromTheGateway.pm:1.7
--- nsdl/lib/perl/Apache/NSDL/FromTheGateway.pm:1.6	Tue May 28 21:18:53 2002
+++ nsdl/lib/perl/Apache/NSDL/FromTheGateway.pm	Sun Jul 14 03:43:22 2002
@@ -39,14 +39,14 @@
 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 @@
 
 # ---------------------------------------- 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;