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

[harris41]

harris41		Sun May 19 13:35:24 2002 EDT

  Modified files:              
    /nsdl/lib/perl/Apache/GATEWAY	ToLONCAPA.pm ToNSDL.pm 
  Log:
  minor updates to one of the functions
  
  
Index: nsdl/lib/perl/Apache/GATEWAY/ToLONCAPA.pm
diff -u nsdl/lib/perl/Apache/GATEWAY/ToLONCAPA.pm:1.1 nsdl/lib/perl/Apache/GATEWAY/ToLONCAPA.pm:1.2
--- nsdl/lib/perl/Apache/GATEWAY/ToLONCAPA.pm:1.1	Tue May  7 11:58:14 2002
+++ nsdl/lib/perl/Apache/GATEWAY/ToLONCAPA.pm	Sun May 19 13:35:24 2002
@@ -39,7 +39,7 @@
 use strict; # enforce handling of variables, references and subroutines
 
 # ============================================================ 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
 
@@ -57,8 +57,17 @@
 
 # ----------------------------------- GATEWAY->view_NSDLnetwork_metadata_record
 sub view_NSDLnetwork_metadata_record {
-# Not yet implemented
-# Need to specifically characterize INPUT arguments and OUTPUT data
+# Not yet fully implemented
+    my ($id)=@_;
+    unless (-e '/home/gateway/'.$id) {
+	die('Cannot open /home/gateway/'.$id."\n");
+    }
+    my $tr=new XML::Xalan::Transformer(); # or something
+    # set up xsl
+    # set up xml
+    # process
+    undef($tr);
+    return ($ref);
 }
 
 # ---------------------------------------- GATEWAY->access_NSDLnetwork_resource
Index: nsdl/lib/perl/Apache/GATEWAY/ToNSDL.pm
diff -u nsdl/lib/perl/Apache/GATEWAY/ToNSDL.pm:1.2 nsdl/lib/perl/Apache/GATEWAY/ToNSDL.pm:1.3
--- nsdl/lib/perl/Apache/GATEWAY/ToNSDL.pm:1.2	Tue May  7 11:56:27 2002
+++ nsdl/lib/perl/Apache/GATEWAY/ToNSDL.pm	Sun May 19 13:35:24 2002
@@ -39,7 +39,7 @@
 use strict; # enforce handling of variables, references and subroutines
 
 # ============================================================ 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
 
@@ -52,7 +52,16 @@
 # -------------------------------- GATEWAY->view_LONCAPAnetwork_metadata_record
 sub view_LONCAPAnetwork_metadata_record {
 # Not yet implemented
-# Need to specifically characterize INPUT arguments and OUTPUT data
+    my ($id)=@_;
+    unless (-e '/home/gateway/'.$id) {
+	die('Cannot open /home/gateway/'.$id."\n");
+    }
+    my $tr=new XML::Xalan::Transformer(); # or something
+    # set up xsl
+    # set up xml
+    # process
+    undef($tr);
+    return ($ref);
 }
 
 # ------------------------------------- GATEWAY->access_LONCAPAnetwork_resource