-
-sub new_callback {
- my ($cgi, $object, $fields_listref, $opt_hashref) = @_;
- my $template_content = new FS::template_content { 'locale' => '' };
- $object->{'Hash'} = { $object->hash, $template_content->hash };
-}
-
-sub edit_callback {
- my ($cgi, $object, $fields_listref, $opt_hashref) = @_;
- $cgi->param('locale') =~ /^(\w*)$/ or die 'bad locale '.$cgi->param('locale');
- my $locale = $1;
-
- # fetch the content object and merge its fields
- my %args = (
- 'msgnum' => $object->msgnum,
- 'locale' => $locale
- );
- my $template_content = qsearchs('template_content', \%args)
- || new FS::template_content( { %args });
- $object->{'Hash'} = { $object->hash, $template_content->hash };
-
- # set up the locale selector if this is a new content
- if ( $locale eq 'new' ) {
-
- # make a list of available locales
- my $content_locales = $object->content_locales;
- my @locales = grep { !exists($content_locales->{$_}) }
- FS::Conf->new->config('available-locales');
- my %labels;
- foreach (@locales) {
- my %info = FS::Locales->locale_info($_);
- $labels{$_} = $info{'label'};
- }
- unshift @locales, 'new';
- $labels{'new'} = 'Select language';
-
- # insert a field def
- my $i = 0;
- $i++ until ( $fields_listref->[$i]->{'field'} eq 'locale' );
- my $locale_field = $fields_listref->[$i];
-
- my $onchange_locale = "document.getElementById('submit').disabled =
- (this.options[this.selectedIndex].value == 'new');";
-
- %$locale_field = (
- field => 'locale',
- type => 'select',
- options => \@locales,
- labels => \%labels,
- curr_value => 'new',
- onchange => $onchange_locale,
- );
- }
-}
-
-sub menubar_opt_callback {
- my $object = shift;
- # generate no tabs for new msg_templates.
- my $msgnum = $object->msgnum or return;
- my (@tabs, @options, %labels);
- push @tabs, mt('Default'), '';
- my $display_new = 0;
- my $selected = '';
- foreach my $l (FS::Locales->locales) {
- if ( exists $object->content_locales->{$l} ) {
- my %info = FS::Locales->locale_info($l);
- push @tabs,
- $info{'label'},
- ';locale='.$l;
- $selected = $info{'label'} if $object->locale eq $l;
- }
- else {
- $display_new = 1; # there is at least one unused locale left
- }
- }
- push @tabs, mt('New'), ';locale=new' if $display_new;
- $selected = mt('New') if $object->locale eq 'new';
- $selected ||= mt('Default');
- (
- 'url_base' => $p.'edit/msg_template.html?msgnum='.$msgnum,
- 'selected' => $selected,
- 'tabs' => \@tabs
- );
-}
-
-my $onchange_locale = '';
-
-# Create hints pane
-
-my %substitutions = (
- 'cust_main' => [
- '$display_custnum'=> 'Customer#',
- '$agentnum' => 'Agent#',
- '$agent_name' => 'Agent name',
- '$payby' => 'Payment method',
- '$paymask' => 'Card/account# (masked)',
- '$payname' => 'Name on card/bank name',
- '$paytype' => 'Account type',
- '$payip' => 'IP address used to submit payment info',
- '$num_ncancelled_pkgs' => '# of active packages',
- '$num_cancelled_pkgs' => '# of cancelled packages',
- '$num_pkgs' => '# of packages',
- '$classname' => 'Customer class',
- '$categoryname' => 'Customer category',
- '$balance' => 'Current balance',
- '$credit_limit' => 'Credit limit',
- '$invoicing_list_emailonly' => 'Billing email address',
- #'$cust_status' => 'Status (raw internal label)',
- '$cust_status_label' => 'Status (display label)',
- '$cust_statuscolor' => 'Status color code',
- '$company_name' => 'Our company name',
- '$company_address'=> 'Our company address',
- '$company_phonenum' => 'Our phone number',
- '$selfservice_server_base_url' => 'Base URL of customer self-service',
- ],
- 'contact' => [ # duplicate this for shipping
- '$name' => 'Company and contact name',
- '$name_short' => 'Company or contact name',
- '$company' => 'Company name',
- '$contact' => 'Contact name (last, first)',
- '$contact_firstlast'=> 'Contact name (first last)',
- '$first' => 'First name',
- '$last' => 'Last name',
- '$address1' => 'Address line 1',
- '$address2' => 'Address line 2',
- '$city' => 'City',
- '$county' => 'County',
- '$state' => 'State',
- '$zip' => 'Zip',
- '$country' => 'Country',
- '$daytime' => 'Day phone',
- '$night' => 'Night phone',
- '$mobile' => 'Mobile phone',
- '$fax' => 'Fax',
- ],
- 'service' => [
- '$ship_address1' => 'Address line 1',
- '$ship_address2' => 'Address line 2',
- '$ship_city' => 'City',
- '$ship_county' => 'County',
- '$ship_state' => 'State',
- '$ship_zip' => 'Zip',
- '$ship_country' => 'Country',
- ],
- 'cust_bill' => [
- '$invnum' => 'Invoice#',
- '$_date_pretty' => 'Invoice date',
- '$due_date' => 'Invoice due date (timestamp)',
- '$due_date2str' => 'Invoice due date (human readable)',
- ],
- 'cust_pkg' => [
- '$pkgnum' => 'Package#',
- '$pkg' => 'Package description',
- '$pkg_label' => 'Description + comment',
- '$status' => 'Status',
- '$statuscolor' => 'Status color code',
- '$start_ymd' => 'Start date',
- '$setup_ymd' => 'Setup date',
- '$last_bill_ymd' => 'Last bill date',
- '$next_bill_ymd' => 'Next bill date',
- '$susp_ymd' => 'Suspended on date',
- '$cancel_ymd' => 'Canceled on date',
- '$adjourn_ymd' => 'Adjournment date',
- '$expire_ymd' => 'Expiration date',
- '$labels_short' => 'Service labels',
- '$location_label' => 'Service location',
- ],
- 'svc_acct' => [
- '$svcnum' => 'Service#',
- '$username' => 'Login name',
- '$password' => 'Password',
- '$domain' => 'Domain name',
- ],
- 'svc_domain' => [
- '$svcnum' => 'Service#',
- '$domain' => 'Domain name',
- '$registrar' => 'Registrar name',
- '$catchall' => 'Catchall email',
- ],
- 'svc_phone' => [
- '$svcnum' => 'Service#',
- '$phonenum' => 'Phone number',
- '$countrycode' => 'Country code',
- '$domain' => 'Domain name'
- ],
- 'svc_broadband' => [
- '$svcnum' => 'Service#',
- '$ip_addr' => 'IP address',
- '$mac_addr' => 'MAC address',
- '$speed_up' => 'Upstream speed',
- '$speed_down' => 'Downstream speed',
- ],
- 'cust_pay' => [
- '$paynum' => 'Payment#',
- '$paid' => 'Amount',
- '$payby' => 'Payment method',
- '$date' => 'Payment date',
- '$payinfo' => 'Card/account# (masked)',
- '$error' => 'Decline reason',
- ],
-);
-
-tie my %sections, 'Tie::IxHash', (
-'contact' => 'Name and contact info (billing)',
-'service' => 'Service address',
-'cust_main' => 'Customer status and payment info',
-'cust_pkg' => 'Package fields',
-'cust_bill' => 'Invoice fields',
-'cust_pay' => 'Payment fields',
-'svc_acct' => 'Login service fields',
-'svc_domain'=> 'Domain service fields',
-'svc_phone' => 'Phone service fields',
-'svc_broadband' => 'Broadband service fields',
-);
-
-my $widget = new HTML::Widgets::SelectLayers(
- 'options' => \%sections,
- 'form_name' => 'dummy',
- 'html_between'=>'</FORM><FONT SIZE=-1>',
- 'selected_layer'=>(keys(%sections))[0],
- 'layer_callback' => sub {
- my $section = shift;
- my $html = include('/elements/table-grid.html');
- my @hints = @{ $substitutions{$section} };
- while(@hints) {
- my $key = shift @hints;
- $html .= qq!\n<TR><TD><A href="javascript:insertHtml('{$key}')">$key</A></TD>!;
- $html .= "\n<TD>".shift(@hints).'</TD></TR>';
- }
- $html .= "\n</TABLE>";
- return $html;
- },
-);
-
-my $sidebar = '
-<SCRIPT TYPE="text/javascript">
-function insertHtml(what) {
- var oEditor = CKEDITOR.instances["body"];
- oEditor.insertHtml(what);
-};
-
-function areyousure(url, message) {
- if (confirm(message))
- window.location.href = url;
-}
-</SCRIPT>
-<TD valign="top"><FORM name="dummy">
-Substitutions: '
-. $widget->html .
-'<P>Click above links to insert substitution code.</P>
-<P>
-Enclose substitutions and other Perl expressions in braces:
-<BR>{ $name } = ExampleCo (Smith, John)
-<BR>{ time2str("%D", time) } = '.time2str("%D", time).'
-</P>';
-$sidebar .= include('/elements/template_image-dialog.html',
- 'callback' => 'insertHtml'
- );
-$sidebar .= '<P><A HREF="javascript:insertImageDialog()">Insert Uploaded Image</A></P>
-</FONT></TD>
-';
-
-sub html_table_bottom {
- my $object = shift;
- $cgi->param('locale') =~ /^(\w+)$/;
- my $locale = $1;
- my $html;
- if ( $locale and $locale ne 'new' ) {
- # set up a delete link
- my $msgnum = $object->msgnum;
- my $url = $p."misc/delete-template_content.html?msgnum=$msgnum;locale=$1";
- my $link = qq!<A HREF="javascript:areyousure('$url','Really delete this template?')">! .
- 'Delete this template' .
- '</A>';
- $html = qq!<TR><TD></TD>
- <TD STYLE="font-style: italic; font-size: small">$link</TD></TR>!;
- }
- $html;
-}
-