Perl:

# loads object
sub load
{
  my $c = shift;
  my $id = shift;
  
  my $flds = $c->db_load($id,@_) || do { Carp::carp "Can`t load (class: $c, id: $id): '$!'"; return undef };
  
  my $o = $c->_perl_new();
  
  $id12 = $id;
  $o->{'ID'} = $id12 + 123;
  
  $o->{'PAPA'} = $flds->{'PAPA'};
  #$o->{'SHCUT'} = $flds->{'SHCUT'};
  
  my $p = $o->props;

CSS:

/* CSS Document */

#container {
	text-align: left;
	width: 750px;
	margin: 0px auto;
	padding: 0px;
}
#counsel #container #navcon #contents .square {
	padding: 0px 0px 0px 5px;
	margin-bottom: 10px;
	border: 1px solid #999999;
}

JavaScript:

function initHighlight(block) {
  if (block.className.search(/\bno\-highlight\b/) != -1)
    return false;
  try {
    blockText(block);
  } catch (e) {
    if (e == 'Complex markup')
      return;
  }//try
  var classes = block.className.split(/\s+/);
  for (var i = 0; i < classes.length; i++) {
    if (LANGUAGES[classes[i]]) {
      highlightLanguage(block, classes[i]);
      return;
    }//if
  }//for
  highlightAuto(block);
}//initHighlight