\n";
print " \n";
print " \n";
}
sub conv
{
($tmp) = @_;
$u=Unicode::String::utf8($tmp);
$latin1=$u->latin1;
return $latin1
}
sub titulo_fin
{
$titulo = conv($titulo);
print "";
print "";
print "| ";
print " | LaRed ISP · $titulo \n";
print " | ";
print "";
print " b | ";
print " ";
print "";
print " ";
print " ";
print "\n";
print "\n";
print "\n";
print " | \n";
print " \n";
}
sub objetivo_fin
{
$objetivo = conv($objetivo);
print "\n";
print "Objetivo: | \n";
print " \n";
print "\n";
print "| $objetivo | \n";
print " \n";
}
sub curso_fin
{
print "\n";
print " \n";
}
sub intro_fin
{
$intro = conv($intro);
print "\n";
print "$intro\n";
print " \n";
}
sub dirigido_fin
{
$dirigido = conv($dirigido);
print "\n";
print "Dirigido a: | \n";
print " \n";
print "\n";
print "| $dirigido | \n";
print " \n";
}
sub requisitos_fin
{
$requisitos = conv ($requisitos);
print "\n";
print "Requisitos Previos: | \n";
print " \n";
print "\n";
print "| $requisitos | \n";
print " \n";
}
sub duracion_fin
{
$duracion = conv ($duracion);
print "\n";
print "Duración: | \n";
print " \n";
print "\n";
print "| $duracion | \n";
print " \n";
print " \n";
}
sub temario_principio
{
$temario = conv($temario);
print " \n";
print "Programa: | \n";
print " \n";
print "\n";
print "| ";
print " ";
print "$temario\";\n";
}
sub temario_fin
{
print "\n";
print "\$nummodulo=$total_modulos;\n";
print "require \"cc.php\";\n";
print "?>\n";
$pun_modulo = 0;
}
sub menu_principio
{
$menu = conv($menu);
$pun_modulo += 1;
print "\$titulomodulo[$pun_modulo]=\"$menu\";\n";
$total_items = 0;
}
sub menu_fin
{
$total_modulos += 1;
print "\$numerosubmodulo[$pun_modulo]=$total_items;\n\n";
$menu="";
}
sub item_fin
{
$item = conv($item);
$total_items += 1;
print "\$titulosubmodulo[$pun_modulo][$total_items]=\"$item\";\n";
$item = "";
}
| |