diff options
| author | Vladimir Glazounov <vg@openoffice.org> | 2005-02-21 13:12:22 +0000 |
|---|---|---|
| committer | Vladimir Glazounov <vg@openoffice.org> | 2005-02-21 13:12:22 +0000 |
| commit | a95989c2569aededf769a36b2391b95ebeee47bf (patch) | |
| tree | fb78ca30781b7549db78d57669f4859df8200c62 /wizards/source/template/ModuleAgenda.xba | |
| parent | 76afb50a098471c47d0197c5322cdf0a228ccd2f (diff) | |
INTEGRATION: CWS dbwizard3 (1.8.190); FILE MERGED
2004/12/09 15:19:26 bc 1.8.190.1: #i37927#handling of the filtercomponent improved
Diffstat (limited to 'wizards/source/template/ModuleAgenda.xba')
| -rw-r--r-- | wizards/source/template/ModuleAgenda.xba | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/wizards/source/template/ModuleAgenda.xba b/wizards/source/template/ModuleAgenda.xba index 8a4e2dd2c939..73b0c6cfd8dc 100644 --- a/wizards/source/template/ModuleAgenda.xba +++ b/wizards/source/template/ModuleAgenda.xba @@ -21,6 +21,7 @@ Sub Initialize() DialogModel.Step = 1 LoadLanguageAgenda() DialogModel.OptAgenda2.State = TRUE + GetOptionValues() DialogExited = FALSE TemplateDialog.Execute End Sub @@ -181,12 +182,22 @@ Dim BtnFinishAgenda As Object End Sub -Sub GetOptionValues(aEvent as Object) + +Sub GetOptionValues(Optional aEvent as Object) Dim CurTag as String Dim Taglist() as String - CurTag = aEvent.Source.Model.Tag + If Not IsMissing(aEvent) Then + CurTag = aEvent.Source.Model.Tag + Else + If DialogModel.OptAgenda1.State = TRUE Then + CurTag = DialogModel.OptAgenda1.Tag + Else + CurTag = DialogModel.OptAgenda2.Tag + End If + End If Taglist() = ArrayoutOfString(CurTag, ";") Bookmarkname = TagList(0) sTrueContent = TagList(1) End Sub + </script:module>
\ No newline at end of file |