Yoshihisa Fukuhara
higef****@users*****
2006年 3月 3日 (金) 20:54:03 JST
Index: affelio/apps/diary/Diary/WriteDiary.pm
diff -u affelio/apps/diary/Diary/WriteDiary.pm:1.6 affelio/apps/diary/Diary/WriteDiary.pm:1.7
--- affelio/apps/diary/Diary/WriteDiary.pm:1.6 Fri Mar 3 20:19:58 2006
+++ affelio/apps/diary/Diary/WriteDiary.pm Fri Mar 3 20:54:03 2006
@@ -22,6 +22,7 @@
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
use File::Copy;
+use Time::Local;
use Affelio::misc::Debug qw( debug_print);
@@ -64,6 +65,11 @@
my $category = $wi->PTN_num($cgi->param("category"));
my $tping = $wi->PTN_URL($cgi->param("tping_url"));
my $id = $wi->PTN_num($cgi->param("id"));
+ my $min = $wi->PTN_num($cgi->param("min"));
+ my $hour = $wi->PTN_num($cgi->param("hour"));
+ my $mday = $wi->PTN_num($cgi->param("mday"));
+ my $mon = $wi->PTN_num($cgi->param("mon"));
+ my $year = $wi->PTN_num($cgi->param("year"));
###############################
#arg
@@ -82,6 +88,9 @@
$output_ref->{"ID"} = $id;
$output_ref->{"TITLE"} = $entry->{"title"};
$output_ref->{"CONTENTS"} = $diary->br2n($entry->{"contents"});
+ (my $sec, $output_ref->{min}, $output_ref->{hour}, $output_ref->{mday}, $output_ref->{mon}, $output_ref->{year}) = localtime($entry->{"timestamp"});
+ $output_ref->{mon}++;
+ $output_ref->{year} += 1900;
debug_print("Diary::Write::show:edit get category");
my @categories = $diary->getall("SELECT id, category FROM $diary->{category_table}");
debug_print("Diary::Write::show: num of category $#categories");
@@ -114,7 +123,8 @@
}else{
# update entry
debug_print("Diary::Write::show: before update entry");
- updateEntry($diary,$id,$title,$contents,$category);
+ my $time = timelocal(0, $min, $hour, $mday, $mon - 1, $year);
+ updateEntry($diary, $id, $title, $contents, $category, $time);
copyUploadImage($diary, $id);
# send trackback ping
debug_print("Diary::Write::show: ping");
@@ -127,7 +137,8 @@
elsif( $sub_mode eq "submit" ){
# add entry
debug_print("Diary::Write::show: before add entry");
- my $new_id = addEntry($diary, $title, $contents, $category);
+ my $time = timelocal(0, $min, $hour, $mday, $mon - 1, $year);
+ my $new_id = addEntry($diary, $title, $contents, $category,$time);
copyUploadImage($diary, $new_id);
debug_print("Diary::Write::show: post news");
$diary->{afap}->post_news($title,
@@ -146,6 +157,9 @@
$output_ref->{tmpl_file} = $diary->{afap}->{app__fs_root}."/templates/write_diary_done.tmpl";
debug_print("Diary::Write::show: after submit");
}else{
+ (my $sec, $output_ref->{min}, $output_ref->{hour}, $output_ref->{mday}, $output_ref->{mon}, $output_ref->{year}) = localtime;
+ $output_ref->{mon}++;
+ $output_ref->{year} += 1900;
my $tmp_imgdir = "$diary->{datadir}tmp/";
my $tmp_thumbdir = "$diary->{datadir}tmp/thumb/";
removeFiles($diary,$tmp_imgdir);
@@ -209,7 +223,11 @@
my $title = shift;
my $contents = shift;
my $c_id = shift;
- $diary->{dbh}->do("UPDATE $diary->{entry_table} SET title = '$title', contents = '$contents', c_id=$c_id WHERE id = $id");
+ my $time = shift;
+ unless ($time) { $time = time; }
+ my ($sec, $min, $hour, $mday, $mon, $year) = localtime($time);
+ $year += 1900; $mon += 1;
+ $diary->{dbh}->do("UPDATE $diary->{entry_table} SET title = '$title', contents = '$contents', c_id=$c_id, year=$year, month=$mon, day=$mday, timestamp=$time WHERE id = $id");
}