--- nsdl/lib/perl/Apache/GATEWAY/ToLONCAPA.pm	2002/05/07 15:58:14	1.1
+++ nsdl/lib/perl/Apache/GATEWAY/ToLONCAPA.pm	2002/05/29 01:05:54	1.3
@@ -37,16 +37,17 @@ package Apache::GATEWAY::ToLONCAPA;
 
 # ================================================================ DEPENDENCIES
 use strict; # enforce handling of variables, references and subroutines
+use Apache::GATEWAY::FromNSDL;
 
 # ============================================================ MODULE VARIABLES
-my $VERSION = sprintf("%d.%02d", q$Revision: 1.1 $ =~ /(\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::GATEWAY::FromNSDL::search_NSDLnetwork($eref);
 }
 
 # ------------------------------------------- GATEWAY->view_NSDLnetwork_results
@@ -57,8 +58,18 @@ sub view_NSDLnetwork_results {
 
 # ----------------------------------- GATEWAY->view_NSDLnetwork_metadata_record
 sub view_NSDLnetwork_metadata_record {
-# Not yet implemented
-# Need to specifically characterize INPUT arguments and OUTPUT data
+# Not yet fully implemented
+    my ($id)=@_;
+    unless (-e '/home/gateway/'.$id) {
+	die('Cannot open /home/gateway/'.$id."\n");
+    }
+    my $ref;
+    my $tr=new XML::Xalan::Transformer(); # or something
+    # set up xsl
+    # set up xml
+    # process
+    undef($tr);
+    return ($ref);
 }
 
 # ---------------------------------------- GATEWAY->access_NSDLnetwork_resource