← Back to branch summary

~ubuntu-branches/ubuntu/trusty/anjuta/trusty

« back to all changes in this revision

Viewing changes to plugins/project-wizard/templates/js.wiz

  • Committer: Package Import Robot
  • Author(s): Steve Ovens
  • Date: 2014-01-03 21:06:06 UTC
  • mfrom: (1.1.55)
  • Revision ID: package-import@ubuntu.com-20140103210606-pmvzhu0s68qy6261
Tags: 2:3.10.2-0ubuntu1
https://launchpad.net/bugs/1266037
* New upstream release (LP: #1266037)
- Updated Build-Depends of libgtk-3-dev (>= 3.6.0),
  libglib2.0-dev (>= 2.34.0)

Show diffs side-by-side

added added

removed removed

Lines of Context:
plugins/project-wizard/templates/js.wiz
530
530
                [+INCLUDE "licenses.tpl"+]
531
531
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
532
532
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
533
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
533
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
534
534
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
535
535
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
536
536
        </page>
539
539
                [+INCLUDE "licenses.tpl"+]
540
540
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
541
541
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
542
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
542
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
543
543
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
544
544
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
545
545
        </page>
548
548
                [+INCLUDE "licenses.tpl"+]
549
549
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
550
550
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
551
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
551
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
552
552
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
553
553
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
554
554
        </page>
557
557
                [+INCLUDE "licenses.tpl"+]
558
558
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
559
559
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
560
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
560
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
561
561
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
562
562
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
563
563
        </page>
566
566
                [+INCLUDE "licenses.tpl"+]
567
567
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
568
568
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
569
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
569
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
570
570
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
571
571
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
572
572
        </page>
575
575
                [+INCLUDE "licenses.tpl"+]
576
576
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
577
577
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
578
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
578
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
579
579
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
580
580
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
581
581
        </page>
584
584
                [+INCLUDE "licenses.tpl"+]
585
585
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
586
586
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
587
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
587
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
588
588
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
589
589
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
590
590
        </page>
593
593
                [+INCLUDE "licenses.tpl"+]
594
594
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
595
595
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
596
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
596
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
597
597
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
598
598
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
599
599
        </page>
602
602
                [+INCLUDE "licenses.tpl"+]
603
603
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
604
604
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
605
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
605
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
606
606
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
607
607
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
608
608
        </page>
611
611
                [+INCLUDE "licenses.tpl"+]
612
612
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
613
613
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
614
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
614
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
615
615
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
616
616
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
617
617
        </page>
620
620
                [+INCLUDE "licenses.tpl"+]
621
621
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
622
622
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
623
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
623
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
624
624
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
625
625
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
626
626
        </page>
629
629
                [+INCLUDE "licenses.tpl"+]
630
630
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
631
631
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
632
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
632
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
633
633
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
634
634
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
635
635
        </page>
638
638
                [+INCLUDE "licenses.tpl"+]
639
639
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
640
640
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
641
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
641
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
642
642
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
643
643
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
644
644
        </page>
647
647
                [+INCLUDE "licenses.tpl"+]
648
648
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
649
649
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
650
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
650
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
651
651
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
652
652
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
653
653
        </page>
656
656
                [+INCLUDE "licenses.tpl"+]
657
657
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
658
658
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
659
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
659
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
660
660
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
661
661
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
662
662
        </page>
665
665
                [+INCLUDE "licenses.tpl"+]
666
666
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
667
667
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
668
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
668
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
669
669
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
670
670
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
671
671
        </page>
674
674
                [+INCLUDE "licenses.tpl"+]
675
675
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
676
676
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
677
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
677
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
678
678
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
679
679
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
680
680
        </page>
683
683
                [+INCLUDE "licenses.tpl"+]
684
684
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
685
685
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
686
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
686
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
687
687
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
688
688
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
689
689
        </page>
692
692
                [+INCLUDE "licenses.tpl"+]
693
693
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
694
694
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
695
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
695
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
696
696
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
697
697
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
698
698
        </page>
701
701
                [+INCLUDE "licenses.tpl"+]
702
702
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
703
703
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
704
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
704
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
705
705
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
706
706
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
707
707
        </page>
710
710
                [+INCLUDE "licenses.tpl"+]
711
711
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
712
712
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
713
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
713
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
714
714
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
715
715
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
716
716
        </page>
719
719
                [+INCLUDE "licenses.tpl"+]
720
720
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
721
721
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
722
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
722
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
723
723
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
724
724
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
725
725
        </page>
728
728
                [+INCLUDE "licenses.tpl"+]
729
729
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
730
730
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
731
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
731
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
732
732
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
733
733
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
734
734
        </page>
737
737
                [+INCLUDE "licenses.tpl"+]
738
738
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
739
739
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
740
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
740
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
741
741
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
742
742
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
743
743
        </page>
746
746
                [+INCLUDE "licenses.tpl"+]
747
747
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
748
748
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
749
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
749
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
750
750
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
751
751
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
752
752
        </page>
755
755
                [+INCLUDE "licenses.tpl"+]
756
756
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
757
757
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
758
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
758
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
759
759
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
760
760
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
761
761
        </page>
764
764
                [+INCLUDE "licenses.tpl"+]
765
765
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
766
766
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
767
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
767
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
768
768
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
769
769
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
770
770
        </page>
773
773
                [+INCLUDE "licenses.tpl"+]
774
774
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
775
775
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
776
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
776
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
777
777
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
778
778
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
779
779
        </page>
782
782
                [+INCLUDE "licenses.tpl"+]
783
783
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
784
784
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
785
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
785
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
786
786
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
787
787
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
788
788
        </page>
791
791
                [+INCLUDE "licenses.tpl"+]
792
792
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
793
793
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
794
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
794
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
795
795
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
796
796
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
797
797
        </page>
800
800
                [+INCLUDE "licenses.tpl"+]
801
801
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
802
802
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
803
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
803
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
804
804
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
805
805
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
806
806
        </page>
809
809
                [+INCLUDE "licenses.tpl"+]
810
810
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
811
811
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
812
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
812
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
813
813
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
814
814
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
815
815
        </page>
818
818
                [+INCLUDE "licenses.tpl"+]
819
819
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
820
820
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
821
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
821
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
822
822
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
823
823
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
824
824
        </page>
827
827
                [+INCLUDE "licenses.tpl"+]
828
828
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
829
829
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
830
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
830
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
831
831
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
832
832
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
833
833
        </page>
836
836
                [+INCLUDE "licenses.tpl"+]
837
837
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
838
838
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
839
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
839
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
840
840
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
841
841
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
842
842
        </page>
845
845
                [+INCLUDE "licenses.tpl"+]
846
846
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
847
847
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
848
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
848
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
849
849
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
850
850
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
851
851
        </page>
854
854
                [+INCLUDE "licenses.tpl"+]
855
855
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
856
856
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
857
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
857
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
858
858
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
859
859
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
860
860
        </page>
863
863
                [+INCLUDE "licenses.tpl"+]
864
864
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
865
865
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
866
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
866
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
867
867
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
868
868
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
869
869
        </page>
872
872
                [+INCLUDE "licenses.tpl"+]
873
873
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
874
874
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
875
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
875
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
876
876
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
877
877
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
878
878
        </page>
881
881
                [+INCLUDE "licenses.tpl"+]
882
882
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
883
883
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
884
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
884
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
885
885
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
886
886
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
887
887
        </page>
890
890
                [+INCLUDE "licenses.tpl"+]
891
891
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
892
892
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
893
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
893
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
894
894
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
895
895
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
896
896
        </page>
899
899
                [+INCLUDE "licenses.tpl"+]
900
900
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
901
901
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
902
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
902
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
903
903
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
904
904
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
905
905
        </page>
908
908
                [+INCLUDE "licenses.tpl"+]
909
909
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
910
910
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
911
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
911
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
912
912
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
913
913
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
914
914
        </page>
917
917
                [+INCLUDE "licenses.tpl"+]
918
918
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
919
919
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
920
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
920
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
921
921
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
922
922
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
923
923
        </page>
926
926
                [+INCLUDE "licenses.tpl"+]
927
927
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
928
928
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
929
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
929
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
930
930
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
931
931
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
932
932
        </page>
935
935
                [+INCLUDE "licenses.tpl"+]
936
936
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
937
937
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
938
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
938
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
939
939
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
940
940
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
941
941
        </page>
944
944
                [+INCLUDE "licenses.tpl"+]
945
945
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
946
946
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
947
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
947
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
948
948
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
949
949
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
950
950
        </page>
953
953
                [+INCLUDE "licenses.tpl"+]
954
954
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
955
955
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
956
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
956
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
957
957
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
958
958
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
959
959
        </page>
962
962
                [+INCLUDE "licenses.tpl"+]
963
963
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
964
964
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
965
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
965
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
966
966
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
967
967
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
968
968
        </page>
971
971
                [+INCLUDE "licenses.tpl"+]
972
972
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
973
973
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
974
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
974
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
975
975
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
976
976
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
977
977
        </page>
980
980
                [+INCLUDE "licenses.tpl"+]
981
981
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
982
982
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
983
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
983
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
984
984
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
985
985
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
986
986
        </page>
989
989
                [+INCLUDE "licenses.tpl"+]
990
990
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
991
991
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
992
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
992
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
993
993
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
994
994
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
995
995
        </page>
998
998
                [+INCLUDE "licenses.tpl"+]
999
999
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
1000
1000
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
1001
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
1001
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
1002
1002
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
1003
1003
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
1004
1004
        </page>
1007
1007
                [+INCLUDE "licenses.tpl"+]
1008
1008
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
1009
1009
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
1010
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
1010
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
1011
1011
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
1012
1012
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
1013
1013
        </page>
1016
1016
                [+INCLUDE "licenses.tpl"+]
1017
1017
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
1018
1018
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
1019
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
1019
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
1020
1020
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
1021
1021
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
1022
1022
        </page>
1025
1025
                [+INCLUDE "licenses.tpl"+]
1026
1026
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
1027
1027
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
1028
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
1028
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
1029
1029
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
1030
1030
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
1031
1031
        </page>
1034
1034
                [+INCLUDE "licenses.tpl"+]
1035
1035
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
1036
1036
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
1037
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
1037
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
1038
1038
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
1039
1039
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
1040
1040
        </page>
1043
1043
                [+INCLUDE "licenses.tpl"+]
1044
1044
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
1045
1045
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
1046
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
1046
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
1047
1047
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
1048
1048
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
1049
1049
        </page>
1052
1052
                [+INCLUDE "licenses.tpl"+]
1053
1053
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
1054
1054
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
1055
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
1055
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
1056
1056
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
1057
1057
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
1058
1058
        </page>
1061
1061
                [+INCLUDE "licenses.tpl"+]
1062
1062
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
1063
1063
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
1064
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
1064
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
1065
1065
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
1066
1066
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
1067
1067
        </page>
1070
1070
                [+INCLUDE "licenses.tpl"+]
1071
1071
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
1072
1072
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
1073
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
1073
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
1074
1074
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
1075
1075
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
1076
1076
        </page>
1079
1079
                [+INCLUDE "licenses.tpl"+]
1080
1080
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
1081
1081
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
1082
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
1082
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
1083
1083
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
1084
1084
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
1085
1085
        </page>
1088
1088
                [+INCLUDE "licenses.tpl"+]
1089
1089
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
1090
1090
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
1091
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
1091
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
1092
1092
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
1093
1093
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
1094
1094
        </page>
1097
1097
                [+INCLUDE "licenses.tpl"+]
1098
1098
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
1099
1099
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
1100
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
1100
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
1101
1101
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
1102
1102
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
1103
1103
        </page>
1106
1106
                [+INCLUDE "licenses.tpl"+]
1107
1107
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
1108
1108
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
1109
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
1109
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
1110
1110
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
1111
1111
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
1112
1112
        </page>
1115
1115
                [+INCLUDE "licenses.tpl"+]
1116
1116
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
1117
1117
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
1118
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
1118
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
1119
1119
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
1120
1120
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
1121
1121
        </page>
1124
1124
                [+INCLUDE "licenses.tpl"+]
1125
1125
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
1126
1126
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
1127
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
1127
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
1128
1128
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
1129
1129
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
1130
1130
        </page>
1133
1133
                [+INCLUDE "licenses.tpl"+]
1134
1134
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
1135
1135
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
1136
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
1136
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
1137
1137
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
1138
1138
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
1139
1139
        </page>
1142
1142
                [+INCLUDE "licenses.tpl"+]
1143
1143
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
1144
1144
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
1145
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
1145
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
1146
1146
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
1147
1147
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
1148
1148
        </page>
1151
1151
                [+INCLUDE "licenses.tpl"+]
1152
1152
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
1153
1153
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
1154
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
1154
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
1155
1155
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
1156
1156
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
1157
1157
        </page>
1160
1160
                [+INCLUDE "licenses.tpl"+]
1161
1161
                <property type="hidden" name="NameUpper" default='[+(string-upcase (get "Name"))+]'/>
1162
1162
                <property type="hidden" name="NameLower" default='[+(string-downcase (get "Name"))+]'/>
1163
 
                <property type="hidden" name="NameCUpper" default='[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]'/>
 
1163
                <property type="hidden" name="NameCUpper" default='[+(string-append (if (~~* (get "Name") "[0-9]") "_" "") (string->c-name! (string-substitute (string-upcase (get "Name")) " " "_")))+]'/>
1164
1164
                <property type="hidden" name="NameCLower" default='[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]'/>
1165
1165
                <property type="hidden" name="NameHLower" default='[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]'/>
1166
1166
        </page>