customer edit: abstract out billing info to billing.html, re-do payment type selection with HTML::Widgets::SelectLayers, add Switch/Solo/Maestro support for start date & issue #. customer view: re-order fields for consistency. selfservice API: support paystart_month, paystart_year, payissue and payip in MyAccount::process_payment and ::edit_info and Signup::new_customer, FS::cust_main::realtime_bop: support paystart_month paystart_year payissue payip fields

4 files changed, 222 insertions, 0 deletions

diff --git a/httemplate/elements/overlibmws_draggable.js b/httemplate/elements/overlibmws_draggable.js
new file mode 100644
index 000000000..14e4a6062
--- /dev/null
+++ b/httemplate/elements/overlibmws_draggable.js
@@ -0,0 +1,78 @@
+/*

+ overlibmws_draggable.js plug-in module - Copyright Foteos Macrides 2002=2005

+   For support of the DRAGGABLE feature.

+   Initial: August 24, 2002 - Last Revised: January 12, 2005

+ See the Change History and Command Reference for overlibmws via:

+

+	http://www.macridesweb.com/oltest/

+

+ Published under an open source license: http://www.macridesweb.com/oltest/license.html

+*/

+

+OLloaded=0;

+OLregCmds('draggable');

+

+// DEFAULT CONFIGURATION

+if(OLud('draggable'))var ol_draggable=0;

+// END CONFIGURATION

+

+var o3_draggable=0,o3_dragging=0,OLmMv,OLcX,OLcY,OLcbX,OLcbY;

+function OLloadDraggable(){OLload('draggable');}

+function OLparseDraggable(pf,i,ar){

+var k=i;

+if(k<ar.length){if(Math.abs(ar[k])==DRAGGABLE){OLtoggle(ar[k],pf+'draggable');return k;}}

+return -1;

+}

+

+function OLcheckDrag(){

+if(o3_draggable){if(o3_sticky&&(o3_frame==self))initDrag();else o3_draggable=0;}

+}

+function initDrag(){

+OLmMv=OLdw.onmousemove;o3_dragging=0;

+if(OLns4){document.captureEvents(Event.MOUSEDOWN|Event.CLICK);

+document.onmousedown=OLgrabEl;;document.onclick=function(e){return routeEvent(e);}}

+else{over.onmousedown=OLgrabEl;OLsetDrgCur(1);}

+}

+function OLsetDrgCur(d){if(!OLns4)over.style.cursor=(d?'move':'auto');}

+

+function OLgrabEl(e){

+var e=(e||event);

+var cKy=(OLns4?e.modifiers&Event.ALT_MASK:(!OLop7?e.altKey:e.ctrlKey));o3_dragging=1;

+if(cKy){OLsetDrgCur(0);document.onmouseup=function(){OLsetDrgCur(1);o3_dragging=0;}

+return(OLns4?routeEvent(e):true);}

+OLx=(e.pageX||e.clientX+OLfd().scrollLeft);OLy=(e.pageY||e.clientY+OLfd().scrollTop);

+if(OLie4)over.onselectstart=function(){return false;}

+if(OLns4){OLcX=OLx;OLcY=OLy;document.captureEvents(Event.MOUSEUP)}else{

+OLcX=OLx-(OLns4?over.left:parseInt(over.style.left));

+OLcY=OLy-(OLns4?over.top:parseInt(over.style.top));

+if((OLshadowPI)&&bkdrop&&o3_shadow){OLcbX=OLx-(parseInt(bkdrop.style.left));

+OLcbY=OLy-(parseInt(bkdrop.style.top));}}OLdw.onmousemove=OLmoveEl;

+document.onmouseup=function(){

+if(OLie4)over.onselectstart=null;o3_dragging=0;OLdw.onmousemove=OLmMv;}

+return(OLns4?routeEvent(e):false);

+}

+

+function OLmoveEl(e){

+var e=(e||event);

+OLx=(e.pageX||e.clientX+OLfd().scrollLeft);OLy=(e.pageY||e.clientY+OLfd().scrollTop);

+if(o3_dragging){if(OLns4){over.moveBy(OLx-OLcX,OLy-OLcY);

+if(OLshadowPI&&bkdrop&&o3_shadow)bkdrop.moveBy(OLx-OLcX,OLy-OLcY);}

+else{OLrepositionTo(over,OLx-OLcX,OLy-OLcY);

+if((OLiframePI)&&OLie55&&OLifsP1)OLrepositionTo(OLifsP1,OLx-OLcX,OLy-OLcY);

+if((OLshadowPI)&&bkdrop&&o3_shadow){OLrepositionTo(bkdrop,OLx-OLcbX,OLy-OLcbY);

+if((OLiframePI)&&OLie55&&OLifsSh)OLrepositionTo(OLifsSh,OLx-OLcbX,OLy-OLcbY);}}

+if(OLhidePI)OLhideUtil(0,1,1,0,0,0);}if(OLns4){OLcX=OLx;OLcY=OLy;}

+return false;

+}

