--- nsdl/lib/perl/Apache/GATEWAY/ToNSDL.pm 2002/05/19 17:35:24 1.3 +++ nsdl/lib/perl/Apache/GATEWAY/ToNSDL.pm 2002/05/29 01:02:36 1.4 @@ -37,9 +37,10 @@ package Apache::GATEWAY::ToNSDL; # ================================================================ DEPENDENCIES use strict; # enforce handling of variables, references and subroutines +use Apache::GATEWAY::FromLONCAPA; # ============================================================ MODULE VARIABLES -my $VERSION = sprintf("%d.%02d", q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/); +my $VERSION = sprintf("%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/); # ================================================================= SUBROUTINES @@ -51,12 +52,15 @@ sub view_LONCAPAnetwork_results { # -------------------------------- GATEWAY->view_LONCAPAnetwork_metadata_record sub view_LONCAPAnetwork_metadata_record { -# Not yet implemented - my ($id)=@_; + my ($eref)=@_; + 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