ONO::FW::Edu::Apps::Modules::Logic
package ONO::FW::Edu::Apps::Modules::Logic;
################################################################################
# COPYRIGHT / LICENSE #
################################################################################
#
# This file is part of the ONO Software Project.
#
# Copyright (C) 2022-2026 Jos Kirps and The Joopita Project [ASBL]
# Copyright (C) 2011-2022 Jos Kirps and Joopita Research ASBL
# Copyright (C) 2006-2011 Jos Kirps and The Joopita Project
# Copyright (C) 2001-2006 Jos Kirps and The WobbleWolf Project
#
# This file, as well as many other parts of the ONO Software Project or
# related elements, are FREE SOFTWARE available under the ARTISTIC LICENSE 2.0.
#
# This program 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.
#
# For the full license, see /ono/osr/license/LICENSE.txt, or write to
# jos_AT_kirps_DOT_com or contact_AT_joopita_DOT_com.
#
################################################################################
# END OF COPYRIGHT / LICENSE, HERE COMES THE CODE ... #
################################################################################
#: This module is a front end application module wrapper that has been
#: created for the Morzino Project (morzino.com) and that has been released
#: as Open Source software.
#:
#: Note that this is NOT a self-contained application, it is only a wrapper
#: that makes heavy use of the ONO Perl Framework application engine.
use strict;
use ONO::IO;
use ONO::Lib::Basic;
use ONO::FW::Edu::Apps::ToolBox;
use ONO::FW::Edu::Apps::Modules::WorksheetMaker::Input;
use ONO::FW::Apps::PDF;
use ONO::FW::Apps::ToolBox;
use ONO::Lib::Image::HTML::Arrow;
use ONO::Lib::PDF::Draw;
use ONO::Lib::PDF::ToolBox;
use ONO::Lib::UI::Check;
use ONO::Lib::UI::Select;
use ONO::FW::Apps::Core;
use ONO::FW::Apps::Core::Graphics;
use ONO::Lib::Parser;
sub learn {
my (
$self,
$option,
$vars_ref,
$HTTP,
$BASE,
) = @_;
################################################################
# INIT - BEGIN
################################################################
my (
$db,
$community,
$action_url,
$form,
$format,
$canvas,
$pdfkey,
$sec,$min,$hour,
$mday,$mon,$year,
$wday,$yday,$timestamp,
$lang,
$BLK_ref,
$vars_ref,
) = ONO::FW::Apps::Core->init($vars_ref);
my %vars = %$vars_ref;
my %BLK = %$BLK_ref;
my $app = "math_steps";
ONO::FW::Apps::Core->now("",$app,$vars{'app_lang'});
my @txt = (
"Calculation steps",
"arrows",
"boxes",
"examples",
"display steps",
"calculate everything",
"steps must be filled out",
"avoid zero values if possible"
);
if ($vars{'app_lang'} eq "de") {
@txt = (
"Rechenschritte",
"Pfeile",
"Kästchen",
"Beispiele",
"Zwischenschritte anzeigen",
"alles rechnen",
"Schritte müssen ausgefüllt werden",
"Nullwerte wenn möglich meiden",
);
}
if ($vars{'app_lang'} eq "lu") {
@txt = (
"Recheschrëtt",
"Pfeiler",
"Këschten",
"Beispiller",
"Zwëscheschrëtt uweisen",
"alles rechnen",
"Schrëtt mussen ausgefëllt ginn",
"Nullwerter wa méiglech évitéieren",
);
}
if ($vars{'app_lang'} eq "fr") {
@txt = (
"Calcul en étapes",
"flèches",
"boites",
"exemples",
"afficher étapes",
"tout calculer",
"étapes doivent être remplies",
"éviter zéros si possible",
);
}
my $WEB;
$WEB .= ONO::FW::Apps::Core->output_paper_save($pdfkey,$BLK_ref,\%vars,$HTTP,$BASE,"$year$mon$mday");
if (ONO::FW::Apps::Core->running(\%vars,$db)) {
$WEB .= ONO::FW::Apps::Core->blockbackbutton($BASE,$vars_ref);
#############################################################
# WORKSHEET MAKER
#############################################################
if ($vars{'output_worksheet_maker'}) {
$vars_ref = ONO::FW::Edu::Apps::Modules::WorksheetMaker::Input->vars(\%vars);
%vars = %$vars_ref;
}
#############################################################
# ONLINE TRAINING
#############################################################
if ($vars{'output_web'} || $vars{'output_paper'}) {
my $question_number = ONO::FW::Apps::Core->question_number($vars{'output_web_question_number'});
if ($vars{'output_web_cache_next'}) {
$question_number++;
$vars{'output_web_question_number'}++;
}
my ($page,$pages,%cache,$whilecounter,$stats_switches,$PDF_OPTS);
my ($stat_correct,$stat_wrong,$stat_todo,$stat_todo_total);
my $questions_per_page = 1;
if ($vars{'output_paper'}) {
$PDF_OPTS = ONO::FW::Apps::Core->headers_options($BLK_ref,$vars_ref);
ONO::FW::Apps::PDF->new("$BASE/pdf/pdf-$pdfkey.pdf","",$format);
$vars{'app_input_multiple_questions_per_page'}++;
$questions_per_page = $vars{'app_input_num_of_items_status'};
}
foreach my $copy (ONO::FW::Apps::Core->unique_copies($vars{'app_input_print_options_unique_copies'})) {
my ($pdf_x,$pdf_y) = (0,0);
my @corr_cache;
my @result_hints;
if ($vars{'output_paper'}) {
if ($copy > 1) {
ONO::FW::Apps::PDF->page("",$format);
}
ONO::FW::Apps::Core->headers(\%vars,$format);
ONO::FW::Apps::PDF->title($vars{'app_input_print_options_title'},$PDF_OPTS,$vars{'app_input_print_options_code'},$format);
ONO::FW::Apps::Core->unique_copies_info($canvas,$copy,$vars_ref);
ONO::FW::Apps::Core::Graphics->pdf_draw_item_numbers($canvas,-2,0,1,4,"HLV",$vars_ref);
# ONO::Lib::PDF::ToolBox->canvas_test($canvas);
}
if ($vars{'output_web'}) {
$WEB .= qq~<$form>~;
$WEB .= ONO::FW::Apps::Core->question_progress($vars{'app_input_number_of_questions'},$question_number);
$WEB .= ONO::FW::Apps::Core->stats("",$BLK_ref,"ctmW");
}
if (ONO::FW::Apps::Core->question_progress_done($vars{'app_input_number_of_questions'},$question_number) || $vars{'output_web_finish'}) {
$vars{'output_progress_done'}++;
$WEB .= ONO::FW::Apps::Core->question_progress_done_msg($app,$db,$community,$form,$action_url,$vars{'app_input_number_of_questions'},$vars{'output_web_mistakes'},$lang,$BLK_ref,\%vars);
} else {
for (my $i = 0; $i < $questions_per_page; $i++) {
my ($type,$op,$num1,$num2,$res,$step,$s1,$s2,$whilecounter);
if ($vars{'output_web_cache_op'} ne "" && $vars{'output_web_cache_num1'} ne "" && $vars{'output_web_cache_num2'} ne "" && $vars{'output_web_cache_res'} ne "" && !$vars{'output_web_cache_next'}) {
$type = $vars{'output_web_cache_type'};
$op = $vars{'output_web_cache_op'};
$num1 = $vars{'output_web_cache_num1'};
$num2 = $vars{'output_web_cache_num2'};
$res = $vars{'output_web_cache_res'};
$step = $vars{'output_web_cache_step'};
$s1 = $vars{'output_web_cache_s1'};
$s2 = $vars{'output_web_cache_s2'};
} else {
if ($vars{'output_web_cache_next'}) {
for (my $n = 0; $n < 6; $n++) {
$vars{"output_web_answer_$n"} = "";
}
}
if (!$op) {
$op = ONO::FW::Apps::Core->random_operation(ONO::FW::Apps::Core->get_operations($vars_ref));
}
$type = "arrows";
if ($vars{'app_input_type_boxes'}) {
$type = "boxes";
if ($vars{'app_input_type_arrows'} && int(rand(100)) > 50) {
$type = "arrows";
}
}
my $num1_min = $vars{'app_input_range_from'};
my $num1_max = $vars{'app_input_range_to'}-10;
if ($op eq "sub") {
if ($vars{'app_input_range_from'} < 10) {
$num1_min = 10;
}
$num1_max = $vars{'app_input_range_to'};
}
my $tens_barrier_cracked;
while ($whilecounter < 255 && (
$num1 < $num1_min || $num2 > $num1_max ||
$num2 < $vars{'app_input_range_from'} || $num2 > $vars{'app_input_range_to'} ||
$num2 < 10 || ($vars{'app_input_avoid_zero'} && $num2 =~ /0/) ||
$res < $vars{'app_input_range_from'} || $res > $vars{'app_input_range_to'} ||
($vars{'app_input_tens_barrier '} < 1 && $tens_barrier_cracked)
)
) {
$whilecounter++;
$tens_barrier_cracked = 0;
if ($op eq "add") {
$res = $vars{'app_input_range_from'}+int(rand($vars{'app_input_range_to'}-$vars{'app_input_range_from'}));
$num1 = int(rand($res));
$num2 = $res-$num1;
if (ONO::Lib::Basic->substr_last_digit($num1) + ONO::Lib::Basic->substr_last_digit($num2) > 9) {
$tens_barrier_cracked++;
}
}
if ($op eq "sub") {
$num1 = $vars{'app_input_range_from'}+int(rand($vars{'app_input_range_to'}-$vars{'app_input_range_from'}));
$num2 = int(rand($num1));
$res = $num1-$num2;
if (ONO::Lib::Basic->substr_last_digit($num1) - ONO::Lib::Basic->substr_last_digit($num2) < 0) {
$tens_barrier_cracked++;
}
}
}
$s1 = int($num2/10)*10;
$s2 = $num2-$s1;
$step = $num1+$s1;
if ($op eq "sub") {
$step = $num1-$s1;
}
}
my @nums = ($num1,$num2,$res,$step,$s1,$s2);
# output paper
if ($vars{'output_paper'}) {
my $size = 1;
my ($large,$off_x,$off_y,$rectify,$lim_y,$i_split);
if ($vars{'app_input_num_of_items_status'} == 24 && $i%2 == 0) {
$pdf_y = $pdf_y + 2.5;
}
if ($vars{'app_input_num_of_items_status'} == 8) {
$large++;
}
if ($vars{'app_input_num_of_items_status'} == 12) {
if ($i =~ /^(0|1|2|5|6|7)$/) {
$large++;
if ($i =~ /^(5|6|7)$/) {
$off_x = 30;
}
}
if ($i =~ /^(3|8)$/) {
$pdf_y = $pdf_y+1;
}
if ($i == 10) {
$pdf_y = 145;
}
}
if ($vars{'app_input_num_of_items_status'} == 16) {
if ($i =~ /^(0|1|6|7)$/) {
$large++;
if ($i =~ /^(6|7)$/) {
$off_x = 30;
}
}
if ($i =~ /^(2|8)$/) {
$pdf_y = $pdf_y+1.5;
}
if ($i =~ /^(4|10|14)$/) {
$pdf_y = $pdf_y+2.5;
}
if ($i == 12) {
$pdf_y = 97,5;
}
}
if ($vars{'app_input_num_of_items_status'} == 20) {
if ($i =~ /^(0|7)$/) {
$large++;
if ($i == 7) {
$off_x = 30;
}
}
if ($i =~ /^(1|8)$/) {
$pdf_y = $pdf_y+2;
}
if ($i =~ /^(3|5|10|12|16|18)$/) {
$pdf_y = $pdf_y+2.5;
}
if ($i == 14) {
$pdf_y = 50;
}
}
if ($large) {
$off_y = 10;
$size = 1.6;
}
if (!$vars{'app_input_result_hints'} || $pdf_y < 142.5) {
$corr_cache[$i] = "$pdf_x\^$off_x\^$pdf_y\^$off_y\^$type\^$size\^$op\^$num1\^$num2\^$res\^$step\^$s1\^$s2";
my $autofill;
if ($vars{'app_input_autofill_1'} =~ /^(examples|steps)$/ && $pdf_y < 45) {
$autofill = $1;
}
if ($vars{'app_input_autofill_2'} =~ /^(examples|steps)$/ && $pdf_y > 45 && $pdf_y < 90) {
$autofill = $1;
}
if ($vars{'app_input_autofill_3'} =~ /^(examples|steps)$/ && $pdf_y > 90) {
$autofill = $1;
}
my @nums = ($num1,$num2,"","","","");
if ($autofill eq "examples") {
@nums = ($num1,$num2,$res,$step,$s1,$s2);
} else {
@result_hints = (@result_hints,$res);
}
if ($autofill eq "steps") {
@nums = ($num1,$num2,"","",$s1,$s2);
}
ONO::FW::Apps::Core::Graphics->pdf_draw_stepcalc($canvas,$pdf_x+$off_x,$pdf_y+$off_y,$type,$size,$op,\@nums);
}
$pdf_y = $pdf_y + 22.5;
if ($large) {
$pdf_y = $pdf_y + 25.5;
}
if ($pdf_y > 180) {
if ($vars{'app_input_num_of_items_status'} == 8) {
$pdf_x = $pdf_x + 90;
} else {
$pdf_x = $pdf_x + 60;
}
$pdf_y = 0;
}
}
if ($vars{'output_web'}) {
my $OP_COLOR = "green";
my $OP_SIGN = "+";
my $STEP_ALT = $num1 + $s2;
if ($op eq "sub") {
$OP_COLOR = "red";
$OP_SIGN = "–";
$STEP_ALT = $num1 - $s2;
}
my $BORDER = "border:3px solid #666666;";
my $HEIGHT1 = "height:40px;";
my $HEIGHT2 = "height:36px;";
my @NUMS = ($num1,"$OP_SIGN $num2",$res,$step,$s1,$s2);
# steps can be inverted!
if (
($vars{"output_web_answer_3"} ne "" && $vars{"output_web_answer_3"} == $STEP_ALT) ||
($vars{"output_web_answer_4"} ne "" && $vars{"output_web_answer_4"} == $s2) ||
($vars{"output_web_answer_5"} ne "" && $vars{"output_web_answer_5"} == $s1)
) {
@NUMS = ($num1,"$OP_SIGN $num2",$res,$STEP_ALT,$s2,$s1);
}
my ($BOX,$RES,$FOCUS,$answer_is_correct,$fields_are_correct,@focus_field,$focus_set);
# generate input fields and/or results
for (my $n = 0; $n < 6; $n++) {
$vars{"output_web_answer_$n"} =~ s~[^0-9]~~gi;
if ($n > 1) {
if ($vars{"output_web_answer_$n"} ne "") {
if ($vars{"output_web_answer_$n"} == $NUMS[$n]) {
my $PAD = "p10";
if ($n == 4 || $n == 5) {
$PAD = "pad10_2";
}
$NUMS[$n] = qq~<div class="$PAD rel">
$vars{"output_web_answer_$n"}
<div class="abs" style="top:24px;left:36px"><img class="block32" src="/ono/osr/images/icons/crystal/32x32/ono/ok.png" alt="correct"></div>
</div>
<input type="hidden" name="output_web_answer_$n" value="$vars{"output_web_answer_$n"}">
~;
$fields_are_correct++;
if ($n == 2) {
$answer_is_correct++;
}
} else {
$NUMS[$n] = qq~<div class="rel">
<input type="text" id="output_web_answer_${n}_id" name="output_web_answer_$n" value="$vars{"output_web_answer_$n"}" class="w100 center">
<div class="abs" style="top:-30px;left:36px"><img class="block32" src="/ono/osr/images/icons/crystal/32x32/ono/delete.png" alt="mistake"></div>
</div>
~;
$focus_field[$n]++;
$vars{'output_web_mistakes'}++;
}
} else {
$NUMS[$n] = qq~<input type="text" id="output_web_answer_${n}_id" name="output_web_answer_$n" value="$vars{"output_web_answer_$n"}" class="w100 center">~;
$focus_field[$n]++;
}
} else {
$NUMS[$n] = qq~<div class="p10">$NUMS[$n]</div>~;
}
}
foreach my $focus (4,3,5,2) {
if ($focus_field[$focus] && !$focus_set) {
$focus_set++;
$FOCUS .= qq~onojs_focus('output_web_answer_${focus}_id');~;
}
}
my $BUTTON = qq~<input type="submit" name="do_check" value="$BLK{'check'}" class="button_green button_big mt10">~;
if ($answer_is_correct) {
if (!$vars{'app_input_steps_required'} || $fields_are_correct == 4) {
$RES = qq~<div class="box_green large bold center mt10">$BLK{'Please_wait'}...</div>
<input type="hidden" name="output_web_cache_next" value="1">
<script>onojs_submit();</script>
~;
$BUTTON = "";
}
}
$WEB .= ONO::FW::Apps::Core->input_vars(\%vars);
$WEB .= qq~<input type="hidden" name="output_web_cache_type" value="$type">
<input type="hidden" name="output_web_cache_op" value="$op">
<input type="hidden" name="output_web_cache_num1" value="$num1">
<input type="hidden" name="output_web_cache_num2" value="$num2">
<input type="hidden" name="output_web_cache_res" value="$res">
<input type="hidden" name="output_web_cache_step" value="$step">
<input type="hidden" name="output_web_cache_s1" value="$s1">
<input type="hidden" name="output_web_cache_s2" value="$s2">
~;
if ($type eq "arrows") {
my $ARROW1 = ONO::Lib::Image::HTML::Arrow->curved(235,50,3,30,"666666","s","a");
my $ARROW2 = ONO::Lib::Image::HTML::Arrow->curved(180,50,3,30,"666666","s","a");
$BOX = qq~<div class="rel">
<div class="rel" style="top:35px;left:50px">$ARROW1</div>
<div class="rel" style="top:35px;left:320px">$ARROW2</div>
<div class="rel">
<table class="wide_table mb20">
<tr>
<td class="w20"></td>
<td class="w25">
<div class="box_$OP_COLOR center xlarge bold" style="$BORDER$HEIGHT1">
<table class="default_table">
<tr>
<td>$OP_SIGN</td>
<td>$NUMS[4]</td>
</tr>
</table>
</div>
</td>
<td class="w20"></td>
<td class="w20">
<div class="box_$OP_COLOR center xlarge bold" style="$BORDER$HEIGHT1">
<table class="default_table">
<tr>
<td>$OP_SIGN</td>
<td>$NUMS[5]</td>
</tr>
</table>
</div>
</td>
<td class="w15"></td>
</tr>
</table>
<table class="wide_table">
<tr>
<td class="w20"><div class="box_fabric center xlarge bold" style="$BORDER$HEIGHT1">$NUMS[0]</div></td>
<td class="w25"></td>
<td class="w20"><div class="box_fabric center xlarge bold" style="$BORDER$HEIGHT1">$NUMS[3]</div></td>
<td class="w15"></td>
<td class="w20"><div class="box_fabric center xlarge bold" style="$BORDER$HEIGHT1">$NUMS[2]</div></div></td>
</tr>
</table>
</div>
</div>
~;
}
if ($type eq "boxes") {
my $ARROW1 = ONO::Lib::Image::HTML::Arrow->arrow(320,3,"666666","s","a");
my $ARROW2 = ONO::Lib::Image::HTML::Arrow->curved(450,50,3,30,"cccccc","a","s");
$BOX = qq~<div class="rel">
<div class="box_$OP_COLOR abs rot135" style="top:80px;left:140px;width:100px;$BORDER"></div>
<div class="box_$OP_COLOR abs rot45" style="top:80px;left:285px;width:100px;$BORDER"></div>
<div class="rel" style="top:35px;left:115px">$ARROW1</div>
<div class="rel rot180" style="top:130px;left:-50px">$ARROW2</div>
<div class="rel">
<table class="wide_table mb20">
<tr>
<td class="w20"><div class="box_fabric center xlarge bold" style="$BORDER$HEIGHT1">$NUMS[0]</div></td>
<td class="w20"></td>
<td class="w20"><div class="box_$OP_COLOR center xlarge bold" style="$BORDER$HEIGHT1">$NUMS[1]</div></td>
<td class="w20"></td>
<td class="w20"><div class="box_fabric center xlarge bold" style="$BORDER$HEIGHT1">$NUMS[2]</div></div></td>
</tr>
</table>
<div class="inline w80 auto">
<table class="wide_table">
<tr>
<td class="w10"></td>
<td class="w25">
<div class="box_$OP_COLOR center xlarge bold mb20" style="$BORDER$HEIGHT2">
<table class="default_table">
<tr>
<td>$OP_SIGN</td>
<td>$NUMS[4]</td>
</tr>
</table>
</div>
</td>
<td class="w5"></td>
<td class="w20"><div class="box_fabric center xlarge bold mt20" style="$BORDER$HEIGHT2">$NUMS[3]</div></td>
<td class="w5"></td>
<td class="w25">
<div class="box_$OP_COLOR center xlarge bold mb20" style="$BORDER$HEIGHT2">
<table class="default_table">
<tr>
<td>$OP_SIGN</td>
<td>$NUMS[5]</td>
</tr>
</table>
</div>
</td>
<td class="w10"></td>
</tr>
</table>
</div>
</div>
</div>
~;
}
$WEB .= qq~<div class="inline auto w66" style="overflow:hidden">
<div class="box_fabric mt20">
<div class="box_paper p20 rel">
<div class="bb mb20">
<div class="xlarge center mb20">$num1 $OP_SIGN $num2 = ?</div>
</div>
$BOX
$RES
<script>$FOCUS</script>
</div>
<div class="inline auto">$BUTTON</div>
</div>
</div>
~;
}
}
}
if ($vars{'output_web'}) {
$WEB .= qq~</form>~;
}
if (ONO::FW::Apps::Core->print_corrections("$BASE/pdf/pdf-$pdfkey-corr.pdf","",$format,$vars_ref)) {
ONO::FW::Apps::Core->headers(\%vars,$format,"c");
ONO::FW::Apps::PDF->title($BLK{'Corrections'},$PDF_OPTS,$vars{'app_input_print_options_code'},$format);
ONO::FW::Apps::Core->unique_copies_info($canvas,$copy,$vars_ref);
ONO::FW::Apps::Core::Graphics->pdf_draw_item_numbers($canvas,-2,0,1,4,"CHLV",$vars_ref);
# ONO::Lib::PDF::ToolBox->canvas_test($canvas);
foreach my $cache (@corr_cache) {
my ($pdf_x,$off_x,$pdf_y,$off_y,$type,$size,$op,$n0,$n1,$n2,$n3,$n4,$n5) = split(/\^/,$cache);
my @nums = ($n0,$n1,$n2,$n3,$n4,$n5);
ONO::FW::Apps::Core::Graphics->pdf_draw_stepcalc($canvas,$pdf_x+$off_x,$pdf_y+$off_y,$type,$size,$op,\@nums);
}
}
}
if ($vars{'output_web'}) {
$stat_correct = $question_number - 1;
$WEB = ONO::FW::Apps::Core->stats_replace($WEB,$stat_correct,$stat_wrong,$stat_todo_total,$vars{'output_web_mistakes'},$page,$pages,$vars{'output_web_completed'});
}
if ($vars{'output_paper'}) {
ONO::FW::Apps::PDF->end;
$WEB .= ONO::FW::Apps::PDF->please_wait($pdfkey,\%BLK,\%vars,"",$HTTP,$BASE);
}
}
} else {
#############################################################
# EXERCISE SETUP
#############################################################
if (!$vars{'app_input_number_of_questions'}) {
$vars{'app_input_number_of_questions'} = 20;
if (ONO::IO->device eq "phone") {
$vars{'app_input_number_of_questions'} = 10;
}
}
$WEB .= ONO::FW::Apps::Core->infopics(
"screen:320:50:40::math_steps_screenshot_1.jpg",
"sheet:168:190:140:15:math_steps_sheet_1.jpg",
"sheet:168:40:160:-10:math_steps_sheet_2.jpg",
);
if (!$vars{'app_input_type_arrows'} && !$vars{'app_input_type_boxes'}) {
$vars{'app_input_type_arrows'} = 1;
}
if (!$vars{'app_input_num_of_items_status'}) {
$vars{'app_input_num_of_items'} = 16;
$vars{'app_input_num_of_items_status'} = 16;
}
if ($vars{'app_input_autofill_1'} eq "") {
$vars{'app_input_autofill_1'} = "examples";
}
if ($vars{'app_input_autofill_2'} eq "") {
$vars{'app_input_autofill_2'} = "steps";
}
if ($vars{'app_input_autofill_3'} eq "") {
$vars{'app_input_autofill_3'} = "none";
}
my (%setup);
my @boxes = (
"arrows::/images/morzino/apps/math_steps_arrows.png:$txt[1]",
"boxes::/images/morzino/apps/math_steps_boxes.png:$txt[2]",
);
my $CUSTOM1 = ONO::Lib::UI::Select->boxes(
"app_input_type",
\@boxes,
\%vars,
128,
28,
);
my @tabs = ("8:green:8 (4 x 2)","12:green:12","16:green:16","20:green:20","24:green:24 (4 x 6)");
my $CUSTOM2 = ONO::Lib::UI::Select->buttons(
"app_input_num_of_items",
$vars{'app_input_num_of_items_status'},
\@tabs,
"",
"f",
$BLK_ref,
\%setup,
);
my $CONF .= ONO::FW::Apps::ToolBox->conf_input("range", $BLK_ref,\%vars,"",1,100,100);
$CONF .= ONO::FW::Apps::ToolBox->conf_input("spacer", $BLK_ref,\%vars);
$CONF .= ONO::FW::Apps::ToolBox->conf_input("ops", $BLK_ref,\%vars,"","as-A");
$CONF .= ONO::FW::Apps::ToolBox->conf_input("spacer", $BLK_ref,\%vars,"","");
$CONF .= ONO::FW::Apps::ToolBox->conf_input("custom", $BLK_ref,\%vars,"T",$BLK{'type'},$CUSTOM1);
$CONF .= ONO::FW::Apps::ToolBox->conf_input("spacer", $BLK_ref,\%vars,"","");
if ($vars{'output_paper'}) {
$CONF .= ONO::FW::Apps::ToolBox->conf_input("custom", $BLK_ref,\%vars,"",$BLK{'questions'},$CUSTOM2);
$CONF .= ONO::FW::Apps::ToolBox->conf_input("spacer", $BLK_ref,\%vars,"","");
foreach my $opt ("1:1","2:2","3:3/4") {
my @op = split(/:/,$opt);
my $SEL;
foreach my $opt2 ("examples:$txt[3]","steps:$txt[4]","none:$txt[5]") {
my @op2 = split(/:/,$opt2);
my $sel;
if ($vars{"app_input_autofill_$op[0]"} eq $op2[0]) {
$sel = " selected";
}
$SEL .= qq~<option value="$op2[0]"$sel>$op2[1]</option>~;
}
my $CUSTOM2 = qq~<div class="select_small"><select name="app_input_autofill_$op[0]">$SEL</select></div>~;
$CONF .= ONO::FW::Apps::ToolBox->conf_input("custom", $BLK_ref,\%vars,"",$op[1],$CUSTOM2);
}
$CONF .= ONO::FW::Apps::ToolBox->conf_input("spacer", $BLK_ref,\%vars,"","");
} else {
$CONF .= qq~<input type="hidden" name="app_input_num_of_items_status" value="$vars{"app_input_num_of_items_status"}">~;
for (my $i = 1; $i < 4; $i++) {
$CONF .= qq~<input type="hidden" name="app_input_autofill_$i" value="$vars{"app_input_autofill_$i"}">~;
}
}
$CONF .= ONO::FW::Apps::ToolBox->conf_input("tensbarrier", $BLK_ref,\%vars,"","S");
$CONF .= ONO::FW::Apps::ToolBox->conf_input("check", $BLK_ref,\%vars,"S","","avoid_zero",$vars{'app_input_avoid_zero'},$txt[7]);
$CONF .= ONO::FW::Apps::ToolBox->conf_input("resulthints", $BLK_ref,\%vars,"","S");
if ($vars{'output_web'}) {
$CONF .= ONO::FW::Apps::ToolBox->conf_input("check", $BLK_ref,\%vars,"S","","steps_required",$vars{'app_input_steps_required'},$txt[6]);
} else {
$CONF .= qq~<input type="hidden" name="app_input_steps_required" value="$vars{"app_input_steps_required"}">~;
}
$WEB .= ONO::FW::Apps::Core->conf_box(
$db,
$community,
$app,
$form,
"",
$action_url,
$CONF,
$lang,
$BLK_ref,
\%vars,
"op-ncdi-CDI-lsu-N",
);
# "op-ncdi-CDI-lsu-N-H",
if (!$vars{'exercise'}) {
$WEB .= ONO::FW::Apps::Core->info_display(
ONO::FW::Apps::Core->info("info_online_print",$vars{'app_lang'}),
ONO::FW::Apps::Core->info("info_indiv_diff", $vars{'app_lang'}),
);
}
}
my ($status,$WEB) = ONO::Lib::Parser->parse($WEB,$vars_ref);
$WEB .= ONO::FW::Apps::Core->vardump($vars_ref);
$WEB = ONO::FW::Edu::Apps::ToolBox->apps_gate($WEB,$vars_ref);
return $WEB;
}
###################################################################
# SUBS
###################################################################
###################################################################
#### THAT'S IT :-D
###################################################################
1;
__END__
################################################################################
# COPYRIGHT / LICENSE #
################################################################################
#
# This file is part of the ONO Software Project.
#
# Copyright (C) 2022-2026 Jos Kirps and The Joopita Project [ASBL]
# Copyright (C) 2011-2022 Jos Kirps and Joopita Research ASBL
# Copyright (C) 2006-2011 Jos Kirps and The Joopita Project
# Copyright (C) 2001-2006 Jos Kirps and The WobbleWolf Project
#
# This file, as well as many other parts of the ONO Software Project or
# related elements, are FREE SOFTWARE available under the ARTISTIC LICENSE 2.0.
#
# This program 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.
#
# For the full license, see /ono/osr/license/LICENSE.txt, or write to
# jos_AT_kirps_DOT_com or contact_AT_joopita_DOT_com.
#
################################################################################
# END OF COPYRIGHT / LICENSE, HERE COMES THE CODE ... #
################################################################################
#: This module is a front end application module wrapper that has been
#: created for the Morzino Project (morzino.com) and that has been released
#: as Open Source software.
#:
#: Note that this is NOT a self-contained application, it is only a wrapper
#: that makes heavy use of the ONO Perl Framework application engine.
use strict;
use ONO::IO;
use ONO::Lib::Basic;
use ONO::FW::Edu::Apps::ToolBox;
use ONO::FW::Edu::Apps::Modules::WorksheetMaker::Input;
use ONO::FW::Apps::PDF;
use ONO::FW::Apps::ToolBox;
use ONO::Lib::Image::HTML::Arrow;
use ONO::Lib::PDF::Draw;
use ONO::Lib::PDF::ToolBox;
use ONO::Lib::UI::Check;
use ONO::Lib::UI::Select;
use ONO::FW::Apps::Core;
use ONO::FW::Apps::Core::Graphics;
use ONO::Lib::Parser;
sub learn {
my (
$self,
$option,
$vars_ref,
$HTTP,
$BASE,
) = @_;
################################################################
# INIT - BEGIN
################################################################
my (
$db,
$community,
$action_url,
$form,
$format,
$canvas,
$pdfkey,
$sec,$min,$hour,
$mday,$mon,$year,
$wday,$yday,$timestamp,
$lang,
$BLK_ref,
$vars_ref,
) = ONO::FW::Apps::Core->init($vars_ref);
my %vars = %$vars_ref;
my %BLK = %$BLK_ref;
my $app = "math_steps";
ONO::FW::Apps::Core->now("",$app,$vars{'app_lang'});
my @txt = (
"Calculation steps",
"arrows",
"boxes",
"examples",
"display steps",
"calculate everything",
"steps must be filled out",
"avoid zero values if possible"
);
if ($vars{'app_lang'} eq "de") {
@txt = (
"Rechenschritte",
"Pfeile",
"Kästchen",
"Beispiele",
"Zwischenschritte anzeigen",
"alles rechnen",
"Schritte müssen ausgefüllt werden",
"Nullwerte wenn möglich meiden",
);
}
if ($vars{'app_lang'} eq "lu") {
@txt = (
"Recheschrëtt",
"Pfeiler",
"Këschten",
"Beispiller",
"Zwëscheschrëtt uweisen",
"alles rechnen",
"Schrëtt mussen ausgefëllt ginn",
"Nullwerter wa méiglech évitéieren",
);
}
if ($vars{'app_lang'} eq "fr") {
@txt = (
"Calcul en étapes",
"flèches",
"boites",
"exemples",
"afficher étapes",
"tout calculer",
"étapes doivent être remplies",
"éviter zéros si possible",
);
}
my $WEB;
$WEB .= ONO::FW::Apps::Core->output_paper_save($pdfkey,$BLK_ref,\%vars,$HTTP,$BASE,"$year$mon$mday");
if (ONO::FW::Apps::Core->running(\%vars,$db)) {
$WEB .= ONO::FW::Apps::Core->blockbackbutton($BASE,$vars_ref);
#############################################################
# WORKSHEET MAKER
#############################################################
if ($vars{'output_worksheet_maker'}) {
$vars_ref = ONO::FW::Edu::Apps::Modules::WorksheetMaker::Input->vars(\%vars);
%vars = %$vars_ref;
}
#############################################################
# ONLINE TRAINING
#############################################################
if ($vars{'output_web'} || $vars{'output_paper'}) {
my $question_number = ONO::FW::Apps::Core->question_number($vars{'output_web_question_number'});
if ($vars{'output_web_cache_next'}) {
$question_number++;
$vars{'output_web_question_number'}++;
}
my ($page,$pages,%cache,$whilecounter,$stats_switches,$PDF_OPTS);
my ($stat_correct,$stat_wrong,$stat_todo,$stat_todo_total);
my $questions_per_page = 1;
if ($vars{'output_paper'}) {
$PDF_OPTS = ONO::FW::Apps::Core->headers_options($BLK_ref,$vars_ref);
ONO::FW::Apps::PDF->new("$BASE/pdf/pdf-$pdfkey.pdf","",$format);
$vars{'app_input_multiple_questions_per_page'}++;
$questions_per_page = $vars{'app_input_num_of_items_status'};
}
foreach my $copy (ONO::FW::Apps::Core->unique_copies($vars{'app_input_print_options_unique_copies'})) {
my ($pdf_x,$pdf_y) = (0,0);
my @corr_cache;
my @result_hints;
if ($vars{'output_paper'}) {
if ($copy > 1) {
ONO::FW::Apps::PDF->page("",$format);
}
ONO::FW::Apps::Core->headers(\%vars,$format);
ONO::FW::Apps::PDF->title($vars{'app_input_print_options_title'},$PDF_OPTS,$vars{'app_input_print_options_code'},$format);
ONO::FW::Apps::Core->unique_copies_info($canvas,$copy,$vars_ref);
ONO::FW::Apps::Core::Graphics->pdf_draw_item_numbers($canvas,-2,0,1,4,"HLV",$vars_ref);
# ONO::Lib::PDF::ToolBox->canvas_test($canvas);
}
if ($vars{'output_web'}) {
$WEB .= qq~<$form>~;
$WEB .= ONO::FW::Apps::Core->question_progress($vars{'app_input_number_of_questions'},$question_number);
$WEB .= ONO::FW::Apps::Core->stats("",$BLK_ref,"ctmW");
}
if (ONO::FW::Apps::Core->question_progress_done($vars{'app_input_number_of_questions'},$question_number) || $vars{'output_web_finish'}) {
$vars{'output_progress_done'}++;
$WEB .= ONO::FW::Apps::Core->question_progress_done_msg($app,$db,$community,$form,$action_url,$vars{'app_input_number_of_questions'},$vars{'output_web_mistakes'},$lang,$BLK_ref,\%vars);
} else {
for (my $i = 0; $i < $questions_per_page; $i++) {
my ($type,$op,$num1,$num2,$res,$step,$s1,$s2,$whilecounter);
if ($vars{'output_web_cache_op'} ne "" && $vars{'output_web_cache_num1'} ne "" && $vars{'output_web_cache_num2'} ne "" && $vars{'output_web_cache_res'} ne "" && !$vars{'output_web_cache_next'}) {
$type = $vars{'output_web_cache_type'};
$op = $vars{'output_web_cache_op'};
$num1 = $vars{'output_web_cache_num1'};
$num2 = $vars{'output_web_cache_num2'};
$res = $vars{'output_web_cache_res'};
$step = $vars{'output_web_cache_step'};
$s1 = $vars{'output_web_cache_s1'};
$s2 = $vars{'output_web_cache_s2'};
} else {
if ($vars{'output_web_cache_next'}) {
for (my $n = 0; $n < 6; $n++) {
$vars{"output_web_answer_$n"} = "";
}
}
if (!$op) {
$op = ONO::FW::Apps::Core->random_operation(ONO::FW::Apps::Core->get_operations($vars_ref));
}
$type = "arrows";
if ($vars{'app_input_type_boxes'}) {
$type = "boxes";
if ($vars{'app_input_type_arrows'} && int(rand(100)) > 50) {
$type = "arrows";
}
}
my $num1_min = $vars{'app_input_range_from'};
my $num1_max = $vars{'app_input_range_to'}-10;
if ($op eq "sub") {
if ($vars{'app_input_range_from'} < 10) {
$num1_min = 10;
}
$num1_max = $vars{'app_input_range_to'};
}
my $tens_barrier_cracked;
while ($whilecounter < 255 && (
$num1 < $num1_min || $num2 > $num1_max ||
$num2 < $vars{'app_input_range_from'} || $num2 > $vars{'app_input_range_to'} ||
$num2 < 10 || ($vars{'app_input_avoid_zero'} && $num2 =~ /0/) ||
$res < $vars{'app_input_range_from'} || $res > $vars{'app_input_range_to'} ||
($vars{'app_input_tens_barrier '} < 1 && $tens_barrier_cracked)
)
) {
$whilecounter++;
$tens_barrier_cracked = 0;
if ($op eq "add") {
$res = $vars{'app_input_range_from'}+int(rand($vars{'app_input_range_to'}-$vars{'app_input_range_from'}));
$num1 = int(rand($res));
$num2 = $res-$num1;
if (ONO::Lib::Basic->substr_last_digit($num1) + ONO::Lib::Basic->substr_last_digit($num2) > 9) {
$tens_barrier_cracked++;
}
}
if ($op eq "sub") {
$num1 = $vars{'app_input_range_from'}+int(rand($vars{'app_input_range_to'}-$vars{'app_input_range_from'}));
$num2 = int(rand($num1));
$res = $num1-$num2;
if (ONO::Lib::Basic->substr_last_digit($num1) - ONO::Lib::Basic->substr_last_digit($num2) < 0) {
$tens_barrier_cracked++;
}
}
}
$s1 = int($num2/10)*10;
$s2 = $num2-$s1;
$step = $num1+$s1;
if ($op eq "sub") {
$step = $num1-$s1;
}
}
my @nums = ($num1,$num2,$res,$step,$s1,$s2);
# output paper
if ($vars{'output_paper'}) {
my $size = 1;
my ($large,$off_x,$off_y,$rectify,$lim_y,$i_split);
if ($vars{'app_input_num_of_items_status'} == 24 && $i%2 == 0) {
$pdf_y = $pdf_y + 2.5;
}
if ($vars{'app_input_num_of_items_status'} == 8) {
$large++;
}
if ($vars{'app_input_num_of_items_status'} == 12) {
if ($i =~ /^(0|1|2|5|6|7)$/) {
$large++;
if ($i =~ /^(5|6|7)$/) {
$off_x = 30;
}
}
if ($i =~ /^(3|8)$/) {
$pdf_y = $pdf_y+1;
}
if ($i == 10) {
$pdf_y = 145;
}
}
if ($vars{'app_input_num_of_items_status'} == 16) {
if ($i =~ /^(0|1|6|7)$/) {
$large++;
if ($i =~ /^(6|7)$/) {
$off_x = 30;
}
}
if ($i =~ /^(2|8)$/) {
$pdf_y = $pdf_y+1.5;
}
if ($i =~ /^(4|10|14)$/) {
$pdf_y = $pdf_y+2.5;
}
if ($i == 12) {
$pdf_y = 97,5;
}
}
if ($vars{'app_input_num_of_items_status'} == 20) {
if ($i =~ /^(0|7)$/) {
$large++;
if ($i == 7) {
$off_x = 30;
}
}
if ($i =~ /^(1|8)$/) {
$pdf_y = $pdf_y+2;
}
if ($i =~ /^(3|5|10|12|16|18)$/) {
$pdf_y = $pdf_y+2.5;
}
if ($i == 14) {
$pdf_y = 50;
}
}
if ($large) {
$off_y = 10;
$size = 1.6;
}
if (!$vars{'app_input_result_hints'} || $pdf_y < 142.5) {
$corr_cache[$i] = "$pdf_x\^$off_x\^$pdf_y\^$off_y\^$type\^$size\^$op\^$num1\^$num2\^$res\^$step\^$s1\^$s2";
my $autofill;
if ($vars{'app_input_autofill_1'} =~ /^(examples|steps)$/ && $pdf_y < 45) {
$autofill = $1;
}
if ($vars{'app_input_autofill_2'} =~ /^(examples|steps)$/ && $pdf_y > 45 && $pdf_y < 90) {
$autofill = $1;
}
if ($vars{'app_input_autofill_3'} =~ /^(examples|steps)$/ && $pdf_y > 90) {
$autofill = $1;
}
my @nums = ($num1,$num2,"","","","");
if ($autofill eq "examples") {
@nums = ($num1,$num2,$res,$step,$s1,$s2);
} else {
@result_hints = (@result_hints,$res);
}
if ($autofill eq "steps") {
@nums = ($num1,$num2,"","",$s1,$s2);
}
ONO::FW::Apps::Core::Graphics->pdf_draw_stepcalc($canvas,$pdf_x+$off_x,$pdf_y+$off_y,$type,$size,$op,\@nums);
}
$pdf_y = $pdf_y + 22.5;
if ($large) {
$pdf_y = $pdf_y + 25.5;
}
if ($pdf_y > 180) {
if ($vars{'app_input_num_of_items_status'} == 8) {
$pdf_x = $pdf_x + 90;
} else {
$pdf_x = $pdf_x + 60;
}
$pdf_y = 0;
}
}
if ($vars{'output_web'}) {
my $OP_COLOR = "green";
my $OP_SIGN = "+";
my $STEP_ALT = $num1 + $s2;
if ($op eq "sub") {
$OP_COLOR = "red";
$OP_SIGN = "–";
$STEP_ALT = $num1 - $s2;
}
my $BORDER = "border:3px solid #666666;";
my $HEIGHT1 = "height:40px;";
my $HEIGHT2 = "height:36px;";
my @NUMS = ($num1,"$OP_SIGN $num2",$res,$step,$s1,$s2);
# steps can be inverted!
if (
($vars{"output_web_answer_3"} ne "" && $vars{"output_web_answer_3"} == $STEP_ALT) ||
($vars{"output_web_answer_4"} ne "" && $vars{"output_web_answer_4"} == $s2) ||
($vars{"output_web_answer_5"} ne "" && $vars{"output_web_answer_5"} == $s1)
) {
@NUMS = ($num1,"$OP_SIGN $num2",$res,$STEP_ALT,$s2,$s1);
}
my ($BOX,$RES,$FOCUS,$answer_is_correct,$fields_are_correct,@focus_field,$focus_set);
# generate input fields and/or results
for (my $n = 0; $n < 6; $n++) {
$vars{"output_web_answer_$n"} =~ s~[^0-9]~~gi;
if ($n > 1) {
if ($vars{"output_web_answer_$n"} ne "") {
if ($vars{"output_web_answer_$n"} == $NUMS[$n]) {
my $PAD = "p10";
if ($n == 4 || $n == 5) {
$PAD = "pad10_2";
}
$NUMS[$n] = qq~<div class="$PAD rel">
$vars{"output_web_answer_$n"}
<div class="abs" style="top:24px;left:36px"><img class="block32" src="/ono/osr/images/icons/crystal/32x32/ono/ok.png" alt="correct"></div>
</div>
<input type="hidden" name="output_web_answer_$n" value="$vars{"output_web_answer_$n"}">
~;
$fields_are_correct++;
if ($n == 2) {
$answer_is_correct++;
}
} else {
$NUMS[$n] = qq~<div class="rel">
<input type="text" id="output_web_answer_${n}_id" name="output_web_answer_$n" value="$vars{"output_web_answer_$n"}" class="w100 center">
<div class="abs" style="top:-30px;left:36px"><img class="block32" src="/ono/osr/images/icons/crystal/32x32/ono/delete.png" alt="mistake"></div>
</div>
~;
$focus_field[$n]++;
$vars{'output_web_mistakes'}++;
}
} else {
$NUMS[$n] = qq~<input type="text" id="output_web_answer_${n}_id" name="output_web_answer_$n" value="$vars{"output_web_answer_$n"}" class="w100 center">~;
$focus_field[$n]++;
}
} else {
$NUMS[$n] = qq~<div class="p10">$NUMS[$n]</div>~;
}
}
foreach my $focus (4,3,5,2) {
if ($focus_field[$focus] && !$focus_set) {
$focus_set++;
$FOCUS .= qq~onojs_focus('output_web_answer_${focus}_id');~;
}
}
my $BUTTON = qq~<input type="submit" name="do_check" value="$BLK{'check'}" class="button_green button_big mt10">~;
if ($answer_is_correct) {
if (!$vars{'app_input_steps_required'} || $fields_are_correct == 4) {
$RES = qq~<div class="box_green large bold center mt10">$BLK{'Please_wait'}...</div>
<input type="hidden" name="output_web_cache_next" value="1">
<script>onojs_submit();</script>
~;
$BUTTON = "";
}
}
$WEB .= ONO::FW::Apps::Core->input_vars(\%vars);
$WEB .= qq~<input type="hidden" name="output_web_cache_type" value="$type">
<input type="hidden" name="output_web_cache_op" value="$op">
<input type="hidden" name="output_web_cache_num1" value="$num1">
<input type="hidden" name="output_web_cache_num2" value="$num2">
<input type="hidden" name="output_web_cache_res" value="$res">
<input type="hidden" name="output_web_cache_step" value="$step">
<input type="hidden" name="output_web_cache_s1" value="$s1">
<input type="hidden" name="output_web_cache_s2" value="$s2">
~;
if ($type eq "arrows") {
my $ARROW1 = ONO::Lib::Image::HTML::Arrow->curved(235,50,3,30,"666666","s","a");
my $ARROW2 = ONO::Lib::Image::HTML::Arrow->curved(180,50,3,30,"666666","s","a");
$BOX = qq~<div class="rel">
<div class="rel" style="top:35px;left:50px">$ARROW1</div>
<div class="rel" style="top:35px;left:320px">$ARROW2</div>
<div class="rel">
<table class="wide_table mb20">
<tr>
<td class="w20"></td>
<td class="w25">
<div class="box_$OP_COLOR center xlarge bold" style="$BORDER$HEIGHT1">
<table class="default_table">
<tr>
<td>$OP_SIGN</td>
<td>$NUMS[4]</td>
</tr>
</table>
</div>
</td>
<td class="w20"></td>
<td class="w20">
<div class="box_$OP_COLOR center xlarge bold" style="$BORDER$HEIGHT1">
<table class="default_table">
<tr>
<td>$OP_SIGN</td>
<td>$NUMS[5]</td>
</tr>
</table>
</div>
</td>
<td class="w15"></td>
</tr>
</table>
<table class="wide_table">
<tr>
<td class="w20"><div class="box_fabric center xlarge bold" style="$BORDER$HEIGHT1">$NUMS[0]</div></td>
<td class="w25"></td>
<td class="w20"><div class="box_fabric center xlarge bold" style="$BORDER$HEIGHT1">$NUMS[3]</div></td>
<td class="w15"></td>
<td class="w20"><div class="box_fabric center xlarge bold" style="$BORDER$HEIGHT1">$NUMS[2]</div></div></td>
</tr>
</table>
</div>
</div>
~;
}
if ($type eq "boxes") {
my $ARROW1 = ONO::Lib::Image::HTML::Arrow->arrow(320,3,"666666","s","a");
my $ARROW2 = ONO::Lib::Image::HTML::Arrow->curved(450,50,3,30,"cccccc","a","s");
$BOX = qq~<div class="rel">
<div class="box_$OP_COLOR abs rot135" style="top:80px;left:140px;width:100px;$BORDER"></div>
<div class="box_$OP_COLOR abs rot45" style="top:80px;left:285px;width:100px;$BORDER"></div>
<div class="rel" style="top:35px;left:115px">$ARROW1</div>
<div class="rel rot180" style="top:130px;left:-50px">$ARROW2</div>
<div class="rel">
<table class="wide_table mb20">
<tr>
<td class="w20"><div class="box_fabric center xlarge bold" style="$BORDER$HEIGHT1">$NUMS[0]</div></td>
<td class="w20"></td>
<td class="w20"><div class="box_$OP_COLOR center xlarge bold" style="$BORDER$HEIGHT1">$NUMS[1]</div></td>
<td class="w20"></td>
<td class="w20"><div class="box_fabric center xlarge bold" style="$BORDER$HEIGHT1">$NUMS[2]</div></div></td>
</tr>
</table>
<div class="inline w80 auto">
<table class="wide_table">
<tr>
<td class="w10"></td>
<td class="w25">
<div class="box_$OP_COLOR center xlarge bold mb20" style="$BORDER$HEIGHT2">
<table class="default_table">
<tr>
<td>$OP_SIGN</td>
<td>$NUMS[4]</td>
</tr>
</table>
</div>
</td>
<td class="w5"></td>
<td class="w20"><div class="box_fabric center xlarge bold mt20" style="$BORDER$HEIGHT2">$NUMS[3]</div></td>
<td class="w5"></td>
<td class="w25">
<div class="box_$OP_COLOR center xlarge bold mb20" style="$BORDER$HEIGHT2">
<table class="default_table">
<tr>
<td>$OP_SIGN</td>
<td>$NUMS[5]</td>
</tr>
</table>
</div>
</td>
<td class="w10"></td>
</tr>
</table>
</div>
</div>
</div>
~;
}
$WEB .= qq~<div class="inline auto w66" style="overflow:hidden">
<div class="box_fabric mt20">
<div class="box_paper p20 rel">
<div class="bb mb20">
<div class="xlarge center mb20">$num1 $OP_SIGN $num2 = ?</div>
</div>
$BOX
$RES
<script>$FOCUS</script>
</div>
<div class="inline auto">$BUTTON</div>
</div>
</div>
~;
}
}
}
if ($vars{'output_web'}) {
$WEB .= qq~</form>~;
}
if (ONO::FW::Apps::Core->print_corrections("$BASE/pdf/pdf-$pdfkey-corr.pdf","",$format,$vars_ref)) {
ONO::FW::Apps::Core->headers(\%vars,$format,"c");
ONO::FW::Apps::PDF->title($BLK{'Corrections'},$PDF_OPTS,$vars{'app_input_print_options_code'},$format);
ONO::FW::Apps::Core->unique_copies_info($canvas,$copy,$vars_ref);
ONO::FW::Apps::Core::Graphics->pdf_draw_item_numbers($canvas,-2,0,1,4,"CHLV",$vars_ref);
# ONO::Lib::PDF::ToolBox->canvas_test($canvas);
foreach my $cache (@corr_cache) {
my ($pdf_x,$off_x,$pdf_y,$off_y,$type,$size,$op,$n0,$n1,$n2,$n3,$n4,$n5) = split(/\^/,$cache);
my @nums = ($n0,$n1,$n2,$n3,$n4,$n5);
ONO::FW::Apps::Core::Graphics->pdf_draw_stepcalc($canvas,$pdf_x+$off_x,$pdf_y+$off_y,$type,$size,$op,\@nums);
}
}
}
if ($vars{'output_web'}) {
$stat_correct = $question_number - 1;
$WEB = ONO::FW::Apps::Core->stats_replace($WEB,$stat_correct,$stat_wrong,$stat_todo_total,$vars{'output_web_mistakes'},$page,$pages,$vars{'output_web_completed'});
}
if ($vars{'output_paper'}) {
ONO::FW::Apps::PDF->end;
$WEB .= ONO::FW::Apps::PDF->please_wait($pdfkey,\%BLK,\%vars,"",$HTTP,$BASE);
}
}
} else {
#############################################################
# EXERCISE SETUP
#############################################################
if (!$vars{'app_input_number_of_questions'}) {
$vars{'app_input_number_of_questions'} = 20;
if (ONO::IO->device eq "phone") {
$vars{'app_input_number_of_questions'} = 10;
}
}
$WEB .= ONO::FW::Apps::Core->infopics(
"screen:320:50:40::math_steps_screenshot_1.jpg",
"sheet:168:190:140:15:math_steps_sheet_1.jpg",
"sheet:168:40:160:-10:math_steps_sheet_2.jpg",
);
if (!$vars{'app_input_type_arrows'} && !$vars{'app_input_type_boxes'}) {
$vars{'app_input_type_arrows'} = 1;
}
if (!$vars{'app_input_num_of_items_status'}) {
$vars{'app_input_num_of_items'} = 16;
$vars{'app_input_num_of_items_status'} = 16;
}
if ($vars{'app_input_autofill_1'} eq "") {
$vars{'app_input_autofill_1'} = "examples";
}
if ($vars{'app_input_autofill_2'} eq "") {
$vars{'app_input_autofill_2'} = "steps";
}
if ($vars{'app_input_autofill_3'} eq "") {
$vars{'app_input_autofill_3'} = "none";
}
my (%setup);
my @boxes = (
"arrows::/images/morzino/apps/math_steps_arrows.png:$txt[1]",
"boxes::/images/morzino/apps/math_steps_boxes.png:$txt[2]",
);
my $CUSTOM1 = ONO::Lib::UI::Select->boxes(
"app_input_type",
\@boxes,
\%vars,
128,
28,
);
my @tabs = ("8:green:8 (4 x 2)","12:green:12","16:green:16","20:green:20","24:green:24 (4 x 6)");
my $CUSTOM2 = ONO::Lib::UI::Select->buttons(
"app_input_num_of_items",
$vars{'app_input_num_of_items_status'},
\@tabs,
"",
"f",
$BLK_ref,
\%setup,
);
my $CONF .= ONO::FW::Apps::ToolBox->conf_input("range", $BLK_ref,\%vars,"",1,100,100);
$CONF .= ONO::FW::Apps::ToolBox->conf_input("spacer", $BLK_ref,\%vars);
$CONF .= ONO::FW::Apps::ToolBox->conf_input("ops", $BLK_ref,\%vars,"","as-A");
$CONF .= ONO::FW::Apps::ToolBox->conf_input("spacer", $BLK_ref,\%vars,"","");
$CONF .= ONO::FW::Apps::ToolBox->conf_input("custom", $BLK_ref,\%vars,"T",$BLK{'type'},$CUSTOM1);
$CONF .= ONO::FW::Apps::ToolBox->conf_input("spacer", $BLK_ref,\%vars,"","");
if ($vars{'output_paper'}) {
$CONF .= ONO::FW::Apps::ToolBox->conf_input("custom", $BLK_ref,\%vars,"",$BLK{'questions'},$CUSTOM2);
$CONF .= ONO::FW::Apps::ToolBox->conf_input("spacer", $BLK_ref,\%vars,"","");
foreach my $opt ("1:1","2:2","3:3/4") {
my @op = split(/:/,$opt);
my $SEL;
foreach my $opt2 ("examples:$txt[3]","steps:$txt[4]","none:$txt[5]") {
my @op2 = split(/:/,$opt2);
my $sel;
if ($vars{"app_input_autofill_$op[0]"} eq $op2[0]) {
$sel = " selected";
}
$SEL .= qq~<option value="$op2[0]"$sel>$op2[1]</option>~;
}
my $CUSTOM2 = qq~<div class="select_small"><select name="app_input_autofill_$op[0]">$SEL</select></div>~;
$CONF .= ONO::FW::Apps::ToolBox->conf_input("custom", $BLK_ref,\%vars,"",$op[1],$CUSTOM2);
}
$CONF .= ONO::FW::Apps::ToolBox->conf_input("spacer", $BLK_ref,\%vars,"","");
} else {
$CONF .= qq~<input type="hidden" name="app_input_num_of_items_status" value="$vars{"app_input_num_of_items_status"}">~;
for (my $i = 1; $i < 4; $i++) {
$CONF .= qq~<input type="hidden" name="app_input_autofill_$i" value="$vars{"app_input_autofill_$i"}">~;
}
}
$CONF .= ONO::FW::Apps::ToolBox->conf_input("tensbarrier", $BLK_ref,\%vars,"","S");
$CONF .= ONO::FW::Apps::ToolBox->conf_input("check", $BLK_ref,\%vars,"S","","avoid_zero",$vars{'app_input_avoid_zero'},$txt[7]);
$CONF .= ONO::FW::Apps::ToolBox->conf_input("resulthints", $BLK_ref,\%vars,"","S");
if ($vars{'output_web'}) {
$CONF .= ONO::FW::Apps::ToolBox->conf_input("check", $BLK_ref,\%vars,"S","","steps_required",$vars{'app_input_steps_required'},$txt[6]);
} else {
$CONF .= qq~<input type="hidden" name="app_input_steps_required" value="$vars{"app_input_steps_required"}">~;
}
$WEB .= ONO::FW::Apps::Core->conf_box(
$db,
$community,
$app,
$form,
"",
$action_url,
$CONF,
$lang,
$BLK_ref,
\%vars,
"op-ncdi-CDI-lsu-N",
);
# "op-ncdi-CDI-lsu-N-H",
if (!$vars{'exercise'}) {
$WEB .= ONO::FW::Apps::Core->info_display(
ONO::FW::Apps::Core->info("info_online_print",$vars{'app_lang'}),
ONO::FW::Apps::Core->info("info_indiv_diff", $vars{'app_lang'}),
);
}
}
my ($status,$WEB) = ONO::Lib::Parser->parse($WEB,$vars_ref);
$WEB .= ONO::FW::Apps::Core->vardump($vars_ref);
$WEB = ONO::FW::Edu::Apps::ToolBox->apps_gate($WEB,$vars_ref);
return $WEB;
}
###################################################################
# SUBS
###################################################################
###################################################################
#### THAT'S IT :-D
###################################################################
1;
__END__