From: Rob H. <for...@us...> - 2001-11-22 08:29:02
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb In directory usw-pr-cvs1:/tmp/cvs-serv16902/lib/SandWeb Modified Files: File.pm Log Message: * fixed weird formatting of view and edit templates * updated File.txt documentation. I decided to document the location/file behavior as it *should* work; the problem I was seeing before is actually sandweb.cgi's problem. It needs an extra routine to support the correct behavior ( the filename needs to be extracted from the absolute or relative path ). Index: File.pm =================================================================== RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/File.pm,v retrieving revision 1.10 retrieving revision 1.11 diff -U2 -r1.10 -r1.11 --- File.pm 2001/11/22 01:53:11 1.10 +++ File.pm 2001/11/22 08:29:00 1.11 @@ -76,10 +76,13 @@ sub get_size { my $self = shift; - return $self->{'size'}; + + return $self->{'size'}; } sub get_age { my $self = shift; - return $self->{'mtime'}; + my $time = $self->{'mtime'}; + + return $time; } |