view release on metacpan or  search on metacpan

lib/Business/Intelligence/MicroStrategy/CommandManager.pm  view on Meta::CPAN

=head2 update_project
    
    $foo->update_project("project_name");

UPDATE PROJECT "<project_name>";


=cut

sub update_project {
	my $self = shift;
	$self->{PROJECT} = shift;
	if(!defined($self->{PROJECT})) { croak("\nRequired parameter not defined: PROJECT\n"); }
	return "UPDATE PROJECT " . $q . $self->{PROJECT} . $q . ";";
}


=head2 update_schema

    $foo->update_schema(

lib/Business/Intelligence/MicroStrategy/CommandManager.pm  view on Meta::CPAN

UPDATE SCHEMA REFRESHSCHEMA FOR PROJECT "MicroStrategy Tutorial";
UPDATE SCHEMA RECALTABLEKEYS FOR PROJECT "MicroStrategy Tutorial";
UPDATE SCHEMA RECALTABLELOGICAL FOR PROJECT "MicroStrategy Tutorial";
UPDATE SCHEMA RECALOBJECTCACHE FOR PROJECT "MicroStrategy Tutorial";
UPDATE SCHEMA FOR PROJECT "MicroStrategy Tutorial";
UPDATE SCHEMA REFRESHSCHEMA RECALTABLEKEYS RECALTABLELOGICAL RECALOBJECTCACHE FOR PROJECT "MicroStrategy Tutorial";

=cut

sub update_schema {
my $self = shift;
my %parms = @_;
@$self{keys %parms} = values %parms;
my $result;
my @order = qw(REFRESHSCHEMA RECALTABLEKEYS RECALTABLELOGICAL RECALOBJECTCACHE PROJECT);
my @required = qw(PROJECT);
for(@required){
	if(!defined($self->{$_})) { croak("\nRequired parameter not defined: " , $_, "\n"); }
}
my @selected;

lib/Business/Intelligence/MicroStrategy/CommandManager.pm  view on Meta::CPAN

To update structure for a warehouse table, you will need to provide a name. Command Manager will search for the table and update its column structure. All the logical tables using this warehouse table will also get their definitions updated.
If no table name was provided, Command Manager will proceed to update all warehouse tables currently existing in the project.

UPDATE STRUCTURE COLMERGEOPTION MAXDENOMINATOR FOR WHTABLE "DT_YEAR" FOR PROJECT "MicroStrategy Tutorial";

UPDATE STRUCTURE COLMERGEOPTION RECENT FOR PROJECT "MicroStrategy Tutorial";

=cut

sub update_structure {
my $self = shift;
my %parms = @_;
@$self{keys %parms} = values %parms;
my $result;
my @order = qw(COLMERGEOPTION WHTABLE PROJECT);
my @required = qw(COLMERGEOPTION PROJECT);
for(@required){
	if(!defined($self->{$_})) { croak("\nRequired parameter not defined: " , $_, "\n"); }
}
my @selected;