Hello anybody ?
Did anyone successful run the mod with result 5 lastlink with the mod below ? I did try at 2 server with a different database style, its only show one link....
Please help .....
#!/usr/bin/perl
#================================
use strict;
use lib '/home/worldbar/public_html/directories/cgi-bin/admin';
use Links qw/$DB $IN/;
Links::init('/home/worldbar/public_html/directories/cgi-bin/admin');
use Links::SiteHTML;
local $SIG{__DIE__} = \&Links::fatal;
main();
#================================
sub main {
#---------------------------------------------------
# Display the newest link.
my $tab = $DB->table('Links');
$tab->select_options('ORDER BY ID DESC', 'LIMIT 5');
my $rec = $tab->select( { isValidated => 'Yes' } )->fetchrow_hashref;
print $IN->header();
print Links::SiteHTML::display('link', $rec);
}
Did anyone successful run the mod with result 5 lastlink with the mod below ? I did try at 2 server with a different database style, its only show one link....
Please help .....
#!/usr/bin/perl
#================================
use strict;
use lib '/home/worldbar/public_html/directories/cgi-bin/admin';
use Links qw/$DB $IN/;
Links::init('/home/worldbar/public_html/directories/cgi-bin/admin');
use Links::SiteHTML;
local $SIG{__DIE__} = \&Links::fatal;
main();
#================================
sub main {
#---------------------------------------------------
# Display the newest link.
my $tab = $DB->table('Links');
$tab->select_options('ORDER BY ID DESC', 'LIMIT 5');
my $rec = $tab->select( { isValidated => 'Yes' } )->fetchrow_hashref;
print $IN->header();
print Links::SiteHTML::display('link', $rec);
}