package Dance;

# THIS IS PROBABLY OBSOLETE AND NOT NECESSARY.

# This actually makes a copy, which is not usually what we want.
#
# sub blessme {
#   my $self=shift;
#   if ($self->{NUM_DANCES}==1) {
# #    General::log("blessing singledance");
#     $self=SingleDance->new($self->{LEVEL}, $self->{CONTINENT},
# 			   $self->{NAME});
#     bless($self, SingleDance);
#   } elsif ($self->{NUM_DANCES} ne "") {
# #    General::log("blessing multidance: ".$self->{NUM_DANCES});
#     $self=MultiDance->new($self->{DANCE1}, $self->{DANCE2}, $self->{DANCE3}, 
# 			  $self->{DANCE4}, $self->{DANCE5},
# 			  $self->{NUM_DANCES});
#     bless($self, MultiDance);
#   } else {
#     General::log("Error with dance:".
# 		 "\nself->level=".$self->{LEVEL}.
# 		 "\nself->continent=".$self->{CONTINENT}.
# 		 "\nself->name=".$self->{NAME});
#   }
#   return($self);
# }

sub getAbbrev {
  my $self=shift;
  my $class=ref($self) || $self;

  if ($class eq "SingleDance") {
    return(SingleDance::getAbbrev($self));
  } else {
    return(MultiDance::getAbbrev($self));
  }
}

sub getName {
  my $self=shift;
  my $class=ref($self) || $self;

  if ($class eq "SingleDance") {
    return(SingleDance::getName($self));
  } else {
    return(MultiDance::getName($self));
  }
}

sub getCanonicalFullName {
  my $self=shift;
  my $class=ref($self) || $self;

  if ($class eq "SingleDance") {
    return(SingleDance::getCanonicalFullName($self));
  } else {
    return(MultiDance::getCanonicalFullName($self));
  }
}

sub getFullName {
  my $self=shift;
  my $class=ref($self) || $self;

  if ($class eq "SingleDance") {
    return(SingleDance::getFullName($self));
  } else {
    return(MultiDance::getFullName($self));
  }
}

1;
