[LON-CAPA-cvs] cvs: modules /raeburn/register Logout.pm

[raeburn]

raeburn		Fri Feb  3 20:28:48 2006 EDT

  Modified files:              
    /modules/raeburn/register	Logout.pm 
  Log:
  Changes to make this work with Apache2.
  
  
Index: modules/raeburn/register/Logout.pm
diff -u modules/raeburn/register/Logout.pm:1.2 modules/raeburn/register/Logout.pm:1.3
--- modules/raeburn/register/Logout.pm:1.2	Mon Nov  1 14:51:22 2004
+++ modules/raeburn/register/Logout.pm	Fri Feb  3 20:28:46 2006
@@ -1,12 +1,16 @@
 package Apache::LON::Logout;
 use strict;
+use Apache::RequestRec();
+use Apache::Const qw(OK SERVER_ERROR);
+use Apache::LON::processform;
 use DBI;
 use CGI::Cookie;
-use Apache::Constants qw(OK SERVER_ERROR);
 
 sub handler {
     my $r = shift;
-    my %input = $r->args;
+    my %input = ();
+    &Apache::LON::processform::getitems($r,\%input);
+
     my $newurl = $input{'portal'};
 
     my $auth_type = $r->auth_type;
@@ -59,6 +63,8 @@
                                      );
     $r->headers_out->{'Set-cookie'} = $auth_cookie;
     my %headers_out = $r->headers_out;
+    $r->content_type('text/html');
+    $r->send_http_header;
     &print_html($r,$newurl);
     $dbh->disconnect;
     return OK;