sub print_content_model {
my($self) = shift;
local($_) = shift;
local(*FILE) = shift;

my(@cm) = $self->format_content_model2($_);
foreach $_ (@cm) {
print FILE $self->make_links($_, 1, 1), "\n";
}
}