http://www.perlmonks.org?node_id=183247

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

ok, it works now, butfor year its just putting the letter two in the d +atabase it suppost to be 02, and it prints 02 on the preview page @months = qw(January Febuary March April May June July August Septemb +er October November December); @hours = qw(1 2 3 4 5 6 7 8 9 10 11 12 1 2 3 4 5 6 7 8 9 10 11 12); $time = ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = local +time(time); $year += 1900; $year = sprintf("%02d", $year % 100); $new = $lastnumber + 1; if($hour > 12) { $AP = "PM"; } else { $AP = "AM"; } print "<p>Your news has been added</p><u><b>Preview</b></u><br> <p>$months[$mon] $mday $year <b>at</b> @hours[$hour]:$min $AP +<b>($user)</b></p><p><b>",param("title"),"</b><br>",param("des"),"</p +>"; $sth = $dbh->prepare("INSERT INTO news(username, month, day, hour, mi +n, AP, title, description, year) VALUES ('$user', '$months[$mon]', '$ +mday', '$hours[$hour]', '$min', '$AP', ?, ?, '$year')"); $sth->execute(param("title"), param("des")) or die $dbh->errstr;
When it prints the year in the database it just prints 2, when its suppost to be 02, on the preview page it displays 02??