version 1.31, 2006/03/23 22:01:57
|
version 1.37, 2006/09/01 21:07:11
|
Line 35 use Apache::Constants qw(:common);
|
Line 35 use Apache::Constants qw(:common);
|
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use Apache::lonacc(); |
|
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
|
|
|
|
sub handler { |
sub handler { |
my ($r) = @_; |
my ($r) = @_; |
Line 46 sub handler {
|
Line 50 sub handler {
|
} |
} |
&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::loncommon::get_posted_cgi($r); |
&Apache::lonacc::get_posted_cgi($r); |
} |
} |
my $function = $env{'form.function'}; |
my $function = $env{'form.function'}; |
my $origurl = &Apache::lonnet::unescape($env{'form.origurl'}); |
my $origurl = &unescape($env{'form.origurl'}); |
my $action = $env{'form.action'}; |
my $action = $env{'form.action'}; |
|
|
if ($action eq 'process') { |
if ($action eq 'process') { |
Line 197 function initialize_codes() {
|
Line 201 function initialize_codes() {
|
|
|
my $js = '<script type"text/javascript">'."\n$scripttag\n$jscript\n". |
my $js = '<script type"text/javascript">'."\n$scripttag\n$jscript\n". |
'</script>'; |
'</script>'; |
my $add_entries = |
my %add_entries = (topmargin => "0", |
'topmargin="0" marginheight="0" onLoad="initialize_codes()"', |
marginheight => "0", |
|
onLoad =>"initialize_codes()",); |
|
|
my $start_page = |
my $start_page = |
&Apache::loncommon::start_page('Support Request',$js, |
&Apache::loncommon::start_page('Support Request',$js, |
{ 'function' => $function, |
{ 'function' => $function, |
'add_entries' => $add_entries, |
'add_entries' => \%add_entries, |
'only_body' => 1,}); |
'only_body' => 1,}); |
$r->print($start_page); |
$r->print($start_page); |
|
|
Line 643 sub print_request_receipt {
|
Line 649 sub print_request_receipt {
|
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 = ('lonID'); |
my @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 $to = $Apache::lonnet::perlvar{'lonSupportEMail'}; |
my $from = $admin; |
my $from = $admin; |
Line 694 Date/Time: $reporttime
|
Line 699 Date/Time: $reporttime
|
<font color="$fontcolor">URL: </font><font color="$vlinkcolor">$env{'form.sourceurl'}</font><br /> |
<font color="$fontcolor">URL: </font><font color="$vlinkcolor">$env{'form.sourceurl'}</font><br /> |
<font color="$fontcolor">Date/Time: </font><font color="$vlinkcolor">$reporttime</font><br /> |
<font color="$fontcolor">Date/Time: </font><font color="$vlinkcolor">$reporttime</font><br /> |
|; |
|; |
my $html=&Apache::lonxml::xmlbegin(); |
|
my $head = &Apache::loncommon::head('LON-CAPA support request recorded'); |
my $start_page = |
|
&Apache::loncommon::start_page('Support request recorded',undef, |
|
{'function' => $function, |
|
'add_entries' => { |
|
topmargin => "0", |
|
marginheight => "0", |
|
}, |
|
'only_body' => 1,}); |
|
|
$r->print(<<"END"); |
$r->print(<<"END"); |
$html |
$start_page |
$head |
|
$bodytag |
|
<form name="logproblem"> |
<form name="logproblem"> |
<input type="hidden" name="action" value="result" /> |
<input type="hidden" name="action" value="result" /> |
</form> |
</form> |
Line 965 Please review the information in "Log-in
|
Line 976 Please review the information in "Log-in
|
|
|
sub retrieve_instcodes { |
sub retrieve_instcodes { |
my ($coursecodes,$codedom,$totcodes) = @_; |
my ($coursecodes,$codedom,$totcodes) = @_; |
my %courses = &Apache::lonnet::courseiddump($codedom,'.',1,'.','.','.'); |
my %courses = &Apache::lonnet::courseiddump($codedom,'.',1,'.','.','.', |
|
undef,undef,'Course'); |
foreach my $course (keys %courses) { |
foreach my $course (keys %courses) { |
if ($courses{$course} =~ m/^[^:]*:([^:]+)/) { |
if ($courses{$course} =~ m/^[^:]*:([^:]+)/) { |
$$coursecodes{$course} = &Apache::lonnet::unescape($1); |
$$coursecodes{$course} = &unescape($1); |
$totcodes ++; |
$totcodes ++; |
} |
} |
} |
} |
Line 1093 sub sort_cats {
|
Line 1105 sub sort_cats {
|
my ($num,$cat_order,$codetitles,$idsarrayref,$sorted) = @_; |
my ($num,$cat_order,$codetitles,$idsarrayref,$sorted) = @_; |
my @unsorted = @{$idsarrayref}; |
my @unsorted = @{$idsarrayref}; |
if (defined($$cat_order{$$codetitles[$num]})) { |
if (defined($$cat_order{$$codetitles[$num]})) { |
foreach (@{$$cat_order{$$codetitles[$num]}}) { |
foreach my $item (@{$$cat_order{$$codetitles[$num]}}) { |
if (grep/^$_$/,@unsorted) { |
if (grep/^\Q$item\E$/,@unsorted) { |
push @{$sorted}, $_; |
push @{$sorted}, $item; |
} |
} |
} |
} |
} else { |
} else { |