From da7da129c2242caf2896c8664c316f254a50c7db Mon Sep 17 00:00:00 2001
From: sbcgua <atsybulsky@sbcg.com.ua>
Date: Sun, 27 Nov 2016 13:31:22 +0200
Subject: [PATCH] W3xx clear version #374

---
 src/zabapgit_css_common.w3mi.xml   |  2 +-
 src/zabapgit_js_common.w3mi.xml    |  2 +-
 src/zabapgit_object_w3xx.prog.abap | 22 ++++++++++++++++++++++
 3 files changed, 24 insertions(+), 2 deletions(-)

diff --git a/src/zabapgit_css_common.w3mi.xml b/src/zabapgit_css_common.w3mi.xml
index 1908ab75d..b5ce02b7f 100644
--- a/src/zabapgit_css_common.w3mi.xml
+++ b/src/zabapgit_css_common.w3mi.xml
@@ -33,7 +33,7 @@
      <RELID>MI</RELID>
      <OBJID>ZABAPGIT_CSS_COMMON</OBJID>
      <NAME>version</NAME>
-     <VALUE>00002</VALUE>
+     <VALUE/>
     </WWWPARAMS>
    </PARAMS>
   </asx:values>
diff --git a/src/zabapgit_js_common.w3mi.xml b/src/zabapgit_js_common.w3mi.xml
index 386970cd1..7860ae90e 100644
--- a/src/zabapgit_js_common.w3mi.xml
+++ b/src/zabapgit_js_common.w3mi.xml
@@ -33,7 +33,7 @@
      <RELID>MI</RELID>
      <OBJID>ZABAPGIT_JS_COMMON</OBJID>
      <NAME>version</NAME>
-     <VALUE>00004</VALUE>
+     <VALUE/>
     </WWWPARAMS>
    </PARAMS>
   </asx:values>
diff --git a/src/zabapgit_object_w3xx.prog.abap b/src/zabapgit_object_w3xx.prog.abap
index d67f17668..f1c17f50d 100644
--- a/src/zabapgit_object_w3xx.prog.abap
+++ b/src/zabapgit_object_w3xx.prog.abap
@@ -43,6 +43,10 @@ CLASS lcl_object_w3super DEFINITION INHERITING FROM lcl_objects_super ABSTRACT.
       CHANGING  ct_params TYPE ty_wwwparams_tt
       RAISING   lcx_exception.
 
+    METHODS clear_version
+      CHANGING  ct_params TYPE ty_wwwparams_tt
+      RAISING   lcx_exception.
+
 ENDCLASS. "lcl_object_W3SUPER DEFINITION
 
 *----------------------------------------------------------------------*
@@ -148,6 +152,9 @@ CLASS lcl_object_w3super IMPLEMENTATION.
     " Remove file path (for security concerns)
     patch_filename( CHANGING  ct_params = lt_w3params ).
 
+    " Clear version
+    clear_version( CHANGING  ct_params = lt_w3params ).
+
     CASE ms_key-relid.
       WHEN 'MI'.
         CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
@@ -408,6 +415,21 @@ CLASS lcl_object_w3super IMPLEMENTATION.
 
   ENDMETHOD.  " patch_filename.
 
+  METHOD clear_version.
+
+    FIELD-SYMBOLS <param> LIKE LINE OF ct_params.
+
+    READ TABLE ct_params ASSIGNING <param> WITH KEY name = 'version'.
+
+    IF sy-subrc > 0.
+      lcx_exception=>raise( |W3xx: Cannot find version for { ms_key-objid }| ).
+    ENDIF.
+
+    " Clear version
+    CLEAR <param>-value.
+
+  ENDMETHOD.  " clear_version.
+
   METHOD lif_object~compare_to_remote_version.
     CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result.
   ENDMETHOD.