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

harris41 lon-capa-cvs@mail.lon-capa.org
Wed, 29 May 2002 01:05:54 -0000


harris41		Tue May 28 21:05:54 2002 EDT

  Modified files:              
    /nsdl/lib/perl/Apache/GATEWAY	ToLONCAPA.pm 
  Log:
  initial implementation of search_NSDLnetwork
  
  
Index: nsdl/lib/perl/Apache/GATEWAY/ToLONCAPA.pm
diff -u nsdl/lib/perl/Apache/GATEWAY/ToLONCAPA.pm:1.2 nsdl/lib/perl/Apache/GATEWAY/ToLONCAPA.pm:1.3
--- nsdl/lib/perl/Apache/GATEWAY/ToLONCAPA.pm:1.2	Sun May 19 13:35:24 2002
+++ nsdl/lib/perl/Apache/GATEWAY/ToLONCAPA.pm	Tue May 28 21:05:54 2002
@@ -37,16 +37,17 @@
 
 # ================================================================ 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.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
@@ -62,6 +63,7 @@
     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