Changeset 279
- Timestamp:
- 01/21/07 18:58:42 (2 years ago)
- Files:
-
- ModifiedDate/trunk/ModifiedDate.pl (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
ModifiedDate/trunk/ModifiedDate.pl
r278 r279 47 47 48 48 my $blog = $_[0]->stash('blog'); 49 my @paths = ($file, map File::Spec->catfile($_, $file),50 $blog->site_path, $blog->archive_path);49 my @paths = ($file, 50 map File::Spec->catfile($_, $file), $blog->site_path, $blog->archive_path); 51 51 my $path; 52 52 for my $p (@paths) { 53 53 $path = $p, last if -e $p && -r _; 54 54 } 55 return $_[0]->error(MT->translate("Can't find file '[_1]'", $file )) unless $path;55 return $_[0]->error(MT->translate("Can't find file '[_1]'", $file)) unless $path; 56 56 my ($mtime) = (stat($path))[9]; 57 57 $args->{ts} = MT::Util::epoch2ts($blog, $mtime);
