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

[harris41]

harris41		Tue May 28 21:01:37 2002 EDT

  Modified files:              
    /nsdl/lib/perl/Apache/GATEWAY	FromLONCAPA.pm 
  Log:
  initial implementation of view_LONCAPAnetwork_metadata_record
  
  
Index: nsdl/lib/perl/Apache/GATEWAY/FromLONCAPA.pm
diff -u nsdl/lib/perl/Apache/GATEWAY/FromLONCAPA.pm:1.1 nsdl/lib/perl/Apache/GATEWAY/FromLONCAPA.pm:1.2
--- nsdl/lib/perl/Apache/GATEWAY/FromLONCAPA.pm:1.1	Tue May  7 11:59:40 2002
+++ nsdl/lib/perl/Apache/GATEWAY/FromLONCAPA.pm	Tue May 28 21:01:37 2002
@@ -37,9 +37,10 @@
 
 # ================================================================ 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 @@
 
 # -------------------------------- 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