|
version 1.6, 2004/07/19 16:35:12
|
version 1.98, 2019/08/11 15:15:40
|
|
Line 1
|
Line 1
|
| |
# The LearningOnline Network with CAPA |
| |
# Helpdesk request form |
| |
# |
| |
# $Id$ |
| |
# |
| |
# Copyright Michigan State University Board of Trustees |
| |
# |
| |
# This file is part of the LearningOnline Network with CAPA (LON-CAPA). |
| |
# |
| |
# LON-CAPA is free software; you can redistribute it and/or modify |
| |
# it under the terms of the GNU General Public License as published by |
| |
# the Free Software Foundation; either version 2 of the License, or |
| |
# (at your option) any later version. |
| |
# |
| |
# LON-CAPA is distributed in the hope that it will be useful, |
| |
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
| |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| |
# GNU General Public License for more details. |
| |
# |
| |
# You should have received a copy of the GNU General Public License |
| |
# along with LON-CAPA; if not, write to the Free Software |
| |
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
| |
# |
| |
# /home/httpd/html/adm/gpl.txt |
| |
# |
| |
# http://www.lon-capa.org/ |
| |
# |
| |
|
| package Apache::lonsupportreq; |
package Apache::lonsupportreq; |
| |
|
| use strict; |
use strict; |
| use lib qw(/home/httpd/lib/perl); |
use CGI::Cookie(); |
| use MIME::Types; |
|
| use MIME::Lite; |
|
| use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
| use Apache::loncommon(); |
use Apache::loncommon(); |
| use Apache::lonnet(); |
use Apache::lonhtmlcommon; |
| |
use Apache::lonnet; |
| use Apache::lonlocal; |
use Apache::lonlocal; |
| |
use Apache::lonacc(); |
| |
use Apache::lonauth(); |
| |
use Apache::courseclassifier; |
| |
use LONCAPA qw(:DEFAULT :match); |
| |
use HTML::Entities; |
| |
|
| sub handler { |
sub handler { |
| my ($r) = @_; |
my ($r) = @_; |
|
Line 17 sub handler {
|
Line 49 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']); |
| |
if ($r->uri eq '/adm/helpdesk') { |
| |
&Apache::lonacc::get_posted_cgi($r); |
| |
} |
| |
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'}; |
| |
if ($origurl =~ m{^https?://[^/]+(.*)$}) { |
| |
$origurl =~ $1; |
| |
} |
| |
$origurl =~ s/(`)//g; |
| |
$origurl =~ s/\$/\(\$\)/g; |
| |
my $command = $env{'form.command'}; |
| |
|
| &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['action','origurl','function']); |
if ($command eq 'process') { |
| my $action = $ENV{'form.action'}; |
|
| my $function = $ENV{'form.function'}; |
|
| my $origurl = &Apache::lonnet::unescape($ENV{'form.origurl'}); |
|
| if ($action eq 'process') { |
|
| &print_request_receipt($r,$origurl,$function); |
&print_request_receipt($r,$origurl,$function); |
| } else { |
} else { |
| &print_request_form($r,$origurl,$function); |
&print_request_form($r,$origurl,$function); |
| } |
} |
| return OK; |
return OK; |
| } |
} |
| |
|
| sub print_request_form { |
sub print_request_form { |
| my ($r,$origurl,$function) = @_; |
my ($r,$origurl,$function) = @_; |
| my ($os,$browser,$bversion,$uhost,$uname,$udom,$uhome,$urole,$usec,$email,$cid,$cdom,$cnum,$ctitle,$ccode,$sectionlist,$lastname,$firstname,$server); |
my ($os,$browser,$bversion,$uname,$udom,$uhome,$urole,$usec,$email,$cid, |
| my $bodytag = &Apache::loncommon::bodytag('',$function,'topmargin="0",marginheight="0"',1); |
$cdom,$cnum,$ctitle,$ccode,$sectionlist,$lastname,$firstname,$server, |
| my $tablecolor = &Apache::loncommon::designparm($function.'.tabbg'); |
$formname,$public,$homeserver,$knownuser,$captcha_form,$captcha_error, |
| if (($tablecolor eq '') || ($tablecolor eq '#FFFFFF')) { |
$captcha,$recaptcha_version,$extra_validations,%groupid); |
| $tablecolor = '#CCCCFF'; |
$function = &Apache::loncommon::get_users_function() if (!$function); |
| } |
$ccode = ''; |
| $os = $ENV{'browser.os'}; |
$os = $env{'browser.os'}; |
| $browser = $ENV{'browser.type'}; |
$browser = $env{'browser.type'}; |
| $bversion = $ENV{'browser.version'}; |
$bversion = $env{'browser.version'}; |
| $uhost = $ENV{'request.host'}; |
if (($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public')) { |
| $uname = $ENV{'user.name'}; |
$public = 1; |
| $udom = $ENV{'user.domain'}; |
} else { |
| $uhome = $ENV{'user.home'}; |
if (($env{'user.name'} ne '') && ($env{'user.domain'} ne '')) { |
| $urole = $ENV{'request.role'}; |
$homeserver = &Apache::lonnet::homeserver($env{'user.name'}, |
| $usec = $ENV{'request.course.sec'}; |
$env{'user.domain'}); |
| $cid = $ENV{'request.course.id'}; |
if ($homeserver eq 'no_host') { |
| $server = $ENV{'SERVER_NAME'}; |
undef($homeserver); |
| my $scripttag = (<<END); |
} else { |
| function validate() { |
$uname = $env{'user.name'}; |
| if (document.logproblem.email.value.indexOf("\@") == -1) { |
$udom = $env{'user.domain'}; |
| alert("You must enter a valid e-mail address"); |
} |
| return |
} |
| } |
} |
| document.logproblem.submit(); |
if (($env{'user.name'} =~ /^$match_username$/) && |
| } |
($env{'user.domain'} =~ /^$match_domain$/) && (!$public)) { |
| END |
$knownuser = 1; |
| if ($cid =~ m/_/) { |
} else { |
| ($cdom,$cnum) = split/_/,$cid; |
my $lonhost = $r->dir_config('lonHostID'); |
| |
($captcha_form,$captcha_error,$captcha,$recaptcha_version) = |
| |
&Apache::loncommon::captcha_display('login',$lonhost); |
| |
} |
| |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['codedom', |
| |
'useremail','useraccount']); |
| |
|
| |
if ($homeserver) { |
| |
$uhome = $env{'user.home'}; |
| |
$urole = $env{'request.role'}; |
| |
$usec = $env{'request.course.sec'}; |
| |
$cid = $env{'request.course.id'}; |
| |
} |
| |
if ($cid) { |
| |
$cdom = $env{'course.'.$cid.'.domain'}; |
| |
$cnum = $env{'course.'.$cid.'.num'}; |
| } |
} |
| if ($cdom && $cnum) { |
if ($cdom && $cnum) { |
| my %csettings = &Apache::lonnet::get('environment',['description','internal.coursecode','internal.sectionnums'],$cdom,$cnum); |
my %csettings = &Apache::lonnet::get('environment',['description','internal.coursecode','internal.sectionnums'],$cdom,$cnum); |
| $ctitle = $csettings{'description'}; |
$ctitle = $csettings{'description'}; |
| $ccode = $csettings{'internal.coursecode'}; |
$ccode = $csettings{'internal.coursecode'}; |
| $sectionlist = $csettings{'internal.sectionnums'}; |
$sectionlist = $csettings{'internal.sectionnums'}; |
| |
my @sections = split(/,/,$sectionlist); |
| |
foreach my $section (@sections) { |
| |
my ($sec,$grp) = split(/:/,$section); |
| |
$groupid{$sec} = $grp; |
| |
} |
| } |
} |
| if ($ENV{'environment.critnotification'}) { |
|
| $email = $ENV{'environment.critnotification'}; |
$formname = 'logproblem'; |
| } |
my $codedom = &get_domain(); |
| if (!$email && $ENV{'environment.notification'}) { |
my %helpform; |
| $email = $ENV{'environment.notification'}; |
my %domconfig = |
| } |
&Apache::lonnet::get_dom('configuration',['contacts'],$codedom); |
| if ($ENV{'environment.lastname'}) { |
if (ref($domconfig{'contacts'}) eq 'HASH') { |
| $lastname = $ENV{'environment.lastname'}; |
if (ref($domconfig{'contacts'}{'helpform'}) eq 'HASH') { |
| |
%helpform = %{$domconfig{'contacts'}{'helpform'}}; |
| |
} |
| } |
} |
| if ($ENV{'environment.firstname'}) { |
|
| $firstname = $ENV{'environment.firstname'}; |
my %codes; |
| } |
my @codetitles; |
| my @sections = split/,/,$sectionlist; |
my %cat_titles; |
| my %groupid = (); |
my %cat_order; |
| foreach (@sections) { |
my %idlist; |
| my ($sec,$grp) = split/:/,$_; |
my %idnums; |
| $groupid{$sec} = $grp; |
my %idlist_titles; |
| } |
|
| my $defdom = $Apache::lonnet::perlvar{'lonDefDomain'}; |
|
| my $codedom = $defdom; |
|
| my %coursecodes = (); |
|
| my %codes = (); |
|
| my @codetitles = (); |
|
| my %cat_titles = (); |
|
| my %cat_order = (); |
|
| my %idlist = (); |
|
| my %idnums = (); |
|
| my %idlist_titles = (); |
|
| my $caller = 'global'; |
|
| my $totcodes = 0; |
my $totcodes = 0; |
| my $format_reply; |
|
| my $jscript = ''; |
my $jscript = ''; |
| |
my $loaditems = qq| |
| if ($cdom) { |
function initialize_codes() { |
| $codedom = $cdom; |
return; |
| } |
} |
| if ($cnum) { |
|; |
| $coursecodes{$cnum} = $ccode; |
unless ($helpform{'course'} eq 'no') { |
| if ($ccode eq '') { |
my $instcats = &Apache::lonnet::get_dom_instcats($codedom); |
| $totcodes = &retrieve_instcodes(\%coursecodes,$codedom,$totcodes); |
if (ref($instcats) eq 'HASH') { |
| } else { |
if ((ref($instcats->{'codetitles'}) eq 'ARRAY') && (ref($instcats->{'codes'}) eq 'HASH') && |
| $coursecodes{$cnum} = $ccode; |
(ref($instcats->{'cat_titles'}) eq 'HASH') && (ref($instcats->{'cat_order'}) eq 'HASH')) { |
| $caller = $cnum; |
%codes = %{$instcats->{'codes'}}; |
| $totcodes ++; |
@codetitles = @{$instcats->{'codetitles'}}; |
| } |
%cat_titles = %{$instcats->{'cat_titles'}}; |
| } else { |
%cat_order = %{$instcats->{'cat_order'}}; |
| $totcodes = &retrieve_instcodes(\%coursecodes,$codedom,$totcodes); |
$totcodes = scalar(keys(%codes)); |
| } |
} |
| if ($totcodes > 0) { |
if ($totcodes > 0) { |
| $format_reply = &Apache::lonnet::auto_instcode_format($caller,$codedom,\%coursecodes,\%codes,\@codetitles,\%cat_titles,\%cat_order); |
my $numtypes = @codetitles; |
| if ($ccode eq '') { |
&Apache::courseclassifier::build_code_selections(\%codes,\@codetitles,\%cat_titles,\%cat_order,\%idlist,\%idnums,\%idlist_titles); |
| my $numtypes = @codetitles; |
my ($scripttext,$longtitles) = &Apache::courseclassifier::javascript_definitions(\@codetitles,\%idlist,\%idlist_titles,\%idnums,\%cat_titles); |
| &build_code_selections(\%codes,\@codetitles,\%cat_titles,\%cat_order,\%idlist,\%idnums,\%idlist_titles); |
my $longtitles_str = join('","',@{$longtitles}); |
| &javascript_code_selections($numtypes,\$jscript,\%idlist,\%idnums,\%idlist_titles,\@codetitles); |
my $allidlist = $idlist{$codetitles[0]}; |
| |
my $knowncodes; |
| |
if (($ccode ne '') && ($cnum ne '')) { |
| |
my (%singlecodes,@singlecodetitles,%singlecat_titles,%singlecat_order); |
| |
my $crscode_reply = &Apache::lonnet::auto_instcode_format($cnum,$codedom,{ $cnum => $ccode },\%singlecodes, |
| |
\@singlecodetitles,\%singlecat_titles,\%singlecat_order); |
| |
if (ref($singlecodes{$cnum}) eq 'HASH') { |
| |
$knowncodes = $singlecodes{$cnum}; |
| |
} |
| |
} |
| |
$jscript .= &Apache::courseclassifier::courseset_js_start($formname,$longtitles_str,$allidlist); |
| |
$jscript .= $scripttext; |
| |
$jscript .= &Apache::courseclassifier::javascript_code_selections($formname,\@codetitles,$knowncodes,$sectionlist); |
| |
$loaditems = ''; |
| |
} |
| } |
} |
| } |
} |
| $r->print(<<END); |
my %missing = &Apache::lonlocal::texthash( |
| <html> |
username => 'You must include a name.', |
| <head> |
phone => 'You must include a phone.', |
| <title>LON-CAPA support request</title> |
); |
| <script> |
&js_escape(\%missing); |
| $scripttag |
if (keys(%helpform)) { |
| $jscript |
foreach my $key (keys(%helpform)) { |
| </script> |
if (($helpform{$key} eq 'req') && ($missing{$key} ne '')) { |
| </head> |
next if (($key eq 'username') && (($knownuser) || |
| $bodytag |
(($env{'user.name'} =~ /^$match_username$/) && (!$public)))); |
| <table width="580" border="0" cellpadding="0" cellspacing="0" bgcolor="#000000"> |
$extra_validations .= <<"END"; |
| <tr> |
|
| <td> |
if (document.$formname.$key.value == '') { |
| <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000"> |
alert("$missing{$key}"); |
| <tr> |
return; |
| <td> |
} |
| <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#ffffff"> |
|
| <tr> |
|
| <td> |
|
| <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#ffffff"> |
|
| <form method="post" name="logproblem" enctype="multipart/form-data"> |
|
| <tr> |
|
| <td width="140" bgcolor="$tablecolor"> |
|
| <table width="140" border="0" cellpadding="8" cellspacing="0"> |
|
| <tr> |
|
| <td align="right"><b>Name:</b> |
|
| </td> |
|
| </tr> |
|
| </table> |
|
| </td> |
|
| <td width="100%" valign="top"> |
|
| <table width="100%" border="0" cellpadding="8" cellspacing="0"> |
|
| <tr> |
|
| <td> |
|
| END |
END |
| my $fullname = ''; |
} |
| if ((defined($lastname) && $lastname ne '') && (defined($firstname) && $firstname ne '')) { |
|
| $fullname = "$firstname $lastname"; |
|
| $r->print("$fullname<input type=\"hidden\" name=\"username\" value=\"$fullname\" />"); |
|
| } else { |
|
| if (defined($firstname) && $firstname ne '') { |
|
| $fullname = $firstname; |
|
| } elsif (defined($lastname) && $lastname ne '') { |
|
| $fullname= " $lastname"; |
|
| } |
} |
| $r->print('<input type="text" size="20" name="username" value="'.$fullname.'" /><br />'); |
|
| } |
} |
| $r->print(<<END); |
my $machine = &Apache::lonnet::absolute_url(); |
| </td> |
my $sourceurl = $machine.$origurl; |
| </tr> |
$server = $machine.&Apache::loncommon::cleanup_html($origurl); |
| </table> |
$server =~ s/\?.*$//; |
| </td> |
my %js_lt = &Apache::lonlocal::texthash ( |
| </tr> |
email => 'The e-mail address you entered', |
| <tr> |
notv => 'is not a valid e-mail address', |
| <td width="100%" colspan="2" bgcolor="#000000"> |
rsub => 'You must include a subject', |
| <img src="/adm/lonMisc/blackdot.gif" /><br /> |
rdes => 'You must include a description', |
| </td> |
); |
| </tr> |
my %html_lt = &Apache::lonlocal::texthash ( |
| <tr> |
name => 'Name', |
| <td width="140" bgcolor="$tablecolor"> |
subm => 'Submit Request', |
| <table width="140" border="0" cellpadding="8" cellspacing="0"> |
emad => 'Your e-mail address', |
| <tr> |
emac => 'Cc', |
| <td align="right"><b>E-mail address:</b> |
unme => 'username', |
| </td> |
doma => 'domain', |
| </tr> |
entu => 'Enter the username you use to log-in to LON-CAPA', |
| </table> |
chdo => 'Choose your LON-CAPA domain', |
| </td> |
entr => 'Enter the username you use to log-in to LON-CAPA, and your domain.', |
| <td width="100%" valign="top"> |
urlp => 'URL of page', |
| <table width="100%" border="0" cellpadding="8" cellspacing="0"> |
phon => 'Phone', |
| <tr> |
crsd => 'Course Details', |
| <td> |
enin => 'Enter institutional course code', |
| <input type="text" size="20" name="email" value="$email" /><br /> |
pick => 'Pick', |
| </td> |
enct => 'Enter course title', |
| </tr> |
secn => 'Section Number', |
| </table> |
sele => 'Select', |
| </td> |
titl => 'Title', |
| </tr> |
lsec => 'LON-CAPA sec', |
| <tr> |
subj => 'Subject', |
| <td width="100%" colspan="2" bgcolor="#000000"> |
detd => 'Detailed Description', |
| <img src="/adm/lonMisc/blackdot.gif" /><br /> |
opfi => 'Optional file upload', |
| </td> |
uplf => 'Upload a file (e.g., a screenshot) relevant to your help request', |
| </tr> |
fini => 'Finish', |
| <tr> |
clfm => 'Clear Form', |
| <td width="140" bgcolor="$tablecolor"> |
); |
| <table width="140" border="0" cellpadding="8" cellspacing="0"> |
&js_escape(\%js_lt); |
| <tr> |
&html_escape(\%html_lt); |
| <td align="right"><b>username/domain:</b> |
my $scripttag = (<<"END"); |
| </td> |
function validate() { |
| </tr> |
if (validmail(document.logproblem.email) == false) { |
| </table> |
alert("$js_lt{'email'}: "+document.logproblem.email.value+" $js_lt{'notv'}."); |
| </td> |
return; |
| <td width="100%" valign="top"> |
} |
| <table width="100%" border="0" cellpadding="8" cellspacing="0"> |
if (document.logproblem.subject.value == '') { |
| <tr> |
alert("$js_lt{'rsub'}."); |
| <td> |
return; |
| |
} |
| |
if (document.logproblem.description.value == '') { |
| |
alert("$js_lt{'rdes'}."); |
| |
return; |
| |
} |
| |
$extra_validations |
| |
document.logproblem.submit(); |
| |
} |
| |
|
| END |
END |
| my $udom_input = '<input type="hidden" name="udom" value="'.$udom.'" />'; |
$scripttag .= &Apache::lonhtmlcommon::javascript_valid_email(); |
| my $uname_input = '<input type="hidden" name="uname" value="'.$uname.'" />'; |
|
| if (defined($uname) && defined($udom)) { |
if ($homeserver) { |
| $r->print('<i>username</i>: '.$uname.' <i>domain</i>: '.$udom.$udom_input.$uname_input); |
if ($env{'environment.permanentemail'}) { |
| } else { |
$email = $env{'environment.permanentemail'}; |
| my $udomform = ''; |
} elsif ($env{'environment.critnotification'}) { |
| my $unameform = ''; |
$email = $env{'environment.critnotification'}; |
| if (defined($udom)) { |
} elsif ($env{'environment.notification'}) { |
| $udomform = '<i>domain</i>: '.$udom.$udom_input; |
$email = $env{'environment.notification'}; |
| } elsif (defined($uname)) { |
} |
| $unameform = '<i>username</i>: '.$uname.' '.$uname_input; |
if ($env{'environment.lastname'}) { |
| } |
$lastname = $env{'environment.lastname'}; |
| if ($udomform eq '') { |
} |
| $udomform = '<i>domain</i>: '; |
if ($env{'environment.firstname'}) { |
| $udomform .= &Apache::loncommon::select_dom_form('','udom'); |
$firstname = $env{'environment.firstname'}; |
| |
} |
| |
} |
| |
if ($env{'form.origurl'} eq '/adm/createaccount') { |
| |
if ($email eq '') { |
| |
if ($env{'form.useremail'} =~ /^[^\@]+\@[^\@]+$/) { |
| |
$email = &HTML::Entities::encode($env{'form.useremail'},'"<>&'); |
| |
} |
| } |
} |
| if ($unameform eq '') { |
if ($uname eq '') { |
| $unameform= '<i>username</i>: <input type="text" size="20" name="loncname" value="'.$uname.'" /> '; |
if ($env{'form.useraccount'} =~ /^$match_username$/) { |
| |
$uname = &HTML::Entities::encode($env{'form.useraccount'},'"<>&'); |
| |
} |
| } |
} |
| $r->print($unameform.$udomform.'<br />Enter the username you use to log-in to your LON-CAPA system, and choose your domain.'); |
|
| } |
} |
| $r->print(<<END); |
my $details_title; |
| </td> |
if ($codedom) { |
| </tr> |
$details_title = '<br />('.$codedom.')'; |
| </table> |
} |
| </td> |
|
| </tr> |
my $js = <<"ENDJS"; |
| <tr> |
<script type="text/javascript"> |
| <td width="100%" colspan="2" bgcolor="#000000"> |
// <![CDATA[ |
| <img src="/adm/lonMisc/blackdot.gif" /><br /> |
$scripttag |
| </td> |
$jscript |
| </tr> |
$loaditems |
| <tr> |
// ]]> |
| <td width="140" bgcolor="$tablecolor"> |
</script> |
| <table width="140" border="0" cellpadding="8" cellspacing="0"> |
<script type="text/javascript" src="/res/adm/includes/file_upload.js"></script> |
| <tr> |
ENDJS |
| <td align="right"><b>URL of page:</b> |
if ($recaptcha_version >=2) { |
| </td> |
$js.= "\n".'<script src="https://www.google.com/recaptcha/api.js"></script>'."\n"; |
| </tr> |
} |
| </table> |
my %add_entries = ( |
| </td> |
style => "margin-top:0px;margin-bottom:0px;", |
| <td width="100%" valign="top"> |
onload => "initialize_codes();", |
| <table width="100%" border="0" cellpadding="8" cellspacing="0"> |
); |
| <tr> |
|
| <td> |
|
| http://$server$origurl<input type="hidden" name="origurl" value="http://$server$origurl" /> |
$r->print(&Apache::loncommon::start_page('Support Request',$js, |
| </td> |
{ 'function' => $function, |
| </tr> |
'add_entries' => \%add_entries, |
| </table> |
'only_body' => 1,})); |
| </td> |
if ($r->uri eq '/adm/helpdesk') { |
| </tr> |
&print_header($r,$origurl); |
| <tr> |
} |
| <td width="100%" colspan="2" bgcolor="#000000"> |
my @css = ('LC_evenrow_value','LC_oddrow_value'); |
| <img src="/adm/lonMisc/blackdot.gif" /><br /> |
my $num = 1; |
| </td> |
my $i = $num%2; |
| </tr> |
my $formtype; |
| <tr> |
if ($homeserver) { |
| <td width="140" bgcolor="$tablecolor"> |
$formtype = ' enctype="multipart/form-data"'; |
| <table width="140" border="0" cellpadding="8" cellspacing="0"> |
} |
| <tr> |
my $topsubmit = ' <input type="button" value="'.$html_lt{'subm'}.'" onclick="validate()" /> '; |
| <td align="right"><b>Phone #:</b> |
my $shownsubmit; |
| </td> |
$r->print('<form method="post" action="" name="logproblem"'.$formtype.'>'."\n"); |
| </tr> |
my $output = &Apache::lonhtmlcommon::start_pick_box(). |
| </table> |
&Apache::lonhtmlcommon::row_headline(). |
| </td> |
'<span class="LC_info">'. |
| <td width="100%" valign="top"> |
&mt('(All fields marked with * are required.)'). |
| <table width="100%" border="0" cellpadding="8" cellspacing="0"> |
'</span>'. |
| <tr> |
&Apache::lonhtmlcommon::row_closure(); |
| <td> |
unless ($helpform{'username'} eq 'no') { |
| <input type="text" size="15" name="phone"><br> |
my ($reqd,$namefield,$fullname); |
| </td> |
if ((defined($lastname) && $lastname ne '') && (defined($firstname) && $firstname ne '')) { |
| </tr> |
$fullname = "$firstname $lastname"; |
| </table> |
$namefield = $fullname.'<input type="hidden" name="username" value="'.&HTML::Entities::encode($fullname,'"<>&').'" />'."\n"; |
| </td> |
} else { |
| </tr> |
if (defined($firstname) && $firstname ne '') { |
| <tr> |
$fullname = $firstname; |
| <td width="100%" colspan="2" bgcolor="#000000"> |
} elsif (defined($lastname) && $lastname ne '') { |
| <img src="/adm/lonMisc/blackdot.gif" /><br /> |
$fullname = " $lastname"; |
| </td> |
} |
| </tr> |
$namefield = '<input type="text" size="20" name="username" value="'.&HTML::Entities::encode($fullname,'"<>&').'" />'."\n"; |
| <tr> |
if ($helpform{'username'} eq 'req') { |
| <td width="140" bgcolor="$tablecolor"> |
$reqd = '<span class="LC_info">*</span>'; |
| <table width="140" border="0" cellpadding="8" cellspacing="0"> |
} |
| <tr> |
|
| <td align="right"><b>Course Details:</b> |
|
| </td> |
|
| </tr> |
|
| </table> |
|
| </td> |
|
| <td width="100%" valign="top"> |
|
| <table border="0" cellpadding="3" cellspacing="3"> |
|
| <tr> |
|
| <td> |
|
| END |
|
| if ($coursecodes{$cnum}) { |
|
| foreach (@codetitles) { |
|
| $r->print('<i>'.$_.'</i>: '.$codes{$cnum}{$_}.'; '); |
|
| } |
} |
| $r->print(' <input type="hidden" name="coursecode" value="'.$coursecodes{$cnum}.'" />'); |
$output .= &Apache::lonhtmlcommon::row_title($html_lt{'name'}.$reqd,undef,$css[$num])."\n".$namefield. |
| } else { |
$topsubmit. |
| $r->print('Enter institutional course code: |
&Apache::lonhtmlcommon::row_closure()."\n"; |
| <input type="text" name="coursecode" size="15" value="" />'); |
$shownsubmit = 1; |
| |
$num ++; |
| |
$i = $num%2; |
| |
} |
| |
$output .= &Apache::lonhtmlcommon::row_title( |
| |
'<span title="'.&mt('required').'">'. |
| |
$html_lt{'emad'}.' <span class="LC_info">*</span></span>' |
| |
,undef,$css[$i]). |
| |
'<input type="text" size="20" name="email" value="'. |
| |
&HTML::Entities::encode($email,'"<>&').'" />'."\n"; |
| |
unless ($shownsubmit) { |
| |
$output .= $topsubmit; |
| } |
} |
| if ($ctitle) { |
$output .= &Apache::lonhtmlcommon::row_closure(); |
| $r->print('<br /><i>Title</i>: '.$ctitle.'<input type="hidden" name="title" value="'.$ctitle.'" />'); |
$num ++; |
| } else { |
$i = $num%2; |
| $r->print('<br />Enter course title: |
if ($knownuser) { |
| <input type="text" name="title" size="15" value="" />'); |
if ($homeserver) { |
| |
unless ($helpform{'cc'} eq 'no') { |
| |
$output .= &Apache::lonhtmlcommon::row_title($html_lt{'emac'},undef,$css[$i]). |
| |
'<input type="text" size="50" name="cc" value="" /><br />'."\n". |
| |
&Apache::lonhtmlcommon::row_closure(); |
| |
$num ++; |
| |
$i = $num%2; |
| |
} |
| |
} |
| } |
} |
| $r->print(<<END); |
unless (($helpform{'user'} eq 'no') || ($env{'request.lti.login'})) { |
| </td> |
$output .= &Apache::lonhtmlcommon::row_title("$html_lt{'unme'}/$html_lt{'doma'}",undef,$css[$i]); |
| </tr> |
my $udom_input = '<input type="hidden" name="udom" value="'. |
| </table> |
&HTML::Entities::encode($udom,'"<>&').'" />'."\n"; |
| </td> |
my $uname_input = '<input type="hidden" name="uname" value="'. |
| </tr> |
&HTML::Entities::encode($uname,'"<>&').'" />'."\n"; |
| <tr> |
if ($knownuser) { |
| <td width="100%" colspan="2" bgcolor="#000000"> |
$output .= '<i>'.$html_lt{'unme'}.'</i>: '.$uname.' <i>'.$html_lt{'doma'}.'</i>: '.$udom.$udom_input.$uname_input; |
| <img src="/adm/lonMisc/blackdot.gif" /><br /> |
} else { |
| </td> |
my $udomform = ''; |
| </tr> |
my $unameform = ''; |
| <tr> |
if (($env{'user.domain'} =~ /^$match_domain$/) && (!$public)) { |
| <td width="140" bgcolor="$tablecolor"> |
$output .= $html_lt{'entu'}; |
| <table width="140" border="0" cellpadding="8" cellspacing="0"> |
} elsif (($env{'user.name'} =~ /^$match_username$/) && (!$public)) { |
| <tr> |
$output .= $html_lt{'chdo'}; |
| <td align="right"><b>Section Number: </b> |
|
| </td> |
|
| </tr> |
|
| </table> |
|
| </td> |
|
| <td width="100%" valign="top"> |
|
| <table width="100%" border="0" cellpadding="8" cellspacing="0"> |
|
| <tr> |
|
| <td> |
|
| END |
|
| if ($sectionlist) { |
|
| $r->print("<select name=\"section\">"); |
|
| foreach (sort keys %groupid) { |
|
| if ($_ eq $groupid{$_} || $groupid{$_} eq '') { |
|
| $r->print("<option value=\"$_\" />$_"); |
|
| } else { |
} else { |
| $r->print("<option value=\"$_\" />$_ - (LON-CAPA sec: $groupid{$_})"); |
$output .= $html_lt{'entr'}; |
| |
} |
| |
$output .= '<br />'."\n"; |
| |
if (!$public) { |
| |
if ($env{'user.domain'} =~ /^$match_domain$/) { |
| |
$udomform = '<i>'.$html_lt{'doma'}.'</i>: '.$udom.$udom_input; |
| |
} elsif ($env{'user.name'} =~ /^$match_username$/) { |
| |
$unameform = '<i>'.$html_lt{'unme'}.'</i>: '.$uname.' '.$uname_input; |
| |
} |
| |
} |
| |
if ($udomform eq '') { |
| |
$udomform = '<i>'.$html_lt{'doma'}.'</i>: '; |
| |
$udomform .= &Apache::loncommon::select_dom_form($codedom,'udom')."\n"; |
| |
} |
| |
if ($unameform eq '') { |
| |
$unameform= '<i>'.$html_lt{'unme'}.'</i>: <input type="text" size="20" name="uname" value="'.$uname.'" /> '; |
| |
} |
| |
$output .= $unameform.$udomform; |
| |
} |
| |
$output .= &Apache::lonhtmlcommon::row_closure(); |
| |
$num ++; |
| |
$i = $num%2; |
| |
} |
| |
unless ($env{'request.lti.login'}) { |
| |
$output .= &Apache::lonhtmlcommon::row_title("$html_lt{'urlp'}",undef,$css[$i]). |
| |
$server."\n".'<input type="hidden" name="sourceurl" value="'. |
| |
&HTML::Entities::encode($sourceurl,'"<>&').'" />'."\n". |
| |
&Apache::lonhtmlcommon::row_closure(); |
| |
} |
| |
unless ($helpform{'phone'} eq 'no') { |
| |
my $reqd; |
| |
if ($helpform{'phone'} eq 'req') { |
| |
$reqd = '<span class="LC_info">*</span>'; |
| |
} |
| |
$output .= &Apache::lonhtmlcommon::row_title($html_lt{'phon'}.$reqd,undef,'LC_evenrow_value'). |
| |
'<input type="text" size="15" name="phone" /><br />'."\n". |
| |
&Apache::lonhtmlcommon::row_closure(); |
| |
$num ++; |
| |
$i = $num%2; |
| |
} |
| |
unless (($helpform{'course'} eq 'no') || ($env{'request.lti.login'})) { |
| |
$output .= &Apache::lonhtmlcommon::row_title("$html_lt{'crsd'}$details_title",undef,$css[$i]); |
| |
if ($totcodes > 0) { |
| |
my $numtitles = @codetitles; |
| |
if ($numtitles == 0) { |
| |
$output .= $html_lt{'enin'}.': |
| |
<input type="text" name="coursecode" size="15" value="" />'."\n"; |
| |
} else { |
| |
my @standardnames = &Apache::loncommon::get_standard_codeitems(); |
| |
my $lasttitle = $numtitles; |
| |
if ($numtitles > 4) { |
| |
$lasttitle = 4; |
| |
} |
| |
my $onchange; |
| |
if ($sectionlist) { |
| |
$onchange = 'toggleSecVis()'; |
| |
} |
| |
$output .= '<table><tr><td>'.$codetitles[0].'<br />'."\n". |
| |
'<select name="'.$standardnames[0].'" onchange="courseSet('."'$codetitles[0]'".');'.$onchange.'">'."\n". |
| |
' <option value="-1">'.$html_lt{'sele'}."</option>\n"; |
| |
my @items = (); |
| |
my @longitems = (); |
| |
if ($idlist{$codetitles[0]} =~ /","/) { |
| |
@items = split(/","/,$idlist{$codetitles[0]}); |
| |
} else { |
| |
$items[0] = $idlist{$codetitles[0]}; |
| |
} |
| |
if (defined($idlist_titles{$codetitles[0]})) { |
| |
if ($idlist_titles{$codetitles[0]} =~ /","/) { |
| |
@longitems = split(/","/,$idlist_titles{$codetitles[0]}); |
| |
} else { |
| |
$longitems[0] = $idlist_titles{$codetitles[0]}; |
| |
} |
| |
for (my $i=0; $i<@longitems; $i++) { |
| |
if ($longitems[$i] eq '') { |
| |
$longitems[$i] = $items[$i]; |
| |
} |
| |
} |
| |
} else { |
| |
@longitems = @items; |
| |
} |
| |
for (my $i=0; $i<@items; $i++) { |
| |
$output .= ' <option value="'.$items[$i].'">'.$longitems[$i].'</option>'."\n"; |
| |
} |
| |
$output .= '</select></td>'; |
| |
for (my $i=1; $i<$numtitles; $i++) { |
| |
$output .= '<td>'.$codetitles[$i].'<br />'."\n". |
| |
'<select name="'.$standardnames[$i].'" onchange="courseSet('."'$codetitles[$i]'".');'.$onchange.'">'."\n". |
| |
'<option value="-1"><-'.$html_lt{'pick'}.' '.$codetitles[$i-1].'</option>'."\n". |
| |
'</select>'."\n". |
| |
'</td>'."\n"; |
| |
} |
| |
$output .= '</tr></table>'; |
| |
if ($numtitles > 4) { |
| |
$output .= '<br /><br />'.$codetitles[$numtitles].'<br />'."\n". |
| |
'<select name="'.$standardnames[$numtitles].'" onchange="courseSet('."'$codetitles[$numtitles]'".');'.$onchange.'">'."\n". |
| |
'<option value="-1"><-'.$html_lt{'pick'}.' '.$codetitles[$numtitles-1].'</option>'."\n". |
| |
'</select>'."\n"; |
| |
} |
| |
} |
| |
} else { |
| |
$output .= $html_lt{'enin'}.': |
| |
<input type="text" name="coursecode" size="15" value="" />'."\n"; |
| |
} |
| |
my $reqd; |
| |
if ($helpform{'course'} eq 'req') { |
| |
$reqd = '<span class="LC_info">*</span>'; |
| |
} |
| |
$output .= '<br />'.$html_lt{'enct'}.$reqd.': |
| |
<input type="text" name="title" size="25" value="'. |
| |
&HTML::Entities::encode($ctitle,'"<>&').'" />'."\n"; |
| |
$output .= &Apache::lonhtmlcommon::row_closure(); |
| |
$num ++; |
| |
$i = $num%2; |
| |
} |
| |
unless (($helpform{'section'} eq 'no') || ($env{'request.lti.login'})) { |
| |
$output .= &Apache::lonhtmlcommon::row_title($html_lt{'secn'},undef,$css[$i]); |
| |
if ($sectionlist) { |
| |
$output .= "<div id=\"LC_helpdesk_sectionlist\"><select name=\"sectionsel\">\n". |
| |
" <option value=\"\" selected=\"selected\">$html_lt{'sele'}</option>\n"; |
| |
foreach my $id (sort(keys(%groupid))) { |
| |
if ($id eq $groupid{$id} || $groupid{$id} eq '') { |
| |
$output .= " <option value=". |
| |
&HTML::Entities::encode($id,'"<>&'). |
| |
" >$id</option>\n"; |
| |
} else { |
| |
$output .= " <option value=". |
| |
&HTML::Entities::encode($id,'"<>&'). |
| |
" >$id - ($html_lt{'lsec'}: $groupid{$id})</option>\n"; |
| |
} |
| |
} |
| |
$output .= '</select></div>'."\n". |
| |
'<div id="LC_helpdesk_section" style="display:none">'. |
| |
'<input type="text" name="sectiontxt" size="10" /></div>'."\n"; |
| |
} else { |
| |
$output .= '<input type="text" name="section" size="10" />'."\n"; |
| |
} |
| |
$output .= &Apache::lonhtmlcommon::row_closure(); |
| |
$num ++; |
| |
$i = $num%2; |
| |
} |
| |
$output .= &Apache::lonhtmlcommon::row_title( |
| |
'<span title="'.&mt('required').'">'. |
| |
$html_lt{'subj'}.' <span class="LC_info">*</span></span>' |
| |
,undef,'LC_oddrow_value'). |
| |
'<input type="text" size="40" name="subject" />'."\n". |
| |
&Apache::lonhtmlcommon::row_closure(). |
| |
&Apache::lonhtmlcommon::row_title( |
| |
'<span title="'.&mt('required').'">'. |
| |
$html_lt{'detd'}.' <span class="LC_info">*</span></span>' |
| |
,undef,'LC_evenrow_value'). |
| |
'<textarea rows="10" cols="45" name="description" style="word-wrap:normal;">'. |
| |
'</textarea>'."\n". |
| |
&Apache::lonhtmlcommon::row_closure(); |
| |
$num ++; |
| |
$i = $num%2; |
| |
if ($knownuser) { |
| |
if ($homeserver) { |
| |
unless ($helpform{'screenshot'} eq 'no') { |
| |
my $max = 1048576; |
| |
my $showmax = 1.00; |
| |
if ($helpform{'maxsize'} =~ /^\d+\.\d*$/) { |
| |
$max *= $helpform{'maxsize'}; |
| |
$showmax = $helpform{'maxsize'}; |
| |
} |
| |
$showmax = ' ('.sprintf("%.2f",$showmax).' '.&mt('MB max.').')'; |
| |
$output .= &Apache::lonhtmlcommon::row_title($html_lt{'opfi'},undef,$css[$i]) |
| |
.' <input type="file" name="screenshot" class="LC_flUpload" size="20" />' |
| |
.'<input type="hidden" id="LC_free_space" value="'.$max.'" />' |
| |
.'<br />'."\n".$html_lt{'uplf'}.$showmax."\n" |
| |
.&Apache::lonhtmlcommon::row_closure(); |
| |
$num ++; |
| |
$i = $num%2; |
| } |
} |
| } |
} |
| $r->print("</select>"); |
|
| } else { |
} else { |
| $r->print("<input type=\"text\" name=\"section\" size=\"10\"/>"); |
if ($captcha_form) { |
| } |
$output .= &Apache::lonhtmlcommon::row_title( |
| $r->print(<<END); |
'<span title="'.&mt('required').'">'. |
| </td> |
&mt('Validation'). |
| </tr> |
' <span class="LC_info">*</span></span>' |
| </table> |
,undef,$css[$i]). |
| </td> |
$captcha_form."\n". |
| </tr> |
&Apache::lonhtmlcommon::row_closure(); |
| <tr> |
$num ++; |
| <td width="100%" colspan="2" bgcolor="#000000"> |
$i = $num%2; |
| <img src="/adm/lonMisc/blackdot.gif" /><br /> |
} |
| </td> |
|
| </tr> |
|
| <tr> |
|
| <td width="140" bgcolor="$tablecolor"> |
|
| <table width="140" border="0" cellpadding="8" cellspacing="0"> |
|
| <tr> |
|
| <td align="right"><b>Subject</b> |
|
| </td> |
|
| </tr> |
|
| </table> |
|
| </td> |
|
| <td width="100%" valign="top"> |
|
| <table width="100%" border="0" cellpadding="8" cellspacing="0"> |
|
| <tr> |
|
| <td> |
|
| <input type="text" size="40" name="subject"> |
|
| </td> |
|
| </tr> |
|
| </table> |
|
| </td> |
|
| </tr> |
|
| <tr> |
|
| <td width="100%" colspan="2" bgcolor="#000000"> |
|
| <img src="/adm/lonMisc/blackdot.gif" /><br /> |
|
| </td> |
|
| </tr> |
|
| <tr> |
|
| <td width="140" bgcolor="$tablecolor"> |
|
| <table width="140" border="0" cellpadding="8" cellspacing="0"> |
|
| <tr> |
|
| <td align="right"><b>Detailed description:</b> |
|
| </td> |
|
| </tr> |
|
| </table> |
|
| </td> |
|
| <td width="100%" valign="top"> |
|
| <table width="100%" border="0" cellpadding="8" cellspacing="0"> |
|
| <tr> |
|
| <td> |
|
| <textarea rows="10" cols="45" name="description" wrap="virtual"></textarea> |
|
| </td> |
|
| </tr> |
|
| </table> |
|
| </td> |
|
| </tr> |
|
| <tr> |
|
| <td width="100%" colspan="2" bgcolor="#000000"> |
|
| <img src="/adm/lonMisc/blackdot.gif" /><br /> |
|
| </td> |
|
| </tr> |
|
| END |
|
| if (defined($ENV{'user.name'})) { |
|
| $r->print(<<END); |
|
| <tr> |
|
| <td width="140" bgcolor="$tablecolor"> |
|
| <table width="140" border="0" cellpadding="8" cellspacing="0"> |
|
| <tr> |
|
| <td align="right"><b>Optional file upload:</b> |
|
| </td> |
|
| </tr> |
|
| </table> |
|
| </td> |
|
| <td width="100%" valign="top"> |
|
| <table width="100%" border="0" cellpadding="8" cellspacing="0"> |
|
| <tr> |
|
| <td> |
|
| <input type="file" name="screenshot" size="20" /><br />Upload a file (e.g., a screenshot) relevant to your support request (128 KB max. size). |
|
| </td> |
|
| </tr> |
|
| </table> |
|
| </td> |
|
| </tr> |
|
| <tr> |
|
| <td width="100%" colspan="2" bgcolor="#000000"> |
|
| <img src="/adm/lonMisc/blackdot.gif" /><br /> |
|
| </td> |
|
| </tr> |
|
| END |
|
| } |
} |
| $r->print(<<END); |
$output .= &Apache::lonhtmlcommon::row_title($html_lt{'fini'},undef,$css[$i]); |
| <tr> |
$output .= <<END; |
| <td width="140" bgcolor="$tablecolor"> |
|
| <table width="140" border="0" cellpadding="8" cellspacing="0"> |
|
| <tr> |
|
| <td align="right"><b>Finish:</b> |
|
| </td> |
|
| </tr> |
|
| </table> |
|
| </td> |
|
| <td width="100%" valign="top"> |
|
| <table border="0" cellpadding="8" cellspacing="0"> |
<table border="0" cellpadding="8" cellspacing="0"> |
| <tr> |
<tr> |
| <td> |
<td> |
| <input type="hidden" name="action" value="process" /> |
<input type="hidden" name="command" value="process" /> |
| <input type="button" value="Submit Request Form" onClick="validate()"/> |
<input type="button" value="$html_lt{'subm'}" onclick="validate()" /> |
| </td> |
</td> |
| <td> </td> |
<td> </td> |
| <td> |
<td> |
| <input type="reset" value="Clear Form"> |
<input type="reset" value="$html_lt{'clfm'}" /> |
| </td> |
</td> |
| </tr> |
</tr> |
| </table> |
</table> |
| </td> |
|
| </tr> |
|
| </table> |
|
| </td> |
|
| </tr> |
|
| </table> |
|
| </td> |
|
| </tr> |
|
| </table> |
|
| </td> |
|
| </tr> |
|
| </table> |
|
| END |
END |
| |
$output .= &Apache::lonhtmlcommon::row_closure(1); |
| |
$output .= &Apache::lonhtmlcommon::end_pick_box(); |
| |
$r->print(<<END); |
| |
$output |
| |
</form> |
| |
<br /> |
| |
END |
| |
$r->print(&Apache::loncommon::end_page()); |
| return; |
return; |
| } |
} |
| |
|
| sub print_request_receipt { |
sub print_request_receipt { |
| my ($r,$url,$function) = @_; |
my ($r,$url,$function) = @_; |
| my @envvars = ('lonID','HTTP_HOST','HTTP_USER_AGENT','REMOTE_ADDR','SERVER_ADDR','SERVER_NAME','browser.os','browser.type','browser.version','user.home','request.role'); |
my $public; |
| |
if (($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public')) { |
| |
$public = 1; |
| |
} |
| |
my $lonhost = $r->dir_config('lonHostID'); |
| |
unless (($env{'user.name'} =~ /^$match_username$/) && (!$public)) { |
| |
my ($captcha_chk,$captcha_error) = |
| |
&Apache::loncommon::captcha_response('login',$lonhost); |
| |
if ($captcha_chk != 1) { |
| |
$r->print(&Apache::loncommon::start_page('Support request failed',undef, |
| |
{'function' => $function, |
| |
'add_entries' => { |
| |
topmargin => "0", |
| |
marginheight => "0", |
| |
}, |
| |
'only_body' => 1,})); |
| |
if ($r->uri eq '/adm/helpdesk') { |
| |
&print_header($r,$url,'process'); |
| |
} |
| |
$r->print( |
| |
'<h2>'.&mt('Support request failed').'</h2>'. |
| |
&Apache::lonhtmlcommon::confirm_success( |
| |
&mt('Validation of the code you entered failed.'),1). |
| |
'<br /><br />'. |
| |
&Apache::lonhtmlcommon::actionbox([ |
| |
&mt('[_1]Go back[_2] and try again', |
| |
'<a href="javascript:history.go(-1)">','</a>')]). |
| |
&Apache::loncommon::end_page()); |
| |
return; |
| |
} |
| |
} |
| |
my @ENVvars = ('HTTP_HOST','HTTP_USER_AGENT','REMOTE_ADDR','SERVER_ADDR','SERVER_NAME'); |
| |
my @envvars = ('browser.os','browser.type','browser.version','user.home','request.role'); |
| my @loncvars = ('user.name','user.domain','request.course.sec','request.course.id'); |
my @loncvars = ('user.name','user.domain','request.course.sec','request.course.id'); |
| |
my @cookievars; |
| |
if ($ENV{'SERVER_PORT'} == 443) { |
| |
@cookievars = ('lonLinkID'); |
| |
} else { |
| |
@cookievars = ('lonID'); |
| |
} |
| |
|
| my $bodytag = &Apache::loncommon::bodytag('',$function,'topmargin="0" marginheight="0"',1); |
|
| my $admin = $Apache::lonnet::perlvar{'lonAdminMail'}; |
my $admin = $Apache::lonnet::perlvar{'lonAdminMail'}; |
| my $to = $Apache::lonnet::perlvar{'lonSupportEMail'}; |
my $origmail = $Apache::lonnet::perlvar{'lonSupportEMail'}; |
| |
my $defdom = &get_domain(); |
| my $from = $admin; |
my $from = $admin; |
| my $reporttime = &Apache::lonlocal::locallocaltime(time); |
my %helpform; |
| my $fontcolor = &Apache::loncommon::designparm($function.'.font'); |
my %domconfig = |
| my $vlinkcolor = &Apache::loncommon::designparm($function.'.vlink'); |
&Apache::lonnet::get_dom('configuration',['contacts'],$defdom); |
| my $tablecolor = &Apache::loncommon::designparm($function.'.tabbg'); |
if (ref($domconfig{'contacts'}) eq 'HASH') { |
| my @formvars = ('username','email','uname','udom','origurl','phone','section','coursecode','title','subject','description','screenshot'); |
if (ref($domconfig{'contacts'}{'helpform'}) eq 'HASH') { |
| &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},\@formvars); |
%helpform = %{$domconfig{'contacts'}{'helpform'}}; |
| |
|
| my $supportmsg = qq| |
|
| Name: $ENV{'form.username'} |
|
| Email: $ENV{'form.email'} |
|
| Username/domain: $ENV{'form.uname'} - $ENV{'form.udom'} |
|
| Tel: $ENV{'form.phone'} |
|
| Course Information: $ENV{'form.title'} - $ENV{'form.coursecode'} - section: $ENV{'form.section'} |
|
| Subject: $ENV{'form.subject'} |
|
| Description: $ENV{'form.description'} |
|
| URL: $ENV{'form.origurl'} |
|
| Date/Time: $reporttime |
|
| |
|
| |; |
|
| my $descrip = $ENV{'form.description'}; |
|
| $descrip =~ s#\n#<br />#g; |
|
| my $displaymsg = qq| |
|
| <font color="$fontcolor">Name:</font><font color="$vlinkcolor"> $ENV{'form.username'}</font><br /> |
|
| <font color="$fontcolor">Email: </font><font color="$vlinkcolor">$ENV{'form.email'}</font><br /> |
|
| <font color="$fontcolor">Username/domain: </font><font color="$vlinkcolor">$ENV{'form.uname'} - $ENV{'form.udom'}</font><br /> |
|
| <font color="$fontcolor">Tel: </font><font color="$vlinkcolor">$ENV{'form.phone'}</font><br /> |
|
| <font color="$fontcolor">Course Information: </font><font color="$vlinkcolor">$ENV{'form.title'} - $ENV{'form.coursecode'} - section: $ENV{'form.section'}</font><br /> |
|
| <font color="$fontcolor">Subject: </font><font color="$vlinkcolor">$ENV{'form.subject'}</font><br /> |
|
| <font color="$fontcolor">Description: </font><font color="$vlinkcolor">$descrip</font><br /> |
|
| <font color="$fontcolor">URL: </font><font color="$vlinkcolor">$ENV{'form.origurl'}</font><br /> |
|
| <font color="$fontcolor">Date/Time: </font><font color="$vlinkcolor">$reporttime</font><br /> |
|
| |; |
|
| |
|
| if ($to =~ m/^[^\@]+\@[^\@]+$/) { |
|
| $r->print(<<END); |
|
| <html> |
|
| <head> |
|
| <title>LON-CAPA support request recorded</title> |
|
| </head> |
|
| $bodytag |
|
| <h3>A support request has been sent to $to</h3> |
|
| END |
|
| } else { |
|
| $to = 'helpdesk@lon-capa.org'; |
|
| $r->print(<<END); |
|
| <html> |
|
| <head> |
|
| <title>LON-CAPA support request recorded</title> |
|
| </head> |
|
| $bodytag |
|
| <h3>Warning: Problem with support e-mail address</h3> |
|
| As the e-mail address provided for this LON-CAPA server ($to) does not appear to be a valid e-mail address, your support request has <b>not</b> been sent to the LON-CAPA support staff at your institution. Instead a copy has been sent to the LON-CAPA support team at Michigan State University. |
|
| END |
|
| } |
|
| if (defined($ENV{'form.email'})) { |
|
| if ($ENV{'form.email'} =~ m/^[^\@]+\@[^\@]+$/) { |
|
| $from = $ENV{'form.email'}; |
|
| } |
} |
| } |
} |
| |
my $reporttime = &Apache::lonlocal::locallocaltime(time); |
| my $subject = $ENV{'form.subject'}; |
my %formvars = ( |
| $subject =~ s#(`)#'#g; |
email => 1, |
| $subject =~ s#\$#\(\$\)#g; |
sourceurl => 1, |
| $supportmsg =~ s#(`)#'#g; |
subject => 1, |
| $supportmsg =~ s#\$#\(\$\)#g; |
description => 1, |
| $displaymsg =~ s#(`)#'#g; |
); |
| $displaymsg =~ s#\$#\(\$\)#g; |
unless ($helpform{'username'} eq 'no') { |
| my $fname; |
$formvars{'username'} = 1; |
| |
} |
| my $attachmentpath = ''; |
unless ($helpform{'user'} eq 'no') { |
| my $attachmentsize = ''; |
$formvars{'uname'} = 1; |
| if (defined($ENV{'user.name'})) { |
$formvars{'udom'} = 1; |
| if ($ENV{'form.screenshot.filename'}) { |
} |
| $attachmentsize = length($ENV{'form.screenshot'}); |
unless ($helpform{'phone'} eq 'no') { |
| if ($attachmentsize > 131072) { |
$formvars{'phone'} = 1; |
| $displaymsg .= "<br />The uploaded screenshot file ($attachmentsize bytes) included with your request exceeded the maximum allowed size - 128 KB, and has therefore been discarded."; |
} |
| } else { |
unless (($helpform{'section'} eq 'no') || ($env{'request.lti.login'})) { |
| $attachmentpath=&Apache::lonnet::userfileupload('screenshot',undef,'helprequests'); |
$formvars{'section'} = 1; |
| |
} |
| |
unless (($helpform{'course'} eq 'no') || ($env{'request.lti.login'})) { |
| |
$formvars{'course'} = 1; |
| |
} |
| |
unless ($helpform{'cc'} eq 'no') { |
| |
$formvars{'cc'} = 1; |
| |
} |
| |
unless ($helpform{'screenshot'} eq 'no') { |
| |
$formvars{'screenshot'} = 1; |
| |
} |
| |
my ($coursecode,$sourceurl); |
| |
if ($formvars{'course'}) { |
| |
$coursecode = $env{'form.coursecode'}; |
| |
if ($coursecode eq '') { |
| |
my $totcodes = 0; |
| |
my $instcats = &Apache::lonnet::get_dom_instcats($defdom); |
| |
if (ref($instcats) eq 'HASH') { |
| |
if (ref($instcats->{'codes'}) eq 'HASH') { |
| |
$totcodes = scalar(keys(%{$instcats->{'codes'}})); |
| |
} |
| |
} |
| |
my @standardnames = &Apache::loncommon::get_standard_codeitems(); |
| |
if ($totcodes > 0) { |
| |
my $noregexps = 1; |
| |
$coursecode = |
| |
&Apache::courseclassifier::instcode_from_selectors($defdom,$noregexps); |
| |
} |
| |
if ($coursecode eq '') { |
| |
foreach my $item (@standardnames) { |
| |
if ((defined($env{'form.'.$item})) && ($env{'form.'.$item} ne '-1')) { |
| |
$coursecode .= $env{'form.'.$item}; |
| |
} |
| |
} |
| } |
} |
| } |
} |
| } |
} |
| |
my %lt = &Apache::lonlocal::texthash ( |
| if ($attachmentpath =~ m-/([^/]+)$-) { |
username => 'Name', |
| $fname = $1; |
email => 'E-mail', |
| $displaymsg .= "<br />An uploaded screenshot file - $fname ($attachmentsize bytes) was included in the request sent by $ENV{'user.name'} from LON-CAPA domain: $ENV{'user.domain'}"; |
cc => 'Cc', |
| $supportmsg .= "\n"; |
user => 'Username/domain', |
| foreach (@envvars) { |
phone => 'Phone', |
| $supportmsg .= "$_: $ENV{$_}\n"; |
crsi => 'Course Information', |
| |
subject => 'Subject', |
| |
description => 'Description', |
| |
sourceurl => 'URL', |
| |
date => 'Date/Time', |
| |
secn => 'Section', |
| |
warn => 'Warning: Problem with support e-mail address', |
| |
your => 'Your support request contained the following information', |
| |
sect => 'section', |
| |
info => 'Information supplied', |
| |
adin => 'Additional information recorded', |
| |
); |
| |
|
| |
my (@ok_ccs,@bad_ccs,$badccmsg,$okcclist,$homeserver); |
| |
unless ($public) { |
| |
if (($env{'user.name'} ne '') && ($env{'user.domain'} ne '')) { |
| |
$homeserver = &Apache::lonnet::homeserver($env{'user.name'}, |
| |
$env{'user.domain'}); |
| |
} |
| |
} |
| |
my ($cid,$cdom,$cnum,$sectionlist,$ccode); |
| |
if ($homeserver) { |
| |
$cid = $env{'request.course.id'}; |
| |
} |
| |
if ($cid) { |
| |
$cdom = $env{'course.'.$cid.'.domain'}; |
| |
$cnum = $env{'course.'.$cid.'.num'}; |
| |
} |
| |
if ($cdom && $cnum) { |
| |
my %csettings = &Apache::lonnet::get('environment',['description','internal.coursecode','internal.sectionnums'],$cdom,$cnum); |
| |
$ccode = $csettings{'internal.coursecode'}; |
| |
$sectionlist = $csettings{'internal.sectionnums'}; |
| |
} |
| |
if (($homeserver) && (defined($env{'form.cc'})) && ($formvars{'cc'})) { |
| |
my @ccs; |
| |
if ($env{'form.cc'} =~ /,/) { |
| |
@ccs = split(/,/,$env{'form.cc'}); |
| |
} else { |
| |
$env{'form.cc'} =~ s/^\s+//; |
| |
$env{'form.cc'} =~ s/\s+$//; |
| |
@ccs = $env{'form.cc'}; |
| |
} |
| |
foreach my $cc (@ccs) { |
| |
$cc =~ s/^\s+//g; |
| |
$cc =~ s/\s+$//g; |
| |
if ($cc =~ m/^[^\@]+\@[^\@]+$/) { |
| |
if (!(grep(/^\Q$cc\E$/,@ok_ccs))) { |
| |
push(@ok_ccs,$cc); |
| |
} |
| |
} elsif ($cc ne '') { |
| |
if (!(grep(/^\Q$cc\E$/,@bad_ccs))) { |
| |
push(@bad_ccs,$cc); |
| |
} |
| |
} |
| |
} |
| |
if (@ok_ccs > 0) { |
| |
$okcclist = join(', ',@ok_ccs); |
| |
} |
| |
if (@bad_ccs == 1) { |
| |
if ($bad_ccs[0] ne '') { |
| |
$badccmsg .= '<br />'.&mt('The following Cc e-mail address is invalid: ').&Apache::loncommon::cleanup_html($bad_ccs[0]); |
| |
} |
| |
} elsif (@bad_ccs > 1) { |
| |
$badccmsg .= '<br />'.&mt('The following Cc e-mail addresses are invalid: '). &Apache::loncommon::cleanup_html(join(', ',@bad_ccs)); |
| } |
} |
| } |
} |
| |
if ($env{'request.lti.login'}) { |
| my $msg = MIME::Lite->new( |
if (($env{'user.name'} ne '') && ($env{'user.domain'} ne '')) { |
| From => $from, |
$env{'form.user'} = "'".$env{'user.name'}.':'.$env{'user.domain'}."'"; |
| To => $to, |
} |
| Subject => $subject, |
$sourceurl = &Apache::lonnet::absolute_url().$url; |
| Type =>'TEXT', |
|
| Data => $supportmsg, |
|
| ); |
|
| |
|
| if ($attachmentpath) { |
|
| my ($type, $encoding) = MIME::Types::by_suffix($attachmentpath); |
|
| $msg->attach(Type => $type, |
|
| Path => $attachmentpath, |
|
| Filename => $fname |
|
| ); |
|
| |
|
| } else { |
} else { |
| my $envdata = ''; |
$env{'form.user'} = "'".$env{'form.uname'}.':'.$env{'form.udom'}."'"; |
| foreach (@envvars) { |
$sourceurl = $env{'form.sourceurl'}; |
| $envdata .= "$_: $ENV{$_}\n"; |
|
| } |
|
| foreach (@loncvars) { |
|
| $envdata .= "$_: $ENV{$_}\n"; |
|
| } |
|
| $msg->attach(Type => 'TEXT', |
|
| Data => $envdata); |
|
| } |
|
| |
|
| ### Send it: |
|
| # ->send can cause an sh launch which can pass all of %ENV along |
|
| # which can be to large for /bin/sh's little mind |
|
| my %oldENV=%ENV; |
|
| undef(%ENV); |
|
| $msg->send('sendmail'); |
|
| %ENV=%oldENV; |
|
| undef(%oldENV); |
|
| |
|
| if ($attachmentpath =~ m#$Apache::lonnet::perlvar{'lonDaemons'}/tmp/helprequests/(\d+)/[^/]+#) { |
|
| unlink($attachmentpath); |
|
| } |
} |
| $r->print(qq| |
if ($formvars{'course'}) { |
| <b>Your support request contained the following information</b>:<br /><br /> |
$env{'form.crsi'} = $env{'form.title'}; |
| <table width="580" border="0" cellpadding="0" cellspacing="0" bgcolor="#000000"> |
if ($coursecode ne '') { |
| <tr> |
$env{'form.crsi'} .= ' - '.$coursecode; |
| <td> |
|
| <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000"> |
|
| <tr> |
|
| <td> |
|
| <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#ffffff"> |
|
| <tr> |
|
| <td> |
|
| <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#ffffff"> |
|
| <tr> |
|
| <td width="140" bgcolor="$tablecolor"> |
|
| <table width="140" border="0" cellpadding="8" cellspacing="0"> |
|
| <tr> |
|
| <td align="right"><b>Information supplied</b> |
|
| </td> |
|
| </tr> |
|
| </table> |
|
| </td> |
|
| <td width="100%" valign="top"> |
|
| <table width="100%" border="0" cellpadding="8" cellspacing="0"> |
|
| <tr> |
|
| <td>$displaymsg</td> |
|
| </tr> |
|
| </table> |
|
| </td> |
|
| </tr> |
|
| <tr> |
|
| <td width="100%" colspan="2" bgcolor="#000000"> |
|
| <img src="/adm/lonMisc/blackdot.gif" /><br /> |
|
| </td> |
|
| </tr> |
|
| <tr> |
|
| <td width="140" bgcolor="$tablecolor"> |
|
| <table width="140" border="0" cellpadding="8" cellspacing="0"> |
|
| <tr> |
|
| <td align="right"><b>Additional information recorded</b> |
|
| </td> |
|
| </tr> |
|
| </table> |
|
| </td> |
|
| <td width="100%" valign="top"> |
|
| <table width="100%" border="0" cellpadding="8" cellspacing="0"> |
|
| <tr> |
|
| <td> |
|
| |); |
|
| foreach (@envvars) { |
|
| unless($ENV{$_} eq '') { |
|
| $r->print("$_: <font color='$vlinkcolor'>$ENV{$_}</font>, "); |
|
| } |
} |
| } |
} |
| $r->print(" |
if ($formvars{'section'}) { |
| </td> |
my $section; |
| </tr> |
if ($sectionlist) { |
| </table> |
if ($coursecode eq $ccode) { |
| </td> |
$section = $env{'form.sectionsel'} |
| </tr> |
} else { |
| </table> |
$section = $env{'form.sectiontxt'}; |
| </td> |
} |
| </tr> |
} else { |
| </table> |
$section = $env{'form.section'}; |
| </td> |
|
| </tr> |
|
| </table> |
|
| </td> |
|
| </tr> |
|
| </table> |
|
| "); |
|
| } |
|
| |
|
| sub retrieve_instcodes { |
|
| my ($coursecodes,$codedom,$totcodes) = @_; |
|
| my %courses = &Apache::lonnet::courseiddump($codedom,'.',1); |
|
| foreach my $course (keys %courses) { |
|
| if ($courses{$course} =~ m/^[^:]*:([^:]+)$/) { |
|
| $$coursecodes{$course} = &Apache::lonnet::unescape($1); |
|
| $totcodes ++; |
|
| } |
} |
| |
$env{'form.crsi'} .= ' - '.$lt{'sect'}.': '.$section; |
| } |
} |
| return $totcodes; |
my $supportmsg; |
| } |
if ($formvars{'username'}) { |
| |
$supportmsg .= "$lt{'username'}: $env{'form.username'}\n"; |
| sub build_code_selections { |
} |
| my ($codes,$codetitles,$cat_titles,$cat_order,$idlist,$idnums,$idlist_titles) = @_; |
$supportmsg .= "$lt{'email'}: $env{'form.email'}\n"; |
| my %idarrays = (); |
if (($homeserver) && (defined($env{'form.cc'})) && ($formvars{'cc'})) { |
| for (my $i=1; $i<@{$codetitles}; $i++) { |
$supportmsg .= "$lt{'cc'}: $okcclist\n"; |
| %{$idarrays{$$codetitles[$i]}} = (); |
} |
| } |
if ($formvars{'user'}) { |
| foreach my $cid (sort keys %{$codes}) { |
$supportmsg .= "$lt{'user'}: $env{'form.user'}\n"; |
| &recurse_list($cid,$codetitles,$codes,0,\%idarrays); |
} |
| } |
if ($formvars{'phone'}) { |
| for (my $num=0; $num<@{$codetitles}; $num++) { |
$supportmsg .= "$lt{'phone'}: $env{'form.phone'}\n"; |
| if ($num == 0) { |
} |
| my @contents = (); |
if ($formvars{'course'}) { |
| my @contents_titles = (); |
$supportmsg .= "$lt{'crsi'}: $env{'form.crsi'}\n"; |
| &sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[0]}},\@contents); |
} |
| if (defined($$cat_titles{$$codetitles[0]})) { |
$supportmsg .= "$lt{'subject'}: $env{'form.subject'} |
| foreach (@contents) { |
$lt{'description'}: $env{'form.description'} |
| push @contents_titles, $$cat_titles{$$codetitles[0]}{$_}; |
$lt{'sourceurl'}: $sourceurl |
| } |
$lt{'date'}: $reporttime |
| } |
"; |
| $$idlist{$$codetitles[0]} = join('","',@contents); |
|
| $$idnums{$$codetitles[0]} = scalar(@contents); |
my $displaymsg; |
| print STDERR "idnums for {$$codetitles[0] is $$idnums{$$codetitles[0]}\n"; |
foreach my $item ('username','email','cc','user','phone','crsi','subject','description','sourceurl') { |
| if (defined($$cat_titles{$$codetitles[0]})) { |
if ($env{'form.'.$item} ne '') { |
| $$idlist_titles{$$codetitles[0]} = join('","',@contents_titles); |
if ($item eq 'description') { |
| } |
my $descrip = $env{'form.description'}; |
| } elsif ($num == 1) { |
$descrip = &Apache::loncommon::cleanup_html($descrip); |
| %{$$idlist{$$codetitles[1]}} = (); |
$descrip =~ s|[\n\r\f]|<br />|g; |
| %{$$idlist_titles{$$codetitles[1]}} = (); |
$displaymsg .= |
| foreach my $key_a (keys %{$idarrays{$$codetitles[1]}}) { |
'<span class="LC_helpform_receipt_cat">'. |
| my @sorted_a = (); |
"$lt{$item}</span>: $descrip<br />\n"; |
| my @sorted_a_titles = (); |
} elsif ($item eq 'sourceurl') { |
| &sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[1]}{$key_a}},\@sorted_a); |
my $showurl = $env{'form.sourceurl'}; |
| if (defined($$cat_titles{$$codetitles[1]})) { |
$showurl =~ s/\?.*$//; |
| foreach (@sorted_a) { |
$showurl = &Apache::loncommon::cleanup_html($showurl); |
| push @sorted_a_titles, $$cat_titles{$$codetitles[1]}{$_}; |
$displaymsg .= |
| } |
'<span class="LC_helpform_receipt_cat">'. |
| } |
"$lt{$item}</span>: $showurl<br />\n"; |
| $$idlist{$$codetitles[1]}{$key_a} = join('","',@sorted_a); |
} elsif ($item eq 'cc') { |
| $$idnums{$$codetitles[1]}{$key_a} = scalar(@sorted_a); |
next if ($helpform{'cc'} eq 'no'); |
| print STDERR "idnums for {$$codetitles[1] and $key_a is $$idnums{$$codetitles[1]}{$key_a}\n"; |
if ($okcclist) { |
| if (defined($$cat_titles{$$codetitles[1]})) { |
my $showcclist = &Apache::loncommon::cleanup_html($okcclist); |
| $$idlist_titles{$$codetitles[1]}{$key_a} = join('","',@sorted_a_titles); |
$displaymsg .= |
| } |
'<span class="LC_helpform_receipt_cat">'. |
| } |
"$lt{$item}</span>: $showcclist<br />\n"; |
| } elsif ($num == 2) { |
|
| %{$$idlist{$$codetitles[2]}} = (); |
|
| %{$$idlist_titles{$$codetitles[2]}} = (); |
|
| foreach my $key_a (keys %{$idarrays{$$codetitles[2]}}) { |
|
| %{$$idlist{$$codetitles[2]}{$key_a}} = (); |
|
| %{$$idlist_titles{$$codetitles[2]}{$key_a}} = (); |
|
| foreach my $key_b (keys %{$idarrays{$$codetitles[2]}{$key_a}}) { |
|
| my @sorted_b = (); |
|
| my @sorted_b_titles = (); |
|
| &sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[2]}{$key_a}{$key_b}},\@sorted_b); |
|
| if (defined($$cat_titles{$$codetitles[1]})) { |
|
| foreach (@sorted_b) { |
|
| push @sorted_b_titles, $$cat_titles{$$codetitles[1]}{$_}; |
|
| } |
|
| } |
|
| $$idlist{$$codetitles[2]}{$key_a}{$key_b} = join('","',@sorted_b); |
|
| $$idnums{$$codetitles[2]}{$key_a}{$key_b} = scalar(@sorted_b); |
|
| if (defined($$cat_titles{$$codetitles[2]})) { |
|
| $$idlist_titles{$$codetitles[2]}{$key_a}{$key_b} = join('","',@sorted_b_titles); |
|
| } |
|
| } |
} |
| } |
} else { |
| } elsif ($num == 3) { |
if (($item eq 'username') || ($item eq 'user') || ($item eq 'phone')) { |
| %{$$idlist{$$codetitles[3]}} = (); |
next if ($helpform{$item} eq 'no'); |
| foreach my $key_a (keys %{$idarrays{$$codetitles[3]}}) { |
|
| %{$$idlist{$$codetitles[3]}{$key_a}} = (); |
|
| foreach my $key_b (keys %{$idarrays{$$codetitles[3]}{$key_a}}) { |
|
| %{$$idlist{$$codetitles[3]}{$key_a}{$key_b}} = (); |
|
| foreach my $key_c (keys %{$idarrays{$$codetitles[3]}{$key_a}{$key_b}}) { |
|
| my @sorted_c = (); |
|
| &sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[3]}{$key_a}{$key_b}{$key_c}},\@sorted_c); |
|
| $$idlist{$$codetitles[3]}{$key_a}{$key_b}{$key_c} = join('","',@sorted_c); |
|
| $$idnums{$$codetitles[3]}{$key_a}{$key_b}{$key_c} = scalar(@sorted_c); |
|
| } |
|
| } |
|
| } |
|
| } elsif ($num == 4) { |
|
| %{$$idlist{$$codetitles[4]}} = (); |
|
| foreach my $key_a (keys %{$idarrays{$$codetitles[4]}}) { |
|
| %{$$idlist{$$codetitles[4]}{$key_a}} = (); |
|
| foreach my $key_b (keys %{$idarrays{$$codetitles[4]}{$key_a}}) { |
|
| %{$$idlist{$$codetitles[4]}{$key_a}{$key_b}} = (); |
|
| foreach my $key_c (keys %{$idarrays{$$codetitles[4]}{$key_a}{$key_b}}) { |
|
| %{$$idlist{$$codetitles[4]}{$key_a}{$key_b}{$key_c}} = (); |
|
| foreach my $key_d (keys %{$idarrays{$$codetitles[4]}{$key_a}{$key_b}{$key_c}}) { |
|
| my @sorted_d = (); |
|
| &sort_cats($num,$cat_order,$codetitles,$idarrays{$$codetitles[4]}{$key_a}{$key_b}{$key_c}{$key_d},\@sorted_d); |
|
| $$idlist{$$codetitles[4]}{$key_a}{$key_b}{$key_c}{$key_d} = join('","',@sorted_d); |
|
| $$idnums{$$codetitles[4]}{$key_a}{$key_b}{$key_c}{$key_d} = scalar(@sorted_d); |
|
| } |
|
| } |
|
| } |
} |
| |
next if (($item eq 'crsi') && ($helpform{'course'} eq 'no')); |
| |
next if (($item eq 'user') && ($env{'request.lti.login'})); |
| |
my $showitem = $env{'form.'.$item}; |
| |
$showitem = &Apache::loncommon::cleanup_html($showitem); |
| |
$displaymsg .= |
| |
'<span class="LC_helpform_receipt_cat">'. |
| |
"$lt{$item}</span>: $showitem<br />\n"; |
| } |
} |
| } |
} |
| } |
} |
| } |
|
| |
|
| sub sort_cats { |
my ($requname,$requdom,$reqemail); |
| my ($num,$cat_order,$codetitles,$idsarrayref,$sorted) = @_; |
foreach my $field ('uname','udom','email') { |
| my @unsorted = @{$idsarrayref}; |
$env{'form.'.$field} =~ s/^\s+//; |
| if (defined($$cat_order{$$codetitles[$num]})) { |
$env{'form.'.$field} =~ s/\s+$//; |
| foreach (@{$$cat_order{$$codetitles[$num]}}) { |
|
| if (grep/^$_$/,@unsorted) { |
|
| push @{$sorted}, $_; |
|
| } |
|
| } |
|
| } else { |
|
| @{$sorted} = sort (@unsorted); |
|
| } |
} |
| } |
if ($env{'form.uname'} =~ /^$match_username$/) { |
| |
$requname = $env{'form.uname'}; |
| |
} |
| |
if ($env{'form.udom'} =~ /^$match_domain$/) { |
| |
$requdom = $env{'form.udom'}; |
| |
} |
| |
if ($env{'form.email'} =~ m/^[^\@]+\@[^\@]+$/) { |
| |
$reqemail = $env{'form.email'}; |
| |
} |
| |
|
| |
my $dom_in_effect; |
| |
unless ($env{'user.domain'} eq 'public') { |
| |
$dom_in_effect = $env{'user.domain'}; |
| |
} |
| |
if ($dom_in_effect eq '') { |
| |
$dom_in_effect = $requdom; |
| |
} |
| |
if ($dom_in_effect eq '') { |
| |
$dom_in_effect = $defdom; |
| |
} |
| |
|
| |
$displaymsg .= '<span class="LC_helpform_receipt_cat">'. |
| |
$lt{'date'}.'</span>: '.$reporttime.'<br />'."\n"; |
| |
|
| |
my $start_page = |
| |
&Apache::loncommon::start_page('Support request recorded',undef, |
| |
{'function' => $function, |
| |
'add_entries' => { |
| |
topmargin => "0", |
| |
marginheight => "0", |
| |
}, |
| |
'only_body' => 1,}); |
| |
|
| sub recurse_list { |
$r->print(<<"END"); |
| my ($cid,$codetitles,$codes,$num,$idarrays) = @_; |
$start_page |
| if ($num == 0) { |
<form name="logproblem" action=""> |
| if (!grep/^$$codes{$cid}{$$codetitles[0]}$/,@{$$idarrays{$$codetitles[0]}}) { |
<input type="hidden" name="command" value="result" /> |
| push @{$$idarrays{$$codetitles[0]}}, $$codes{$cid}{$$codetitles[0]}; |
</form> |
| print STDERR "Adding $$codes{$cid}{$$codetitles[0]} to $$codetitles[0]\n"; |
END |
| } |
if ($r->uri eq '/adm/helpdesk') { |
| } elsif ($num == 1) { |
&print_header($r,$url,'process'); |
| if (defined($$idarrays{$$codetitles[1]}{$$codes{$cid}{$$codetitles[0]}})) { |
} |
| if (!grep/^$$codes{$cid}{$$codetitles[1]}$/,@{$$idarrays{$$codetitles[1]}{$$codes{$cid}{$$codetitles[0]}}}) { |
my $bad_email = 0; |
| push @{$$idarrays{$$codetitles[1]}{$$codes{$cid}{$$codetitles[0]}}}, $$codes{$cid}{$$codetitles[1]}; |
my ($to,$bcc,$addtext) = |
| |
&Apache::loncommon::build_recipient_list(undef,'helpdeskmail', |
| |
$dom_in_effect,$origmail, |
| |
$requname,$requdom, |
| |
$reqemail); |
| |
if ($to =~ /,/) { |
| |
my @ok_email; |
| |
foreach my $email (split(/,/,$to)) { |
| |
if ($email =~ m/^[^\@]+\@[^\@]+$/) { |
| |
if (!grep(/^\Q$email\E$/,@ok_email)) { |
| |
push(@ok_email,$email); |
| |
} |
| } |
} |
| |
} |
| |
if (@ok_email > 0) { |
| |
$to = join(',',@ok_email); |
| |
} elsif ($admin =~ m/^[^\@]+\@[^\@]+$/) { |
| |
$to = $admin; |
| } else { |
} else { |
| @{$$idarrays{$$codetitles[1]}{$$codes{$cid}{$$codetitles[0]}}} = ("$$codes{$cid}{$$codetitles[1]}"); |
$bad_email = 1; |
| } |
} |
| } elsif ($num == 2) { |
} elsif ($to !~ m/^[^\@]+\@[^\@]+$/) { |
| if (defined($$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}})) { |
if ($admin =~ m/^[^\@]+\@[^\@]+$/) { |
| if (defined($$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}})) { |
$to = $admin; |
| if (!grep/^$$codes{$cid}{$$codetitles[2]}$/,@{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}}) { |
|
| push @{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}}, $$codes{$cid}{$$codetitles[2]}; |
|
| } |
|
| } else { |
|
| @{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ("$$codes{$cid}{$$codetitles[2]}"); |
|
| } |
|
| } else { |
} else { |
| %{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}} = (); |
$bad_email = 1; |
| @{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ("$$codes{$cid}{$$codetitles[2]}"); |
|
| } |
} |
| } elsif ($num == 3) { |
} |
| if (defined($$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}})) { |
|
| if (defined($$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}})) { |
my $message; |
| if (defined($$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}})) { |
if (!$bad_email) { |
| if (!grep/^$$codes{$cid}{$$codetitles[3]}$/,@{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}}) { |
$message = &Apache::lonhtmlcommon::confirm_success( |
| push @{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}}, $$codes{$cid}{$$codetitles[3]}; |
&mt('A support request has been sent to [_1]','<tt>'.$to.'</tt>')); |
| } |
} else { |
| |
$message = &Apache::lonhtmlcommon::confirm_success( |
| |
$lt{'warn'}.'<br />' |
| |
.&mt('As the e-mail address provided for this LON-CAPA server ([_1]) does not appear to be a valid e-mail address, your support request has [_2]not[_3] been sent to the LON-CAPA support staff or administrator at your institution.','<tt>'.$to.'</tt>','<b>','</b>') |
| |
.' '.&mt('Instead a copy has been sent to the LON-CAPA support team at Michigan State University.'),1); |
| |
$to = 'helpdesk@lon-capa.org'; |
| |
} |
| |
$r->print(&Apache::loncommon::confirmwrapper($message)); |
| |
|
| |
if ($reqemail ne '') { |
| |
$from = $reqemail; |
| |
} |
| |
|
| |
if (defined($env{'form.cc'})) { |
| |
if ($badccmsg) { |
| |
$displaymsg .= $badccmsg; |
| |
} |
| |
} |
| |
|
| |
my $subject = $env{'form.subject'}; |
| |
$subject =~ s/(`)/'/g; |
| |
$subject =~ s/\$/\(\$\)/g; |
| |
$supportmsg =~ s/(`)/'/g; |
| |
$supportmsg =~ s/\$/\(\$\)/g; |
| |
$displaymsg =~ s/(`)/'/g; |
| |
$displaymsg =~ s/\$/\(\$\)/g; |
| |
my $fname; |
| |
|
| |
my $attachmentpath = ''; |
| |
my $showsize = ''; |
| |
|
| |
if ((defined($env{'user.name'})) && (!$public)) { |
| |
if ($homeserver && $env{'form.screenshot.filename'}) { |
| |
unless ($helpform{'screenshot'} eq 'no') { |
| |
my $attachmentsize = length($env{'form.screenshot'}); |
| |
my $max = 1048576; |
| |
my $showmax = 1.00; |
| |
if ($helpform{'maxsize'} =~ /^\d+\.\d*$/) { |
| |
$max *= $helpform{'maxsize'}; |
| |
$showmax = $helpform{'maxsize'}; |
| |
} |
| |
$showmax = '('.sprintf("%.2f",$showmax).' MB)'; |
| |
$showsize = $attachmentsize/1048576; |
| |
$showsize = '('.sprintf("%.2f",$showsize).' MB)'; |
| |
if ($attachmentsize > $max) { |
| |
$displaymsg .= '<br /><span class="LC_warning">'. |
| |
&mt('The uploaded screenshot file [_1] included with your request exceeded the maximum allowed size [_2], and has therefore been discarded.',$showsize,$showmax).'</span>'; |
| } else { |
} else { |
| @{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = ("$$codes{$cid}{$$codetitles[3]}"); |
$attachmentpath=&Apache::lonnet::userfileupload('screenshot',undef,'helprequests'); |
| } |
} |
| } else { |
|
| %{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = (); |
|
| @{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = ("$$codes{$cid}{$$codetitles[3]}"); |
|
| } |
} |
| } else { |
} |
| %{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}} = (); |
} |
| %{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = (); |
|
| @{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = ("$$codes{$cid}{$$codetitles[3]}"); |
my %cookies; |
| } |
my $cookie=CGI::Cookie->parse($r->header_in('Cookie')); |
| } elsif ($num == 4) { |
if ($$cookie{'lonID'} =~ /lonID=($LONCAPA::handle_re);/) { |
| if (defined($$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}})) { |
$cookies{'lonID'} = $1; |
| if (defined($$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}})) { |
} |
| if (defined($$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}})) { |
if ($$cookie{'lonLinkID'} =~ /lonLinkID=([a-f0-9]+_linked);/) { |
| if (defined($$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}{$$codes{$cid}{$$codetitles[3]}})) { |
$cookies{'lonLinkID'} = $1; |
| if (!grep/^$$codes{$cid}{$$codetitles[4]}$/,@{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}{$$codes{$cid}{$$codetitles[3]}}}) { |
} |
| push @{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}{$$codes{$cid}{$$codetitles[3]}}}, $$codes{$cid}{$$codetitles[4]}; |
my $lti_info; |
| } |
if (($env{'request.lti.login'}) && ($env{'request.course.id'})) { |
| } else { |
my $ltidom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
| @{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}{$$codes{$cid}{$$codetitles[3]}}} = ("$$codes{$cid}{$$codetitles[4]}"); |
if ($ltidom) { |
| } |
my %lti = &Apache::lonnet::get_domain_lti($ltidom,'provider'); |
| } else { |
if (ref($lti{$env{'request.lti.login'}}) eq 'HASH') { |
| %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = (); |
if ($lti{$env{'request.lti.login'}}{'consumer'}) { |
| @{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}{$$codes{$cid}{$$codetitles[3]}}} = ("$$codes{$cid}{$$codetitles[4]}"); |
$lti_info = "LTI consumer: ".$lti{$env{'request.lti.login'}}{'consumer'}."\n"; |
| } |
} |
| } else { |
|
| %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = (); |
|
| %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = (); |
|
| @{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}{$$codes{$cid}{$$codetitles[3]}}} = ("$$codes{$cid}{$$codetitles[4]}"); |
|
| } |
} |
| } else { |
|
| %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}} = (); |
|
| %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = (); |
|
| %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = (); |
|
| @{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[3]}}} = ("$$codes{$cid}{$$codetitles[3]}"); |
|
| } |
} |
| } |
} |
| $num ++; |
if ($attachmentpath =~ m-/([^/]+)$-) { |
| if ($num <@{$codetitles}) { |
$fname = $1; |
| &recurse_list($cid,$codetitles,$codes,$num,$idarrays); |
$displaymsg .= '<br />' |
| |
.&mt('An uploaded screenshot file [_1] was included in the request sent by [_2].' |
| |
,'<span class="LC_filename">'.$fname.'</span> '.$showsize, |
| |
,$env{'user.name'}.':'.$env{'user.domain'} |
| |
); |
| |
$supportmsg .= "\n"; |
| |
foreach my $var (@cookievars) { |
| |
$supportmsg .= "$var: $cookies{$var}\n"; |
| |
} |
| |
foreach my $var(@ENVvars) { |
| |
$supportmsg .= "$var: $ENV{$var}\n"; |
| |
} |
| |
foreach my $var (@envvars) { |
| |
$supportmsg .= "$var: $env{$var}\n"; |
| |
} |
| |
if ($lti_info) { |
| |
$supportmsg .= $lti_info; |
| |
} |
| |
} |
| |
|
| |
my $cc_string; |
| |
if ($homeserver) { |
| |
if (@ok_ccs > 0) { |
| |
$cc_string = join(', ',@ok_ccs); |
| |
} |
| |
} |
| |
|
| |
my $attachment_text = ''; |
| |
unless ($homeserver && $attachmentpath) { |
| |
foreach my $var (@cookievars) { |
| |
$attachment_text .= "$var: $cookies{$var}\n"; |
| |
} |
| |
foreach my $var (@ENVvars) { |
| |
$attachment_text .= "$var: $ENV{$var}\n"; |
| |
} |
| |
foreach my $var (@envvars) { |
| |
$attachment_text .= "$var: $env{$var}\n"; |
| |
} |
| |
foreach my $var (@loncvars) { |
| |
$attachment_text .= "$var: $env{$var}\n"; |
| |
} |
| |
if ($lti_info) { |
| |
$attachment_text .= $lti_info; |
| |
} |
| |
} |
| |
|
| |
if ($addtext) { |
| |
my ($addloc,$addstr) = split(/:/,$addtext,2); |
| |
$addstr = &unescape($addstr); |
| |
if ($addloc eq 's') { |
| |
$subject = $addstr.' '.$subject; |
| |
} elsif ($addloc eq 'b') { |
| |
$supportmsg = $addstr."\n".$supportmsg; |
| |
} |
| } |
} |
| |
|
| |
# Compose and send a MIME email |
| |
&Apache::loncommon::mime_email($from, $to, $subject, $supportmsg, $cc_string, $bcc, |
| |
$attachmentpath, $fname, $attachment_text); |
| |
|
| |
if ($attachmentpath =~ m|$Apache::lonnet::perlvar{'lonDaemons'}/tmp/helprequests/(\d+)/[^/]+|) { |
| |
unlink($attachmentpath); |
| |
} |
| |
$r->print('<b>'.$lt{'your'}.'</b>:<br /><br />'."\n"); |
| |
$r->print('<div style="width:620px;">'. |
| |
&Apache::lonhtmlcommon::start_pick_box(). |
| |
&Apache::lonhtmlcommon::row_title($lt{'info'},undef,'LC_oddrow_value')."\n".$displaymsg."\n". |
| |
&Apache::lonhtmlcommon::row_closure(). |
| |
&Apache::lonhtmlcommon::row_title($lt{'adin'},undef,'LC_evenrow_value')); |
| |
my $envmsg; |
| |
foreach my $var (@cookievars) { |
| |
if ($cookies{$var} ne '') { |
| |
$envmsg.= '<span class="LC_helpform_receipt_cat">'. |
| |
$var.'</span>: '.$cookies{$var}.', '; |
| |
} |
| |
} |
| |
foreach my $var (@ENVvars) { |
| |
if ($ENV{$var} ne '') { |
| |
$envmsg .= '<span class="LC_helpform_receipt_cat">'. |
| |
$var.'</span>: '.$ENV{$var}.', '; |
| |
} |
| |
} |
| |
foreach my $var (@envvars) { |
| |
if ($env{$var} ne '') { |
| |
$envmsg .= '<span class="LC_helpform_receipt_cat">'. |
| |
$var.'</span>: '.$env{$var}.', '; |
| |
} |
| |
} |
| |
$envmsg =~ s/, $//; |
| |
$r->print($envmsg."\n". |
| |
&Apache::lonhtmlcommon::row_closure(1)."\n". |
| |
&Apache::lonhtmlcommon::end_pick_box(). |
| |
"</div>\n". |
| |
&Apache::loncommon::end_page()); |
| } |
} |
| |
|
| sub javascript_code_selections { |
sub print_header { |
| my ($numcats,$script_tag,$idlist,$idnums,$idlist_titles,$codetitles) = @_; |
my ($r,$origurl,$command) = @_; |
| $$script_tag .= <<END; |
my $location=&Apache::loncommon::lonhttpdurl("/adm"); |
| function courseSet(caller) { |
my ($component_url); |
| var idyr = document.forms.logproblem.idyear.selectedIndex |
my $helpdesk_link = '<a href="javascript:validate()">'; |
| var idsem = document.forms.logproblem.idsem.selectedIndex |
if ($command eq 'process') { |
| var iddept = document.forms.logproblem.iddept.selectedIndex |
$helpdesk_link = '<a href="/adm/helpdesk">'; |
| var idclass = document.forms.logproblem.idclass.selectedIndex |
} |
| var idyears = new Array("$$idlist{$$codetitles[0]}"); |
my %lt = &Apache::lonlocal::texthash ( |
| var idsems = new Array ($$idnums{$$codetitles[0]}); |
login => 'Log-in help', |
| var idsemlongs = new Array ($$idnums{$$codetitles[0]}); |
ask => 'Ask helpdesk', |
| var idcodes = new Array ($$idnums{$$codetitles[0]}); |
getst => 'Getting started guide', |
| var idcourses = new Array ($$idnums{$$codetitles[0]}); |
back => 'Back to last location', |
| var idsections = new Array ($$idnums{$$codetitles[0]}) |
headline => 'help/support', |
| |
stud => 'Students', |
| |
ifyo => 'If your problem is still unresolved, the form below can be used to send a question to the LON-CAPA helpdesk.', |
| |
cont => 'Contact your instructor instead.', |
| |
); |
| |
my ($getstartlink,$reviewtext); |
| |
if (-e $Apache::lonnet::perlvar{'lonDocRoot'}.'/adm/gettingstarted.html') { |
| |
$getstartlink = qq|<td align="center"> <b><a href="/adm/gettingstarted.html">$lt{'getst'}</a></td>|; |
| |
$reviewtext = &mt('Please review the information in "Log-in help" and the "Getting started" guide if you are unable to log-in.'); |
| |
} else { |
| |
$reviewtext = &mt('Please review the information in "Log-in help" if you are unable to log-in.'); |
| |
} |
| |
my $linkback; |
| |
if ($origurl eq '') { |
| |
$linkback = 'javascript:history.go(-1)'; |
| |
} else { |
| |
$linkback = &HTML::Entities::encode($origurl,'"<>&'); |
| |
} |
| |
my $loginhelp = &Apache::lonauth::loginhelpdisplay(); |
| |
if ($loginhelp eq '') { |
| |
$loginhelp = '/adm/loginproblems.html'; |
| |
} |
| |
$r->print(<<"END"); |
| |
<table width="620" border="0" cellspacing="0" cellpadding="0" style="height: 55px;"> |
| |
<tr> |
| |
<td width="5" height="50"> </td> |
| |
<td height="50"> |
| |
<fieldset> |
| |
<legend> |
| |
<img src="$location/lonIcons/minilogo.gif" height="20" width="29" alt="logo" style="vertical-align:bottom" /> |
| |
LON-CAPA $lt{'headline'} |
| |
</legend> |
| |
<table id="LC_helpmenu_links"> |
| |
<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="$loginhelp">$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><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> |
| |
</table> |
| |
</fieldset> |
| |
</td> |
| |
<td width="5"> </td> |
| |
</tr> |
| |
<tr> |
| |
<td colspan="3" height="5"> </td> |
| |
</tr> |
| END |
END |
| my @sort_a = split/","/,$$idlist{$$codetitles[0]}; |
if ($command ne 'process') { |
| for (my $j=0; $j<@sort_a; $j++) { |
my $stuwarn = &mt('Do [_1]not[_2] use this form to ask about course content.', |
| $$script_tag .= qq| idsems[$j] = new Array("$$idlist{$$codetitles[1]}{$sort_a[$j]}")\n|; |
'<b>','</b>'); |
| $$script_tag .= qq| idsemlongs[$j] = new Array("$$idlist_titles{$$codetitles[1]}{$sort_a[$j]}")\n|; |
$r->print(<<"END"); |
| $$script_tag .= qq| idcodes[$j] = new Array($$idnums{$$codetitles[1]}{$sort_a[$j]})\n|; |
<tr> |
| $$script_tag .= qq| idcourses[$j] = new Array($$idnums{$$codetitles[1]}{$sort_a[$j]})\n|; |
<td colspan="3">$reviewtext |
| $$script_tag .= qq| idsections[$j] = new Array($$idnums{$$codetitles[1]}{$sort_a[$j]})\n|; |
$lt{'ifyo'} |
| my @sort_b = split/","/,$$idlist{$$codetitles[1]}{$sort_a[$j]}; |
<p class="LC_info"> |
| for (my $k=0; $k<@sort_b; $k++) { |
<b>$lt{'stud'}:</b> |
| my $idcode_entry = $$idlist{$$codetitles[2]}{$sort_a[$j]}{$sort_b[$k]}; |
$stuwarn $lt{'cont'} |
| $$script_tag .= qq| idcodes[$j][$k] = new Array("$idcode_entry")\n|; |
</p><br /> |
| $$script_tag .= qq| idcourses[$j][$k] = new Array($$idnums{$$codetitles[2]}{$sort_a[$j]}{$sort_b[$k]})\n|; |
</td> |
| $$script_tag .= qq| idsections[$j][$k] = new Array($$idnums{$$codetitles[2]}{$sort_a[$j]}{$sort_b[$k]})\n|; |
</tr> |
| my @sort_c = split/","/,$$idlist{$$codetitles[2]}{$sort_a[$j]}{$sort_b[$k]}; |
END |
| for (my $l=0; $l<@sort_c; $l++) { |
} |
| my $idcourse_entry = $$idlist{$$codetitles[3]}{$sort_a[$j]}{$sort_b[$k]}{$sort_c[$l]}; |
$r->print(' |
| $$script_tag .= qq| idcourses[$j][$k][$l] = new Array("$idcourse_entry")\n|; |
</table>'); |
| $$script_tag .= qq| idsections[$j][$k][$l] = new Array($$idnums{$$codetitles[3]}{$sort_a[$j]}{$sort_b[$k]}{$sort_c[$l]})\n|; |
return; |
| my @sort_d = split/","/,$$idlist{$$codetitles[3]}{$sort_a[$j]}{$sort_b[$k]}{$sort_c[$l]}; |
|
| for (my $m=0; $m<@sort_d; $m++) { |
|
| my $idsecentry = $$idlist{$$codetitles[4]}{$sort_a[$j]}{$sort_b[$k]}{$sort_c[$l]}{$sort_d[$m]}; |
|
| $$script_tag .= qq| idsections[$j][$k][$l][$m] = new Array("$idsecentry")\n|; |
|
| } |
|
| } |
|
| } |
|
| } |
|
| $$script_tag .= (<<END_OF_BLOCK); |
|
| if (caller == "semester") { |
|
| document.forms.logproblem.iddept.length = 0 |
|
| document.forms.logproblem.idclass.length = 0 |
|
| document.forms.logproblem.idsec.length = 0 |
|
| document.forms.logproblem.iddept.options[0] = new Option("<-Pick sem.","-1",true,true) |
|
| document.forms.logproblem.idclass.options[0] = new Option("<-Pick dept.","-1",true,true) |
|
| document.forms.logproblem.idsec.options[0] = new Option("Pick course first (above)","-1",true,true) |
|
| if (idyr == 0) { |
|
| document.forms.logproblem.idsem.length = 0 |
|
| document.forms.logproblem.idsem.options[0] = new Option("<-Pick year","-1",true,true) |
|
| } |
|
| else { |
|
| document.forms.logproblem.idsem.length = 0 |
|
| document.forms.logproblem.idsem.options[0] = new Option("Select","-1",true,true) |
|
| for (var i=0; i<idsems[idyr-1].length; i++) { |
|
| document.forms.logproblem.idsem.options[i+1] = new Option(idsemlongs[idyr-1][i],idsems[idyr-1][i],false,false) |
|
| } |
|
| } |
|
| document.forms.logproblem.idsem.selectedIndex = 0; |
|
| } |
|
| if (caller == "dept") { |
|
| document.forms.logproblem.iddept.length = 0 |
|
| document.forms.logproblem.idclass.length = 0 |
|
| document.forms.logproblem.idsec.length = 0 |
|
| document.forms.logproblem.idclass.options[0] = new Option("<-Pick dept.","-1",true,true) |
|
| document.forms.logproblem.idsec.options[0] = new Option("Pick course first (above)","-1",true,true) |
|
| if (idsem == 0) { |
|
| document.forms.logproblem.iddept.options[0] = new Option("<-Pick sem.","-1",true,true) |
|
| document.forms.logproblem.iddept.options[0] = new Option("<-Pick sem.","-1",true,true) |
|
| } |
|
| else { |
|
| document.forms.logproblem.iddept.options[0] = new Option("Select","-1",true,true) |
|
| for (var i=0; i<idcodes[idyr-1][idsem-1].length; i++) { |
|
| document.forms.logproblem.iddept.options[i+1] = new Option(idcodes[idyr-1][idsem-1][i],idcodes[idyr-1][idsem-1][i],false,false) |
|
| } |
|
| } |
|
| document.forms.logproblem.iddept.selectedIndex = 0 |
|
| } |
|
| if (caller == "course") { |
|
| document.forms.logproblem.idclass.length = 0 |
|
| document.forms.logproblem.idsec.length = 0 |
|
| document.forms.logproblem.idsec.options[0] = new Option("Pick course first (above)","-1",true,true) |
|
| if (iddept == 0) { |
|
| document.forms.logproblem.idclass.options[0] = new Option("<-Pick dept.","-1",true,true) |
|
| } |
|
| else { |
|
| document.forms.logproblem.idclass.options[0] = new Option("Select","-1",true,true) |
|
| for (var i=0; i<idcourses[idyr-1][idsem-1][iddept-1].length; i++) { |
|
| document.forms.logproblem.idclass.options[i+1] = new Option(idcourses[idyr-1][idsem-1][iddept-1][i],idcourses[idyr-1][idsem-1][iddept-1][i],false,false) |
|
| } |
|
| } |
|
| document.forms.logproblem.idclass.selectedIndex = 0 |
|
| } |
|
| } |
} |
| END_OF_BLOCK |
|
| |
sub get_domain { |
| |
my $codedom; |
| |
if (exists($env{'form.codedom'})) { |
| |
if (&Apache::lonnet::domain($env{'form.codedom'}) ne '') { |
| |
return $env{'form.codedom'}; |
| |
} |
| |
} |
| |
if ($env{'request.course.id'}) { |
| |
$codedom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
| |
} elsif ($env{'request.role.domain'}) { |
| |
$codedom = $env{'request.role.domain'}; |
| |
} else { |
| |
$codedom = &Apache::lonnet::default_login_domain(); |
| |
} |
| |
return $codedom; |
| } |
} |
| |
|
| 1; |
1; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonsupportreq.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface