www.2xlnt.com - WA
 Home   Articles   Forums   Links   Downloads   User Gallery 
Username:    Password:     Remember Me?    Forgot password? You are a guest,
Register by clicking here. 		Advanced Search   
 Main Menu
* Home
* 2xlnt.com
* Articles
* Forums
* Links
* Downloads
* User Gallery
* Top 10
* Palm Pilot
* APage Test
* OS Req. Guide
* 3D Heading Maker
dot  Instant Messenger
dot  2xlnt.com Radio Test
dot  The LAW!!!
dot  CFRB 1010 Radio
 Star Date
1268.12
 Who's Online?
0 Member(s)
1 Guest(s)
0 Robot(s)
Log in to see who's on.
Registered members: 278
Welcome to our newest member: Sejal
 Current Moon Phase
Current Moon Phase
 Sites to See
Web-App.NET
ThemeAPP.com
MLapp.org
Dirty Sand Box
Abywn's Site

WebAppHacks
KagariseFamily.com
No Cents To It!
John-GR's Site
HebAPP Site
 We are NOT VALID!!!
Valid HTML 4.01!
 Home > Forums > Mods and Related
Pages: [1]
Printer Friendly version
Reply
Very Hot Thread  Author: Topic: Topics Block Mod
Admin
Admin

Level 5
Fleet Admiral

Joined: forever
Forum Posts: 571

Canada
General Thread  Topics Block Mod  Posted on: 12/15/04 at 19:50:24 EST
So far the topics Block Mod looks good on the side there...

Although I have all of the standard Article Categories left Stock...  it looks odd with all those empty "sections"

So after whining about it the MoreWebapp site, Anton came up with a solution for my problem...

Below is the code that displays the Topics in the side black, BUT blocks the topics with 0 articles in them.

So nice...


code:
###############
sub topiclist {
###############

my ($c, $name, $id, $articlenumber) = undef;
my (@artclst, @topiclistcats) = undef;

   boxheader("Topics");

   print "<tr><td>";

   open(FILE, "$topicsdir/cats.dat") || error("$err{'001'} $topicsdir/cats.dat");
   hold(FILE);
   chomp(@topiclistcats = <FILE>);
   close(FILE);

   for ($c = 0; $c < @topiclistcats; $c++) {
         ($name, $id) = split (/\|/, $topiclistcats[$c]);
         if (!-s("$topicsdir/$id.cat")) { next; }
         else {
         open(FILE, "$topicsdir/$id.cat") || error("$err{'001'} $topicsdir/$id.cat");
         hold(FILE);
         chomp(@artclst = <FILE>);
         close(FILE);
         $articlenumber = @artclst;
         print qq~<a
href="$pageurl/$cgi/action=topics/viewcat=$id">$name ($articlenumber)</a><BR>~;
         }
   }

   print "</td></tr>";

   boxfooter();

}



This code I dropped into my plugins.pl in the lower section, and on top you have to put in the call in the spot where you want the plugin to appear on your site...  in my case its the Left Bottom.


code:
topiclist();




Yes I am the Admiral!!!


IP address Logged
  Link to This Post  
Admin
Admin

Level 5
Fleet Admiral

Joined: forever
Forum Posts: 571

Canada
General Thread  Re: Topics Block Mod  Posted on: 12/15/04 at 20:03:59 EST
This is going to stay in my site for further testing and will eventually become a part of my "Super Plugins Release".

Basicly a loaded plug-in with all the subs for various plug-ins with their calls commented out.

This way you can pick and choose what you want to turn on in the site by uncommenting it.


Yes I am the Admiral!!!


IP address Logged
  Link to This Post  
Admin
Admin

Level 5
Fleet Admiral

Joined: forever
Forum Posts: 571

Canada
General Thread  Re: Topics Block Mod  Posted on: 12/15/04 at 20:12:42 EST
Oh, because I forgot to mention it...

This is a Bantychick Mod as far as I know...
Anton modified it to remove the 0 article sections...

