# ==================================================================
# Plugins::Dbsql::myJump - Auto Generated Program Module
#
# Plugins::Dbsql::myJump
# Author : Manuel Kester
# Version : 1.0
# Updated : Tue Feb 11 11:14:47 2003
#
# ==================================================================
#

package Plugins::Dbsql::myJump;
# ==================================================================

use strict;
use GT::Base;
use GT::Plugins qw/STOP CONTINUE/;
use Dbsql qw/$IN $DB $CFG/;

# Inherit from base class for debug and error methods
@Plugins::Dbsql::myJump::ISA = qw(GT::Base);

# Your code begins here! Good Luck!


# we need a header to be printed :D
print $IN->header();

# setup the variables, and my declerations...
my $ID = $IN->param('ID');
my $idcheck;
my $URL;
my $StoreID;

# verify they even sent an ID number!
if (!$IN->param('ID') || !($ID =~ /^\d+$/)) { print "Cant find ID number: $ID"; exit; }

# verify that the ID actually exists...
my $table = $DB->table ('Produkte');
if (my $sth = $table->select( { ID => $ID }, ['ID'] )) {
$idcheck = $sth->fetchrow;
}

# if $id isn't defined, then we can't have a link in the database by that number!
if (!$idcheck) {
# if the ID wasn't found...give em a nice message :p
print "Cant find ID number: $ID";
exit;
} else {

# get URL from ID
my $table = $DB->table ('Produkte');
if (my $sth = $table->select( { ID => $ID }, ['URL'] )) {
$URL = $sth->fetchrow;
}


return $URL;


}



# ADMIN MENU OPTIONS
# ===================================================================

sub about {
# -------------------------------------------------------------------
# This subroutine will get called whenever the user clicks
# on 'About' in the admin menu. Remember, you need to print
# your own content-type headers; you should use
#
# print $IN->header();
#

}

# Always end with a 1.
1;