Use PICs for HTTP version

ttcn/Http/LibItsHttp_Pics.ttcn

 module LibItsHttp_Pics {
-    
-    /**
-     * @desc 
-     */
-    modulepar charstring PICS_HEADER_HOST := "www.lisp.com";
-    
-    /**
-     * @desc 
-     */
-    modulepar charstring PICS_HEADER_CONTENT_TYPE := "application/x-its-request";
-    
+
+  /**
+   * @desc HTTP major version
+   */
+  modulepar integer PICS_HTTP_VERSION_MAJOR := 1;
+  
+  /**
+   * @desc HTTP minor version
+   */
+  modulepar integer PICS_HTTP_VERSION_MINOR := 1;
+  
+  /**
+   * @desc 
+   */
+  modulepar charstring PICS_HEADER_HOST := "www.lisp.com";
+  
+  /**
+   * @desc 
+   */
+  modulepar charstring PICS_HEADER_CONTENT_TYPE := "application/x-its-request";
+  
 } // End of module LibItsHttp_Pics

ttcn/Http/LibItsHttp_TypesAndValues.ttcn

@@ -14,6 +14,7 @@ module LibItsHttp_TypesAndValues {
     // LibHttp
     import from LibItsHttp_MessageBodyTypes all;
     import from LibItsHttp_XmlMessageBodyTypes all;
+    import from LibItsHttp_Pics all;
     
     const charstring c_header_host := "Host";
     const charstring c_header_content_type := "Content-Type";
@@ -24,8 +25,8 @@ module LibItsHttp_TypesAndValues {
     const charstring c_header_pragma := "Pragma";
     const charstring c_header_cache_control := "Cache-Control";
     
-    const integer c_http_version_major := 1;
-    const integer c_http_version_minor := 1;
+    const integer c_http_version_major := PICS_HTTP_VERSION_MAJOR;
+    const integer c_http_version_minor := PICS_HTTP_VERSION_MINOR;
     
     type record of charstring charstring_list;
     type record HeaderLine {