loncom/interface/lonsupportreq.pm - diff

Return to lonsupportreq.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.40, 2006/12/12 16:04:40	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);
Line 741 $lt{'name'}: $env{'form.username'}	Line 744 $lt{'name'}: $env{'form.username'}
$lt{'email'}: $env{'form.email'}	$lt{'email'}: $env{'form.email'}
$lt{'unme'}: $env{'form.uname'} - $env{'form.udom'}	$lt{'unme'}: $env{'form.uname'} - $env{'form.udom'}
$lt{'tel'}: $env{'form.phone'}	$lt{'tel'}: $env{'form.phone'}
$lt{'crsi'}: env{'form.title'} - $coursecode - $lt{'secn'}: $env{'form.section'}	$lt{'crsi'}: $env{'form.title'} - $coursecode - $lt{'secn'}: $env{'form.section'}
$lt{'subj'}: $env{'form.subject'}	$lt{'subj'}: $env{'form.subject'}
$lt{'desc'}: $env{'form.description'}	$lt{'desc'}: $env{'form.description'}
URL: $env{'form.sourceurl'}	URL: $env{'form.sourceurl'}