Hi Andy,
at the moment I'm using this global
Code:
sub {
my $tags = GT::Template->tags;
my @words = split(/\s+/,"$tags->{Title} $tags->{Description}");
my @links;
my %seen;
foreach (@words){
s/^\s*//sg;
s/[\.,;:\?!\(\)"]+//sg;
next if length($_)<4;
next if $_ !~ /^[A-Z]/;
next if $_ =~ /^(AB's|Also|Ausgewählte|Ausführlicher|Ausführliche|Anliegen|Aufgabe|Aufgaben|Anhand|Arbeitsblatt|Arbeitsblätter|Arbeitsblättern|Ausdrucken|Angebot|Aufgaben|Anfang|Auswahl|Beliebig|Buch|Bereich|Bereiche|Bereichen|Bild|Bilder|Dazu|Dann|Danach|Dabei|Darf|Dank|Dinge|Dies|Dieses|Dieser|Diese|Dokument|Durchgeführt|Denkbar|Durchführung|Datei|Dateien|Download|Einzelne|Ende|Eine|Einfache|Einfaches|Ergänzung|Erklärung|Entwurf|Entwürfe|Einheit|Einfach|Fach|Fertig|Förderung|Gefunden|Hier|Hilfe|Hierbei|Habe|Jahrgangsstufe|Jugendlicher|Jugendliche|Klasse|Klassen|Kindern|Kinder|Kind|Kann|Können|Kleine|Lizenz|Lernbereich|Mehrere|Maßnahme|Material|Materialien|Planung|Rahmen|Schüler|Schülern|Schülers|Schülerinnen|Schule|Schulen|Schöne|Schöner|Stunde|Stunden|Seite|Seiten|Schwerpunkte|Schriftliche|Schriftlicher|Thema|Unterricht|Unterrichts|Verschiedene|Verfügung|Vielen|Vielleicht|Word-Datei|Word|Wenn|Zuerst)$/;
$seen{$_}++;
}
my $i = 0;
for my $k (sort {$seen{$b} cmp $seen{$a} || lc($a) cmp lc($b) } keys %seen) {
last if $i > 5;
push @links, qq|<a href="$CFG->{db_cgi_url}/search.cgi?query=$k">$k</a>|;
$i++;
}
return join(" - ",@links);
}
Thanks
Matthias
gpaed.de