+

+function OLclearDrag(){

+if(OLns4){document.releaseEvents(Event.MOUSEDOWN|Event.MOUSEUP|Event.CLICK);

+document.onmousedown=document.onclick=null;}else{over.onmousedown=null;OLsetDrgCur(0);}

+document.onmouseup=null;o3_dragging=0;

+}

+

+OLregRunTimeFunc(OLloadDraggable);

+OLregCmdLineFunc(OLparseDraggable);

+

+OLdraggablePI=1;

+OLloaded=1;

diff --git a/httemplate/elements/overlibmws_iframe.js b/httemplate/elements/overlibmws_iframe.js
new file mode 100644
index 000000000..e3032f2ee
--- /dev/null
+++ b/httemplate/elements/overlibmws_iframe.js
@@ -0,0 +1,93 @@
+/*

+ overlibmws_iframe.js plug-in module - Copyright Foteos Macrides 2003-2005

+   Masks system controls to prevent obscuring of popops for IE v5.5 or higher.

+   Initial: October 19, 2003 - Last Revised: May 15, 2005

+ See the Change History and Command Reference for overlibmws via:

+

+	http://www.macridesweb.com/oltest/

+

+ Published under an open source license: http://www.macridesweb.com/oltest/license.html

+*/

+

+OLloaded=0;

+

+var OLifsP1=null,OLifsSh=null,OLifsP2=null;

+

+// IFRAME SHIM SUPPORT FUNCTIONS

+function OLinitIfs(){

+if(!OLie55)return;

+if((OLovertwoPI)&&over2&&over==over2){

+var o=o3_frame.document.all['overIframeOvertwo'];

+if(!o||OLifsP2!=o){OLifsP2=null;OLgetIfsP2Ref();}return;}

+o=o3_frame.document.all['overIframe'];

+if(!o||OLifsP1!=o){OLifsP1=null;OLgetIfsRef();}

+if((OLshadowPI)&&o3_shadow){o=o3_frame.document.all['overIframeShadow'];

+if(!o||OLifsSh!=o){OLifsSh=null;OLgetIfsShRef();}}

+}

+

+function OLsetIfsRef(o,i,z){

+o.id=i;o.src='javascript:false;';o.scrolling='no';var os=o.style;

+os.position='absolute';os.top=0;os.left=0;os.width=1;os.height=1;os.visibility='hidden';

+os.zIndex=over.style.zIndex-z;os.filter='Alpha(style=0,opacity=0)';

+}

+

+function OLgetIfsRef(){

+if(OLifsP1||!OLie55)return;

+OLifsP1=o3_frame.document.createElement('iframe');

+OLsetIfsRef(OLifsP1,'overIframe',2);

+o3_frame.document.body.appendChild(OLifsP1);

+}

+

+function OLgetIfsShRef(){

+if(OLifsSh||!OLie55)return;

+OLifsSh=o3_frame.document.createElement('iframe');

+OLsetIfsRef(OLifsSh,'overIframeShadow',3);

+o3_frame.document.body.appendChild(OLifsSh);

+}

+

+function OLgetIfsP2Ref(){

+if(OLifsP2||!OLie55)return;

+OLifsP2=o3_frame.document.createElement('iframe');

+OLsetIfsRef(OLifsP2,'overIframeOvertwo',1);

+o3_frame.document.body.appendChild(OLifsP2);

+}

+

+function OLsetDispIfs(o,w,h){

+var os=o.style;

+os.width=w+'px';os.height=h+'px';os.clip='rect(0px '+w+'px '+h+'px 0px)';

+o.filters.alpha.enabled=true;

+}

+

+function OLdispIfs(){

+if(!OLie55)return;

+var wd=over.offsetWidth,ht=over.offsetHeight;

+if(OLfilterPI&&o3_filter&&o3_filtershadow){wd+=5;ht+=5;}

+if((OLovertwoPI)&&over2&&over==over2){

+if(!OLifsP2)return;

+OLsetDispIfs(OLifsP2,wd,ht);return;}

+if(!OLifsP1)return;

+OLsetDispIfs(OLifsP1,wd,ht);

+if((!OLshadowPI)||!o3_shadow||!OLifsSh)return;

+OLsetDispIfs(OLifsSh,wd,ht);

+}

