Package: gnotime
Version: 2.4.1-1
Severity: normal
--- Please enter the report below this line. ---
Dear Maintainer,
When I try to generate "Activity Report" from Reports / Query, empty
report appears; with "GnoTime caught an error during scheme parse"
backtrace dumped into console. This worked fine in gnotime
2.3.1~snapshot20091119-5 and earlier.
Backtrace attached.
Best regards,
Petr
--- System information. ---
Architecture: i386
Kernel: Linux 3.16-2-486
Debian Release: jessie/sid
900 testing ftp.cz.debian.org
60 unstable www.deb-multimedia.org
60 testing www.deb-multimedia.org
60 stable www.deb-multimedia.org
500 wheezy-backports mozilla.debian.net
500 wheezy-backports ftp.cz.debian.org
500 trusty-getdeb archive.getdeb.net
500 stable-updates ftp.cz.debian.org
500 stable security.debian.org
500 stable ftp.cz.debian.org
500 stable dl.google.com
500 stable deb.opera.com
500 proposed-updates ftp.cz.debian.org
--- Package information. ---
Depends (Version) | Installed
=====================================-+-===============
scrollkeeper |
guile-1.8-libs | 1.8.8+1-9
libart-2.0-2 (>= 2.3.18) | 2.3.21-2
libatk1.0-0 (>= 1.12.4) | 2.12.0-1
libbonobo2-0 (>= 2.15.0) | 2.32.1-3
libbonoboui2-0 (>= 2.15.1) | 2.24.5-2
libc6 (>= 2.7) | 2.19-11
libcairo2 (>= 1.2.4) | 1.12.16-5
libdbus-1-3 (>= 1.0.2) | 1.8.6-2
libdbus-glib-1-2 (>= 0.88) | 0.102-1
libenchant1c2a (>= 1.6) | 1.6.0-10.1
libfontconfig1 (>= 2.8.0) | 2.11.0-6.1
libfreetype6 (>= 2.2.1) | 2.5.2-2
libgconf2-4 (>= 2.31.1) | 3.2.6-3
libgdk-pixbuf2.0-0 (>= 2.22.0) | 2.30.8-1
libglade2-0 (>= 1:2.6.1) | 1:2.6.4-2
libglib2.0-0 (>= 2.24.0) | 2.40.0-5
libgmp10 | 2:6.0.0+dfsg-6
libgnome2-0 (>= 2.17.3) | 2.32.1-5
libgnomecanvas2-0 (>= 2.11.1) | 2.30.3-2
libgnomeui-0 (>= 2.22.0) | 2.24.5-3
libgnomevfs2-0 (>= 1:2.17.90) | 1:2.24.4-6
libgtk2.0-0 (>= 2.24.0) | 2.24.24-1
libgtkhtml3.14-19 (>= 3.32.0) | 3.32.2-2.2
libgtkhtml3.14-19 (<< 3.33) | 3.32.2-2.2
libice6 (>= 1:1.0.0) | 2:1.0.9-1
libltdl7 (>= 2.4) | 2.4.2-1.10+b1
liborbit2 (>= 1:2.14.10) | 1:2.14.19-0.3
libpango1.0-0 (>= 1.14.0) | 1.36.7-1
libpopt0 (>= 1.16) | 1.16-10
libqof2 (>= 0.8.0) | 0.8.7-2
libsm6 | 2:1.2.2-1
libx11-6 | 2:1.6.2-3
libxml2 (>= 2.7.4) | 2.9.1+dfsg1-4
libxss1 | 1:1.2.2-1
gconf2 (>= 2.28.1-2) | 3.2.6-3
Package's Recommends field is empty.
Package's Suggests field is empty.
Debug: HTML Form Input={
interval => KVP_VALUE_STRING(custom),
debug => KVP_VALUE_STRING(1),
start_month => KVP_VALUE_STRING(Mar 2014 ),
start-date => KVP_VALUE_STRING(09 Aug 2014),
end-date => KVP_VALUE_STRING(25 Sep 2014),
start_day => KVP_VALUE_STRING(21 Sep 2014 ),
show-sum-time => KVP_VALUE_STRING(yes),
}
Error: GnoTime caught an error during scheme parse
Backtrace:
In ice-9/boot-9.scm:
157: 14 [catch #t #<catch-closure 9698f20> ...]
In unknown file:
?: 13 [apply-smob/1 #<catch-closure 9698f20>]
In ice-9/boot-9.scm:
157: 12 [catch #t #<catch-closure 9854590> ...]
In unknown file:
?: 11 [apply-smob/1 #<catch-closure 9854590>]
?: 10 [call-with-input-string " \n(use-modules (srfi srfi-1) (srfi srfi-19))\n(if (equal? (gtt-kvp-str \"interval\") \"daily\")\n (begin\n (define report-start (string->number (gtt-kvp-str \"start_day\")))\n (define one-day (time-difference (make-time time-utc 0 86400) (make-time time-utc 0 0)))\n (define report-end (time-second (add-duration (make-time time-utc 0 report-start) one-day)))\n )\n (if (equal? (gtt-kvp-str \"interval\") \"monthly\")\n (begin\n (define report-start (time-second (date->time-utc (string->date (string-append \"01 \" (gtt-kvp-str \"start_month\")) \"~d ~b ~Y\"))))\n (define report-start-date (time-utc->date (make-time time-utc 0 report-start)))\n (define str-next-month (string-append \"01 \" (number->string (+ (date-month report-start-date) 1)) \" \" (number->string (date-year report-start-date))))\n (define report-end (time-second (date->time-utc (string->date str-next-month \"~d ~m ~Y\"
))))\n )\n (if (equal? (gtt-kvp-str \"interval\") \"custom\")\n (begin\n (define report-start\n (catch #t\n (lambda () (time-second (date->time-utc (string->date (gtt-kvp-str \"start-date\") \"~d ~b ~Y\"))))\n (lambda (key . args) 0)\n ))\n (define report-end\n (catch #t\n (lambda () (time-second (date->time-utc (string->date (gtt-kvp-str \"end-date\") \"~d ~b ~Y\"))))\n (lambda (key . args) 0)\n ))\n )))\n)\n(define total-reported-time 0)\n" ...]
In ice-9/boot-9.scm:
2401: 9 [save-module-excursion #<procedure 986f9a8 at ice-9/eval-string.scm:65:9 ()>]
In ice-9/eval-string.scm:
44: 8 [read-and-eval #<input: string 98587f8> #:lang ...]
37: 7 [lp (if (equal? # "daily") (begin # # #) (if # # #))]
In ice-9/eval.scm:
505: 6 [#<procedure 9604450 at ice-9/eval.scm:499:4 (exp)> (if # # #)]
In ice-9/psyntax.scm:
1116: 5 [expand-top-sequence ((if (equal? # "daily") (begin # # ...) ...)) () ...]
1274: 4 [#<procedure 97d2f00 (test then else)> # # #]
954: 3 [expand-sequence (# # #) () (#) ...]
1274: 2 [dobody (# # #) () (#) ...]
In ice-9/boot-9.scm:
102: 1 [#<procedure 97ba080 at ice-9/boot-9.scm:97:6 (thrown-k . args)> syntax-error ...]
In unknown file:
?: 0 [apply-smob/1 #<catch-closure 9854570> syntax-error ...]
ERROR: In procedure apply-smob/1:
ERROR: definition in expression context, where definitions are not allowed,
ABORT: syntax-errorError: GnoTime caught an error during scheme parse
Backtrace:
In ice-9/boot-9.scm:
157: 16 [catch #t #<catch-closure 9698f20> ...]
In unknown file:
?: 15 [apply-smob/1 #<catch-closure 9698f20>]
In ice-9/boot-9.scm:
157: 14 [catch #t #<catch-closure 96dc7c0> ...]
In unknown file:
?: 13 [apply-smob/1 #<catch-closure 96dc7c0>]
?: 12 [call-with-input-string "\n(gtt-show \n (if (equal? (gtt-kvp-str \"interval\") \"daily\")\n (string-append\n \"Daily report for \"\n (date->string (time-utc->date (make-time time-utc 0 report-start)) \"~d ~b ~Y (~A)\")\n )\n (if (equal? (gtt-kvp-str \"interval\") \"monthly\")\n (string-append\n \"Monthly report for \"\n (date->string (time-utc->date (make-time time-utc 0 report-start)) \"~b ~Y\")\n )\n (if (equal? (gtt-kvp-str \"interval\") \"custom\")\n (string-append\n \"Report for \"\n (date->string (time-utc->date (make-time time-utc 0 report-start)) \"~d ~b ~Y\")\n \" - \"\n (date->string (time-utc->date (make-time time-utc 0 report-end)) \"~d ~b ~Y\")\n )\n )))\n)\n" ...]
In ice-9/boot-9.scm:
2401: 11 [save-module-excursion #<procedure 97bb1c8 at ice-9/eval-string.scm:65:9 ()>]
In ice-9/eval-string.scm:
44: 10 [read-and-eval #<input: string 9ab8708> #:lang ...]
37: 9 [lp (gtt-show (if # # #))]
In ice-9/eval.scm:
387: 8 [eval # ()]
387: 7 [eval # ()]
387: 6 [eval # ()]
387: 5 [eval # ()]
387: 4 [eval # ()]
393: 3 [eval #<memoized report-start> ()]
In unknown file:
?: 2 [memoize-variable-access! #<memoized report-start> #<directory # 9645630>]
In ice-9/boot-9.scm:
102: 1 [#<procedure 97fcda0 at ice-9/boot-9.scm:97:6 (thrown-k . args)> unbound-variable ...]
In unknown file:
?: 0 [apply-smob/1 #<catch-closure 96dc720> unbound-variable ...]
ERROR: In procedure apply-smob/1:
ERROR: Unbound variable: report-start
ABORT: unbound-variableError: GnoTime caught an error during scheme parse
Backtrace:
In ice-9/boot-9.scm:
157: 13 [catch #t #<catch-closure 9698f20> ...]
In unknown file:
?: 12 [apply-smob/1 #<catch-closure 9698f20>]
In ice-9/boot-9.scm:
157: 11 [catch #t #<catch-closure 9843a80> ...]
In unknown file:
?: 10 [apply-smob/1 #<catch-closure 9843a80>]
?: 9 [call-with-input-string "\n(if (= report-start 0)\n (gtt-show \n (string-append\n \"<tr><td>\\n\"\n \"<big>ERROR:</big> You have entered an invalid format for the start date: \"\n (gtt-kvp-str \"start-date\")\n \".<br />\\n\"\n \"Please use format like <b>\\\"5 Jul 2006\\\"</b>.\\n\"\n \"</td></tr>\\n\"\n )\n )\n (if (= report-end 0)\n (gtt-show \n (string-append\n \"<tr><td>\\n\"\n \"<big>ERROR:</big> You have entered an invalid format for the end date:\"\n (gtt-kvp-str \"end-date\")\n \".<br />\\n\"\n \"Please use format like <b>\\\"5 Jul 2006\\\"</b>.\\n\"\n \"</td></tr>\\n\"\n )\n )\n\n ; No, don't show *all* projects; just the selected project and its children ...\n ; (show-reported-projects (gtt-projects) \"\")\n (show-reported-projects (list (gtt-linked-project)) \"\") \n))\n" ...
]
In ice-9/boot-9.scm:
2401: 8 [save-module-excursion #<procedure 985d948 at ice-9/eval-string.scm:65:9 ()>]
In ice-9/eval-string.scm:
44: 7 [read-and-eval #<input: string 985ce88> #:lang ...]
37: 6 [lp (if (= report-start 0) (gtt-show #) (if # # #))]
In ice-9/eval.scm:
399: 5 [eval # ()]
387: 4 [eval # ()]
393: 3 [eval #<memoized report-start> ()]
In unknown file:
?: 2 [memoize-variable-access! #<memoized report-start> #<directory # 9645630>]
In ice-9/boot-9.scm:
102: 1 [#<procedure 9acfde0 at ice-9/boot-9.scm:97:6 (thrown-k . args)> unbound-variable ...]
In unknown file:
?: 0 [apply-smob/1 #<catch-closure 9843a60> unbound-variable ...]
ERROR: In procedure apply-smob/1:
ERROR: Unbound variable: report-start
ABORT: unbound-variableError: GnoTime caught an error during scheme parse
Backtrace:
In ice-9/boot-9.scm:
157: 14 [catch #t #<catch-closure 9698f20> ...]
In unknown file:
?: 13 [apply-smob/1 #<catch-closure 9698f20>]
In ice-9/boot-9.scm:
157: 12 [catch #t #<catch-closure 981f4b0> ...]
In unknown file:
?: 11 [apply-smob/1 #<catch-closure 981f4b0>]
?: 10 [call-with-input-string ">\n(if (equal? (gtt-kvp-str \"show-sum-time\") \"yes\")\n (begin\n (gtt-show \"<tr><td bgcolor=#e0e0e0><h3>\")\n (gtt-show (seconds->human-readable total-reported-time \"day\"))\n (gtt-show \"TOTAL</h3></td></tr><tr><td align=right>* 1 day is equal to 8 hours</td></tr>\")\n )\n)\n" ...]
In ice-9/boot-9.scm:
2401: 9 [save-module-excursion #<procedure 9825600 at ice-9/eval-string.scm:65:9 ()>]
In ice-9/eval-string.scm:
44: 8 [read-and-eval #<input: string 9807870> #:lang ...]
37: 7 [lp (if (equal? # "yes") (begin # # #))]
In ice-9/eval.scm:
432: 6 [eval # ()]
387: 5 [eval # ()]
387: 4 [eval # ()]
393: 3 [eval #<memoized total-reported-time> ()]
In unknown file:
?: 2 [memoize-variable-access! # #]
In ice-9/boot-9.scm:
102: 1 [#<procedure 9acfe40 at ice-9/boot-9.scm:97:6 (thrown-k . args)> unbound-variable ...]
In unknown file:
?: 0 [apply-smob/1 #<catch-closure 981f490> unbound-variable ...]
ERROR: In procedure apply-smob/1:
ERROR: Unbound variable: total-reported-time
ABORT: unbound-variable
