--- nsdl/lib/perl/Apache/GATEWAY/FromLONCAPA.pm 2002/05/07 15:59:40 1.1 +++ nsdl/lib/perl/Apache/GATEWAY/FromLONCAPA.pm 2002/05/29 01:01:37 1.2 @@ -37,9 +37,10 @@ package Apache::GATEWAY::FromLONCAPA; # ================================================================ DEPENDENCIES use strict; # enforce handling of variables, references and subroutines +use Apache::LONCAPA::ToTheGateway; # ============================================================ MODULE VARIABLES -my $VERSION = sprintf("%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/); +my $VERSION = sprintf("%d.%02d", q$Revision: 1.2 $ =~ /(\d+)\.(\d+)/); # ================================================================= SUBROUTINES @@ -51,8 +52,9 @@ sub view_LONCAPAnetwork_results { # -------------------------------- GATEWAY->view_LONCAPAnetwork_metadata_record sub view_LONCAPAnetwork_metadata_record { -# Not yet implemented -# Need to specifically characterize INPUT arguments and OUTPUT data + my ($eref,$id)=@_; + my $url; # determine url + return Apache::LONCAPA::ToTheGateway::answer_metadata_record_request($url); } # ------------------------------------- GATEWAY->access_LONCAPAnetwork_resource