Changeset 1989

Show
Ignore:
Timestamp:
10/14/06 09:51:44 (2 years ago)
Author:
hhubner
Message:

XML statistics generation and batch SVG rendering.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • branches/xml-class-rework/projects/bos/m2/m2.lisp

    r1978 r1989  
    388388                                  (random-elt (cons (1+ (random 300)) '(1 1 1 1 1 5 5 10 10 10 10 10 10 10 10 10 10 10 10 10 30 30 30))) 
    389389                                  :paidp t)))) 
     390 
     391 
     392                

  • branches/xml-class-rework/projects/bos/statistics

    • Property svn:ignore changed from
      contracts-by-week.xml
      *.svg
       to
      contracts-by-week.xsl
      contracts-by-week.xml
      *.svg

  • branches/xml-class-rework/projects/bos/statistics/Makefile

    r1988 r1989  
    22BASE_URL        = http://192.168.254.132:8080/reports-xml 
    33YEAR            = 2005 
    4 LOGIN           =  
     4LOGIN           = 
     5OUTPUT_DIR      = ../payment-website/images/statistics 
    56 
    67GRAPHICS        = contracts-by-week.svg 
    …… 
    1920.xsl.svg: 
    2021        xsltproc -o $*.xml $*.xsl '$(BASE_URL)/$*/$(YEAR)$(LOGIN)' 
    21         xsltproc -o $*-$(YEAR).svg buildSVGLineChart.xsl $*.xml 
     22        xsltproc -o $(OUTPUT_DIR)/$*-$(YEAR).svg buildSVGLineChart.xsl $*.xml 
    2223        rm $*.xml 

  • branches/xml-class-rework/projects/bos/statistics/buildSVGLineChart.xsl

    r1988 r1989  
    2222      <xsl:value-of select="minx"/> 
    2323    </xsl:variable> 
    24     <svg width="1200" height="1200" onload="getSVGDoc(evt)" onzoom="ZoomControl()"> 
     24    <svg width="800" height="600" onload="getSVGDoc(evt)" onzoom="ZoomControl()"> 
    2525      <defs> 
    2626        <g id="star" transform="scale(0.21)"> 

  • branches/xml-class-rework/projects/bos/statistics/contracts-by-week.lxsl

    r1988 r1989  
    1818     <xsl:for-each select="week"> 
    1919      <measure> 
    20        <xvalue><xsl:value-of select="substring(@key, 6)"/></xvalue> 
     20       <xvalue><xsl:value-of select="@week-first-yday"/></xvalue> 
    2121       <yvalue><xsl:value-of select="@contracts"/></yvalue> 
    2222      </measure> 
    …… 
    2525   </sets> 
    2626   <minx>1</minx> 
    27    <maxx>52</maxx> 
     27   <maxx>365</maxx> 
    2828   <miny>0</miny> 
    2929   <maxy><xsl:value-of select="$max_contracts"/></maxy> 
    3030   <title>Contracts by week for year <xsl:value-of select="$year"/></title> 
     31   <xvalues> 
     32    <xsl:for-each select="month"> 
     33     <xvalue> 
     34      <value><xsl:value-of select="@start-yday"/></value> 
     35      <label><xsl:value-of select="@name"/></label> 
     36      <gridline>true</gridline> 
     37     </xvalue> 
     38    </xsl:for-each> 
     39   </xvalues> 
    3140   <yvalues> 
    3241    <loop:for name="i" from="20" to="$max_contracts" step="20"> 

  • branches/xml-class-rework/projects/bos/worldpay-test/packages.lisp

    r1977 r1989  
    33(defpackage :worldpay-test 
    44  (:use :cl 
     5        :date-calc 
    56        :extensions 
    67        :cl-user 
    …… 
    1213        :cxml 
    1314        :puri 
    14         :mime 
     15        #+(or) :mime 
    1516        :acl-compat.socket 
    1617        :acl-compat.mp 

  • branches/xml-class-rework/projects/bos/worldpay-test/worldpay-test.asd

    r1978 r1989  
    2929               (:file "boi-handlers" :depends-on ("web-utils")) 
    3030               (:file "contract-handlers" :depends-on ("web-utils")) 
     31               (:file "reports-xml-handler" :depends-on ("boi-handlers")) 
    3132               (:file "sponsor-handlers" :depends-on ("web-utils")) 
    3233               (:file "news-handlers" :depends-on ("web-utils")) 

  • branches/xml-class-rework/projects/bos/worldpay-test/worldpay-test.lisp

    r1977 r1989  
    186186                                        ("/edit-sponsor" edit-sponsor-handler) 
    187187                                        ("/contract" contract-handler) 
     188                                        ("/reports-xml" reports-xml-handler) 
    188189                                        ("/complete-transfer" complete-transfer-handler) 
    189190                                        ("/edit-news" edit-news-handler)