Scoop -- the swiss army chainsaw of content management
Front Page · Everything · News · Code · Help! · Wishlist · Project · Scoop Sites · Dev Notes · Latest CVS changes · Development Activities
Scoop Box Exchange - Show Box: section_stories 1.00

Author: rusty [Info]

Description:

This displays the latestn stories from each section. It also displays a list of the latest 15 or so diaries. Edit the box to get it to show the sections you need it to.

Box Code:

my $content = qq{
<!-- all sections link -->
<B><A HREF="|rootdir|/section/__all__" style="text-decoration:none;"><font color="#000000">All Stories</font></A></B>
<P>};

my $refresh = $S->cache->{CACHE}->{section_stories_num} \|\| 101;

#order sections
my @sections = qw(
tech
culture
fnp
media
news
internet
op-ed
mlp
Meta
columns );


if ($refresh > 100) {
$S->cache->{CACHE}->{section_stories_num} = 1;
$S->cache->{CACHE}->{section_stories} = {};

foreach my $section (@sections) {
next if ($section eq 'front');

$content .= qq{
<B><A HREf="|rootdir|/section/$section" style="text-decoration:none;"><font color="#000000">$S->{SECTION_DATA}->{$section}->{title}</font></A>:</B>
<BR>|smallfont|};

my ($rv, $sth) = $S->db_select({
WHAT => 'sid, title',
FROM => 'stories',
WHERE => qq{section = "$section" AND displaystatus = 1},
ORDER_BY => 'time DESC',
LIMIT => 3});


while (my $story = $sth->fetchrow_hashref()) {
push @{$S->cache->{CACHE}->{section_stories}->{$section}}, $story;
my $comments = $S->_commentcount($story->{sid});

$content .= qq{
|dot| <A HREF="|rootdir|/story/$story->{sid}">$story->{title}</A><br>($comments comments)<BR>}; #|
}
$content .= qq{
|dot| <A HREf="|rootdir|/section/$section">more >></A>
|smallfont_end|
<P>};
}
} else {
$S->cache->{CACHE}->{section_stories_num} += 1;
foreach my $section (@sections) {
next if ($section eq 'front');
$content .= qq{
<B><A HREf="|rootdir|/section/$section" style="text-decoration:none;"><font color="#000000">$S->{SECTION_DATA}->{$section}->{title}</font></A>:</B>
<BR>|smallfont|};

foreach my $story (@{$S->cache->{CACHE}->{section_stories}->{$section}}) {
my $comments = $S->_commentcount($story->{sid});

$content .= qq{
|dot| <A HREF="|rootdir|/story/$story->{sid}">$story->{title}</A><br>($comments comments)<BR>}; #|
}
$content .= qq{
<A HREf="|rootdir|/section/$section">|dot| more >></A>
|smallfont_end|
<P>};
}
}


# Diary list
my ($rv, $sth) = $S->db_select({
WHAT => 'sid, aid, title',
FROM => 'stories',
WHERE => qq{section = "Diary" AND displaystatus = 1},
ORDER_BY => 'time DESC',
LIMIT => 15});

$content .= qq{
<B><A HREf="|rootdir|/section/Diary" style="text-decoration:none;"><font color="#000000">New $S->{SECTION_DATA}->{Diary}->{title}</font></A>:</B>
<br>|smallfont|};

while (my $story = $sth->fetchrow_hashref()) {
my $lu = $S->urlify($story->{aid});
#my $comm = $S->_commentcount($story->{sid});
#$comm = '0' unless $comm;
$story->{title} =~ s/(\S{20})/$1 /g;
$content .= qq{
|dot| <A HREF="|rootdir|/user/$lu/diary">$story->{aid}</A>:<br><a href="|rootdir|/story/$story->{sid}" style="text-decoration:none;"><font color="#222222">$story->{title}</font></a><br>}; #($comm comments)<br>};
}

$content .= qq{
<BR>|dot| <A HREf="|rootdir|/?op=search;type=diary;offset=25">More Diaries >></A>
|smallfont_end|
<P>};


