
Originally Posted by
tas3086
I thought that I was up-to-date, but I do not find this "Proc get_ldate" code anywhere in my code. Did I miss a patch somewhere along the line?
Sorry, my fault. It's from a modification of the mfs_ftp.tcl code I made years ago and forgot about but never released publicly. In the standard 1.29p release mfs_ftp.tcl, look for
Code:
proc calc_tertiary_info { fsid } {
global info db ; set p 2
outd $p "calc_tertiary_info: recobj\{$fsid\}"
if { [info exists info($fsid,State)] == 0 } { rec_info_from_db $fsid }
set recsec [expr $info($fsid,Date) * 86400 + $info($fsid,Time) + $info(tzoffset)]
set info($fsid,date) [clock format $recsec -format "%2m-%2d-%y %I:%2M%p" ]
set info($fsid,ldate) [clock format $recsec -format "%b %2d %I:%2M" ]
if { [expr [clock seconds] + $info(tzoffset) - $recsec ] > 31449600 } { set info($fsid,ldate) [clock format $recsec -format "%b %2d %Y"] }
set recdate "[clock format $recsec -format "%I.%M %p %a %b %d, %Y"]"
Try changing the "%I" to "%H" in the line for set info($fsid,ldate). The others set fields in the metadata stored for each recorded program and I don't know what effect they would have if you changed them to a 24-hour format (in fact, I can't find anyplace where the "date" variable actually gets used). Note, I don't run standard 1.29p code anymore, don't know if other standard patches since then have affected this code, and haven't tested this fix against it. However, I'm pretty sure the ldate variable is only used for the ftp LIST command and if you track down all uses of it and where it's written you will solve the problem.