saint/discourse-legacysite-perl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

First pass at adding key files

Browse Source
This commit is contained in:
dsainty
2024-06-17 21:49:12 +10:00
commit aa25e9347f
1274 changed files with 392549 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
site/slowtwitch.com/cgi-bin/articles/admin/Links/tmp.pl Normal file
View File

@ -0,0 +1,23 @@
sub {
my $related = shift || return;
my @ids = split ("\n",$related);
my @loop;
my $db = $DB->table('Links');
my $tags = GT::Template->tags;
my $id = $tags->{ID};
my $cond = GT::SQL::Condition->new('RelatedArticles','like',$id . "\n%");
$cond->add('RelatedArticles','like', "%\n" . $id . "\n%");
$cond->add('RelatedArticles','like', "\n" . $id);
use Data::Dumper;
print Dumper($cond);
#my $sth = $db->select($cond);
require Links::SiteHTML;
foreach my $id (@ids) {
my $link = $db->get($id);
$link = Links::SiteHTML::tags('link',$link);
push @loop, $link;
}
return { related_articles_loop => \@loop };
}