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

[harris41]

harris41		Tue May 28 21:02:36 2002 EDT

  Modified files:              
    /nsdl/lib/perl/Apache/GATEWAY	ToNSDL.pm 
  Log:
  altered implementation of view_LONCAPAnetwork_metadata_record
  to call the Apache::GATEWAY::FromLONCAPA module
  
  
Index: nsdl/lib/perl/Apache/GATEWAY/ToNSDL.pm
diff -u nsdl/lib/perl/Apache/GATEWAY/ToNSDL.pm:1.3 nsdl/lib/perl/Apache/GATEWAY/ToNSDL.pm:1.4
--- nsdl/lib/perl/Apache/GATEWAY/ToNSDL.pm:1.3	Sun May 19 13:35:24 2002
+++ nsdl/lib/perl/Apache/GATEWAY/ToNSDL.pm	Tue May 28 21:02:36 2002
@@ -37,9 +37,10 @@
 
 # ================================================================ DEPENDENCIES
 use strict; # enforce handling of variables, references and subroutines
+use Apache::GATEWAY::FromLONCAPA;
 
 # ============================================================ MODULE VARIABLES
-my $VERSION = sprintf("%d.%02d", q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/);
+my $VERSION = sprintf("%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/);
 
 # ================================================================= SUBROUTINES
 
@@ -51,12 +52,15 @@
 
 # -------------------------------- GATEWAY->view_LONCAPAnetwork_metadata_record
 sub view_LONCAPAnetwork_metadata_record {
-# Not yet implemented
-    my ($id)=@_;
+    my ($eref)=@_;
+    my $id="requestnumber"; # needs to be a requestnumber
+  return
+ Apache::GATEWAY::FromLONCAPA::view_LONCAPAnetwork_metadata_record($eref,$id);
     unless (-e '/home/gateway/'.$id) {
 	die('Cannot open /home/gateway/'.$id."\n");
     }
     my $tr=new XML::Xalan::Transformer(); # or something
+    my $ref;
     # set up xsl
     # set up xml
     # process