- my $val = $values->[$i];
- my $val_uri = uri_escape ($val);
- my $val_html = encode_entities ($val);
-
- if ($field eq 'group')
- {
- $val = qq(<a href="$MySelf?action=browse&group=$val_uri">$val_html</a>);
- }
- elsif ($field eq 'uri')
- {
- if ($val =~ m#^([a-z]+)://(.+)$#)
- {
- $val_uri = $1 . '://' . uri_escape ($2);
- }
- else
- {
- $val_uri = 'http://' . uri_escape ($val);
- }
- $val = qq(<a href="$val_uri" class="extern">$val_html</a>);
- }
- elsif ($field eq 'mail')
- {
- $val = qq(<a href="mailto:$val_uri" class="mail">$val_html</a>);
- }
- else
- {
- $val = $val_html;
- }