version 1.33, 2006/04/10 21:40:09
|
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 972 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 1100 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 { |