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

version 1.2, 2002/05/07 15:56:27 version 1.4, 2002/05/29 01:02:36
Line 37  package Apache::GATEWAY::ToNSDL; Line 37  package Apache::GATEWAY::ToNSDL;
   
 # ================================================================ DEPENDENCIES  # ================================================================ DEPENDENCIES
 use strict; # enforce handling of variables, references and subroutines  use strict; # enforce handling of variables, references and subroutines
   use Apache::GATEWAY::FromLONCAPA;
   
 # ============================================================ MODULE VARIABLES  # ============================================================ MODULE VARIABLES
 my $VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);  my $VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
Line 51  sub view_LONCAPAnetwork_results { Line 52  sub view_LONCAPAnetwork_results {
   
 # -------------------------------- GATEWAY->view_LONCAPAnetwork_metadata_record  # -------------------------------- GATEWAY->view_LONCAPAnetwork_metadata_record
 sub view_LONCAPAnetwork_metadata_record {  sub view_LONCAPAnetwork_metadata_record {
 # Not yet implemented      my ($eref)=@_;
 # Need to specifically characterize INPUT arguments and OUTPUT data      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
       undef($tr);
       return ($ref);
 }  }
   
 # ------------------------------------- GATEWAY->access_LONCAPAnetwork_resource  # ------------------------------------- GATEWAY->access_LONCAPAnetwork_resource

Removed from v.1.2  
changed lines
  Added in v.1.4


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