--- nsdl/lib/perl/Apache/GATEWAY/ToLONCAPA.pm 2002/05/19 17:35:24 1.2 +++ nsdl/lib/perl/Apache/GATEWAY/ToLONCAPA.pm 2002/07/14 07:42:13 1.4 @@ -37,22 +37,23 @@ 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.2 $ =~ /(\d+)\.(\d+)/); +my $VERSION = sprintf("%d.%02d", q$Revision: 1.4 $ =~ /(\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 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 @@ -62,6 +63,7 @@ sub view_NSDLnetwork_metadata_record { 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 @@ -72,8 +74,8 @@ sub view_NSDLnetwork_metadata_record { # ---------------------------------------- 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;