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

Return to ToLONCAPA.pm CVS log

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

-version 1.1, 2002/05/07 15:58:14
+version 1.2, 2002/05/19 17:35:24
  Line 57  sub view_NSDLnetwork_results {
  # ----------------------------------- GATEWAY->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 $tr=new XML::Xalan::Transformer(); # or something
+     # set up xsl
+     # set up xml
+     # process
+     undef($tr);
+     return ($ref);
  }
  # ---------------------------------------- GATEWAY->access_NSDLnetwork_resource