[BACK]Return to ToLONCAPA.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / nsdl / lib / perl / Apache / GATEWAY

Diff for /nsdl/lib/perl/Apache/GATEWAY/ToLONCAPA.pm between versions 1.2 and 1.4

version 1.2, 2002/05/19 17:35:24 version 1.4, 2002/07/14 07:42:13
Line 37  package Apache::GATEWAY::ToLONCAPA; Line 37  package Apache::GATEWAY::ToLONCAPA;
   
 # ================================================================ DEPENDENCIES  # ================================================================ DEPENDENCIES
 use strict; # enforce handling of variables, references and subroutines  use strict; # enforce handling of variables, references and subroutines
   use Apache::GATEWAY::FromNSDL;
   
 # ============================================================ MODULE VARIABLES  # ============================================================ MODULE VARIABLES
 my $VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);  my $VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
Line 45  my $VERSION = sprintf("%d.%02d", q$Revis Line 46  my $VERSION = sprintf("%d.%02d", q$Revis
   
 # ------------------------------------------------- GATEWAY->search_NSDLnetwork  # ------------------------------------------------- GATEWAY->search_NSDLnetwork
 sub search_NSDLnetwork {  sub search_NSDLnetwork {
 # Not yet implemented      my ($eref)=@_;
 # Need to specifically characterize INPUT arguments and OUTPUT data      return Apache::GATEWAY::FromNSDL::search_NSDLnetwork($eref);
 }  }
   
 # ------------------------------------------- GATEWAY->view_NSDLnetwork_results  # ------------------------------------------- GATEWAY->view_NSDLnetwork_results
 sub view_NSDLnetwork_results {  sub view_NSDLnetwork_results {
 # Not yet implemented      my ($eref)=@_;
 # Need to specifically characterize INPUT arguments and OUTPUT data      return Apache::GATEWAY::FromNSDL::view_NSDLnetwork_results($eref);
 }  }
   
 # ----------------------------------- GATEWAY->view_NSDLnetwork_metadata_record  # ----------------------------------- GATEWAY->view_NSDLnetwork_metadata_record
Line 62  sub view_NSDLnetwork_metadata_record { Line 63  sub view_NSDLnetwork_metadata_record {
     unless (-e '/home/gateway/'.$id) {      unless (-e '/home/gateway/'.$id) {
  die('Cannot open /home/gateway/'.$id."\n");   die('Cannot open /home/gateway/'.$id."\n");
     }      }
       my $ref;
     my $tr=new XML::Xalan::Transformer(); # or something      my $tr=new XML::Xalan::Transformer(); # or something
     # set up xsl      # set up xsl
     # set up xml      # set up xml
Line 72  sub view_NSDLnetwork_metadata_record { Line 74  sub view_NSDLnetwork_metadata_record {
   
 # ---------------------------------------- GATEWAY->access_NSDLnetwork_resource  # ---------------------------------------- GATEWAY->access_NSDLnetwork_resource
 sub access_NSDLnetwork_resource {  sub access_NSDLnetwork_resource {
 # Not yet implemented      my ($eref)=@_;
 # Need to specifically characterize INPUT arguments and OUTPUT data      return Apache::GATEWAY::FromNSDL::access_NSDLnetwork_resource($eref);
 }  }
   
 1;  1;
Removed from v.1.2  
changed lines
  Added in v.1.4

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>