diff --git a/src/zabapgit.prog.abap b/src/zabapgit.prog.abap index 53b4801e3..fa7af4c0e 100644 --- a/src/zabapgit.prog.abap +++ b/src/zabapgit.prog.abap @@ -2,9 +2,6 @@ REPORT zabapgit LINE-SIZE 100. * See http://www.abapgit.org -CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT - gc_abap_version TYPE string VALUE 'v1.37.2'. "#EC NOTEXT - ******************************************************************************** * The MIT License (MIT) * diff --git a/src/zabapgit_definitions.prog.abap b/src/zabapgit_definitions.prog.abap index 849e0eeaa..07bf82a56 100644 --- a/src/zabapgit_definitions.prog.abap +++ b/src/zabapgit_definitions.prog.abap @@ -6,6 +6,9 @@ TYPE-POOLS seop. INTERFACE lif_defs. + CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT + gc_abap_version TYPE string VALUE 'v1.37.2'. "#EC NOTEXT + TYPES: ty_type TYPE c LENGTH 6, ty_bitbyte TYPE c LENGTH 8, ty_sha1 TYPE c LENGTH 40. diff --git a/src/zabapgit_http.prog.abap b/src/zabapgit_http.prog.abap index c75f907b2..72d64fc30 100644 --- a/src/zabapgit_http.prog.abap +++ b/src/zabapgit_http.prog.abap @@ -408,7 +408,7 @@ CLASS lcl_http IMPLEMENTATION. METHOD get_agent. * bitbucket require agent prefix = "git/" - rv_agent = 'git/abapGit-' && gc_abap_version. + rv_agent = 'git/abapGit-' && lif_defs=>gc_abap_version. ENDMETHOD. diff --git a/src/zabapgit_news.prog.abap b/src/zabapgit_news.prog.abap index 9e51a9c16..7a6f5a7d6 100644 --- a/src/zabapgit_news.prog.abap +++ b/src/zabapgit_news.prog.abap @@ -121,7 +121,7 @@ CLASS lcl_news IMPLEMENTATION. CREATE OBJECT ro_instance EXPORTING iv_rawdata = -data - iv_current_version = gc_abap_version " TODO refactor + iv_current_version = lif_defs=>gc_abap_version " TODO refactor iv_lastseen_version = normalize_version( lv_last_seen ). ENDIF. diff --git a/src/zabapgit_page.prog.abap b/src/zabapgit_page.prog.abap index 3ee83ead9..11d9bd724 100644 --- a/src/zabapgit_page.prog.abap +++ b/src/zabapgit_page.prog.abap @@ -119,7 +119,7 @@ CLASS lcl_gui_page IMPLEMENTATION. ro_html->add( '' ). "#EC NOTEXT ro_html->add( '' ). "#EC NOTEXT - ro_html->add( || ). "#EC NOTEXT + ro_html->add( || ). "#EC NOTEXT ro_html->add( '' ). "#EC NOTEXT ro_html->add( '
{ gc_abap_version }{ lif_defs=>gc_abap_version }
' ). "#EC NOTEXT diff --git a/src/zabapgit_page_debug.prog.abap b/src/zabapgit_page_debug.prog.abap index 210e95fbc..12d5b841f 100644 --- a/src/zabapgit_page_debug.prog.abap +++ b/src/zabapgit_page_debug.prog.abap @@ -55,8 +55,8 @@ CLASS lcl_gui_page_debuginfo IMPLEMENTATION. CREATE OBJECT ro_html. - ro_html->add( |

abapGit version: { gc_abap_version }

| ). - ro_html->add( |

XML version: { gc_xml_version }

| ). + ro_html->add( |

abapGit version: { lif_defs=>gc_abap_version }

| ). + ro_html->add( |

XML version: { lif_defs=>gc_xml_version }

| ). ro_html->add( |

GUI version: { lv_gui_version }

| ). ro_html->add( |

LCL_TIME: { lcl_time=>get( ) }

| ). ro_html->add( |

SY time: { sy-datum } { sy-uzeit } { sy-tzone }

| ). diff --git a/src/zabapgit_xml.prog.abap b/src/zabapgit_xml.prog.abap index ffe3c348d..5e68b5bf5 100644 --- a/src/zabapgit_xml.prog.abap +++ b/src/zabapgit_xml.prog.abap @@ -81,7 +81,7 @@ CLASS lcl_xml IMPLEMENTATION. li_element = mi_xml_doc->find_from_name_ns( depth = 0 name = c_abapgit_tag ). li_version = li_element->if_ixml_node~get_attributes( )->get_named_item_ns( c_attr_version ) ##no_text. - IF li_version->get_value( ) <> gc_xml_version. + IF li_version->get_value( ) <> lif_defs=>gc_xml_version. display_xml_error( ). ENDIF. @@ -96,7 +96,7 @@ CLASS lcl_xml IMPLEMENTATION. DATA: lv_version TYPE string. - lv_version = |abapGit version: { gc_abap_version }|. + lv_version = |abapGit version: { lif_defs=>gc_abap_version }|. CALL FUNCTION 'POPUP_TO_INFORM' EXPORTING @@ -270,7 +270,7 @@ CLASS lcl_xml_output IMPLEMENTATION. ENDIF. li_git = mi_xml_doc->create_element( c_abapgit_tag ). - li_git->set_attribute( name = c_attr_version value = gc_xml_version ). + li_git->set_attribute( name = c_attr_version value = lif_defs=>gc_xml_version ). IF NOT is_metadata IS INITIAL. li_git->set_attribute( name = c_attr_serializer value = is_metadata-class ).