return {content => $content};
Display: Sort:
Coding (none / 0) (#1)
by MichaelHoward on Thu Mar 22, 2018 at 03:24:40 AM PST

It's totally fine the description and from where you have gathered the history. I mean do you know him or it maybe you are also one of the biggest fans of him like me. Do share top essay writing service update and your story.



srer (none / 0) (#2)
by elbu10 on Wed Sep 12, 2018 at 06:13:08 AM PST

bukubercerita.com bisa anda nikmati dalam melajar cara membuat buku cerita fiksi dan nonfiksi yang baik dan bagus di baca ini blog milik saya. Apakh anda siap menulis? Mari belajar menulis dengan berfokus pada membuat buku. Ada banyak tantangan dalam membuat buku baik fiksi atau non fiksi. bukubercerita.com menghadirkan tips menulis untuk pemula dalam cara membuat buku cerita www.bukubercerita.com di blog. Anda mengharuskan belajar menulis untuk kebutuhan kemampuan anda. Banyak sekali teknik menulis yang bisa untuk dikuasai dalam usaha membuat buku cerita. Anda suka menulis buku fiksi atau nonfiksi? Tips menulis buku untuk pemula dalam membuat buku cerita yang akan di dapatkan di baca ini www.bukubercerita.com blog milik saya. Anda bisa berkerasi menulis cara membuat buku karena tulisan cerita adalah kreatifitas pikiran yang bisa menghasilkan keuntungan. Anda bisa membuat buku cerita yang bersifat fiksi dan nonfiksi bentuk usaha modal kecil untung besar baca selengkapnya bentuk usaha modal kecil untung besar yang lain bentuk usaha modal kecil untung besar pabrik mukena baca lainnya pabrik mukena yang lain pabrik mukena macam-macam peluang usaha kecil sampingan terpercayaklik saja disini macam-macam peluang usaha kecil sampingan terpercaya yang lain macam-macam peluang usaha kecil sampingan terpercaya macam-macam kata kata cinta yang romantis klik saja di sini macam-macam kata kata cinta yang romantis yang lain macam-macam kata kata cinta yang romantis cara belajar menulis yang baik klik saja di sini cara belajar menulis yang baik yang lain cara belajar menulis yang baik



informative (none / 0) (#3)
by rao on Mon Oct 08, 2018 at 09:21:50 AM PST

This is an informative post review.i insist you for trying hostgator black friday deals.



fghfgfg (none / 0) (#4)
by jahangir khatri on Mon Feb 18, 2019 at 11:34:05 PM PST

in case you got down to make me suppose nowadays; mission skillful! I absolutely once your writing fashion and the way you influence your ideas. thanks. Accountants Brighton



dfgdf (none / 0) (#5)
by jahangir khatri on Mon Feb 25, 2019 at 08:59:11 AM PST

first-rate website you have here, as a end result lots cool tell!.. essay writing services



strike force heroes hacks (none / 0) (#6)
by jahangir khatri on Tue Feb 26, 2019 at 08:30:03 AM PST

Wow, cool post. I'd like to write like this too - taking time and real hard work to make a great article... but I put things off too much and never seem to get started. Thanks though. strike force heroes hacks



eliza (none / 0) (#7)
by uali20 on Wed Apr 10, 2019 at 10:20:41 AM PST

I am happy to find your distinguished way of writing the post. Now you make it easy for me to understand and implement the concept. Thank you for the post. 메이저사이트



ssasa (none / 0) (#8)
by elbu10 on Sat Jul 20, 2019 at 10:07:24 AM PST

g Mungkin anda menginginkan cerpen tentang cinta cerpen tentang cinta. Cerpen tentang cinta bisa membuat anda bahagia membacanya. cerpen tentang cinta lanjutan klik saja. Terpenting anda memahami cerpen tentang cinta. menjalani bisnis mlm evolve bisa membuat anda kaya dengan kerja keras menjalani bisnis mlm evolve Menawarkan cara menjalani bisnis mlm evolve yang bagus. menjalani bisnis mlm evolve dalam blog dengan sungguh-sungguh agar membuahkan sukses klik saja. menjalani bisnis mlm evolve dalam blog dengan panduan yang terbaik dari mentor bisnis. menjalani bisnis mlm evolve tips menjalani bisnis mlm evolve. Jadi anda bisa bisnis mlm evolve tips. SambalBuKaji menawarkan sambal pecel yang enak. SambalBuKaji SambalBuKaji bisa anda manfaatkan dengan menikmati hidangan pecel. binis rumahan modal kecil untung besar yang akan anda dapatkan dalam menjalani bisnis pecel binis rumahan modal kecil untung besar. Jalani saja binis rumahan modal kecil untung besar dengan baik. cara bisnis yang mudah dijalankan secara online cara bisnis yang mudah dijalankan secara online jagatusaha.com jagatusaha.com belajar bisnis online untuk pemula klik disini cara belajar bisnis online di blog belajar bisnis online pemula bisnis online tanpa modal yang bagus bisnis online tanpa modal yang bagus. Doa Cinta Doa Cinta cinta itu indah cinta itu indah Mukhamad Lubab Channel Mukhamad Lubab Channel d



sss (none / 0) (#9)
by elbu10 on Sat Sep 28, 2019 at 09:40:08 AM PST

g Royal Kiraz Candy di Pekanbaru, Riau Sumatera ini Asli Turki suatu obat royal kiraz berbentuk permen ajaib royal kiraz yang dapat menyembuhkan berbagai macam penyakit sangat cepat kurang lebih 30 hari. Manfaat royal kiraz dari produk import negara Turki ini tidak hanya berkhasiat sebagai obat kuat pria saja, tetapi anda akan memperoleh berbagai macam manfaat setelah menkonsumsi permen royal ini. Herbal asal Turki yang dipasarkan secara konvensional tersebut sepertinya belum ditemukan di apotek-apotek atau toko obat. Menurut informasi dari salah seorang Distributor resmi di Riau mengatakan bahwa obat ampuh ini masuk ke Indonesia melalui Riau dari Malaysia. Hal ini sebagaimana dijelaskan bahwa pada 20 Januari lalu ada sekitar 20 orang dari Riau yang hadir dalam seminar Royal Kiraz di Oakwood Hotel Kuala Lumpur. Tentunya, ada banyak manfaat dari suplemen herbal distributor royal kiraz. Apakah anda mau melihat lebih lanjut soal produk royal kiraz? Bisa mengunjungi royalkirazindo atau klik disini. Ada banyak produk yang bisa anda ambil. Apalagi, anda melakukan kegiatan resensi novel yang kesulitannya bisa lebih tinggi dari buku biasa bila diresensikan. Bila seperti ini, konsep atau kerangka perlu dibuat terlebih dahulu. Pembuatan konsep untuk kegiatan resensi novel lebih berfokus pada pembedahan unsur-unsur cerita terlebih dahulu agar terbuka kemudahan menulis resensi novel. menulis resensi novel untuk pemula . ANda bisa meniru menuilis cerpen orang lain. Seberapa berkembang usaha kuliner yang ingin anda inginkan? Mengembangkan sesuatu usaha khususnya usaha kuliner berarti anda siap melakukan maksimalitas jumlah. Anda berupaya melakukan maksimalitas jumlah dengan keuntungan yang berkembang. Hal ini yang perlu anda lakukan. Bila tidak seperti ini, mengembangkan usaha kuliner memang dianggap sia-sia saja. cara mengembangkan usaha kuliner jangka panjang . Ada banyak website yang berhasil mendapat 1 juta visitor. Bagi website bisnis online berjenis Website Homepage Laman, membutuhkan konten tulisan dari lintas topik yang mengarah untuk kepentingan bisnis. Sebagai misal, anda membuka bisnis sewa hosting+domain. Nah, bagaimana lintas topik yang anda di website bisnis online berkepentingan untuk satu tujuan yakni mensukseskan bisnis hosting? Pembahasan ini masuk dalam pengkonsepan yang berkepentingan mensukseskan usaha hosting. Disini, anda harus memilih topik apa saja yang lebih mendukung bisnis hosting anda. rahasia website bisnis online. Maka anda harus melakukan konsistensi memberi hashtag. Spirit yang terkandung dalam SMS cinta menyentuh hati adalah bersifat memberi hiburan dengan harapan bisa menjalin hubungan pertemanan, pecintaan, persahabatan menjadi bermakna dan berwarna. Kalau sekedar SMS biasa, sepertinya kurang asyik untuk pegiat komunikasi lewat ponsel. Kalau masalah karakter SMS cinta menyentuh hati adalah masalah jumlah kata. Karakter SMS biasanya tidak sampai 100 kata. Maka di sini, pembuatan kalimat WA dan SMS cinta menyentuh hati tidak sampai 100 kata bahkan. sms cinta yang menarik . Mau merasakan sensansi menikmati tembakau hijau gayo yang merupakan tembakaukhas aceh? Tentunya, anda bisa menikmati dengan terlebih dahulu membeli secara online. Karena tembakau hijau gayo ini memang sulit didapatkan di semmua toko dan tempat penjualan lain, tdak seperti rokok pada umumnya. Di samping itu, ada satu hasil perkebunan yang dimiliki tanah Gayo tergolong unik, yaitu tembakau Gayo. Belakangan ini sempat viral di lini media sosial, mengenai tembakau gayo yang banyak di review memiliki aroma yang mirip dengan `g-a-nn-jja'. Silahkan tambahkan di tembakau hijau gayo dan juga lihat tulisan ini, klik disini . d



hi (none / 0) (#10)
by Nisha Knapp on Thu Oct 28, 2021 at 10:34:29 PM PST

Innovation and Creativity is one of the key on how live the sites and content of what we handled, and I am grateful to see the changes of the world through the years that gives us more hope for the future. 안전토토사이트



Menu
· create account
· faq
· search
· report bugs
· Scoop Administrators Guide
· Scoop Box Exchange

Scoop Site Scroller: Get one yourself!
The OpenNIC
Democratically operated Domain Name System; using Scoop since Jan. 2001.

Login
Make a new account
Username:
Password:

Hosted by ScoopHost.com Powered by Scoop
All trademarks and copyrights on this page are owned by their respective companies. Comments are owned by the Poster. The Rest © 1999 The Management

create account | faq | search