[freeside-commits] freeside/FS/FS/part_export communigate_pro.pm, 1.16.4.15, 1.16.4.16

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_export
In directory wavetail.420.am:/tmp/cvs-serv32021/FS/FS/part_export

Modified Files:
      Tag: FREESIDE_1_9_BRANCH
	communigate_pro.pm 
Log Message:
communigate (phase 2): Account Preferences (& Domain::Account Defaults:Preferences): ProntoSkinName  RT#7514

Index: communigate_pro.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/communigate_pro.pm,v
retrieving revision 1.16.4.15
retrieving revision 1.16.4.16
diff -u -w -d -r1.16.4.15 -r1.16.4.16
--- communigate_pro.pm	20 Apr 2010 01:51:55 -0000	1.16.4.15
+++ communigate_pro.pm	20 Apr 2010 04:14:04 -0000	1.16.4.16
@@ -112,7 +112,7 @@
   $prefs{'Language'} = $svc_acct->cgp_language if $svc_acct->cgp_language;
   $prefs{'TimeZone'} = $svc_acct->cgp_timezone if $svc_acct->cgp_timezone;
   $prefs{'SkinName'} = $svc_acct->cgp_skinname if $svc_acct->cgp_skinname;
-  #XXX pronto style
+  $prefs{'ProntoSkinName'} = $svc_acct->cgp_prontoskinname if $svc_acct->cgp_prontoskinname;
   $prefs{'SendMDNMode'} = $svc_acct->cgp_sendmdnmode if $svc_acct->cgp_sendmdnmode;
   if ( keys %prefs ) {
     my $pref_err = $self->communigate_pro_queue( $svc_acct->svcnum,
@@ -198,7 +198,7 @@
     'Language'    => $svc_domain->acct_def_cgp_language,
     'TimeZone'    => $svc_domain->acct_def_cgp_timezone,
     'SkinName'    => $svc_domain->acct_def_cgp_skinname,
-    #XXX pronto style?
+    'ProntoSkinName' => $svc_domain->acct_def_cgp_prontoskinname,
     'SendMDNMode' => $svc_domain->acct_def_cgp_sendmdnmode,
   );
   warn "WARNING: error queueing SetAccountDefaultPrefs job: $pref_err"
@@ -325,7 +325,8 @@
     if $old->cgp_timezone ne $new->cgp_timezone;
   $prefs{'SkinName'} = $new->cgp_skinname
     if $old->cgp_skinname ne $new->cgp_skinname;
-  #XXX pronto style
+  $prefs{'ProntoSkinName'} = $new->cgp_prontoskinname
+    if $old->cgp_prontoskinname ne $new->cgp_prontoskinname;
   $prefs{'SendMDNMode'} = $new->cgp_sendmdnmode
     if $old->cgp_sendmdnmode ne $new->cgp_sendmdnmode;
   if ( keys %prefs ) {
@@ -422,7 +423,7 @@
     'Language' => $new->acct_def_cgp_language,
     'TimeZone' => $new->acct_def_cgp_timezone,
     'SkinName' => $new->acct_def_cgp_skinname,
-    #XXX Pronto style
+    'ProntoSkinName' => $new->acct_def_cgp_prontoskinname,
     'SendMDNMode' => $new->acct_def_cgp_sendmdnmode,
   );
   warn "WARNING: error queueing SetAccountDefaultPrefs job: $pref_err"