diff --git a/zabapgit.prog.abap b/zabapgit.prog.abap
index 89f1c3699..5051cfc53 100644
--- a/zabapgit.prog.abap
+++ b/zabapgit.prog.abap
@@ -3,7 +3,7 @@ REPORT zabapgit.
* See http://www.abapgit.org
CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT
- gc_abap_version TYPE string VALUE 'v1.4.4'. "#EC NOTEXT
+ gc_abap_version TYPE string VALUE 'v1.4.5'. "#EC NOTEXT
********************************************************************************
* The MIT License (MIT)
@@ -19351,7 +19351,7 @@ CLASS lcl_persistence_db IMPLEMENTATION.
lock( iv_type = iv_type
iv_value = iv_value ).
- UPDATE (c_tabname) SET data = iv_data
+ UPDATE (c_tabname) SET data_str = iv_data
WHERE type = iv_type
AND value = iv_value.
IF sy-subrc <> 0.
@@ -20174,6 +20174,8 @@ CLASS lcl_gui_page_db IMPLEMENTATION.
lcl_gui=>call_page( lo_edit ).
WHEN 'delete'.
delete( ls_key ).
+ WHEN 'back'.
+ lcl_gui=>back( ).
WHEN OTHERS.
_raise 'Unknown action'.
ENDCASE.
@@ -20193,15 +20195,16 @@ CLASS lcl_gui_page_db IMPLEMENTATION.
CREATE OBJECT lo_db.
lt_data = lo_db->list( ).
- rv_html = lcl_gui=>header( ) && gc_newline &&
- '
Database persistency
' && gc_newline &&
- '
' && gc_newline &&
- '' && gc_newline &&
- '' && gc_newline &&
- 'Type | ' && gc_newline &&
- 'Value | ' && gc_newline &&
- 'Data | ' && gc_newline &&
- '
' && gc_newline.
+ rv_html = lcl_gui=>header( ) && gc_newline &&
+ 'Database persistency
' && gc_newline &&
+ 'Back' && gc_newline &&
+ '
' && gc_newline &&
+ '' && gc_newline &&
+ '' && gc_newline &&
+ 'Type | ' && gc_newline &&
+ 'Value | ' && gc_newline &&
+ 'Data | ' && gc_newline &&
+ '
' && gc_newline.
LOOP AT lt_data ASSIGNING .
lv_escaped = escape( val = -data_str(150)