version 1.41, 2006/12/21 18:32:54
|
version 1.42, 2006/12/22 20:51:27
|
Line 27
|
Line 27
|
package Apache::lonsupportreq; |
package Apache::lonsupportreq; |
|
|
use strict; |
use strict; |
use lib qw(/home/httpd/lib/perl); |
|
use MIME::Types; |
use MIME::Types; |
use MIME::Lite; |
use MIME::Lite; |
use CGI::Cookie(); |
use CGI::Cookie(); |
Line 48 sub handler {
|
Line 47 sub handler {
|
if ($r->header_only) { |
if ($r->header_only) { |
return OK; |
return OK; |
} |
} |
|
if ($r->uri eq '/adm/helpdesk') { |
|
&Apache::lonlocal::get_language_handle($r); |
|
} |
|
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['origurl','function']); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['origurl','function']); |
if ($r->uri eq '/adm/helpdesk') { |
if ($r->uri eq '/adm/helpdesk') { |
&Apache::lonacc::get_posted_cgi($r); |
&Apache::lonacc::get_posted_cgi($r); |