diff options
author | ivan <ivan> | 2004-03-24 14:17:29 +0000 |
---|---|---|
committer | ivan <ivan> | 2004-03-24 14:17:29 +0000 |
commit | 39829996e06feb07cc5c59f6c0a30b807c98a0c4 (patch) | |
tree | a42156e3ca4df29b96d2633d4c7cad12415cafef | |
parent | 9769323a1645b8f298ea4469261da54fed7c1225 (diff) |
update example export for the new world of export data in themodule files
-rw-r--r-- | eg/export_template.pm | 27 |
1 files changed, 26 insertions, 1 deletions
diff --git a/eg/export_template.pm b/eg/export_template.pm index ca58d4bed..2c199db85 100644 --- a/eg/export_template.pm +++ b/eg/export_template.pm @@ -1,10 +1,35 @@ package FS::part_export::myexport; -use vars qw(@ISA); +use vars qw(@ISA %info); +use Tie::IxHash; use FS::part_export; @ISA = qw(FS::part_export); +tie my %options, 'Tie::IxHash', + 'regular_option' => { label => 'Option description', default => 'value' }, + 'select_option' => { label => 'Select option description', + type => 'select', options=>[qw(chocolate vanilla)], + default => 'vanilla', + }, + 'textarea_option' => { label => 'Textarea option description', + type => 'textarea', + default => 'Default text.', + }, + 'checkbox_option' => { label => 'Checkbox label', type => 'checkbox' }, +; + +%info = ( + 'svc' => 'svc_acct', + #'svc' => [qw( svc_acct svc_forward )], + 'desc' => + 'Export short description', + 'options' => \%options, + 'nodomain' => 'Y', + 'notes' => <<'END' +HTML notes about this export. +END + sub rebless { shift; } sub _export_insert { |