diff --git a/swad_HTML.c b/swad_HTML.c
index 408753a6..c803175b 100644
--- a/swad_HTML.c
+++ b/swad_HTML.c
@@ -946,6 +946,17 @@ void HTM_INPUT_PASSWORD (const char *Name,const char *PlaceHolder,
    fprintf (Gbl.F.Out," />");
   }
 
+void HTM_INPUT_NUMBER (const char *Name,long Min,long Max,long Value,bool Disabled)
+  {
+   fprintf (Gbl.F.Out,"<input type=\"number\" id=\"%s\" name=\"%s\""
+	              " min=\"%ld\" max=\"%ld\" value=\"%ld\"",
+	    Name,Name,
+	    Min,Max,Value);
+   if (Disabled)
+      fprintf (Gbl.F.Out," disabled=\"disabled\"");
+   fprintf (Gbl.F.Out," />");
+  }
+
 /*****************************************************************************/
 /********************************* Text areas ********************************/
 /*****************************************************************************/
diff --git a/swad_HTML.h b/swad_HTML.h
index 53929d97..21b5a74b 100644
--- a/swad_HTML.h
+++ b/swad_HTML.h
@@ -100,6 +100,7 @@ void HTM_INPUT_BUTTON (const char *Name,const char *Value,const char *Attr);
 void HTM_INPUT_IMAGE (const char *ImgFile,const char *Title,const char *Class);
 void HTM_INPUT_PASSWORD (const char *Name,const char *PlaceHolder,
 			 const char *AutoComplete,bool Required);
+void HTM_INPUT_NUMBER (const char *Name,long Min,long Max,long Value,bool Disabled);
 
 void HTM_TEXTAREA_Begin (const char *fmt,...);
 void HTM_TEXTAREA_End (void);
diff --git a/swad_changelog.h b/swad_changelog.h
index 508638d0..aa07c7ee 100644
--- a/swad_changelog.h
+++ b/swad_changelog.h
@@ -487,7 +487,7 @@ enscript -2 --landscape --color --file-align=2 --highlight --line-numbers -o - *
 En OpenSWAD:
 ps2pdf source.ps destination.pdf
 */
-#define Log_PLATFORM_VERSION	"SWAD 19.51.14 (2019-11-04)"
+#define Log_PLATFORM_VERSION	"SWAD 19.51.15 (2019-11-04)"
 #define CSS_FILE		"swad19.47.css"
 #define JS_FILE			"swad19.39.js"
 /*
@@ -495,6 +495,7 @@ ps2pdf source.ps destination.pdf
 // TODO: Impedir la creación y edición de proyectos si no son editables.
 // TODO: Importante: filtrar proyectos por usuarios (igual que en trabajos o en asistencia)
 
+	Version 19.51.15: Nov 04, 2019	Code refactoring in HTML inputs. (245874 lines)
 	Version 19.51.14: Nov 04, 2019	Code refactoring in HTML inputs. (245868 lines)
 	Version 19.51.13: Nov 04, 2019	Code refactoring in HTML inputs. (245874 lines)
 	Version 19.51.12: Nov 04, 2019	Code refactoring in HTML inputs. (245873 lines)
diff --git a/swad_project.c b/swad_project.c
index 6da84b48..d772eddb 100644
--- a/swad_project.c
+++ b/swad_project.c
@@ -3366,9 +3366,7 @@ static void Prj_PutFormProject (struct Project *Prj,bool ItsANewProject)
    HTM_TD_End ();
 
    HTM_TD_Begin ("class=\"LM\"");
-   fprintf (Gbl.F.Out,"<input type=\"number\" name=\"NumStds\""
-                      " min=\"0\" value=\"%u\" />",
-            Prj->NumStds);
+   HTM_INPUT_NUMBER ("NumStds",(long) 0,(long) UINT_MAX,(long) Prj->NumStds,false);
    HTM_TD_End ();
 
    HTM_TR_End ();
diff --git a/swad_test.c b/swad_test.c
index 9d12a724..033af490 100644
--- a/swad_test.c
+++ b/swad_test.c
@@ -360,15 +360,11 @@ void Tst_ShowFormAskTst (void)
          HTM_TD_End ();
 
          HTM_TD_Begin ("class=\"LM\"");
-         fprintf (Gbl.F.Out,"<input type=\"number\""
-                            " id=\"NumQst\" name=\"NumQst\""
-                            " min=\"%u\" max=\"%u\" value=\"%u\"",
-                  Gbl.Test.Config.Min,
-                  Gbl.Test.Config.Max,
-                  Gbl.Test.Config.Def);
-         if (Gbl.Test.Config.Min == Gbl.Test.Config.Max)
-            fprintf (Gbl.F.Out," disabled=\"disabled\"");
-         fprintf (Gbl.F.Out," />");
+         HTM_INPUT_NUMBER ("NumQst",
+			   (long) Gbl.Test.Config.Min,
+			   (long) Gbl.Test.Config.Max,
+			   (long) Gbl.Test.Config.Def,
+                           Gbl.Test.Config.Min == Gbl.Test.Config.Max);
          HTM_TD_End ();
 
          HTM_TR_End ();