version 1.3, 2002/05/19 17:35:24
|
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)=@_; |
my ($id)=@_; |
my $id="requestnumber"; # needs to be a requestnumber |
|
return |
|
Apache::GATEWAY::FromLONCAPA::view_LONCAPAnetwork_metadata_record($eref,$id); |
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 $tr=new XML::Xalan::Transformer(); # or something |
my $tr=new XML::Xalan::Transformer(); # or something |
|
my $ref; |
# set up xsl |
# set up xsl |
# set up xml |
# set up xml |
# process |
# process |