summaryrefslogtreecommitdiff
path: root/data/tpl/defs.pl
diff options
context:
space:
mode:
authoryorhel <yorhel@1fe2e327-d9db-4752-bcf7-ef0cb4a1748b>2008-06-15 07:37:37 +0000
committeryorhel <yorhel@1fe2e327-d9db-4752-bcf7-ef0cb4a1748b>2008-06-15 07:37:37 +0000
commitdfcfb4a402dcfbc1b1873c5ead08584c3e71a5c6 (patch)
tree816ed80e180bc818d245be54ea90111f59d7ab86 /data/tpl/defs.pl
parentf8b467a1a6cff156a55770642e34a1d5c0142079 (diff)
Permenantly removed the CISV link, added links to renai.us and encubed, and small bugfix in the VNDBID pattern matching
git-svn-id: svn://vndb.org/vndb@28 1fe2e327-d9db-4752-bcf7-ef0cb4a1748b
Diffstat (limited to 'data/tpl/defs.pl')
-rw-r--r--data/tpl/defs.pl8
1 files changed, 4 insertions, 4 deletions
diff --git a/data/tpl/defs.pl b/data/tpl/defs.pl
index 3982028e..1f2056a7 100644
--- a/data/tpl/defs.pl
+++ b/data/tpl/defs.pl
@@ -147,8 +147,8 @@ sub summary { # cmd, len, def
}
if(!$as && s/(http|https):\/\/(.+[0-9a-zA-Z=\/])/<a href="$1:\/\/$2" rel="nofollow">link<\/a>/) {
$l = 4;
- } elsif($as) {
- s/^([duvpr][0-9]+)[^\w]*$/<a href="\/$1">$1<\/a>/;
+ } elsif(!$as) {
+ s/^(.*[^\w]|)([duvpr][0-9]+)([^\w].*|)$/$1<a href="\/$2">$2<\/a>$3/;
}
while(s/\[\/url\]/<\/a>/i) {
$l -= 6;
@@ -381,9 +381,9 @@ sub cform {
$ret .= qq|</ul></form>\n|;
# input
} elsif($_->{type} eq 'input') {
- $ret .= sprintf qq|<li%s>\n <label for="%s">%s</label>\n %s<input type="text" class="text" name="%2\$s" id="%2\$s" value="%s" />\n</li>\n|,
+ $ret .= sprintf qq|<li%s>\n <label for="%s">%s</label>\n %s<input type="text" class="text" name="%2\$s" id="%2\$s" value="%s" />%s\n</li>\n|,
$_->{class} ? ' class="'.$_->{class}.'"' : '', $_->{short}, $_->{name}, $_->{pre} ? '<i>'.$_->{pre}.'</i>' : '',
- _hchar($frm->{$_->{short}}?$frm->{$_->{short}}:$_->{default});
+ _hchar($frm->{$_->{short}}?$frm->{$_->{short}}:$_->{default}), $_->{post} ? '<i>'.$_->{post}.'</i>' : '';
# pass
} elsif($_->{type} eq 'pass') {
$ret .= sprintf qq|<li%s>\n <label for="%s">%s</label>\n <input type="password" class="text" name="%2\$s" id="%2\$s" />\n</li>\n|,