Version19.31.1

This commit is contained in:
Antonio Cañas Vargas 2019-10-04 14:49:29 +02:00
parent d74bc65409
commit 696e8a5fe6
2 changed files with 27 additions and 14 deletions

View File

@ -493,7 +493,7 @@ ps2pdf source.ps destination.pdf
/*
// TODO: Perico: poner un candado de bloqueo de creación/edición de proyectos (por ejemplo en asignaturas obsoletas)
Version 19.31.1: Oct 04, 2019 Code refactoring in HTML tables. (247022 lines)
Version 19.31.1: Oct 04, 2019 Code refactoring in HTML tables. (247035 lines)
Version 19.31 : Oct 04, 2019 Code refactoring in HTML tables. (246967 lines)
Version 19.30.6: Oct 03, 2019 Code refactoring in HTML tables. (246928 lines)
Version 19.30.5: Oct 03, 2019 Code refactoring in HTML tables. (246922 lines)

View File

@ -78,7 +78,8 @@ void Tbl_StartTableClass (const char *fmt,...)
Lay_NotEnoughMemoryExit ();
/***** Print HTML *****/
fprintf (Gbl.F.Out,"<table class=\"%s\">",Class);
fprintf (Gbl.F.Out,
"<table class=\"%s\">",Class);
free ((void *) Class);
}
@ -92,7 +93,8 @@ void Tbl_StartTableClass (const char *fmt,...)
void Tbl_StartTablePadding (unsigned CellPadding)
{
if (CellPadding)
fprintf (Gbl.F.Out,"<table class=\"CELLS_PAD_%u\">",
fprintf (Gbl.F.Out,
"<table class=\"CELLS_PAD_%u\">",
CellPadding); // CellPadding must be 0, 1, 2, 5 or 10
else
Tbl_StartTable ();
@ -100,13 +102,15 @@ void Tbl_StartTablePadding (unsigned CellPadding)
void Tbl_StartTable (void)
{
fprintf (Gbl.F.Out,"<table>");
fprintf (Gbl.F.Out,
"<table>");
}
void Tbl_StartTableCenterPadding (unsigned CellPadding)
{
if (CellPadding)
fprintf (Gbl.F.Out,"<table class=\"FRAME_TBL_CENTER CELLS_PAD_%u\">",
fprintf (Gbl.F.Out,
"<table class=\"FRAME_TBL_CENTER CELLS_PAD_%u\">",
CellPadding); // CellPadding must be 0, 1, 2, 5 or 10
else
Tbl_StartTableCenter ();
@ -114,13 +118,15 @@ void Tbl_StartTableCenterPadding (unsigned CellPadding)
void Tbl_StartTableCenter (void)
{
fprintf (Gbl.F.Out,"<table class=\"FRAME_TBL_CENTER\">");
fprintf (Gbl.F.Out,
"<table class=\"FRAME_TBL_CENTER\">");
}
void Tbl_StartTableWidePadding (unsigned CellPadding)
{
if (CellPadding)
fprintf (Gbl.F.Out,"<table class=\"FRAME_TBL_WIDE CELLS_PAD_%u\">",
fprintf (Gbl.F.Out,
"<table class=\"FRAME_TBL_WIDE CELLS_PAD_%u\">",
CellPadding); // CellPadding must be 0, 1, 2, 5 or 10
else
Tbl_StartTableWide ();
@ -128,13 +134,15 @@ void Tbl_StartTableWidePadding (unsigned CellPadding)
void Tbl_StartTableWide (void)
{
fprintf (Gbl.F.Out,"<table class=\"FRAME_TBL_WIDE\">");
fprintf (Gbl.F.Out,
"<table class=\"FRAME_TBL_WIDE\">");
}
void Tbl_StartTableWideMarginPadding (unsigned CellPadding)
{
if (CellPadding)
fprintf (Gbl.F.Out,"<table class=\"FRAME_TBL_WIDE_MARGIN CELLS_PAD_%u\">",
fprintf (Gbl.F.Out,
"<table class=\"FRAME_TBL_WIDE_MARGIN CELLS_PAD_%u\">",
CellPadding); // CellPadding must be 0, 1, 2, 5 or 10
else
Tbl_StartTableWideMargin ();
@ -142,22 +150,26 @@ void Tbl_StartTableWideMarginPadding (unsigned CellPadding)
void Tbl_StartTableWideMargin (void)
{
fprintf (Gbl.F.Out,"<table class=\"FRAME_TBL_WIDE_MARGIN\">");
fprintf (Gbl.F.Out,
"<table class=\"FRAME_TBL_WIDE_MARGIN\">");
}
void Tbl_EndTable (void)
{
fprintf (Gbl.F.Out,"</table>");
fprintf (Gbl.F.Out,
"</table>");
}
void Tbl_StartRow (void)
{
Tbl_StartRow ();
fprintf (Gbl.F.Out,
"<tr>");
}
void Tbl_EndRow (void)
{
fprintf (Gbl.F.Out,"</tr>");
fprintf (Gbl.F.Out,
"</tr>");
}
void Tbl_PutEmptyCells (unsigned NumColumns)
@ -167,6 +179,7 @@ void Tbl_PutEmptyCells (unsigned NumColumns)
for (NumCol = 0;
NumCol < NumColumns;
NumCol++)
fprintf (Gbl.F.Out,"<td class=\"COLOR%u\"></td>",
fprintf (Gbl.F.Out,
"<td class=\"COLOR%u\"></td>",
Gbl.RowEvenOdd);
}