version 1.95, 2019/06/16 05:49:43
|
version 1.98, 2019/08/11 15:15:40
|
Line 151 sub print_request_form {
|
Line 151 sub print_request_form {
|
} |
} |
} |
} |
|
|
my %coursecodes; |
|
my %codes; |
my %codes; |
my @codetitles; |
my @codetitles; |
my %cat_titles; |
my %cat_titles; |
Line 159 sub print_request_form {
|
Line 158 sub print_request_form {
|
my %idlist; |
my %idlist; |
my %idnums; |
my %idnums; |
my %idlist_titles; |
my %idlist_titles; |
my $caller = 'global'; |
|
my $totcodes = 0; |
my $totcodes = 0; |
my $format_reply; |
|
my $jscript = ''; |
my $jscript = ''; |
my $loaditems = qq| |
my $loaditems = qq| |
function initialize_codes() { |
function initialize_codes() { |
Line 169 function initialize_codes() {
|
Line 166 function initialize_codes() {
|
} |
} |
|; |
|; |
unless ($helpform{'course'} eq 'no') { |
unless ($helpform{'course'} eq 'no') { |
$totcodes = &Apache::courseclassifier::retrieve_instcodes(\%coursecodes,$codedom); |
my $instcats = &Apache::lonnet::get_dom_instcats($codedom); |
if ($totcodes > 0) { |
if (ref($instcats) eq 'HASH') { |
$format_reply = &Apache::lonnet::auto_instcode_format($caller,$codedom,\%coursecodes,\%codes,\@codetitles,\%cat_titles,\%cat_order); |
if ((ref($instcats->{'codetitles'}) eq 'ARRAY') && (ref($instcats->{'codes'}) eq 'HASH') && |
if ($format_reply eq 'ok') { |
(ref($instcats->{'cat_titles'}) eq 'HASH') && (ref($instcats->{'cat_order'}) eq 'HASH')) { |
|
%codes = %{$instcats->{'codes'}}; |
|
@codetitles = @{$instcats->{'codetitles'}}; |
|
%cat_titles = %{$instcats->{'cat_titles'}}; |
|
%cat_order = %{$instcats->{'cat_order'}}; |
|
$totcodes = scalar(keys(%codes)); |
|
} |
|
if ($totcodes > 0) { |
my $numtypes = @codetitles; |
my $numtypes = @codetitles; |
&Apache::courseclassifier::build_code_selections(\%codes,\@codetitles,\%cat_titles,\%cat_order,\%idlist,\%idnums,\%idlist_titles); |
&Apache::courseclassifier::build_code_selections(\%codes,\@codetitles,\%cat_titles,\%cat_order,\%idlist,\%idnums,\%idlist_titles); |
my ($scripttext,$longtitles) = &Apache::courseclassifier::javascript_definitions(\@codetitles,\%idlist,\%idlist_titles,\%idnums,\%cat_titles); |
my ($scripttext,$longtitles) = &Apache::courseclassifier::javascript_definitions(\@codetitles,\%idlist,\%idlist_titles,\%idnums,\%cat_titles); |
Line 578 ENDJS
|
Line 582 ENDJS
|
} |
} |
$showmax = ' ('.sprintf("%.2f",$showmax).' '.&mt('MB max.').')'; |
$showmax = ' ('.sprintf("%.2f",$showmax).' '.&mt('MB max.').')'; |
$output .= &Apache::lonhtmlcommon::row_title($html_lt{'opfi'},undef,$css[$i]) |
$output .= &Apache::lonhtmlcommon::row_title($html_lt{'opfi'},undef,$css[$i]) |
.' <input type="file" name="screenshot" class="flUpload" size="20" />' |
.' <input type="file" name="screenshot" class="LC_flUpload" size="20" />' |
.'<input type="hidden" id="free_space" value="'.$max.'" />' |
.'<input type="hidden" id="LC_free_space" value="'.$max.'" />' |
.'<br />'."\n".$html_lt{'uplf'}.$showmax."\n" |
.'<br />'."\n".$html_lt{'uplf'}.$showmax."\n" |
.&Apache::lonhtmlcommon::row_closure(); |
.&Apache::lonhtmlcommon::row_closure(); |
$num ++; |
$num ++; |
Line 714 sub print_request_receipt {
|
Line 718 sub print_request_receipt {
|
$coursecode = $env{'form.coursecode'}; |
$coursecode = $env{'form.coursecode'}; |
if ($coursecode eq '') { |
if ($coursecode eq '') { |
my $totcodes = 0; |
my $totcodes = 0; |
my %coursecodes; |
my $instcats = &Apache::lonnet::get_dom_instcats($defdom); |
$totcodes = &Apache::courseclassifier::retrieve_instcodes(\%coursecodes,$defdom); |
if (ref($instcats) eq 'HASH') { |
|
if (ref($instcats->{'codes'}) eq 'HASH') { |
|
$totcodes = scalar(keys(%{$instcats->{'codes'}})); |
|
} |
|
} |
my @standardnames = &Apache::loncommon::get_standard_codeitems(); |
my @standardnames = &Apache::loncommon::get_standard_codeitems(); |
if ($totcodes > 0) { |
if ($totcodes > 0) { |
my $noregexps = 1; |
my $noregexps = 1; |