sub commlink {
  my $self = shift;
  return "" unless $self->{'id'};
  my $label = $self->{'label'};
  $label =~ s/\x{00b5}/\µ/g;
  $label =~ s/\x{03bc}/\μ/g; # Looks almost exactly the same as µ
  return "<A href=\"commlink.html?id=".$self->{'id'}."\" class=\"".$self->{'state'}."\">".$label."</A>";
}

##</code><code>##

sub commlink {
  my $self = shift;
  return "" unless $self->{'id'};
  my $label = $self->{'label'};
  $label = decode('utf8', $label); # Why? It's already utf8 and I need it to stay utf8
  $label =~ s/\x{00b5}/\&micro;/g;
  $label =~ s/\x{03bc}/\&mu;/g; # Looks almost exactly the same as &micro;
  return "<A href=\"commlink.html?id=".$self->{'id'}."\" class=\"".$self->{'state'}."\">".$label."</A>";
}