[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.1 and 1.3

version 1.1, 2002/05/07 15:58:14 version 1.3, 2002/05/29 01:05:54
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
Line 57  sub view_NSDLnetwork_results { Line 58  sub view_NSDLnetwork_results {
   
 # ----------------------------------- GATEWAY->view_NSDLnetwork_metadata_record  # ----------------------------------- GATEWAY->view_NSDLnetwork_metadata_record
 sub view_NSDLnetwork_metadata_record {  sub view_NSDLnetwork_metadata_record {
 # Not yet implemented  # Not yet fully 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 $ref;
       my $tr=new XML::Xalan::Transformer(); # or something
       # set up xsl
       # set up xml
       # process
       undef($tr);
       return ($ref);
 }  }
   
 # ---------------------------------------- GATEWAY->access_NSDLnetwork_resource  # ---------------------------------------- GATEWAY->access_NSDLnetwork_resource
Removed from v.1.1  
changed lines
  Added in v.1.3

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