nsdl/lib/perl/Apache/GATEWAY/ToNSDL.pm - diff

Return to ToNSDL.pm CVS log

Up to [LON-CAPA] / nsdl / lib / perl / Apache / GATEWAY

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

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

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

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