Parent Directory | Revision Log | Patch
revision 1.50 by spiralvoice, Thu Oct 6 17:34:21 2005 UTC | revision 1.51 by spiralvoice, Sun Oct 16 20:42:50 2005 UTC | |
---|---|---|
# | Line 576 let send_custom_query user buf query arg | Line 576 let send_custom_query user buf query arg |
576 | if maxsize = "" then raise Not_found; | if maxsize = "" then raise Not_found; |
577 | let maxsize = Int64.of_string maxsize in | let maxsize = Int64.of_string maxsize in |
578 | let unit = Int64.of_string unit in | let unit = Int64.of_string unit in |
579 | QHasMaxVal (Field_Size, Int64.mul maxsize unit) | QHasMaxVal (Field_Size, maxsize ** unit) |
580 | ||
581 | | Q_FORMAT _ -> | | Q_FORMAT _ -> |
582 | let format = get_arg "format" in | let format = get_arg "format" in |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |