version 1.67, 2012/04/18 17:30:24
|
version 1.67.2.1, 2013/01/04 19:07:17
|
Line 38 use Apache::lonlocal;
|
Line 38 use Apache::lonlocal;
|
use Apache::lonacc(); |
use Apache::lonacc(); |
use Apache::courseclassifier; |
use Apache::courseclassifier; |
use LONCAPA qw(:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
|
use HTML::Entities; |
|
|
sub handler { |
sub handler { |
my ($r) = @_; |
my ($r) = @_; |
Line 56 sub handler {
|
Line 56 sub handler {
|
if ($r->uri eq '/adm/helpdesk') { |
if ($r->uri eq '/adm/helpdesk') { |
&Apache::lonacc::get_posted_cgi($r); |
&Apache::lonacc::get_posted_cgi($r); |
} |
} |
my $function = $env{'form.function'}; |
my $function; |
|
if ($env{'form.function'}) { |
|
if (($env{'form.function'} eq 'norole') || |
|
($env{'form.function'} eq 'student') || |
|
($env{'form.function'} eq 'admin') || |
|
($env{'form.function'} eq 'author')) { |
|
$function = $env{'form.function'}; |
|
} |
|
} |
my $origurl = $env{'form.origurl'}; |
my $origurl = $env{'form.origurl'}; |
|
$origurl =~ s{^https?://}{}; |
|
$origurl =~ s/(`)//g; |
|
$origurl =~ s/\$/\(\$\)/g; |
my $command = $env{'form.command'}; |
my $command = $env{'form.command'}; |
|
|
if ($command eq 'process') { |
if ($command eq 'process') { |
Line 101 sub print_request_form {
|
Line 112 sub print_request_form {
|
} |
} |
$formname = 'logproblem'; |
$formname = 'logproblem'; |
my $machine = &Apache::lonnet::absolute_url(); |
my $machine = &Apache::lonnet::absolute_url(); |
if ($origurl =~ m-^https?://-) { |
my $sourceurl = $machine.$origurl; |
$server = $origurl; |
$server = $machine.&cleanup_html($origurl); |
} else { |
$server =~ s/\?.*$//; |
$server = $machine.$origurl; |
|
} |
|
my $showserver = $server; |
|
$showserver =~ s/\?.*$//; |
|
my %lt = &Apache::lonlocal::texthash ( |
my %lt = &Apache::lonlocal::texthash ( |
email => 'The e-mail address you entered', |
email => 'The e-mail address you entered', |
notv => 'is not a valid e-mail address', |
notv => 'is not a valid e-mail address', |
Line 357 ENDJS
|
Line 364 ENDJS
|
$num ++; |
$num ++; |
$i = $num%2; |
$i = $num%2; |
$output .= &Apache::lonhtmlcommon::row_title("$lt{'urlp'}",undef,$css[$i]). |
$output .= &Apache::lonhtmlcommon::row_title("$lt{'urlp'}",undef,$css[$i]). |
$showserver."\n".'<input type="hidden" name="sourceurl" value="'. |
$server."\n".'<input type="hidden" name="sourceurl" value="'. |
&HTML::Entities::encode($server,'"<>&').'" />'."\n". |
&HTML::Entities::encode($sourceurl,'"<>&').'" />'."\n". |
&Apache::lonhtmlcommon::row_closure(). |
&Apache::lonhtmlcommon::row_closure(). |
&Apache::lonhtmlcommon::row_title("$lt{'phon'}",undef,'LC_evenrow_value'). |
&Apache::lonhtmlcommon::row_title("$lt{'phon'}",undef,'LC_evenrow_value'). |
'<input type="text" size="15" name="phone" /><br />'."\n". |
'<input type="text" size="15" name="phone" /><br />'."\n". |
Line 631 sub print_request_receipt {
|
Line 638 sub print_request_receipt {
|
$okcclist = join(', ',@ok_ccs); |
$okcclist = join(', ',@ok_ccs); |
} |
} |
if (@bad_ccs == 1) { |
if (@bad_ccs == 1) { |
$badccmsg .= '<br />'.&mt('The following Cc e-mail address is invalid: ').$bad_ccs[0]; |
if ($bad_ccs[0] ne '') { |
|
$badccmsg .= '<br />'.&mt('The following Cc e-mail address is invalid: ').&cleanup_html($bad_ccs[0]); |
|
} |
} elsif (@bad_ccs > 1) { |
} elsif (@bad_ccs > 1) { |
my $bad_cc_string = join(', ',@bad_ccs); |
$badccmsg .= '<br />'.&mt('The following Cc e-mail addresses are invalid: '). &cleanup_html(join(', ',@bad_ccs)); |
$badccmsg .= '<br />'.&mt('The following Cc e-mail addresses are invalid: ').$bad_cc_string; |
|
} |
} |
} |
} |
$env{'form.user'} = "'".$env{'form.uname'}.':'.$env{'form.udom'}."'"; |
$env{'form.user'} = "'".$env{'form.uname'}.':'.$env{'form.udom'}."'"; |
Line 670 END
|
Line 678 END
|
'<span class="LC_helpform_receipt_cat">'. |
'<span class="LC_helpform_receipt_cat">'. |
"$lt{$item}</span>: $showurl<br />\n"; |
"$lt{$item}</span>: $showurl<br />\n"; |
} elsif ($item eq 'cc') { |
} elsif ($item eq 'cc') { |
$displaymsg .= |
if ($okcclist) { |
'<span class="LC_helpform_receipt_cat">'. |
my $showcclist = &cleanup_html($okcclist); |
"$lt{$item}</span>: $okcclist<br />\n"; |
$displaymsg .= |
|
'<span class="LC_helpform_receipt_cat">'. |
|
"$lt{$item}</span>: $showcclist<br />\n"; |
|
} |
} else { |
} else { |
my $showitem = $env{'form.'.$item}; |
my $showitem = $env{'form.'.$item}; |
$showitem = &cleanup_html($showitem); |
$showitem = &cleanup_html($showitem); |
Line 912 sub print_header {
|
Line 923 sub print_header {
|
} else { |
} else { |
$reviewtext = &mt('Please review the information in "Log-in help" if you are unable to log-in.'); |
$reviewtext = &mt('Please review the information in "Log-in help" if you are unable to log-in.'); |
} |
} |
|
my $linkback; |
if ($origurl eq '') { |
if ($origurl eq '') { |
$origurl = 'javascript:history.go(-1)'; |
$linkback = 'javascript:history.go(-1)'; |
|
} else { |
|
$linkback = &HTML::Entities::encode($origurl,'"<>&'); |
} |
} |
$r->print(<<"END"); |
$r->print(<<"END"); |
<table width="620" border="0" cellspacing="0" cellpadding="0" style="height: 55px;"> |
<table width="620" border="0" cellspacing="0" cellpadding="0" style="height: 55px;"> |
Line 929 sub print_header {
|
Line 943 sub print_header {
|
<tr> |
<tr> |
<td align="center"><span class="LC_nobreak"><img src="$location/help/help.png" border="0" alt="($lt{'login'})" style="vertical-align:middle" /> <b><a href="/adm/loginproblems.html">$lt{'login'}</a></b> </span></td> |
<td align="center"><span class="LC_nobreak"><img src="$location/help/help.png" border="0" alt="($lt{'login'})" style="vertical-align:middle" /> <b><a href="/adm/loginproblems.html">$lt{'login'}</a></b> </span></td> |
<td align="center"><span class="LC_nobreak"> <b>$helpdesk_link<img src="$location/lonIcons/helpdesk.gif" border="0" alt="($lt{'ask'})" style="vertical-align:middle" /> $lt{'ask'}</a></b> </span></td>$getstartlink |
<td align="center"><span class="LC_nobreak"> <b>$helpdesk_link<img src="$location/lonIcons/helpdesk.gif" border="0" alt="($lt{'ask'})" style="vertical-align:middle" /> $lt{'ask'}</a></b> </span></td>$getstartlink |
<td align="center"><span class="LC_nobreak"> <b><a href="$origurl" target="_top"><img src="$location/lonIcons/move_up.gif" border="0" alt="($lt{'back'})" style="vertical-align:middle" /> $lt{'back'}</a></b> </span></td> |
<td align="center"><span class="LC_nobreak"> <b><a href="$linkback" target="_top"><img src="$location/lonIcons/move_up.gif" border="0" alt="($lt{'back'})" style="vertical-align:middle" /> $lt{'back'}</a></b> </span></td> |
</tr> |
</tr> |
</table> |
</table> |
</fieldset> |
</fieldset> |
Line 962 END
|
Line 976 END
|
sub get_domain { |
sub get_domain { |
my $codedom; |
my $codedom; |
if (exists($env{'form.codedom'})) { |
if (exists($env{'form.codedom'})) { |
$codedom = $env{'form.codedom'}; |
if (&Apache::lonnet::domain($env{'form.codedom'}) ne '') { |
} elsif ($env{'request.course.id'}) { |
return $env{'form.codedom'}; |
|
} |
|
} |
|
if ($env{'request.course.id'}) { |
$codedom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
$codedom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
} elsif ($env{'request.role.domain'}) { |
} elsif ($env{'request.role.domain'}) { |
$codedom = $env{'request.role.domain'}; |
$codedom = $env{'request.role.domain'}; |
Line 978 sub cleanup_html {
|
Line 995 sub cleanup_html {
|
my $outgoing; |
my $outgoing; |
if ($incoming ne '') { |
if ($incoming ne '') { |
$outgoing = $incoming; |
$outgoing = $incoming; |
|
$outgoing =~ s/;/;/g; |
$outgoing =~ s/\#/#/g; |
$outgoing =~ s/\#/#/g; |
$outgoing =~ s/\&/&/g; |
$outgoing =~ s/\&/&/g; |
$outgoing =~ s/</</g; |
$outgoing =~ s/</</g; |
Line 987 sub cleanup_html {
|
Line 1005 sub cleanup_html {
|
$outgoing =~ s/"/"/g; |
$outgoing =~ s/"/"/g; |
$outgoing =~ s/'/'/g; |
$outgoing =~ s/'/'/g; |
$outgoing =~ s/\$/$/g; |
$outgoing =~ s/\$/$/g; |
|
$outgoing =~ s{/}{/}g; |
|
$outgoing =~ s/=/=/g; |
|
$outgoing =~ s/\\/\/g |
} |
} |
return $outgoing; |
return $outgoing; |
} |
} |