logical sODC_Project :: GetProjectPath ( )
{
PropertyHandle *ph = GetPropertyHandle();
NString nstring;
logical term = NO;
BEGINSEQ
SetResult("");
if ( !ph->IsSelected() ) ERROR
if ( !ph->IsPositioned() )
if ( !ph->Get().GetData() ) ERROR
pc_ODC_Project project_pc(ph);
SetResult(project_pc.GetProjectPath(nstring,Parm(1)));
RECOVER
term = YES;
ENDSEQ
return(term);
}
int8 cLanguageDependend :: DoBeforeFillData ( )
{
CTX_Control *ctx_lang = GetControlContext("language");
PropertyHandle *prophdl = GetPropertyHandle();
char language[33];
BEGINSEQ
if ( !ctx_lang ) LEAVESEQ
// if ( prophdl->Exist() )
if ( prophdl->IsSelected() )
strcpy(language,prophdl->GPH("language")->GetString());
else
strcpy(language,"undefined");
ctx_lang->SearchKey(language);
ENDSEQ
return(NO);
}
logical sODC_Project :: InitializeExternalResources ( )
{
PropertyHandle *ph = GetPropertyHandle();
char *folder_opt = Parm(1);
NString nstring;
logical term = NO;
BEGINSEQ
if ( !ph->IsServer() ) LEAVESEQ
SetResult("");
if ( !ph->IsSelected() ) ERROR
if ( !ph->IsPositioned() )
if ( !ph->Get().GetData() ) ERROR
pc_ODC_Project project_pc(ph);
project_pc.InitializeExternalResources(&nstring,folder_opt && *folder_opt == 'Y' ? YES : NO);
SetResult(nstring);
RECOVER
term = YES;
ENDSEQ
return(term);
}