below is the original plug in case you actually edit your article categories and want all of them showing wether they have articles or not.


code:
###############
sub topiclist {
###############

    boxheader("$xtr{'011'}");
# put in lang/*.lng file:
# $xtr{'011'} = "Topics";
# or use instead
#      boxheader("Topics");

    print "<tr><td>";

    open(FILE, "$topicsdir/cats.dat")



error("$err{'001'} $topicsdir/cats.dat");
    holdr(FILE);
    chomp(my @topiclistcats = <FILE>);
    close(FILE);

    $c = 0;

    for ($c = 0; $c < @topiclistcats; $c++) {
          @item = split (/\

/, $topiclistcats[$c]);
          open(FILE, "$topicsdir/$item[1].cat")



error("$err{'001'} $topicsdir/$item[1].cat");
          holdr(FILE);
          chomp(my @artclst = <FILE>);
          close(FILE);
          $articlenumber = 0;
          foreach $line (@artclst) {
                $line =~ s/[\n\r]//g;
                $articlenumber++;
          }
          print qq~<a
href="$pageurl/$cgi?action=topics&viewcat=$item[1]">$item[0] ($articlenumber)</a><BR>~;
    }

    print "</td></tr>";

    boxfooter();

}




Of course you still have to put in the same line to indicate where on your site you want this plugin to show up...  and that code is...


code:
topiclist();




OK there is something I almost forgot about...  Bantychick has a new call which I am using on this site and it is working fine...  instead of making a call of hold, she make s a call of holdr in the sub above.

the code for that is here...


code:
###########
sub holdr {
###########
    local($file) = @_;
    if ($use_flock eq "1") { flock($file, "1"); }
}



and this should be placed in your subs.pl...  this is what Banty had to say about it.

I see it has sub holdr,

I keep it in my subs.pl. It locks file only for writing but allows reading. Works for me for when a file doesn't have to be written to.

Or else you can just change holdr to hold in the plugin.



Yes I am the Admiral!!!


IP address Logged
  Link to This Post  
  Topics Block Mod
  Mods and Related
   Forums		    Reply
Pages: [1]
Hop to:
 Latest Forum Posts
* PDF Embedder displaying to the left?? - (02/06/20 at 11:18:15 EST) by Jack Deth
* Code which would be useful in updated Web-APP - (12/31/19 at 18:30:08 EST) by Jack Deth
* Instant Messenger Alpha test code - (12/22/19 at 22:45:38 EST) by Jack Deth
* Web-APP Issue with Updated Perl. - (12/06/19 at 14:04:33 EST) by Jack Deth
* Fisher & Paykel SleepStyle 200 - (04/10/19 at 04:04:20 EST) by Jack Deth
* New Upcoming Web-APP script. - (01/25/18 at 15:49:22 EST) by Jack Deth
* Windows 7 Unidentified Network on Start Up - (05/18/17 at 00:50:02 EST) by raggieapauly
* free 2d animation cartoon software - (01/17/17 at 18:22:42 EST) by Jack Deth
* Kodi Add-Ons - (10/09/16 at 21:03:53 EST) by Jack Deth
* Asus TP300L touchpad not working fix - (01/26/16 at 20:31:09 EST) by Jack Deth
* osCommerce "Headers already sent…" fix - (07/10/15 at 21:39:15 EST) by Jack Deth
* Buteyko Nose Clearing Exercise - (12/31/14 at 07:52:47 EST) by Jack Deth
* Cleansing your lungs - (12/29/14 at 12:46:23 EST) by Jack Deth
* forms - (10/10/14 at 10:09:28 EST) by Jack Deth
* Articles Update - (12/13/13 at 17:29:03 EST) by Jack Deth
 Home   Articles   Forums   Links   Downloads 
About | Contact | Help | Recommend

This web site was made with WebAPP v0.9.9.3.3 , a web portal system written in Perl
All trademarks and copyrights on this page are owned by their respective owners. Comments are owned by the Poster.