summaryrefslogtreecommitdiff
path: root/testautomation/global/tools/includes/required/t_filters.inc
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/global/tools/includes/required/t_filters.inc')
-rwxr-xr-x[-rw-r--r--]testautomation/global/tools/includes/required/t_filters.inc17
1 files changed, 16 insertions, 1 deletions
diff --git a/testautomation/global/tools/includes/required/t_filters.inc b/testautomation/global/tools/includes/required/t_filters.inc
index 21ba12af5363..afb1bf999c52 100644..100755
--- a/testautomation/global/tools/includes/required/t_filters.inc
+++ b/testautomation/global/tools/includes/required/t_filters.inc
@@ -25,7 +25,7 @@
'
'/******************************************************************************
'*
-'* owner : joerg.skottke@sun.com
+'* owner : joerg.skottke@oracle.com
'*
'* short description : Retrieve and set filternames and suffixes
'*
@@ -516,4 +516,19 @@ function hGetSection( lsList() as string , iSectionBegin as integer , iSectionEn
end function
+'*******************************************************************************
+
+function hGetUsedFilter () as string
+
+ ' used in math and graphics modules
+ '/// Get used filter for loaded file.
+ try
+ FileSaveAs
+ Kontext "SpeichernDlg"
+ hGetUsedFilter = dateityp.getseltext
+ SpeichernDlg.Cancel
+ catch
+ hGetUsedFilter = "Not possible; try/catch fail in function"
+ endcatch
+end function