CGI.pm hidden field problem

[David Gilden]

Hello,

I am taking a stab at a SQL driven guest-book, 
the problem is with getting the <hidden> field to take the value of $message_num, (see 
the end of this script)
I can see it in the <!-- print statement --> ok, 
but not in the hidden field (I have tried with override and with out -- not sure what 
this is for!)
I welcome any suggestions on clearing up this problem so that I can move on to the 
next problem :)

Thanks
Dave
-----------------------


#!/usr/bin/perl -w

# SQL Guestbook

use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
require "dbi-lib.pl";

my (%sort_direction,$offset,$message_num,$last_message_num,$sort_direction,$name, 
$email,$date,$message);


$sort_direction = param('sort_direction') || 0; # Sort Direction for numbers

# set up $message_num  to count up or down
$message_num  = (!$sort_direction) ? 0 : 11;

$table_name = "sqlguestbook";

&initialize_dbi;
&whichButton;


&run_statement(&sql_statement);

print header,
      start_html( -title => 'Dave\'s Guestbook' );


print  start_form( -method => 'POST' ),
       "\n<p>", submit( -name=> 'action', -value => 'Sort Messages' ), " &nbsp;&nbsp; 
";
    
    
    %sort_direction =(
    0 => 'First to Last ',
    1 => 'Last to First ',
 );

print   radio_group(
        -name    => 'sort_direction',
        -values  => [ keys %sort_direction ],
        -default => $sort_direction,
        -labels  => \%sort_direction
       ),

"</p>\n";

     
print h2('Dave\'s Guest Book');


print submit( -name => 'action',  -value => 'Previous 10 Entries' ) ;# unless 
$beginning;
print '&nbsp;&nbsp;'; # space out the buttons
print submit( -name => 'action',  -value => 'Next 10 Entries' ); #unless 
$last_message_num <= 10;


# Start Table Data
print <<TABLEHEADER;
<table border="1" cellspacing="2" cellpadding="2" width="98%">
<tr>
<th style="color:red;">Message 
Number</th><th>Name</th><th>Date</th><th>Email</th><th>Message</th>
</tr>
TABLEHEADER

$message_num  += $last_message_num; # make sure the messages numbers are correct

while (($name,$date,$email,$message) = $sth->fetchrow) {
(!$sort_direction) ? $message_num ++ : $message_num --;
print "<tr>\n<td>$message_num </td>";
print <<TD;
<td>$name</td>
<td>$date</td>
<td>$email</td>
<td>$message</td>
</tr>\n
TD
}  


# End Table Rows
print "</table>\n";
$message_num  = 
print "<!-- $message_num  -->\n";
print hidden(
-name => last_message_num, 
-value => $message_num, 
# -override=> 1
);

*====================================================*
*   Cora Connection Your West African Music Source   *  
*   http://www.coraconnection.com/                   *  
*   Resources, Recordings, Instruments & More!       *
*====================================================*

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]