ONO::FW::Edu::Apps::Modules::TextsLists
package ONO::FW::Edu::Apps::Modules::TextsLists;
################################################################################
# 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::FW::Edu::Apps::ToolBox;
use Encode;
use ONO::FW::Apps::Core;
use ONO::FW::Apps::Core::Graphics;
use ONO::ToolBox::Auth;
use ONO::Lib::Lang::LangKitEdu;
use ONO::Lib::Parser;
use ONO::FW::User::Init;
use ONO::IO;
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;
ONO::FW::Apps::Core->now("","mksheet",$vars{'app_lang'});
my $action_url = qq~$ENV{'SCRIPT_NAME'}?app_lang=$vars{'app_lang'}&~;
my $form = qq~form action="$ENV{'SCRIPT_NAME'}" method="post">
<input type="hidden" name="app_lang" value="$vars{'app_lang'}"
~;
my ($WEB,$WORK_INFO);
my @txt = (
"As a teacher you may [b]save your own custom texts and lists[/b] that you may [b]reuse in our e-Learning Web Apps[/b].",
"Save your texts and lists, and make them accessible to your students.",
"Automatically generate word lists.",
"Save your own dedicated word, vocabulary and verb lists.",
"Fully integrated with our picture dictionary.",
"Reuse your own texts and lists in our e-Learning Web Apps.",
"Allow students to repeat your lists using a large number of different exercise types.",
"See exercise results and follow your students' progresses.",
"e-Learning Web Apps",
"texts and lists in my Virtual Classroom",
);
if ($lang eq "de") {
@txt = (
"Als LehrerIn kannst du [b]deine eigenen benutzerdefinierten Texte und Listen speichern[/b], die du dann [b]in unseren E-Learning-Web-Apps wiederverwenden kannst[/b].",
"Speichere deine Texte und Listen, und mache sie deinen Schülern zugänglich.",
"Generiere automatisch Wortlisten und Wortschätze.",
"Speichere deine eigenen Wort-, Wortschatz- und Verblisten.",
"Vollständig in unser Bildwörterbuch integriert.",
"Verwende deine eigenen Texte und Listen in unseren e-Learning Web Apps.",
"Ermögliche es den Schülern, deine Listen mit einer großen Anzahl verschiedener Online-Aufgabentypen zu wiederholen.",
"Du siehst Übungsergebnisse und verfolgst die Fortschritte deiner Schüler.",
"E-Learning-Web-Apps",
"Texte und Listen in meiner virtuellen Klasse",
);
}
if ($lang eq "lu") {
@txt = (
"Als Enseignant kann s du [b]deng eege personaliséiert Texter a Lëschte späicheren[/b], déi s du dann [b]an eisen e-Learning Web Apps weiderbenotze kanns[/b].",
"Späicher deng Texter a maach se denge Schüler zougänglech.",
"Generéier automatesch Wuertlëschten a Wortschätz.",
"Späicher deng eege Wuert-, Vokabel- a Verbelëschten.",
"Voll integréiert mat eisem Bildwierderbuch.",
"Benotz deng eegen Texter a Lëschten an eisen e-Learning Web Apps.",
"Erlaab et de Schüler, deng Lëschte mat enger grousser Zuel vu verschiddenen Übungstypen ze widderhuelen.",
"Du gesäis Resultater a kanns d'Fortschrëtter vun denge Schüler suivéieren.",
"E-Learning Web Apps",
"Texter a Lëschten a menger Virtueller Klass",
);
}
if ($lang eq "fr") {
@txt = (
"En tant qu'enseignant, vous pouvez [b]enregistrer vos propres textes et listes personnalisés[/b] que vous pouvez [b]utiliser dans nos applications Web d'apprentissage en ligne[/b]",
"Enregistrez vos textes et listes, et rendez-les accessibles à vos élèves.",
"Générez automatiquement des listes de mots.",
"Enregistrez vos propres listes de mots, de vocabulaire et de verbes dédiés.",
"Entièrement intégré à notre dictionnaire d'images.",
"Réutilisez vos propres textes et listes dans nos applications Web e-Learning.",
"Permettez aux élèves de répéter vos listes en utilisant un grand nombre de types d'exercices différents.",
"Consultez les résultats des exercices et suivez les progrès de vos élèves.",
"Applications Web d'apprentissage en ligne",
"textes et listes dans ma classe virtuelle",
);
}
$WEB .= qq~<div class="p10">
<table class="wide_table">
<tr class="vtop">
<td><img class="block48" src="/ono/osr/images/icons/crystal/64x64/apps/ktip.png" alt=""></td>
<td class="w100">
<div class="large">$txt[0]</div>
</td>
</tr>
<tr class="vtop">
<td></td>
<td class="p0">
<table class="wide_table mt10">
<tr class="vtop">
<td><img class="block32 mr5" src="/ono/osr/images/icons/crystal/32x32/actions/ok.png" alt=""></td>
<td>
<div class="large mt5">$txt[1]</div>
</td>
</tr>
<tr class="vtop">
<td><img class="block32 mr5" src="/ono/osr/images/icons/crystal/32x32/actions/ok.png" alt=""></td>
<td>
<div class="large mt5">$txt[2]</div>
</td>
</tr>
<tr class="vtop">
<td><img class="block32 mr5" src="/ono/osr/images/icons/crystal/32x32/actions/ok.png" alt=""></td>
<td>
<div class="large mt5">$txt[3]</div>
</td>
</tr>
<tr class="vtop">
<td><img class="block32 mr5" src="/ono/osr/images/icons/crystal/32x32/actions/ok.png" alt=""></td>
<td>
<div class="large mt5">$txt[4]</div>
</td>
</tr>
<tr class="vtop">
<td><img class="block32 mr5" src="/ono/osr/images/icons/crystal/32x32/actions/ok.png" alt=""></td>
<td>
<div class="large mt5">$txt[5]</div>
</td>
</tr>
<tr class="vtop">
<td><img class="block32 mr5" src="/ono/osr/images/icons/crystal/32x32/actions/ok.png" alt=""></td>
<td>
<div class="large mt5">$txt[6]</div>
</td>
</tr>
<tr class="vtop">
<td><img class="block32 mr5" src="/ono/osr/images/icons/crystal/32x32/actions/ok.png" alt=""></td>
<td>
<div class="large mt5">$txt[7]</div>
</td>
</tr>
<tr class="vtop">
<td></td>
<td class="w100">
<a href="$BASE/elearning/" class="button_green button_big mt10" target="_parent">$txt[8]</a>
<a href="$BASE/account/?user_screen=virclass&option=defaultvirclass" class="button_yellow button_big mt10" target="_parent">$txt[9]</a>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
~;
my ($status,$WEB) = ONO::Lib::Parser->parse($WEB,$vars_ref);
$WEB .= ONO::FW::Apps::Core->vardump(\%vars);
$WEB = ONO::FW::Edu::Apps::ToolBox->apps_gate($WEB,$vars_ref);
return $WEB;
}
###################################################################
#### 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::FW::Edu::Apps::ToolBox;
use Encode;
use ONO::FW::Apps::Core;
use ONO::FW::Apps::Core::Graphics;
use ONO::ToolBox::Auth;
use ONO::Lib::Lang::LangKitEdu;
use ONO::Lib::Parser;
use ONO::FW::User::Init;
use ONO::IO;
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;
ONO::FW::Apps::Core->now("","mksheet",$vars{'app_lang'});
my $action_url = qq~$ENV{'SCRIPT_NAME'}?app_lang=$vars{'app_lang'}&~;
my $form = qq~form action="$ENV{'SCRIPT_NAME'}" method="post">
<input type="hidden" name="app_lang" value="$vars{'app_lang'}"
~;
my ($WEB,$WORK_INFO);
my @txt = (
"As a teacher you may [b]save your own custom texts and lists[/b] that you may [b]reuse in our e-Learning Web Apps[/b].",
"Save your texts and lists, and make them accessible to your students.",
"Automatically generate word lists.",
"Save your own dedicated word, vocabulary and verb lists.",
"Fully integrated with our picture dictionary.",
"Reuse your own texts and lists in our e-Learning Web Apps.",
"Allow students to repeat your lists using a large number of different exercise types.",
"See exercise results and follow your students' progresses.",
"e-Learning Web Apps",
"texts and lists in my Virtual Classroom",
);
if ($lang eq "de") {
@txt = (
"Als LehrerIn kannst du [b]deine eigenen benutzerdefinierten Texte und Listen speichern[/b], die du dann [b]in unseren E-Learning-Web-Apps wiederverwenden kannst[/b].",
"Speichere deine Texte und Listen, und mache sie deinen Schülern zugänglich.",
"Generiere automatisch Wortlisten und Wortschätze.",
"Speichere deine eigenen Wort-, Wortschatz- und Verblisten.",
"Vollständig in unser Bildwörterbuch integriert.",
"Verwende deine eigenen Texte und Listen in unseren e-Learning Web Apps.",
"Ermögliche es den Schülern, deine Listen mit einer großen Anzahl verschiedener Online-Aufgabentypen zu wiederholen.",
"Du siehst Übungsergebnisse und verfolgst die Fortschritte deiner Schüler.",
"E-Learning-Web-Apps",
"Texte und Listen in meiner virtuellen Klasse",
);
}
if ($lang eq "lu") {
@txt = (
"Als Enseignant kann s du [b]deng eege personaliséiert Texter a Lëschte späicheren[/b], déi s du dann [b]an eisen e-Learning Web Apps weiderbenotze kanns[/b].",
"Späicher deng Texter a maach se denge Schüler zougänglech.",
"Generéier automatesch Wuertlëschten a Wortschätz.",
"Späicher deng eege Wuert-, Vokabel- a Verbelëschten.",
"Voll integréiert mat eisem Bildwierderbuch.",
"Benotz deng eegen Texter a Lëschten an eisen e-Learning Web Apps.",
"Erlaab et de Schüler, deng Lëschte mat enger grousser Zuel vu verschiddenen Übungstypen ze widderhuelen.",
"Du gesäis Resultater a kanns d'Fortschrëtter vun denge Schüler suivéieren.",
"E-Learning Web Apps",
"Texter a Lëschten a menger Virtueller Klass",
);
}
if ($lang eq "fr") {
@txt = (
"En tant qu'enseignant, vous pouvez [b]enregistrer vos propres textes et listes personnalisés[/b] que vous pouvez [b]utiliser dans nos applications Web d'apprentissage en ligne[/b]",
"Enregistrez vos textes et listes, et rendez-les accessibles à vos élèves.",
"Générez automatiquement des listes de mots.",
"Enregistrez vos propres listes de mots, de vocabulaire et de verbes dédiés.",
"Entièrement intégré à notre dictionnaire d'images.",
"Réutilisez vos propres textes et listes dans nos applications Web e-Learning.",
"Permettez aux élèves de répéter vos listes en utilisant un grand nombre de types d'exercices différents.",
"Consultez les résultats des exercices et suivez les progrès de vos élèves.",
"Applications Web d'apprentissage en ligne",
"textes et listes dans ma classe virtuelle",
);
}
$WEB .= qq~<div class="p10">
<table class="wide_table">
<tr class="vtop">
<td><img class="block48" src="/ono/osr/images/icons/crystal/64x64/apps/ktip.png" alt=""></td>
<td class="w100">
<div class="large">$txt[0]</div>
</td>
</tr>
<tr class="vtop">
<td></td>
<td class="p0">
<table class="wide_table mt10">
<tr class="vtop">
<td><img class="block32 mr5" src="/ono/osr/images/icons/crystal/32x32/actions/ok.png" alt=""></td>
<td>
<div class="large mt5">$txt[1]</div>
</td>
</tr>
<tr class="vtop">
<td><img class="block32 mr5" src="/ono/osr/images/icons/crystal/32x32/actions/ok.png" alt=""></td>
<td>
<div class="large mt5">$txt[2]</div>
</td>
</tr>
<tr class="vtop">
<td><img class="block32 mr5" src="/ono/osr/images/icons/crystal/32x32/actions/ok.png" alt=""></td>
<td>
<div class="large mt5">$txt[3]</div>
</td>
</tr>
<tr class="vtop">
<td><img class="block32 mr5" src="/ono/osr/images/icons/crystal/32x32/actions/ok.png" alt=""></td>
<td>
<div class="large mt5">$txt[4]</div>
</td>
</tr>
<tr class="vtop">
<td><img class="block32 mr5" src="/ono/osr/images/icons/crystal/32x32/actions/ok.png" alt=""></td>
<td>
<div class="large mt5">$txt[5]</div>
</td>
</tr>
<tr class="vtop">
<td><img class="block32 mr5" src="/ono/osr/images/icons/crystal/32x32/actions/ok.png" alt=""></td>
<td>
<div class="large mt5">$txt[6]</div>
</td>
</tr>
<tr class="vtop">
<td><img class="block32 mr5" src="/ono/osr/images/icons/crystal/32x32/actions/ok.png" alt=""></td>
<td>
<div class="large mt5">$txt[7]</div>
</td>
</tr>
<tr class="vtop">
<td></td>
<td class="w100">
<a href="$BASE/elearning/" class="button_green button_big mt10" target="_parent">$txt[8]</a>
<a href="$BASE/account/?user_screen=virclass&option=defaultvirclass" class="button_yellow button_big mt10" target="_parent">$txt[9]</a>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
~;
my ($status,$WEB) = ONO::Lib::Parser->parse($WEB,$vars_ref);
$WEB .= ONO::FW::Apps::Core->vardump(\%vars);
$WEB = ONO::FW::Edu::Apps::ToolBox->apps_gate($WEB,$vars_ref);
return $WEB;
}
###################################################################
#### THAT'S IT :-D
###################################################################
1;
__END__