+

+function OLshowIfs(){

+if(OLifsP1){OLifsP1.style.visibility="visible";

+if((OLshadowPI)&&o3_shadow&&OLifsSh)OLifsSh.style.visibility="visible";}

+}

+

+function OLhideIfs(o){

+if(!OLie55||o!=over)return;

+if(OLifsP1)OLifsP1.style.visibility="hidden";

+if((OLshadowPI)&&o3_shadow&&OLifsSh)OLifsSh.style.visibility="hidden";

+}

+

+function OLrepositionIfs(X,Y){

+if(OLie55){if((OLovertwoPI)&&over2&&over==over2){

+if(OLifsP2)OLrepositionTo(OLifsP2,X,Y);}

+else{if(OLifsP1){OLrepositionTo(OLifsP1,X,Y);if((OLshadowPI)&&o3_shadow&&OLifsSh)

+OLrepositionTo(OLifsSh,X+o3_shadowx,Y+o3_shadowy);}}}

+}

+

+OLiframePI=1;

+OLloaded=1;

diff --git a/httemplate/elements/progress-init.html b/httemplate/elements/progress-init.html
index a8268c12c..472a1725f 100644
--- a/httemplate/elements/progress-init.html
+++ b/httemplate/elements/progress-init.html
@@ -13,6 +13,7 @@
 
 <SCRIPT TYPE="text/javascript" SRC="../elements/jsrsClient.js"></SCRIPT>
 <SCRIPT TYPE="text/javascript" SRC="../elements/overlibmws.js"></SCRIPT>
+<SCRIPT TYPE="text/javascript" SRC="../elements/overlibmws_iframe.js"></SCRIPT>
 <SCRIPT TYPE="text/javascript">
 function OLiframeContent(src, width, height, name) {
   return ('<iframe src="'+src+'" width="'+width+'" height="'+height+'"'
diff --git a/httemplate/elements/select-month_year.html b/httemplate/elements/select-month_year.html
new file mode 100644
index 000000000..a0ea74ddd
--- /dev/null
+++ b/httemplate/elements/select-month_year.html
@@ -0,0 +1,50 @@
+<%
+
+  my %opt = @_;
+
+  my $prefix = $opt{'prefix'} || '';
+  my $disabled = $opt{'disabled'} || '';
+  my $empty = $opt{'empty_option'} || '';
+  my $date = $opt{'selected_date'} || '';
+  $date = '' if $date eq '-';
+  #$date ||= '01-2000' unless $empty;
+  my $start_year = $opt{'start_year'};
+  my $end_year = $opt{'end_year'} || '2037';
+
+  my( $mon, $year ) = (0, 0);
+  if ( $date ) {
+    if ( $date  =~ /^(\d{4})-(\d{1,2})-\d{1,2}$/ ) { #PostgreSQL date format
+      ( $mon, $year ) = ( $2, $1 );
+    } elsif ( $date =~ /^(\d{1,2})-(\d{1,2}-)?(\d{4}$)/ ) {
+      ( $mon, $year ) = ( $1, $3 );
+    } else {
+      die "unrecognized expiration date format: $date";
+    }
+  }
+
+  unless ( $start_year ) {
+    my @t = localtime;
+    $start_year = $t[5] + 1900;
+  }
+  $start_year = $year if $start_year > $year && $year > 0;
+
+%>
+
+<SELECT NAME="<%= $prefix %>_month" SIZE="1" <%= $disabled%>>
+
+<%= $empty ? '<OPTION VALUE="">' : '' %>
+
+<% for ( 1 .. 12 ) { %>
+   <OPTION<%= $_ == $mon ? ' SELECTED' : '' %> VALUE="<%= $_ %>"><%= $_ %>
+<% } %>
+
+</SELECT>/<SELECT NAME="<%= $prefix %>_year" SIZE="1" <%= $disabled%>>
+
+<%= $empty ? '<OPTION VALUE="">' : '' %>
+
+<% for ( $start_year .. $end_year ) { %>
+   <OPTION<%= $_ == $year ? ' SELECTED' : '' %> VALUE="<%= $_ %>"><%= $_ %>
+<% } %>
+
+</SELECT>
+