--- nsdl/lib/perl/Apache/NSDL/ToTheGateway.pm	2002/05/29 01:17:55	1.4
+++ nsdl/lib/perl/Apache/NSDL/ToTheGateway.pm	2002/05/30 17:07:38	1.5
@@ -42,7 +42,7 @@ use Apache::GATEWAY::Common;
 use Apache::NSDL::FromTheGateway;
 
 # ============================================================ MODULE VARIABLES
-my $VERSION = sprintf("%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/);
+my $VERSION = sprintf("%d.%02d", q$Revision: 1.5 $ =~ /(\d+)\.(\d+)/);
 
 # ================================================================= SUBROUTINES
 
@@ -56,6 +56,7 @@ sub handler {
       Apache::NSDL::FromTheGateway::view_LONCAPAgateway_metadata_record(\%ENV);
     }
     elsif ($ENV{'form.verb'} eq 'Identify') {
+	my $responseDate=Apache::GATEWAY::Common::responseDate();
 	$output=(<<END);
 <?xml version="1.0" encoding="UTF-8"?>
   <Identify 
@@ -63,7 +64,7 @@ sub handler {
      xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
      xsi:schemaLocation="http://www.openarchives.org/OAI/1.1/OAI_Identify
                          http://www.openarchives.org/OAI/1.1/OAI_Identify.xsd">
-    <responseDate>2001-06-01T19:20:30-04:00</responseDate>
+    <responseDate>$responseDate</responseDate>
     <requestURL>http://nsdl.lon-capa.org/OAI-script?verb=Identify</requestURL>
     <repositoryName>The LearningOnline Network with CAPA</repositoryName>
     <baseURL>http://nsdl.lon-capa.org/OAI-script</baseURL>
@@ -102,9 +103,21 @@ sub handler {
     </description>
   </Identify> 
 END
-        $output=~s/\>/\&gt;/g;
-	$output=~s/\</\&lt;/g;
     }
+    elsif ($ENV{'form.verb'} eq 'ListIdentifiers') {
+	$output='not yet implemented';
+    }
+    elsif ($ENV{'form.verb'} eq 'ListMetadataFormats') {
+	$output='not yet implemented';
+    }
+    elsif ($ENV{'form.verb'} eq 'ListRecords') {
+	$output='not yet implemented';
+    }
+    elsif ($ENV{'form.verb'} eq 'ListSets') {
+	$output='not yet implemented';
+    }
+    $output=~s/\>/\&gt;/g;
+    $output=~s/\</\&lt;/g;
     my $cgi;
     foreach my $key (keys %ENV) {
 	if ($key=~/^form\./) {