507 |
next if (! $tag || $tag =~ m/https?:/i); |
next if (! $tag || $tag =~ m/https?:/i); |
508 |
push @{ $tags->{$tag} }, $arg->{id}; |
push @{ $tags->{$tag} }, $arg->{id}; |
509 |
warn "+tag $tag: $arg->{id}\n"; |
warn "+tag $tag: $arg->{id}\n"; |
510 |
|
$cloud->add($tag, "?tag=$tag", scalar @{$tags->{$tag}} + 1); |
511 |
} |
} |
512 |
} |
} |
513 |
|
|
584 |
$cloud->css . |
$cloud->css . |
585 |
qq{</style></head><body>} . |
qq{</style></head><body>} . |
586 |
qq{ |
qq{ |
587 |
<form method="post" class="search"> |
<form method="post" class="search" action="/"> |
588 |
<input type="text" name="search" value="$search" size="10"> |
<input type="text" name="search" value="$search" size="10"> |
589 |
<input type="submit" value="search"> |
<input type="submit" value="search"> |
590 |
</form> |
</form> |