diff options
| -rw-r--r-- | basctl/source/basicide/moduldl2.cxx | 20 |
1 files changed, 18 insertions, 2 deletions
diff --git a/basctl/source/basicide/moduldl2.cxx b/basctl/source/basicide/moduldl2.cxx index 0d9b678e349f..3e09658bd32c 100644 --- a/basctl/source/basicide/moduldl2.cxx +++ b/basctl/source/basicide/moduldl2.cxx @@ -2,9 +2,9 @@ * * $RCSfile: moduldl2.cxx,v $ * - * $Revision: 1.47 $ + * $Revision: 1.48 $ * - * last change: $Author: kz $ $Date: 2004-10-04 19:40:17 $ + * last change: $Author: obo $ $Date: 2004-11-15 13:41:16 $ * * The Contents of this file are made available subject to the terms of * either of the following licenses @@ -374,6 +374,22 @@ BOOL __EXPORT BasicCheckBox::EditingEntry( SvLBoxEntry* pEntry, Selection& ) return FALSE; } + // i24094: Password verification necessary for renaming + BOOL bOK = TRUE; + if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && !xModLibContainer->isLibraryLoaded( aOULibName ) ) + { + // check password + Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY ); + if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( aOULibName ) && !xPasswd->isLibraryPasswordVerified( aOULibName ) ) + { + String aPassword; + Reference< script::XLibraryContainer > xModLibContainer1( xModLibContainer, UNO_QUERY ); + bOK = QueryPassword( xModLibContainer1, aLibName, aPassword ); + } + if ( !bOK ) + return FALSE; + } + // TODO: check if library is reference/link // Prueffen, ob Referenz... |