get the values of form field values

crmpicco · #1 (**permalink**) November 2nd, 2006, 10:06 AM

use CGI; $cgi = new CGI; if(!defined $newform->validate) { $submitted = $newform->submitted([ qw(title description type email interest dateposted)]); # set form field variable values in HERE }

is it possible to get the values of form field values that have been posted to this page?

how is it done?

Picco

www.crmpicco.co.uk
www.ie7.com

ciderpunx · #2 (**permalink**) November 3rd, 2006, 05:32 AM

Hey crmpicco

You can just do (example to get the title field):

<code>
my $title = $cgi->param('title');
</code>

--
Don't Stand on your head - you'll get footprints in your hair
http://charlieharvey.org.uk
http://charlieharvey.com

crmpicco · #3 (**permalink**) March 16th, 2007, 10:57 AM

hi, that worked a treat by the way charlie....forgot to write back....
here's my working script!!

Code:

#! /usr/bin/perl

# Craig R Morton
# Last_Edit: 08-Nov-2006

use CGI;
use ready::Sql;

$cgi = new CGI;
$sql = new ready::Sql;

$header = << 'STOP';
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Edit Contact</title>
<link rel="stylesheet" type="text/css" href="/ssi/extranet.css">
<script src="/ssi/extranet.js" language="javascript"></script>
<script language="javascript">
<!--
function redirecttostart()
{
    window.location="craigtest.pl";
}
//-->
</script>
<script src="crmjs.js" language="javascript"></script>
<style type="text/css">
<!--
body {
    background-color: #ECECEC;
}
.table_contacts {
    width: 100%
    border: 2px;
    border-color: #000000;
    border-style: solid;
    font-family: Verdana;
    font-size: 11px;
}
-->
</style>
</head>
<body >
STOP

$footer = << 'STOP';
</body>
</html>
STOP

# Form field values passed from the previous page
$contactid = $cgi->param('hcontactid');
$name = $cgi->param('name');
$birthdate = $cgi->param('birthdate');
$email = $cgi->param('email');
$interest = $cgi->param('interest');
$telno = $cgi->param('telno');
$admin = $cgi->param('admin');

# if the admin 'yes' button has been checked then insert '1' into the DB otherwise insert '0'
if ($admin eq "yes") {
    $adminval = "1";
}
else {
    $adminval = "0";
}

# Update the DB with the values (name, birthdate, etc......) passed from the previous page
$sql->query(q{UPDATE `craigrm`.`contacts` SET name = (?), birthdate = (?), email = (?), interest = (?), telno = (?), admin = (?) WHERE contact_id = (?)}, $name, $birthdate, $email, $interest, $telno, $adminval, $contactid);

@getrecords = $sql->query(q{SELECT contact_id, name, birthdate, email, interest, telno, admin FROM `craigrm`.`contacts` ORDER BY contact_id ASC});

$content = "<table class='table_contacts' align='center'><tr><td>Contact ID</td><td>Name</td><td>Birthdate</td><td>Email</td><td>Interest</td><td>Tel No.</td><td>Admin</td></tr>";

while ($result = $getrecords[0]->fetchrow_hashref) {
    $dbcontactid = $result->{"contact_id"};
    $dbname = $result->{"name"};
    $dbbirthdate = $result->{"birthdate"};
    $dbemail = $result->{"email"};
    $dbinterest = $result->{"interest"};
    $dbtelno = $result->{"telno"};
    $dbadmin = $result->{"admin"};

    $content .= "<tr><td>$dbcontactid</td><td>$dbname</td><td>$dbbirthdate</td><td>$dbemail</td><td>$dbinterest</td><td>$dbtelno</td><td>$dbadmin</td></tr>";
}

$content .= "</table>";

print "Content-type: text/html\n\n";
print $header;

print "<div align='center'>";
    require "banner.pl";
    print "<br>Database Updated....";
print "</div>";

print $content;

=pod
print "Contact ID = $contactid<br>";
print "Name = $name<br>";
print "Birthdate = $birthdate<br>";
print "Email = $email<br>";
print "Interest = $interest<br>";
print "Tel No. = $telno<br>";
print "Admin = $admin<br>";
print "Adminval = $adminval<br>";
=cut

print "<div align='center'>";
    print "Back to Start";
print "</div>";
print $footer;

www.crmpicco.co.uk
www.ie7.com

Need to download code?

Navigation