[BACK]Return to ToTheGateway.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / nsdl / lib / perl / Apache / LONCAPA

Diff for /nsdl/lib/perl/Apache/LONCAPA/ToTheGateway.pm between versions 1.2 and 1.3

version 1.2, 2002/05/07 14:04:07 version 1.3, 2002/05/29 01:09:37
Line 36  package Apache::LONCAPA::ToTheGateway; Line 36  package Apache::LONCAPA::ToTheGateway;
   
 # ================================================================ DEPENDENCIES  # ================================================================ DEPENDENCIES
 use strict; # enforce handling of variables, references and subroutines  use strict; # enforce handling of variables, references and subroutines
   use Apache::Constants qw(:common);
   use Apache::LONCAPA::FromTheGateway;
   
 # ============================================================ MODULE VARIABLES  # ============================================================ MODULE VARIABLES
 my $VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);  my $VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
   
 # ================================================================= SUBROUTINES  # ================================================================= SUBROUTINES
     
   # ----------------------------- Handling routine called via Apache and mod_perl
   sub handler {
       my $r = shift;
       Apache::GATEWAY::Common::readCGI($r);
       my $output;
       if ($ENV{'form.verb'} eq 'search') {
   # NSDL->answer_metadata_record_request
    $output=
     Apache::LONCAPA::FromTheGateway::search_or_browse_against_NSDLgateway(\%ENV);
       }
       my $cgi;
       foreach my $key (keys %ENV) {
    if ($key=~/^form\./) {
       $cgi.="$key: $ENV{$key}\n";
    }
       }
       $r->content_type('text/html');
       $r->send_http_header;
       return(OK) if $r->header_only;
       $r->print(<<END);
   <html>
   <head><title>Test Output</title></head>
   <body>
   <h1>Apache::LONCAPA::ToTheGateway</h1>
   <h2>Input</h2>
   <pre>
   $cgi
   </pre>
   <h2>Output</h2>
   <pre>
   $output
   </pre>
   </body>
   </html>
   END
       return(OK);
   }
   
 # ---------------------------------------------- LONCAPA->answer_search_request  # ---------------------------------------------- LONCAPA->answer_search_request
 sub answer_search_request {  sub answer_search_request {
 # Not yet implemented  # Not yet implemented
Line 50  sub answer_search_request { Line 90  sub answer_search_request {
   
 # ------------------------------------- LONCAPA->answer_metadata_record_request  # ------------------------------------- LONCAPA->answer_metadata_record_request
 sub answer_metadata_record_request {  sub answer_metadata_record_request {
 # Not yet implemented      my ($url)=@_;
 # Need to specifically characterize INPUT arguments and OUTPUT data      return "will have multiplexed this and returned from LON-CAPA network\n";
 }  }
   
 # -------------------------------------------- LONCAPA->answer_resource_request  # -------------------------------------------- LONCAPA->answer_resource_request
Removed from v.1.2  
changed lines
  Added in v.1.3

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