- move cyrus, shellcommands, CP exports exports to new-style

[freeside.git] / eg / export_template.pm

diff --git a/eg/export_template.pm b/eg/export_template.pm
index 11e1c3b..f2a5a19 100644 (file)
--- a/eg/export_template.pm
+++ b/eg/export_template.pm
@@ -10,7 +10,7 @@ sub rebless { shift; }
 sub _export_insert {
   my($self, $svc_something) = (shift, shift);
   $self->myexport_queue( $svc_acct->svcnum, 'insert',
 sub _export_insert {
   my($self, $svc_something) = (shift, shift);
   $self->myexport_queue( $svc_acct->svcnum, 'insert',

-    $svc_something->username, $svc_something->password );
+    $svc_something->username, $svc_something->_password );

 }
 
 sub _export_replace {
 }
 
 sub _export_replace {


@@ -19,7 +19,7 @@ sub _export_replace {
   #  if $old->username ne $new->username;
   #return '' unless $old->_password ne $new->_password;
   $self->myexport_queue( $new->svcnum,
   #  if $old->username ne $new->username;
   #return '' unless $old->_password ne $new->_password;
   $self->myexport_queue( $new->svcnum,

-    'replace', $new->username, $new->password );
+    'replace', $new->username, $new->_password );

 }
 
 sub _export_delete {
 }
 
 sub _export_delete {