![[BACK]](/icons/back.gif){kind=icon}
Return to ToTheGateway.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / nsdl / lib / perl / Apache / NSDL|
Return to ToTheGateway.pm CVS log | Up to [LON-CAPA] / nsdl / lib / perl / Apache / NSDL |
| version 1.4, 2002/05/29 01:17:55 | version 1.5, 2002/05/30 17:07:38 |
|---|---|
| Line 56 sub handler { | Line 56 sub handler { |
| Apache::NSDL::FromTheGateway::view_LONCAPAgateway_metadata_record(\%ENV); | Apache::NSDL::FromTheGateway::view_LONCAPAgateway_metadata_record(\%ENV); |
| } | } |
| elsif ($ENV{'form.verb'} eq 'Identify') { | elsif ($ENV{'form.verb'} eq 'Identify') { |
| my $responseDate=Apache::GATEWAY::Common::responseDate(); | |
| $output=(<<END); | $output=(<<END); |
| <?xml version="1.0" encoding="UTF-8"?> | <?xml version="1.0" encoding="UTF-8"?> |
| <Identify | <Identify |
| Line 63 sub handler { | Line 64 sub handler { |
| xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" | xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" |
| xsi:schemaLocation="http://www.openarchives.org/OAI/1.1/OAI_Identify | xsi:schemaLocation="http://www.openarchives.org/OAI/1.1/OAI_Identify |
| http://www.openarchives.org/OAI/1.1/OAI_Identify.xsd"> | 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> | <requestURL>http://nsdl.lon-capa.org/OAI-script?verb=Identify</requestURL> |
| <repositoryName>The LearningOnline Network with CAPA</repositoryName> | <repositoryName>The LearningOnline Network with CAPA</repositoryName> |
| <baseURL>http://nsdl.lon-capa.org/OAI-script</baseURL> | <baseURL>http://nsdl.lon-capa.org/OAI-script</baseURL> |
| Line 102 sub handler { | Line 103 sub handler { |
| </description> | </description> |
| </Identify> | </Identify> |
| END | END |
| $output=~s/\>/\>/g; | |
| $output=~s/\</\</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/\>/\>/g; | |
| $output=~s/\</\</g; | |
| my $cgi; | my $cgi; |
| foreach my $key (keys %ENV) { | foreach my $key (keys %ENV) { |
| if ($key=~/^form\./) { | if ($key=~/^form\./) { |