- Electronic check (ACH) information -

- - <% my $num_prospect = $agent->num_prospect_cust_main %> - -	-% if ( $num_prospect ) { - - -% } -prospects -% if ($num_prospect ) { - -% } - -	-
- - <% my $num_inactive = $agent->num_inactive_cust_main %> - -	-% if ( $num_inactive ) { - - -% } -inactive -% if ( $num_inactive ) { - -% } - -
- - <% my $num_active = $agent->num_active_cust_main %> - -	-% if ( $num_active ) { - - -% } -active -% if ( $num_active ) { - -% } - -
- - <% my $num_susp = $agent->num_susp_cust_main %> - -	-% if ( $num_susp ) { - - -% } -suspended -% if ( $num_susp ) { - -% } - -
- - <% my $num_cancel = $agent->num_cancel_cust_main %> - -	-% if ( $num_cancel ) { - - -% } -cancelled -% if ( $num_cancel ) { - -% } - -

- - <% my $num_inactive_pkg = $agent->num_inactive_cust_pkg %> - -	-% if ( $num_inactive_pkg ) { - - -% } -inactive -% if ( $num_inactive_pkg ) { - -% } - -
- - <% my $num_active_pkg = $agent->num_active_cust_pkg %> - -	-% if ( $num_active_pkg ) { - - -% } -active -% if ( $num_active_pkg ) { - -% } - -
- - <% my $num_susp_pkg = $agent->num_susp_cust_pkg %> - - -	-% if ( $num_susp_pkg ) { - - -% } -suspended -% if ( $num_susp_pkg ) { - -% } - -
- - <% my $num_cancel_pkg = $agent->num_cancel_cust_pkg %> - -	-% if ( $num_cancel_pkg ) { - - -% } -cancelled -% if ( $num_cancel_pkg ) { - -% } - -

'. $option. ':	'. $options{$option}. '

Create at least POP (Point of Presence) by selecting - View/Edit POPs from the main menu.	OR	If you are not doing dialup, set slipip to fixed and blank for all your - Service Definitions which have Table svc_acct.

Visa / MasterCard / Discover	American Express
- -	- -

'. $_. '
'. - include( '/elements/checkboxes-table-name.html', - 'source_obj' => $access_group, - 'link_table' => 'access_right', - 'link_static' => { 'righttype' => - 'FS::access_group', - }, - 'num_col' => 'rightobjnum', - 'name_col' => 'rightname', - 'names_list' => [ map { - my $rn = - ref($_) ? $_->{'rightname'} : $_; - my %hash = (); - $hash{'note'} = ' *' - if ref($_) && $_->{'global'}; - $hash{'desc'} = $_->{'desc'} - if ref($_) && $_->{'desc'}; - [ $rn => \%hash ]; - } - @{ $rights{$_} } - ], - ). - ' '. - '

Pkg #	Package description
>	<% $pkgnum %>:	<% $all_pkg{$pkgpart} %> - <% $all_comment{$pkgpart} %>

Qty.	Package Description
- " VALUE="<% $value %>" SIZE="2" MAXLENGTH="2"> -	<% $pkgpart %>:	<% $pkg{$pkgpart} %> - <% $comment{$pkgpart}%>

' ; - - if ( !this.CheckBrowser || this._IsCompatibleBrowser() ) - { - sHtml += '' ; - sHtml += this._GetConfigHtml() ; - sHtml += this._GetIFrameHtml() ; - } - else - { - var sWidth = this.Width.toString().indexOf('%') > 0 ? this.Width : this.Width + 'px' ; - var sHeight = this.Height.toString().indexOf('%') > 0 ? this.Height : this.Height + 'px' ; - sHtml += '

' + this._HTMLEncode( this.Value ) + '<\/textarea>' ;
-	}
-
-	sHtml += '</div>' ;
-
-	return sHtml ;
-}
-
-FCKeditor.prototype.ReplaceTextarea = function()
-{
-	if ( !this.CheckBrowser || this._IsCompatibleBrowser() )
-	{
-		// We must check the elements firstly using the Id and then the name.
-		var oTextarea = document.getElementById( this.InstanceName ) ;
-		var colElementsByName = document.getElementsByName( this.InstanceName ) ;
-		var i = 0;
-		while ( oTextarea || i == 0 )
-		{
-			if ( oTextarea && oTextarea.tagName.toLowerCase() == 'textarea' )
-				break ;
-			oTextarea = colElementsByName[i++] ;
-		}
-
-		if ( !oTextarea )
-		{
-			alert( 'Error: The TEXTAREA with id or name set to "' + this.InstanceName + '" was not found' ) ;
-			return ;
-		}
-
-		oTextarea.style.display = 'none' ;
-		this._InsertHtmlBefore( this._GetConfigHtml(), oTextarea ) ;
-		this._InsertHtmlBefore( this._GetIFrameHtml(), oTextarea ) ;
-	}
-}
-
-FCKeditor.prototype._InsertHtmlBefore = function( html, element )
-{
-	if ( element.insertAdjacentHTML )	// IE
-		element.insertAdjacentHTML( 'beforeBegin', html ) ;
-	else								// Gecko
-	{
-		var oRange = document.createRange() ;
-		oRange.setStartBefore( element ) ;
-		var oFragment = oRange.createContextualFragment( html );
-		element.parentNode.insertBefore( oFragment, element ) ;
-	}
-}
-
-FCKeditor.prototype._GetConfigHtml = function()
-{
-	var sConfig = '' ;
-	for ( var o in this.Config )
-	{
-		if ( sConfig.length > 0 ) sConfig += '&' ;
-		sConfig += encodeURIComponent( o ) + '=' + encodeURIComponent( this.Config[o] ) ;
-	}
-
-	return '<input type="hidden" id="' + this.InstanceName + '___Config" value="' + sConfig + '" style="display:none" />' ;
-}
-
-FCKeditor.prototype._GetIFrameHtml = function()
-{
-	var sFile = 'fckeditor.html' ;
-
-	try
-	{
-		if ( (/fcksource=true/i).test( window.top.location.search ) )
-			sFile = 'fckeditor.original.html' ;
-	}
-	catch (e) { /* Ignore it. Much probably we are inside a FRAME where the "top" is in another domain (security error). */ }
-
-	var sLink = this.BasePath + 'editor/' + sFile + '?InstanceName=' + encodeURIComponent( this.InstanceName ) ;
-	if (this.ToolbarSet) sLink += '&Toolbar=' + this.ToolbarSet ;
-
-	return '<iframe id="' + this.InstanceName + '___Frame" src="' + sLink + '" width="' + this.Width + '" height="' + this.Height + '" frameborder="0" scrolling="no"></iframe>' ;
-}
-
-FCKeditor.prototype._IsCompatibleBrowser = function()
-{
-	return FCKeditor_IsCompatibleBrowser( this.EnableSafari, this.EnableOpera ) ;
-}
-
-FCKeditor.prototype._ThrowError = function( errorNumber, errorDescription )
-{
-	this.ErrorNumber		= errorNumber ;
-	this.ErrorDescription	= errorDescription ;
-
-	if ( this.DisplayErrors )
-	{
-		document.write( '<div style="COLOR: #ff0000">' ) ;
-		document.write( '[ FCKeditor Error ' + this.ErrorNumber + ': ' + this.ErrorDescription + ' ]' ) ;
-		document.write( '</div>' ) ;
-	}
-
-	if ( typeof( this.OnError ) == 'function' )
-		this.OnError( this, errorNumber, errorDescription ) ;
-}
-
-FCKeditor.prototype._HTMLEncode = function( text )
-{
-	if ( typeof( text ) != "string" )
-		text = text.toString() ;
-
-	text = text.replace(
-		/&/g, "&").replace(
-		/"/g, """).replace(
-		/</g, "<").replace(
-		/>/g, ">") ;
-
-	return text ;
-}
-
-function FCKeditor_IsCompatibleBrowser( enableSafari, enableOpera )
-{
-	var sAgent = navigator.userAgent.toLowerCase() ;
-
-	// Internet Explorer
-	if ( sAgent.indexOf("msie") != -1 && sAgent.indexOf("mac") == -1 && sAgent.indexOf("opera") == -1 )
-	{
-		var sBrowserVersion = navigator.appVersion.match(/MSIE (.\..)/)[1] ;
-		return ( sBrowserVersion >= 5.5 ) ;
-	}
-
-	// Gecko (Opera 9 tries to behave like Gecko at this point).
-	if ( navigator.product == "Gecko" && navigator.productSub >= 20030210 && !( typeof(opera) == 'object' && opera.postError ) )
-		return true ;
-
-	// Opera
-	if ( enableOpera && sAgent.indexOf( 'opera' ) == 0 && parseInt( navigator.appVersion, 10 ) >= 9 )
-			return true ;
-
-	// Safari
-	if ( enableSafari && sAgent.indexOf( 'safari' ) != -1 )
-		return ( sAgent.match( /safari\/(\d+)/ )[1] >= 312 ) ;	// Build must be at least 312 (1.3)
-
-	return false ;
-}
\ No newline at end of file
diff --git a/httemplate/elements/fckeditor/fckpackager.xml b/httemplate/elements/fckeditor/fckpackager.xml
deleted file mode 100644
index 3cae595a6..000000000
--- a/httemplate/elements/fckeditor/fckpackager.xml
+++ /dev/null
@@ -1,237 +0,0 @@
-<?xml version="1.0" encoding="utf-8" ?>
-
-<Package>
-	<Header><![CDATA[/*
- * FCKeditor - The text editor for Internet - http://www.fckeditor.net
- * Copyright (C) 2003-2007 Frederico Caldeira Knabben
- * 
- * == BEGIN LICENSE ==
- * 
- * Licensed under the terms of any of the following licenses at your
- * choice:
- * 
- *  - GNU General Public License Version 2 or later (the "GPL")
- *    http://www.gnu.org/licenses/gpl.html
- * 
- *  - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
- *    http://www.gnu.org/licenses/lgpl.html
- * 
- *  - Mozilla Public License Version 1.1 or later (the "MPL")
- *    http://www.mozilla.org/MPL/MPL-1.1.html
- * 
- * == END LICENSE ==
- * 
- * This file has been compressed for better performance. The original source
- * can be found at "editor/_source".
- */
-]]></Header>
-	<Constants removeDeclaration="false">
-		<Constant name="FCK_STATUS_NOTLOADED" value="0" />
-		<Constant name="FCK_STATUS_ACTIVE" value="1" />
-		<Constant name="FCK_STATUS_COMPLETE" value="2" />
-		<Constant name="FCK_TRISTATE_OFF" value="0" />
-		<Constant name="FCK_TRISTATE_ON" value="1" />
-		<Constant name="FCK_TRISTATE_DISABLED" value="-1" />
-		<Constant name="FCK_UNKNOWN" value="-9" />
-		<Constant name="FCK_TOOLBARITEM_ONLYICON" value="0" />
-		<Constant name="FCK_TOOLBARITEM_ONLYTEXT" value="1" />
-		<Constant name="FCK_TOOLBARITEM_ICONTEXT" value="2" />
-		<Constant name="FCK_EDITMODE_WYSIWYG" value="0" />
-		<Constant name="FCK_EDITMODE_SOURCE" value="1" />
-	</Constants>
-	<PackageFile path="editor/js/fckeditorcode_ie.js">
-		<File path="editor/_source/fckconstants.js" />
-		<File path="editor/_source/fckjscoreextensions.js" />
-		<File path="editor/_source/classes/fckiecleanup.js" />
-		<File path="editor/_source/internals/fckbrowserinfo.js" />
-		<File path="editor/_source/internals/fckurlparams.js" />
-		<File path="editor/_source/classes/fckevents.js" />
-		<File path="editor/_source/internals/fck.js" />
-		<File path="editor/_source/internals/fck_ie.js" />
-		<File path="editor/_source/internals/fckconfig.js" />
-		<File path="editor/_source/internals/fckdebug.js" />
-		<File path="editor/_source/internals/fckdomtools.js" />
-		<File path="editor/_source/internals/fcktools.js" />
-		<File path="editor/_source/internals/fcktools_ie.js" />
-		<File path="editor/_source/fckeditorapi.js" />
-		<File path="editor/_source/classes/fckimagepreloader.js" />
-
-		<File path="editor/_source/internals/fckregexlib.js" />
-		<File path="editor/_source/internals/fcklistslib.js" />
-		<File path="editor/_source/internals/fcklanguagemanager.js" />
-		<File path="editor/_source/internals/fckxhtmlentities.js" />
-		<File path="editor/_source/internals/fckxhtml.js" />
-		<File path="editor/_source/internals/fckxhtml_ie.js" />
-		<File path="editor/_source/internals/fckcodeformatter.js" />
-		<File path="editor/_source/internals/fckundo_ie.js" />
-		<File path="editor/_source/classes/fckeditingarea.js" />
-		<File path="editor/_source/classes/fckkeystrokehandler.js" />
-
-		<File path="editor/_source/internals/fcklisthandler.js" />
-		<File path="editor/_source/classes/fckelementpath.js" />
-		<File path="editor/_source/classes/fckdomrange.js" />
-		<File path="editor/_source/classes/fckdomrange_ie.js" />
-		<File path="editor/_source/classes/fckdocumentfragment_ie.js" />
-		<File path="editor/_source/classes/fckw3crange.js" />
-		<File path="editor/_source/classes/fckenterkey.js" />
-
-		<File path="editor/_source/internals/fckdocumentprocessor.js" />
-		<File path="editor/_source/internals/fckselection.js" />
-		<File path="editor/_source/internals/fckselection_ie.js" />
-
-		<File path="editor/_source/internals/fcktablehandler.js" />
-		<File path="editor/_source/internals/fcktablehandler_ie.js" />
-		<File path="editor/_source/classes/fckxml_ie.js" />
-		<File path="editor/_source/classes/fckstyledef.js" />
-		<File path="editor/_source/classes/fckstyledef_ie.js" />
-		<File path="editor/_source/classes/fckstylesloader.js" />
-
-		<File path="editor/_source/commandclasses/fcknamedcommand.js" />
-		<File path="editor/_source/commandclasses/fck_othercommands.js" />
-		<File path="editor/_source/commandclasses/fckspellcheckcommand_ie.js" />
-		<File path="editor/_source/commandclasses/fcktextcolorcommand.js" />
-		<File path="editor/_source/commandclasses/fckpasteplaintextcommand.js" />
-		<File path="editor/_source/commandclasses/fckpastewordcommand.js" />
-		<File path="editor/_source/commandclasses/fcktablecommand.js" />
-		<File path="editor/_source/commandclasses/fckstylecommand.js" />
-		<File path="editor/_source/commandclasses/fckfitwindow.js" />
-		<File path="editor/_source/internals/fckcommands.js" />
-
-		<File path="editor/_source/classes/fckpanel.js" />
-		<File path="editor/_source/classes/fckicon.js" />
-		<File path="editor/_source/classes/fcktoolbarbuttonui.js" />
-		<File path="editor/_source/classes/fcktoolbarbutton.js" />
-		<File path="editor/_source/classes/fckspecialcombo.js" />
-		<File path="editor/_source/classes/fcktoolbarspecialcombo.js" />
-		<File path="editor/_source/classes/fcktoolbarfontscombo.js" />
-		<File path="editor/_source/classes/fcktoolbarfontsizecombo.js" />
-		<File path="editor/_source/classes/fcktoolbarfontformatcombo.js" />
-		<File path="editor/_source/classes/fcktoolbarstylecombo.js" />
-		<File path="editor/_source/classes/fcktoolbarpanelbutton.js" />
-		<File path="editor/_source/internals/fcktoolbaritems.js" />
-		<File path="editor/_source/classes/fcktoolbar.js" />
-		<File path="editor/_source/classes/fcktoolbarbreak_ie.js" />
-		<File path="editor/_source/internals/fcktoolbarset.js" />
-		<File path="editor/_source/internals/fckdialog.js" />
-		<File path="editor/_source/internals/fckdialog_ie.js" />
-
-		<File path="editor/_source/classes/fckmenuitem.js" />
-		<File path="editor/_source/classes/fckmenublock.js" />
-		<File path="editor/_source/classes/fckmenublockpanel.js" />
-		<File path="editor/_source/classes/fckcontextmenu.js" />
-		<File path="editor/_source/internals/fck_contextmenu.js" />
-
-		<File path="editor/_source/classes/fckplugin.js" />
-		<File path="editor/_source/internals/fckplugins.js" />
-	</PackageFile>
-
-	<PackageFile path="editor/js/fckeditorcode_gecko.js">
-		<File path="editor/_source/fckconstants.js" />
-		<File path="editor/_source/fckjscoreextensions.js" />
-		<File path="editor/_source/internals/fckbrowserinfo.js" />
-		<File path="editor/_source/internals/fckurlparams.js" />
-		<File path="editor/_source/classes/fckevents.js" />
-		<File path="editor/_source/internals/fck.js" />
-		<File path="editor/_source/internals/fck_gecko.js" />
-		<File path="editor/_source/internals/fckconfig.js" />
-		<File path="editor/_source/internals/fckdebug.js" />
-		<File path="editor/_source/internals/fckdomtools.js" />
-		<File path="editor/_source/internals/fcktools.js" />
-		<File path="editor/_source/internals/fcktools_gecko.js" />
-		<File path="editor/_source/fckeditorapi.js" />
-		<File path="editor/_source/classes/fckimagepreloader.js" />
-
-		<File path="editor/_source/internals/fckregexlib.js" />
-		<File path="editor/_source/internals/fcklistslib.js" />
-		<File path="editor/_source/internals/fcklanguagemanager.js" />
-		<File path="editor/_source/internals/fckxhtmlentities.js" />
-		<File path="editor/_source/internals/fckxhtml.js" />
-		<File path="editor/_source/internals/fckxhtml_gecko.js" />
-		<File path="editor/_source/internals/fckcodeformatter.js" />
-		<File path="editor/_source/internals/fckundo_gecko.js" />
-		<File path="editor/_source/classes/fckeditingarea.js" />
-		<File path="editor/_source/classes/fckkeystrokehandler.js" />
-
-		<File path="editor/_source/internals/fcklisthandler.js" />
-		<File path="editor/_source/classes/fckelementpath.js" />
-		<File path="editor/_source/classes/fckdomrange.js" />
-		<File path="editor/_source/classes/fckdomrange_gecko.js" />
-		<File path="editor/_source/classes/fckdocumentfragment_gecko.js" />
-		<File path="editor/_source/classes/fckw3crange.js" />
-		<File path="editor/_source/classes/fckenterkey.js" />
-
-		<File path="editor/_source/internals/fckdocumentprocessor.js" />
-		<File path="editor/_source/internals/fckselection.js" />
-		<File path="editor/_source/internals/fckselection_gecko.js" />
-
-		<File path="editor/_source/internals/fcktablehandler.js" />
-		<File path="editor/_source/internals/fcktablehandler_gecko.js" />
-		<File path="editor/_source/classes/fckxml_gecko.js" />
-		<File path="editor/_source/classes/fckstyledef.js" />
-		<File path="editor/_source/classes/fckstyledef_gecko.js" />
-		<File path="editor/_source/classes/fckstylesloader.js" />
-
-		<File path="editor/_source/commandclasses/fcknamedcommand.js" />
-		<File path="editor/_source/commandclasses/fck_othercommands.js" />
-		<File path="editor/_source/commandclasses/fckspellcheckcommand_gecko.js" />
-		<File path="editor/_source/commandclasses/fcktextcolorcommand.js" />
-		<File path="editor/_source/commandclasses/fckpasteplaintextcommand.js" />
-		<File path="editor/_source/commandclasses/fckpastewordcommand.js" />
-		<File path="editor/_source/commandclasses/fcktablecommand.js" />
-		<File path="editor/_source/commandclasses/fckstylecommand.js" />
-		<File path="editor/_source/commandclasses/fckfitwindow.js" />
-		<File path="editor/_source/internals/fckcommands.js" />
-
-		<File path="editor/_source/classes/fckpanel.js" />
-		<File path="editor/_source/classes/fckicon.js" />
-		<File path="editor/_source/classes/fcktoolbarbuttonui.js" />
-		<File path="editor/_source/classes/fcktoolbarbutton.js" />
-		<File path="editor/_source/classes/fckspecialcombo.js" />
-		<File path="editor/_source/classes/fcktoolbarspecialcombo.js" />
-		<File path="editor/_source/classes/fcktoolbarfontscombo.js" />
-		<File path="editor/_source/classes/fcktoolbarfontsizecombo.js" />
-		<File path="editor/_source/classes/fcktoolbarfontformatcombo.js" />
-		<File path="editor/_source/classes/fcktoolbarstylecombo.js" />
-		<File path="editor/_source/classes/fcktoolbarpanelbutton.js" />
-		<File path="editor/_source/internals/fcktoolbaritems.js" />
-		<File path="editor/_source/classes/fcktoolbar.js" />
-		<File path="editor/_source/classes/fcktoolbarbreak_gecko.js" />
-		<File path="editor/_source/internals/fcktoolbarset.js" />
-		<File path="editor/_source/internals/fckdialog.js" />
-		<File path="editor/_source/internals/fckdialog_gecko.js" />
-
-		<File path="editor/_source/classes/fckmenuitem.js" />
-		<File path="editor/_source/classes/fckmenublock.js" />
-		<File path="editor/_source/classes/fckmenublockpanel.js" />
-		<File path="editor/_source/classes/fckcontextmenu.js" />
-		<File path="editor/_source/internals/fck_contextmenu.js" />
-
-		<File path="editor/_source/classes/fckplugin.js" />
-		<File path="editor/_source/internals/fckplugins.js" />
-	</PackageFile>
-
-</Package>
\ No newline at end of file
diff --git a/httemplate/elements/fckeditor/fckstyles.xml b/httemplate/elements/fckeditor/fckstyles.xml
deleted file mode 100644
index bfd80e717..000000000
--- a/httemplate/elements/fckeditor/fckstyles.xml
+++ /dev/null
@@ -1,53 +0,0 @@
-<?xml version="1.0" encoding="utf-8" ?>
-
-<Styles>
-	<Style name="Image on Left" element="img">
-		<Attribute name="style" value="padding: 5px; margin-right: 5px" />
-		<Attribute name="border" value="2" />
-		<Attribute name="align" value="left" />
-	</Style>
-	<Style name="Image on Right" element="img">
-		<Attribute name="style" value="padding: 5px; margin-left: 5px" />
-		<Attribute name="border" value="2" />
-		<Attribute name="align" value="right" />
-	</Style>
-	<Style name="Custom Bold" element="span">
-		<Attribute name="style" value="font-weight: bold;" />
-	</Style>
-	<Style name="Custom Italic" element="em" />
-	<Style name="Title" element="span">
-		<Attribute name="class" value="Title" />
-	</Style>
-	<Style name="Code" element="span">
-		<Attribute name="class" value="Code" />
-	</Style>
-	<Style name="Title H3" element="h3" />
-	<Style name="Custom Ruler" element="hr">
-		<Attribute name="size" value="1" />
-		<Attribute name="color" value="#ff0000" />
-	</Style>
-</Styles>
\ No newline at end of file
diff --git a/httemplate/elements/fckeditor/fcktemplates.xml b/httemplate/elements/fckeditor/fcktemplates.xml
deleted file mode 100644
index 87610628a..000000000
--- a/httemplate/elements/fckeditor/fcktemplates.xml
+++ /dev/null
@@ -1,103 +0,0 @@
-<?xml version="1.0" encoding="utf-8" ?>
-
-<Templates imagesBasePath="fck_template/images/">
-	<Template title="Image and Title" image="template1.gif">
-		<Description>One main image with a title and text that surround the image.</Description>
-		<Html>
-			<![CDATA[
-				<img style="MARGIN-RIGHT: 10px" height="100" alt="" width="100" align="left"/>
-				<h3>Type the title here</h3>
-				Type the text here
-			]]>
-		</Html>
-	</Template>
-	<Template title="Strange Template" image="template2.gif">
-		<Description>A template that defines two colums, each one with a title, and some text.</Description>
-		<Html>
-			<![CDATA[
-				<table cellspacing="0" cellpadding="0" width="100%" border="0">
-					<tbody>
-						<tr>
-							<td width="50%">
-							<h3>Title 1</h3>
-							</td>
-							<td>          </td>
-							<td width="50%">
-							<h3>Title 2</h3>
-							</td>
-						</tr>
-						<tr>
-							<td>Text 1</td>
-							<td> </td>
-							<td>Text 2</td>
-						</tr>
-					</tbody>
-				</table>
-				More text goes here.
-			]]>
-		</Html>
-	</Template>
-	<Template title="Text and Table" image="template3.gif">
-		<Description>A title with some text and a table.</Description>
-		<Html>
-			<![CDATA[
-				<table align="left" width="80%" border="0" cellspacing="0" cellpadding="0"><tr><td>
-					<h3>Title goes here</h3>
-					<p>
-					<table style="FLOAT: right" cellspacing="0" cellpadding="0" width="150" border="1">
-						<tbody>
-							<tr>
-								<td align="center" colspan="3"><strong>Table title</strong></td>
-							</tr>
-							<tr>
-								<td> </td>
-								<td> </td>
-								<td> </td>
-							</tr>
-							<tr>
-								<td> </td>
-								<td> </td>
-								<td> </td>
-							</tr>
-							<tr>
-								<td> </td>
-								<td> </td>
-								<td> </td>
-							</tr>
-							<tr>
-								<td> </td>
-								<td> </td>
-								<td> </td>
-							</tr>
-						</tbody>
-					</table>
-					Type the text here</p>
-				</td></tr></table>
-			]]>
-		</Html>
-	</Template>
-</Templates>
diff --git a/httemplate/elements/footer.html b/httemplate/elements/footer.html
deleted file mode 100644
index 32d121996..000000000
--- a/httemplate/elements/footer.html
+++ /dev/null
@@ -1,5 +0,0 @@
-        </TD>
-      </TR>
-    </TABLE>
-  </BODY>
-</HTML>
diff --git a/httemplate/elements/freeside.css b/httemplate/elements/freeside.css
deleted file mode 100644
index c310e2fa0..000000000
--- a/httemplate/elements/freeside.css
+++ /dev/null
@@ -1,16 +0,0 @@
-* {
-  font-family: Arial, Verdana, Helvetica, sans-serif;
-  /* font-family: Verdana, Arial, Helvetica, sans-serif; */
-}
-
-A:link IMG, A:visited { border-style: none }
-/* A:focus {text-decoration: underline } */
-
-a:link, a:visited {
-  /* text-decoration: none; */
-  color: #000000;
-} 
-/* a:hover {  text-decoration: underline } */
-
-/* a:focus { background-color: #ccccee } */
-
diff --git a/httemplate/elements/header-popup.html b/httemplate/elements/header-popup.html
deleted file mode 100644
index 68be108d2..000000000
--- a/httemplate/elements/header-popup.html
+++ /dev/null
@@ -1,24 +0,0 @@
-%
-%  my($title, $menubar) = ( shift, shift ); #$menubar is unused here though
-%  my $etc = @_ ? shift : ''; #$etc is for things like onLoad= etc.
-%  my $head = @_ ? shift : ''; #$head is for things that go in the <HEAD> section
-%  my $conf = new FS::Conf;
-%
-
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
-<HTML>
-  <HEAD>
-    <TITLE>
-      <% $title %>
-    </TITLE>
-    <META HTTP-Equiv="Cache-Control" Content="no-cache">
-    <META HTTP-Equiv="Pragma" Content="no-cache">
-    <META HTTP-Equiv="Expires" Content="0"> 
-    <% $head %>
-  </HEAD>
-  <BODY BGCOLOR="#e8e8e8" <% $etc %>>
-    <link href="<%$fsurl%>elements/freeside.css" type="text/css" rel="stylesheet">
-    <FONT SIZE=6>
-      <CENTER><% $title %></CENTER>
-    </FONT>
-    <BR>
diff --git a/httemplate/elements/header.html b/httemplate/elements/header.html
deleted file mode 100644
index 0ee6f9c9e..000000000
--- a/httemplate/elements/header.html
+++ /dev/null
@@ -1,263 +0,0 @@
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
-<HTML>
-  <HEAD>
-    <TITLE>
-      <% $title %>
-    </TITLE>
-    <META HTTP-Equiv="Cache-Control" Content="no-cache">
-    <META HTTP-Equiv="Pragma" Content="no-cache">
-    <META HTTP-Equiv="Expires" Content="0"> 
-
-    <% include('menu.html', 'freeside_baseurl' => $fsurl,
-                            'position'         => $menu_position,
-              )
-    %>
-
-    <SCRIPT TYPE="text/javascript">
-      function clearhint_search_cust (what) {
-        if ( what.value == '(cust #, name, company or phone)' )
-          what.value = '';
-      }
-
-      function clearhint_search_address2 (what) {
-        if ( what.value == '(Unit #)' )
-          what.value = '';
-      }
-
-      function clearhint_search_invoice (what) {
-        if ( what.value == '(inv #)' )
-          what.value = '';
-      }
-
-      function clearhint_search_svc (what) {
-        if ( what.value == '(user, email, ip, mac, or domain)' )
-          what.value = '';
-      }
-
-      function clearhint_search_ticket (what) {
-        if ( what.value == '(ticket # or subject string)' )
-          what.value = '';
-      }
-    </SCRIPT>
-
-    <% $head %>
-
-  </HEAD>
-  <BODY <% $menu_position eq 'left' ? qq( BACKGROUND="${fsurl}images/background-cheat.png" ) : ' BGCOLOR="#e8e8e8" ' %> <% $etc %> STYLE="margin-top:0; margin-bottom:0; margin-left:0; margin-right:0">
-    <table width="100%" CELLPADDING=0 CELLSPACING=0 STYLE="padding-left:0; padding-right:4">
-      <tr>
-        <td rowspan=2 BGCOLOR="#ffffff"><IMG BORDER=0 ALT="freeside" SRC="<%$fsurl%>images/small-logo.png"></td>
-        <td align=left rowspan=2 BGCOLOR="#ffffff"> 
-          <font size=6><% $conf->config('company_name') || 'ExampleCo' %></font>
-        </td>
-        <td align=right valign=top BGCOLOR="#ffffff"><FONT SIZE="-1">Logged in as <b><% getotaker %> </b><br></FONT><FONT SIZE="-2"><a href="<%$fsurl%>pref/pref.html">Preferences</a> <BR></FONT>
-        </td>
-      </tr>
-      <tr>
-        <td align=right valign=bottom BGCOLOR="#ffffff">
-  
-          <table>
-            <tr>
-              <td align=right BGCOLOR="#ffffff">
-                <FONT SIZE="-2">
-                 <A HREF="http://www.sisd.com/freeside">Freeside</A> v<% $FS::VERSION %><BR>
-                 <A HREF="<% $conf->config('support-key') ? "http://www.sisd.com/mediawiki/index.php/Supported:Documentation" : "http://www.sisd.com/mediawiki/index.php/Freeside:1.9:Documentation" %>">Documentation</A><BR>
-                </FONT>
-              </td>
-% if ( $conf->config('ticket_system') eq 'RT_Internal' ) { 
-% eval "use RT;"; 
-
-                <td bgcolor=#000000></td>
-                <td align=left>
-                  <FONT SIZE="-2">
-                   <A HREF="http://www.bestpractical.com/rt">RT<A> v<% $RT::VERSION %><BR>
-                   <A HREF="http://wiki.bestpractical.com/">Documentation</A><BR>
-                  </FONT>
-                </td>
-% } 
-
-  
-            </tr>
-          </table>
-  
-        </td>
-      </tr>
-    </table>
-
-<style type="text/css">
-input.fsblackbutton {
-	 background-color:#333333;
-	 color: #ffffff;
-	 border:1px solid;
-	 border-top-color:#cccccc;
-	 border-left-color:#cccccc;
-	 border-right-color:#aaaaaa;
-	 border-bottom-color:#aaaaaa;
-	 font-weight:bold;
-	 padding-left:12px;
-	 padding-right:12px;
-	 overflow:visible;
-	 filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=0,StartColorStr='#ff333333',EndColorStr='#ff666666')
-}
-
-input.fsblackbuttonselected {
-	 background-color:#7e0079;
-	 color: #ffffff;
-	 border:1px solid;
-	 border-top-color:#cccccc;
-	 border-left-color:#cccccc;
-	 border-right-color:#aaaaaa;
-	 border-bottom-color:#aaaaaa;
-	 font-weight:bold;
-	 padding-left:12px;
-	 padding-right:12px;
-	 overflow:visible;
-	 filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=0,StartColorStr='#ff330033',EndColorStr='#ff7e0079')
-}
-</style>
-
-    <TABLE WIDTH="100%" CELLSPACING=0 CELLPADDING=0>
-      <TR>
-        <TD COLSPAN=6 WIDTH="100%" STYLE="padding:0"><IMG BORDER=0 ALT="" SRC="<%$fsurl%>images/black-gradient.png" HEIGHT="13" WIDTH="100%"></TD>
-      </TR>
-
-% if ( $menu_position eq 'top' ) {
-
-      <TR>
-
-        <TD COLSPAN="6" WIDTH="100%" STYLE="padding:0">
-          <SCRIPT TYPE="text/javascript">
-            document.write(myBar);
-          </SCRIPT>
-        </TD>
-
-      </TR>
-
-      <TR>
-        <TD COLSPAN="6" WIDTH="100%" HEIGHT="2px" STYLE="padding:0" BGCOLOR="#000000">
-        </TD>
-      </TR>
-      
-      <TR>
-        <TD COLSPAN="6" WIDTH="100%" HEIGHT="4px" STYLE="padding:0" BGCOLOR="#000000">
-        </TD>
-      </TR>
-
-% }
-
-      <TR>
-
-        <TD COLSPAN=1 BGCOLOR="#000000" ALIGN="right">
-          <FORM ACTION="<%$fsurl%>edit/cust_main.cgi" METHOD="GET" STYLE="margin:0">
-            <INPUT TYPE="submit" VALUE="New customer" CLASS="fsblackbutton" onMouseOver="this.className='fsblackbuttonselected'; return true;" onMouseOut="this.className='fsblackbutton'; return true;" STYLE="vertical-align:bottom; font-size:100%">
-          </FORM>
-        </TD>
-
-        <TD COLSPAN=1 BGCOLOR="#000000" ALIGN="right">
-% if ( $FS::CurrentUser::CurrentUser->access_right('List customers') ) {
-          <FORM ACTION="<%$fsurl%>search/cust_main.cgi" METHOD="GET" STYLE="margin:0">
-            <INPUT NAME="search_cust" TYPE="text" VALUE="(cust #, name, company or phone)" SIZE="28" onFocus="clearhint_search_cust(this);" onClick="clearhint_search_cust(this);" STYLE="vertical-align:bottom;text-align:right"><BR>
-            <A HREF="<%$fsurl%>search/report_cust_main.html" STYLE="color: #ffffff; font-size: 70%">Advanced</A>
-            <INPUT TYPE="submit" VALUE="Search customers" CLASS="fsblackbutton" onMouseOver="this.className='fsblackbuttonselected'; return true;" onMouseOut="this.className='fsblackbutton'; return true;" STYLE="font-size:70%">
-          </FORM>
-% }
-        </TD>
-
-        <TD COLSPAN=1 BGCOLOR="#000000" ALIGN="center">
-% if ( $conf->exists('address2-search') ) { 
-            <FORM ACTION="<%$fsurl%>search/cust_main.cgi" METHOD="GET" STYLE="margin:0;display:inline">
-              <INPUT TYPE="hidden" NAME="address2_on" VALUE="1">
-              <INPUT NAME="address2_text" TYPE="text" VALUE="(Unit #)" SIZE="4" onFocus="clearhint_search_address2(this);" onClick="clearhint_search_address2(this);" STYLE="vertical-align:bottom;text-align:right;margin-bottom:1px">
-              <BR>
-              <INPUT TYPE="submit" VALUE="Search units" CLASS="fsblackbutton" onMouseOver="this.className='fsblackbuttonselected'; return true;" onMouseOut="this.className='fsblackbutton'; return true;" STYLE="font-size:70%;padding-left:2px;padding-right:2px">
-            </FORM>
-% } 
-        </TD>
-
-        <TD COLSPAN=1 BGCOLOR="#000000" ALIGN="right">
-% if ( $FS::CurrentUser::CurrentUser->access_right('View invoices') ) { 
-
-            <FORM ACTION="<%$fsurl%>search/cust_bill.html" METHOD="GET" STYLE="margin:0;display:inline">
-              <INPUT NAME="invnum" TYPE="text" VALUE="(inv #)" SIZE="4" onFocus="clearhint_search_invoice(this);" onClick="clearhint_search_invoice(this);" STYLE="vertical-align:bottom;text-align:right;margin-bottom:1px">
-%   if ( $FS::CurrentUser::CurrentUser->access_right('List invoices') ) { 
-
-                <A HREF="<%$fsurl%>search/report_cust_bill.html" STYLE="color: #ffffff; font-size: 70%">Advanced</A>
-%   } 
-
-              <BR>
-              <INPUT TYPE="submit" VALUE="Search invoices" CLASS="fsblackbutton" onMouseOver="this.className='fsblackbuttonselected'; return true;" onMouseOut="this.className='fsblackbutton'; return true;" STYLE="font-size:70%">
-            </FORM>
-% } 
-        </TD>
-
-        <TD COLSPAN=1 BGCOLOR="#000000" ALIGN="right">
-          <FORM ACTION="<%$fsurl%>search/cust_svc.html" METHOD="GET" STYLE="margin:0">
-            <INPUT NAME="search_svc" TYPE="text" VALUE="(user, email, ip, mac, or domain)" SIZE="26" onFocus="clearhint_search_svc(this);" onClick="clearhint_search_svc(this);" STYLE="vertical-align:bottom;text-align:right"><BR>
-            <A NOTYET="<%$fsurl%>search/svc_Smarter.html" STYLE="color: #000000; font-size: 70%">Advanced</A>
-            <INPUT TYPE="submit" VALUE="Search services" CLASS="fsblackbutton" onMouseOver="this.className='fsblackbuttonselected'; return true;" onMouseOut="this.className='fsblackbutton'; return true;" STYLE="font-size:70%">
-          </FORM>
-        </TD>
-
-        <TD COLSPAN=1 BGCOLOR="#000000" ALIGN="right" STYLE="padding-right:4px">
-% if ( $conf->config("ticket_system") ) { 
-          <FORM ACTION="<% FS::TicketSystem->baseurl %>index.html" METHOD="GET" STYLE="margin:0">
-            <INPUT NAME="q" TYPE="text" VALUE="(ticket # or subject string)" onFocus="clearhint_search_ticket(this);" onClick="clearhint_search_ticket(this);" STYLE="vertical-align:bottom;text-align:right"><BR>
-            <A HREF="<% FS::TicketSystem->baseurl %>Search/Build.html" STYLE="color: #ffffff; font-size: 70%">Advanced</A>
-            <INPUT TYPE="submit" VALUE="Search tickets" CLASS="fsblackbutton" onMouseOver="this.className='fsblackbuttonselected'; return true;" onMouseOut="this.className='fsblackbutton'; return true;" STYLE="font-size:70%;padding-left:2px;padding-right:2px">
-          </FORM>
-% }
-        </TD>
-
-      </TR>
-    </TABLE>
-
-    <TABLE WIDTH="100%" HEIGHT="100%" CELLSPACING=0 CELLPADDING=4>
-
-      <TR>
-
-% if ( $menu_position eq 'left' ) {
-
-        <TD BGCOLOR="#000000" STYLE="padding:0" WIDTH="154"></TD>
-        <TD STYLE="padding:0" WIDTH="13"><IMG BORDER=0 ALT="" SRC="<%$fsurl%>images/black-gray-corner.png"></TD>
-
-% }
-
-        <TD STYLE="padding:0" WIDTH="100%"><IMG BORDER=0 ALT="" SRC="<%$fsurl%>images/black-gray-top.png" HEIGHT="13" WIDTH="100%"></TD>
-
-      </TR>
-
-      <TR HEIGHT="100%">
-
-% if ( $menu_position eq 'left' ) {
-
-        <TD BGCOLOR="#000000" ALIGN="left" HEIGHT="100%" WIDTH="154" VALIGN="top" ALIGN="right">
-          <SCRIPT TYPE="text/javascript">
-            document.write(myBar);
-          </SCRIPT>
-          <BR>
-          <IMG SRC="<%$fsurl%>images/32clear.gif" HEIGHT="1" WIDTH="154">
-
-        </TD>
-        <TD STYLE="padding:0" HEIGHT="100%" WIDTH=13 VALIGN="top"><IMG WIDTH="13" HEIGHT="100%" BORDER=0 ALT="" SRC="<%$fsurl%>images/black-gray-side.png"></TD>
-
-% }
-
-        <TD BGCOLOR="#e8e8e8" HEIGHT="100%" VALIGN="top"> 
-
-          <FONT SIZE=6>
-            <% $title %>
-          </FONT>
-
-          <BR><BR>
-          <% $menubar !~ /^\s*$/ ? "$menubar<BR><BR>" : '' %>
-<%init>
-
-my($title, $menubar) = ( shift, shift );
-my $etc = @_ ? shift : ''; #$etc is for things like onLoad= etc.
-my $head = @_ ? shift : ''; #$head is for things that go in the <HEAD> section
-my $conf = new FS::Conf;
-
-my $menu_position = $FS::CurrentUser::CurrentUser->option('menu_position')
-                    || 'left';
-
-</%init>
diff --git a/httemplate/elements/hidden.html b/httemplate/elements/hidden.html
deleted file mode 100644
index 831108121..000000000
--- a/httemplate/elements/hidden.html
+++ /dev/null
@@ -1,11 +0,0 @@
-<INPUT TYPE  = "hidden"
-       NAME  = "<% $opt{field} %>"
-       ID    = "<% $opt{field} %>"
-       VALUE = "<% $opt{curr_value} || $opt{value} |h %>"
->
-
-<%init>
-
-my %opt = @_;
-
-</%init>
diff --git a/httemplate/elements/iframecontentmws.js b/httemplate/elements/iframecontentmws.js
deleted file mode 100644
index c80998957..000000000
--- a/httemplate/elements/iframecontentmws.js
+++ /dev/null
@@ -1,20 +0,0 @@
-/*
- iframecontentmws.js - Foteos Macrides
-   Initial: October 10, 2004 - Last Revised: May 9, 2005
- Simple script for using an HTML file as iframe content in overlibmws popups.
- Include WRAP and TEXTPADDING,0 in the overlib call to ensure that the width
- arg is respected (unless the CAPTION plus CLOSETEXT widths add up to more than
- the width arg, in which case you should increase the width arg).  The name arg
- should be a unique string for each popup with iframe content in the document.
- The frameborder arg should be 1 (browser default if omitted) or 0.
-
- See http://www.macridesweb.com/oltest/IFRAME.html for demonstration.
-*/
-
-function OLiframeContent(src, width, height, name, frameborder) {
- return ('<iframe src="'+src+'" width="'+width+'" height="'+height+'"'
- +(name!=null?' name="'+name+'" id="'+name+'"':'')
- +(frameborder!=null?' frameborder="'+frameborder+'"':'')
- +' scrolling="auto">'
- +'<div>[iframe not supported]</div></iframe>');
-}
diff --git a/httemplate/elements/jsrsClient.js b/httemplate/elements/jsrsClient.js
deleted file mode 100644
index 3a2572ccb..000000000
--- a/httemplate/elements/jsrsClient.js
+++ /dev/null
@@ -1,356 +0,0 @@
-//
-//  jsrsClient.js - javascript remote scripting client include
-//  
-//  Author:  Brent Ashley [jsrs@megahuge.com]
-//
-//  make asynchronous remote calls to server without client page refresh
-//
-//  see license.txt for copyright and license information
-
-/*
-see history.txt for full history
-2.0  26 Jul 2001 - added POST capability for IE/MOZ
-2.2  10 Aug 2003 - added Opera support
-2.3(beta)  10 Oct 2003 - added Konqueror support - **needs more testing**
-*/
-
-// callback pool needs global scope
-var jsrsContextPoolSize = 0;
-var jsrsContextMaxPool = 10;
-var jsrsContextPool = new Array();
-var jsrsBrowser = jsrsBrowserSniff();
-var jsrsPOST = true;
-var containerName;
-
-// constructor for context object
-function jsrsContextObj( contextID ){
-  
-  // properties
-  this.id = contextID;
-  this.busy = true;
-  this.callback = null;
-  this.container = contextCreateContainer( contextID );
-  
-  // methods
-  this.GET = contextGET;
-  this.POST = contextPOST;
-  this.getPayload = contextGetPayload;
-  this.setVisibility = contextSetVisibility;
-}
-
-//  method functions are not privately scoped 
-//  because Netscape's debugger chokes on private functions
-function contextCreateContainer( containerName ){
-  // creates hidden container to receive server data 
-  var container;
-  switch( jsrsBrowser ) {
-    case 'NS':
-      container = new Layer(100);
-      container.name = containerName;
-      container.visibility = 'hidden';
-      container.clip.width = 100;
-      container.clip.height = 100;
-      break;
-    
-    case 'IE':
-      document.body.insertAdjacentHTML( "afterBegin", '<span id="SPAN' + containerName + '"></span>' );
-      var span = document.all( "SPAN" + containerName );
-      var html = '<iframe name="' + containerName + '" src=""></iframe>';
-      span.innerHTML = html;
-      span.style.display = 'none';
-      container = window.frames[ containerName ];
-      break;
-      
-    case 'MOZ':  
-      var span = document.createElement('SPAN');
-      span.id = "SPAN" + containerName;
-      document.body.appendChild( span );
-      var iframe = document.createElement('IFRAME');
-      iframe.name = containerName;
-      iframe.id = containerName;
-      span.appendChild( iframe );
-      container = iframe;
-      break;
-
-    case 'OPR':  
-      var span = document.createElement('SPAN');
-      span.id = "SPAN" + containerName;
-      document.body.appendChild( span );
-      var iframe = document.createElement('IFRAME');
-      iframe.name = containerName;
-      iframe.id = containerName;
-      span.appendChild( iframe );
-      container = iframe;
-      break;
-
-    case 'KONQ':  
-      var span = document.createElement('SPAN');
-      span.id = "SPAN" + containerName;
-      document.body.appendChild( span );
-      var iframe = document.createElement('IFRAME');
-      iframe.name = containerName;
-      iframe.id = containerName;
-      span.appendChild( iframe );
-      container = iframe;
-
-      // Needs to be hidden for Konqueror, otherwise it'll appear on the page
-      span.style.display = none;
-      iframe.style.display = none;
-      iframe.style.visibility = hidden;
-      iframe.height = 0;
-      iframe.width = 0;
-
-      break;
-  }
-  return container;
-}
-
-function contextPOST( rsPage, func, parms ){
-
-  var d = new Date();
-  var unique = d.getTime() + '' + Math.floor(1000 * Math.random());
-  var doc = (jsrsBrowser == "IE" ) ? this.container.document : this.container.contentDocument;
-  doc.open();
-  doc.write('<html><body>');
-  doc.write('<form name="jsrsForm" method="post" target="" ');
-  doc.write(' action="' + rsPage + '?U=' + unique + '">');
-  doc.write('<input type="hidden" name="C" value="' + this.id + '">');
-
-  // func and parms are optional
-  if (func != null){
-  doc.write('<input type="hidden" name="F" value="' + func + '">');
-
-    if (parms != null){
-      if (typeof(parms) == "string"){
-        // single parameter
-        doc.write( '<input type="hidden" name="P0" '
-                 + 'value="[' + jsrsEscapeQQ(parms) + ']">');
-      } else {
-        // assume parms is array of strings
-        for( var i=0; i < parms.length; i++ ){
-          doc.write( '<input type="hidden" name="P' + i + '" '
-                   + 'value="[' + jsrsEscapeQQ(parms[i]) + ']">');
-        }
-      } // parm type
-    } // parms
-  } // func
-
-  doc.write('</form></body></html>');
-  doc.close();
-  doc.forms['jsrsForm'].submit();
-}
-
-function contextGET( rsPage, func, parms ){
-
-  // build URL to call
-  var URL = rsPage;
-
-  // always send context
-  URL += "?C=" + this.id;
-
-  // func and parms are optional
-  if (func != null){
-    URL += "&F=" + escape(func);
-
-    if (parms != null){
-      if (typeof(parms) == "string"){
-        // single parameter
-        URL += "&P0=[" + escape(parms+'') + "]";
-      } else {
-        // assume parms is array of strings
-        for( var i=0; i < parms.length; i++ ){
-          URL += "&P" + i + "=[" + escape(parms[i]+'') + "]";
-        }
-      } // parm type
-    } // parms
-  } // func
-
-  // unique string to defeat cache
-  var d = new Date();
-  URL += "&U=" + d.getTime();
- 
-  // make the call
-  switch( jsrsBrowser ) {
-    case 'NS':
-      this.container.src = URL;
-      break;
-    case 'IE':
-      this.container.document.location.replace(URL);
-      break;
-    case 'MOZ':
-      this.container.src = '';
-      this.container.src = URL; 
-      break;
-    case 'OPR':
-      this.container.src = '';
-      this.container.src = URL; 
-      break;
-    case 'KONQ':
-      this.container.src = '';
-      this.container.src = URL; 
-      break;
-  }  
-}
-
-function contextGetPayload(){
-  switch( jsrsBrowser ) {
-    case 'NS':
-      return this.container.document.forms['jsrs_Form'].elements['jsrs_Payload'].value;
-    case 'IE':
-      return this.container.document.forms['jsrs_Form']['jsrs_Payload'].value;
-    case 'MOZ':
-      return window.frames[this.container.name].document.forms['jsrs_Form']['jsrs_Payload'].value; 
-    case 'OPR':
-      var textElement = window.frames[this.container.name].document.getElementById("jsrs_Payload");
-    case 'KONQ':
-      var textElement = window.frames[this.container.name].document.getElementById("jsrs_Payload");
-      return textElement.value;
-  }  
-}
-
-function contextSetVisibility( vis ){
-  switch( jsrsBrowser ) {
-    case 'NS':
-      this.container.visibility = (vis)? 'show' : 'hidden';
-      break;
-    case 'IE':
-      document.all("SPAN" + this.id ).style.display = (vis)? '' : 'none';
-      break;
-    case 'MOZ':
-      document.getElementById("SPAN" + this.id).style.visibility = (vis)? '' : 'hidden';
-    case 'OPR':
-      document.getElementById("SPAN" + this.id).style.visibility = (vis)? '' : 'hidden';
-      this.container.width = (vis)? 250 : 0;
-      this.container.height = (vis)? 100 : 0;
-      break;
-  }  
-}
-
-// end of context constructor
-
-function jsrsGetContextID(){
-  var contextObj;
-  for (var i = 1; i <= jsrsContextPoolSize; i++){
-    contextObj = jsrsContextPool[ 'jsrs' + i ];
-    if ( !contextObj.busy ){
-      contextObj.busy = true;      
-      return contextObj.id;
-    }
-  }
-  // if we got here, there are no existing free contexts
-  if ( jsrsContextPoolSize <= jsrsContextMaxPool ){
-    // create new context
-    var contextID = "jsrs" + (jsrsContextPoolSize + 1);
-    jsrsContextPool[ contextID ] = new jsrsContextObj( contextID );
-    jsrsContextPoolSize++;
-    return contextID;
-  } else {
-    alert( "jsrs Error:  context pool full" );
-    return null;
-  }
-}
-
-function jsrsExecute( rspage, callback, func, parms, visibility ){
-  // call a server routine from client code
-  //
-  // rspage      - href to asp file
-  // callback    - function to call on return 
-  //               or null if no return needed
-  //               (passes returned string to callback)
-  // func        - sub or function name  to call
-  // parm        - string parameter to function
-  //               or array of string parameters if more than one
-  // visibility  - optional boolean to make container visible for debugging
-
-  // get context
-  var contextObj = jsrsContextPool[ jsrsGetContextID() ];
-  contextObj.callback = callback;
-
-  var vis = (visibility == null)? false : visibility;
-  contextObj.setVisibility( vis );
-
-  if ( jsrsPOST && ((jsrsBrowser == 'IE') || (jsrsBrowser == 'MOZ'))){
-    contextObj.POST( rspage, func, parms );
-  } else {
-    contextObj.GET( rspage, func, parms );
-  }  
-  
-  return contextObj.id;
-}
-
-function jsrsLoaded( contextID ){
-  // get context object and invoke callback
-  var contextObj = jsrsContextPool[ contextID ];
-  if( contextObj.callback != null){
-    contextObj.callback( jsrsUnescape( contextObj.getPayload() ), contextID );
-  }
-  // clean up and return context to pool
-  contextObj.callback = null;
-  contextObj.busy = false;
-}
-
-function jsrsError( contextID, str ){
-  alert( unescape(str) );
-  jsrsContextPool[ contextID ].busy = false
-}
-
-function jsrsEscapeQQ( thing ){
-  return thing.replace(/'"'/g, '\\"');
-}
-
-function jsrsUnescape( str ){
-  // payload has slashes escaped with whacks
-  return str.replace( /\\\//g, "/" );
-}
-
-function jsrsBrowserSniff(){
-  if (document.layers) return "NS";
-  if (document.all) {
-		// But is it really IE?
-		// convert all characters to lowercase to simplify testing
-		var agt=navigator.userAgent.toLowerCase();
-		var is_opera = (agt.indexOf("opera") != -1);
-		var is_konq = (agt.indexOf("konqueror") != -1);
-		if(is_opera) {
-			return "OPR";
-		} else {
-			if(is_konq) {
-				return "KONQ";
-			} else {
-				// Really is IE
-				return "IE";
-			}
-		}
-  }
-  if (document.getElementById) return "MOZ";
-  return "OTHER";
-}
-
-/////////////////////////////////////////////////
-//
-// user functions
-
-function jsrsArrayFromString( s, delim ){
-  // rebuild an array returned from server as string
-  // optional delimiter defaults to ~
-  var d = (delim == null)? '~' : delim;
-  return s.split(d);
-}
-
-function jsrsDebugInfo(){
-  // use for debugging by attaching to f1 (works with IE)
-  // with onHelp = "return jsrsDebugInfo();" in the body tag
-  var doc = window.open().document;
-  doc.open;
-  doc.write( 'Pool Size: ' + jsrsContextPoolSize + '<br><font face="arial" size="2"><b>' );
-  for( var i in jsrsContextPool ){
-    var contextObj = jsrsContextPool[i];
-    doc.write( '<hr>' + contextObj.id + ' : ' + (contextObj.busy ? 'busy' : 'available') + '<br>');
-    doc.write( contextObj.container.document.location.pathname + '<br>');
-    doc.write( contextObj.container.document.location.search + '<br>');
-    doc.write( '<table border="1"><tr><td>' + contextObj.container.document.body.innerHTML + '</td></tr></table>' );
-  }
-  doc.write('</table>');
-  doc.close();
-  return false;
-}
diff --git a/httemplate/elements/jsrsServer.html b/httemplate/elements/jsrsServer.html
deleted file mode 100644
index f37b0aaee..000000000
--- a/httemplate/elements/jsrsServer.html
+++ /dev/null
@@ -1,4 +0,0 @@
-%
-%  my $server = new FS::UI::Web::JSRPC '', $cgi;
-%
-<% $server->process %>
diff --git a/httemplate/elements/menu.html b/httemplate/elements/menu.html
deleted file mode 100644
index 0c74746b7..000000000
--- a/httemplate/elements/menu.html
+++ /dev/null
@@ -1,410 +0,0 @@
-<script type="text/javascript" src="<%$fsurl%>elements/cssexpr.js"></script>
-
-% if ( $opt{'position'} eq 'top' ) {
-
-  <script type="text/javascript" src="<%$fsurl%>elements/xmenu.top.js"></script>
-  <link href="<%$fsurl%>elements/xmenu.top.css" type="text/css" rel="stylesheet">
-
-% } else {  # elsif ( $opt{'position'} eq 'left' ) {
-
-  <script type="text/javascript" src="<%$fsurl%>elements/xmenu.js"></script>
-  <link href="<%$fsurl%>elements/xmenu.css" type="text/css" rel="stylesheet">
-
-% }
-
-<link href="<%$fsurl%>elements/freeside.css" type="text/css" rel="stylesheet">
-
-<SCRIPT TYPE="text/javascript">
-
-  webfxMenuImagePath      = "<%$fsurl%>images/";
-  webfxMenuUseHover       = 1;
-  webfxMenuShowTime       = 300;
-  webfxMenuHideTime       = 500;
-
-  var myBar = new WebFXMenuBar;
-
-% foreach my $item ( keys %menu ) {
-%
-%     my( $url_or_submenu, $tooltip ) = @{ $menu{$item} };
-%
-%     if ( ref($url_or_submenu) ) {
-%
-%         #warn $item;
-%
-%         my( $subhtml, $submenuname ) = submenu($url_or_submenu, $item);
-
-          <% $subhtml %>
-          myBar.add(new WebFXMenuButton("<% $item %>", null, "<% $tooltip %>", <% $submenuname %> ));
-
-%     } else { 
-    
-          myBar.add(new WebFXMenuButton("<% $item %>", "<% $url_or_submenu %>", "<% $tooltip %>" ));
-
-%     }
-%
-% }
-
-  myBar.show( null, 'vertical' );
-  myBar.width = 154;
-
-</SCRIPT>
-
-<%init>
-my( %opt ) = @_;
-my $conf = new FS::Conf;
-my $fsurl = $opt{'freeside_baseurl'};
-
-my $curuser = $FS::CurrentUser::CurrentUser;
-
-#Active tickets not assigned to a customer
-
-tie my %report_customers_lists, 'Tie::IxHash',
-  'by customer number' => [ $fsurl. 'search/cust_main.cgi?browse=custnum', '' ],
-  'by last name' => [ $fsurl. 'search/cust_main.cgi?browse=last', '' ],
-  'by company name' => [ $fsurl. 'search/cust_main.cgi?browse=company', '' ],
-;
-$report_customers_lists{'by active trouble tickets'} = [ $fsurl. 'search/cust_main.cgi?browse=tickets', '' ]
-  if $conf->config('ticket_system');
-
-tie my %report_customers_search, 'Tie::IxHash';
-$report_customers_search{'by ordering employee'} = [ $fsurl. 'search/cust_main-otaker.cgi' ]
-  if $curuser->access_right('Configuration');
-
-tie my %report_customers, 'Tie::IxHash';
-$report_customers{'List customers'} = [ \%report_customers_lists, 'List customers' ]
-  if $curuser->access_right('List customers');
-$report_customers{'Search customers'} = [ \%report_customers_search, 'Search customers' ]
-  if keys %report_customers_search;
-$report_customers{'Zip code distribution'}     = [ $fsurl. 'search/report_cust_main-zip.html', 'Zip codes by number of customers' ];
-$report_customers{'Advanced customer reports'} = [ $fsurl. 'search/report_cust_main.html', 'by status, signup date, agent, etc.' ]
-  if    $curuser->access_right('List customers')
-     && $curuser->access_right('List packages');
-
-tie my %report_invoices_open, 'Tie::IxHash',
-  'All open invoices' => [ $fsurl.'search/cust_bill.html?OPEN_date', 'All invoices with an unpaid balance' ],
-  '15 day open invoices' => [ $fsurl.'search/cust_bill.html?OPEN15_date', 'Invoices 15 days or older with an unpaid balance' ],
-  '30 day open invoices' => [ $fsurl.'search/cust_bill.html?OPEN30_date', 'Invoices 30 days or older with an unpaid balance' ],
-  '60 day open invoices' => [ $fsurl.'search/cust_bill.html?OPEN60_date', 'Invoices 60 days or older with an unpaid balance' ],
-  '90 day open invoices' => [ $fsurl.'search/cust_bill.html?OPEN90_date', 'Invoices 90 days or older with an unpaid balance' ],
-  '120 day open invoices' => [ $fsurl.'search/cust_bill.html?OPEN120_date', 'Invoices 120 days or older with an unpaid balance' ],
-;
-
-tie my %report_invoices, 'Tie::IxHash',
-  'Open invoices' => [ \%report_invoices_open, 'Open invoices' ],
-  'All invoices'  => [ $fsurl. 'search/cust_bill.html?date', 'List all invoices' ],
-  'Advanced invoice reports' => [ $fsurl.'search/report_cust_bill.html', 'by agent, date range, etc.' ],
-;
-
-tie my %report_services, 'Tie::IxHash';
-if ( $curuser->access_right('Configuration') ) {
-  $report_services{'Service definitions'} =  [ $fsurl.'browse/part_svc.cgi?orderby=active', 'Service definitions by number of active packages' ];
-  $report_services{'separator'} =  '';
-}
-foreach my $svcdb ( FS::part_svc->svc_tables() ) {
-
-  my $name =        "FS::$svcdb"->table_info->{'name_plural'}
-             || PL( "FS::$svcdb"->table_info->{'name'}        );
-  my $lcname = lc($name);
-  my $lcsname = lc("FS::$svcdb"->table_info->{'name'});
-  my $longname = "FS::$svcdb"->table_info->{'longname_plural'} || $name;
-  my $lclongname = lc($longname);
-  my $sorts = "FS::$svcdb"->table_info->{'sorts'} || [ 'svcnum' ];
-  $sorts = [ $sorts ] unless ref($sorts);
-  my %svc_url = ( 'm'      => $m,
-		  'action' => 'search',
-		  'svcdb'  => $svcdb,
-		);
-
-  tie my %report_svc, 'Tie::IxHash';
-
-  foreach my $sort ( @$sorts ) {
-
-    my $field_info = FS::part_svc->svc_table_fields($svcdb)->{$sort};
-    my $label = $field_info->{'label_sort'} || 'by '.$field_info->{'label'};
-
-    my $title = "All $lcname";
-    $title .= " $label"
-      if scalar(@$sorts) > 1;
-
-    $report_svc{$title} =
-      [ svc_url( %svc_url, 'query' => "magic=all;sortby=$sort" ),
-        '',
-      ];
-  }
-
-  if ( $svcdb eq 'svc_acct' ) {
-    $report_svc{"All $lcname never logged in"} = 
-      [ svc_url( %svc_url, 'query' => "magic=nologin;sortby=svcnum" ),
-        '',
-      ];
-  }
-
-  if ( $curuser->access_right('View/link unlinked services') ) {
-    $report_svc{"Unlinked $lcname"} = 
-      [ svc_url( %svc_url, 'query' => "magic=unlinked;sortby=". $sorts->[0] ),
-        "Pre-Freeside $lcname without a customer record",
-      ];
-  }
-
-  if ( $svcdb eq 'svc_acct' ) {
-    $report_svc{"Advanced $lcsname reports"} = 
-      [ $fsurl."search/report_$svcdb.html", '' ];
-  }
-
-  $report_services{$name} = [ \%report_svc, $longname ];
-
-}
-
-tie my %report_packages, 'Tie::IxHash';
-if (    $curuser->access_right('Edit package definitions')
-     || $curuser->access_right('Edit global package definitions')
-   )
-{
-  $report_packages{'Package definitions'} =  [ $fsurl.'browse/part_pkg.cgi?active=1', 'Package definitions by number of active packages' ];
-  $report_packages{'separator'} =  '';
-}
-if ( $curuser->access_right('Financial reports') ) {
-  $report_packages{'Package churn'} =  [ $fsurl.'graph/report_cust_pkg.html', 'Orders, suspensions and cancellations summary graph' ];
-  $report_packages{'separator2'} =  '';
-}
-$report_packages{'All customer packages'} =  [ $fsurl.'search/cust_pkg.cgi?pkgnum', 'List all customer packages', ];
-$report_packages{'Suspended customer packages'} =  [ $fsurl.'search/cust_pkg.cgi?magic=suspended', 'List suspended packages' ];
-$report_packages{'Customer packages with unconfigured services'} =  [ $fsurl.'search/cust_pkg.cgi?APKG_pkgnum', 'List packages which have provisionable services' ];
-$report_packages{'Advanced package reports'} =  [ $fsurl.'search/report_cust_pkg.html', 'by agent, date range, status, package definition' ];
-
-tie my %report_rating, 'Tie::IxHash',
-  'RADIUS sessions' => [ $fsurl.'search/sqlradius.html', '' ],
-  'Call Detail Records (CDRs)' => [ $fsurl.'search/report_cdr.html', '' ],
-  'Time worked' => [ $fsurl.'search/report_rt_transaction.html', '' ],
-;
-
-tie my %report_bill_event, 'Tie::IxHash',
-  'All billing events' => [ $fsurl.'search/report_cust_event.html', 'All billing events for a date range' ],
-  'Billing event errors' => [ $fsurl.'search/report_cust_event.html?failed=1', 'Failed credit cards, processor or printer problems, etc.' ],
-  'All invoice events' => [ $fsurl.'search/cust_bill_event.html', 'Reports on deprecated, old-style invoice events for a date range' ],
-  'Invoice event errors' => [ $fsurl.'search/cust_bill_event.html?failed=1', 'Reports on deprecated, old-style events for failed credit cards, processor or printer problems, etc.' ],
-;
-
-tie my %report_financial, 'Tie::IxHash', 
-  'Sales, Credits and Receipts' => [ $fsurl.'graph/report_money_time.html', 'Sales, credits and receipts summary graph' ],
-  'Sales Report' => [ $fsurl.'graph/report_cust_bill_pkg.html', 'Sales report and graph (by agent, package class and/or date range)' ],
-  'Credit Report' => [ $fsurl.'search/report_cust_credit.html', 'Credit report (by employee and/or date range)' ],
-  'Payment Report' => [ $fsurl.'search/report_cust_pay.html', 'Payment report (by type and/or date range)' ],
-;
-$report_financial{'Payment Batch Report'} = [ $fsurl.'search/pay_batch.html', 'Payment batches (by status and/or date range)' ]
-  if $conf->exists('batch-enable');
-$report_financial{'A/R Aging'} = [ $fsurl.'search/report_receivables.html', 'Accounts Receivable Aging report' ];
-$report_financial{'Prepaid Income'} = [ $fsurl.'search/report_prepaid_income.html', 'Prepaid income (unearned revenue)  report' ];
-$report_financial{'Sales Tax Liability'} = [ $fsurl.'search/report_tax.html', 'Sales tax liability report' ];
-;
-
-tie my %report_menu, 'Tie::IxHash';
-$report_menu{'Customers'}   = [ \%report_customers, 'Customer reports'  ]
-  if $curuser->access_right('List customers');
-$report_menu{'Invoices'}    =  [ \%report_invoices,  'Invoice reports'   ]
-  if $curuser->access_right('List invoices');
-$report_menu{'Packages'}    =  [ \%report_packages,  'Package reports'   ]
-  if $curuser->access_right('List packages');
-$report_menu{'Services'}    =  [ \%report_services,  'Services reports'  ]
-  if $curuser->access_right('List services');
-$report_menu{'Usage'} =  [ \%report_rating,    'Usage reports'  ]
-  if $curuser->access_right('List rating data');
-$report_menu{'Billing events'} =  [ \%report_bill_event, 'Billing events' ]
-  if $curuser->access_right('Billing event reports');
-$report_menu{'Financial'}  = [ \%report_financial, 'Financial reports' ]
-  if $curuser->access_right('Financial reports');
-
-tie my %tools_importing, 'Tie::IxHash',
-  'Import customers from CSV file' => [ $fsurl.'misc/cust_main-import.cgi', '' ],
-  'Import payments from CSV file' => [ $fsurl.'misc/cust_pay-import.cgi', '' ],
-
-  'Import customer comments from CSV file' => [ $fsurl.'misc/cust_main_note-import.html', '' ],
-  'Import one-time charges from CSV file' => [ $fsurl.'misc/cust_main-import_charges.cgi', '' ],
-  'Import Call Detail Records (CDRs) from CSV file' => [ $fsurl.'misc/cdr-import.html', '' ],
-;
-
-tie my %tools_exporting, 'Tie::IxHash',
-  'Download database dump' => [ $fsurl. 'misc/dump.cgi', '' ],
-;
-
-#    
-#      
-
-tie my %tools_menu, 'Tie::IxHash', ();
-$tools_menu{'Quick payment entry'} =  [ $fsurl.'misc/batch-cust_pay.html', 'Enter multiple payments in a batch' ]
-  if $curuser->access_right('Post payment batch');
-$tools_menu{'Process payment batches'} = [ $fsurl.'search/pay_batch.cgi?magic=_date;open=1;intransit=1', 'Process credit card and electronic check batches' ]
-  if $conf->exists('batch-enable') && $curuser->access_right('Process batches');
-$tools_menu{'Job Queue'} =  [ $fsurl.'search/queue.html', 'View pending job queue' ]
-  if $curuser->access_right('Job queue');
-$tools_menu{'Time Queue'} =  [ $fsurl.'search/timeworked.html', 'View pending support time' ]
-  if $curuser->access_right('Time queue');
-$tools_menu{'Importing'} =  [ \%tools_importing, 'Import tools' ]
-  if $curuser->access_right('Import');
-$tools_menu{'Exporting'} =  [ \%tools_exporting, 'Export tools' ]
-  if $curuser->access_right('Export');
-
-tie my %config_employees, 'Tie::IxHash',
-  'View/Edit employees' => [ $fsurl.'browse/access_user.html', 'Setup internal users' ],
-  'View/Edit employee groups' => [ $fsurl.'browse/access_group.html', 'Employee groups allow you to control access to the backend' ],
-;
-
-tie my %config_export_svc_pkg, 'Tie::IxHash', ();
-if ( $curuser->access_right('Configuration') ) {
-  $config_export_svc_pkg{'View/Edit exports'} = [ $fsurl.'browse/part_export.cgi', 'Provisioning services to external machines, databases and APIs' ];
-  $config_export_svc_pkg{'View/Edit service definitions'} = [ $fsurl.'browse/part_svc.cgi', 'Services are items you offer to your customers' ];
-}
-$config_export_svc_pkg{'View/Edit package definitions'} = [ $fsurl.'browse/part_pkg.cgi', 'One or more services are grouped together into a package and given pricing information. Customers purchase packages, not services' ]
-  if    $curuser->access_right('Edit package definitions')
-     || $curuser->access_right('Edit global package definitions');
-if ( $curuser->access_right('Configuration') ) {
-  $config_export_svc_pkg{'View/Edit package classes'} =  [ $fsurl.'browse/pkg_class.html', 'Package classes define groups of packages, for reporting and convenience purposes.' ];
-  $config_export_svc_pkg{'View/Edit cancel reason types'} = [ $fsurl.'browse/reason_type.html?class=C', 'Cancel reason types define groups of reasons, for reporting and convenience purposes.' ];
-  $config_export_svc_pkg{'View/Edit cancel reasons'} = [ $fsurl.'browse/reason.html?class=C', 'Cancel reasons explain why a service was cancelled.' ];
-  $config_export_svc_pkg{'View/Edit suspend reason types'} = [ $fsurl.'browse/reason_type.html?class=S', 'Suspend reason types define groups of reasons, for reporting and convenience purposes.' ];
-  $config_export_svc_pkg{'View/Edit suspend reasons'} = [ $fsurl.'browse/reason.html?class=S', 'Suspend reasons explain why a service was suspended.' ];
-}
-
-tie my %config_agent, 'Tie::IxHash',
-  'View/Edit agent types' => [ $fsurl.'browse/agent_type.cgi', 'Agent types define groups of package definitions that you can then assign to particular agents' ],
-  'View/Edit agents'      => [ $fsurl.'browse/agent.cgi', 'Agents are resellers of your service. Agents may be limited to a subset of your full offerings (via their type)' ],
-  'View/Edit agent payment gateways'         => [ $fsurl.'browse/payment_gateway.html', 'Credit card and electronic check processors for agent overrides' ];
-;
-
-tie my %config_billing_rates, 'Tie::IxHash',
-  'View/Edit rate plans' => [ $fsurl.'browse/rate.cgi', 'Manage rate plans' ],
-  'View/Edit regions and prefixes' => [ $fsurl.'browse/rate_region.html', 'Manage regions and prefixes' ],
-;
-
-tie my %config_billing, 'Tie::IxHash';
-#  'View/Edit payment gateways'         => [ $fsurl.'browse/payment_gateway.html', 'Credit card and electronic check processors' ];
-$config_billing{'View/Edit billing events'} = [ $fsurl.'browse/part_event.html', 'Billing actions for customers, invoices and packages' ]
-    if $curuser->access_right('Edit billing events')
-    || $curuser->access_right('Edit global billing events');
-if ( $curuser->access_right('Configuration') ) {
-  $config_billing{'View/Edit invoice events'}         = [ $fsurl.'browse/part_bill_event.cgi', 'Deprecated, old-style actions for overdue invoices' ];
-  $config_billing{'View/Edit invoice templates'}      = [ $fsurl.'browse/invoice_template.html', 'Edit templates for HTML, plaintext and typeset invoices' ];
-  $config_billing{'View/Edit prepaid cards'}          = [ $fsurl.'search/prepay_credit.html', 'View outstanding cards, generate new cards' ];
-  $config_billing{'View/Edit call rates and regions'} = [ \%config_billing_rates, 'Manage rate plans, regions and prefixes for VoIP and call billing' ];
-  $config_billing{'View/Edit locales and tax rates'}  = [ $fsurl.'browse/cust_main_county.cgi', 'Change tax rates, or break down a country into states, or a state into counties and assign different tax rates to each' ];
-  $config_billing{'View/Edit credit reason types'}  = [ $fsurl.'browse/reason_type.html?class=R', 'Credit reason types define groups of reasons, for reporting and convenience purposes.' ];
-  $config_billing{'View/Edit credit reasons'}  = [ $fsurl.'browse/reason.html?class=R', 'Credit reasons explain why a credit was issued.' ];
-}
-
-tie my %config_dialup, 'Tie::IxHash',
-  'View/Edit access numbers' => [ $fsurl.'browse/svc_acct_pop.cgi', 'Points of Presence' ],
-;
-
-tie my %config_broadband, 'Tie::IxHash',
-  'View/Edit routers'        => [ $fsurl.'browse/router.cgi', 'Broadband access routers' ],
-  'View/Edit address blocks' => [ $fsurl.'browse/addr_block.cgi', 'Manage address blocks and block assignments to broadband routers' ],
-;
-
-tie my %config_misc, 'Tie::IxHash';
-$config_misc{'View/Edit advertising sources'} = [ $fsurl.'browse/part_referral.html', 'Where a customer heard about your service.  Tracked for informational purposes' ]
-  if $curuser->access_right('Edit advertising sources')
-  || $curuser->access_right('Edit global advertising sources');
-if ( $curuser->access_right('Configuration') ) {
-  $config_misc{'View/Edit virtual fields'} = [ $fsurl.'browse/part_virtual_field.cgi', 'Locally defined fields', ];
-  $config_misc{'View/Edit message catalog'} = [ $fsurl.'browse/msgcat.cgi', 'Change error messages and other customizable labels' ];
-  $config_misc{'View/Edit inventory classes and inventory'} = [ $fsurl.'browse/inventory_class.html', 'Setup inventory classes and stock inventory' ];
-}
-
-tie my %config_menu, 'Tie::IxHash';
-if ( $curuser->access_right('Configuration' ) ) {
-  %config_menu = (
-    'Settings'      => [ $fsurl.'config/config-view.cgi', '' ],
-    'separator'     => '', #its a separator!
-    'Employees'     => [ \%config_employees, '' ],
-  );
-}
-$config_menu{'Provisioning, services and packages'} =
-    [ \%config_export_svc_pkg, ''    ]
-  if    $curuser->access_right('Configuration' )
-     || $curuser->access_right('Edit package definitions')
-     || $curuser->access_right('Edit global package definitions');
-$config_menu{'Resellers'} = [ \%config_agent, ''    ]
-  if $curuser->access_right('Configuration');
-$config_menu{'Billing'} = [ \%config_billing, ''    ]
-  if $curuser->access_right('Edit billing events')
-  || $curuser->access_right('Edit global billing events');
-if ( $curuser->access_right('Configuration') ) {
-  $config_menu{'Dialup'}  = [ \%config_dialup, ''    ];
-  $config_menu{'Fixed (username-less) broadband'} = 
-                            [ \%config_broadband, ''    ];
-}
-$config_menu{'Miscellaneous'} = [ \%config_misc, ''    ]
-  if $curuser->access_right('Edit advertising sources')
-  || $curuser->access_right('Edit global advertising sources');
-
-tie my %menu, 'Tie::IxHash',
-  'Billing Main'   => [ $fsurl, 'Billing start page', ],
-;
-if ( $conf->config('ticket_system') ) {
-  $menu{'Ticketing Main'} =
-    [ 
-      ( $conf->config('ticket_system') eq 'RT_External'
-        ? FS::TicketSystem->baseurl()
-        : $fsurl.'rt/'
-      ),
-      'Ticketing start page',
-    ],
-}
-$menu{'Reports'} = [ \%report_menu, 'Lists, reporting and graphing' ]
-  if keys %report_menu;
-$menu{'Tools'} = [ \%tools_menu, 'Tools' ]
-  if keys %tools_menu;
-$menu{'Configuration'} = [ \%config_menu, 'Configuraiton and setup' ]
-  if $curuser->access_right('Edit advertising sources')
-  || $curuser->access_right('Edit global advertising sources');
-
-use vars qw($gmenunum);
-$gmenunum = 0;
-
-sub submenu {
-  my($submenu, $title) = @_;
-  my $menunum = $gmenunum++;
-
-  #return two args: html, menuname
-
-  "var myMenu$menunum = new WebFXMenu;\n".
-  #"myMenu$menunum.useAutoPosition = true;\n".
-  "myMenu$menunum.emptyText = '$title';\n".
-
-  (
-    join("\n", map {
-
-      if ( !ref( $submenu->{$_} ) ) {
-
-        "myMenu$menunum.add(new WebFXMenuSeparator());";
-
-      } else {
-
-        my($url_or_submenu, $tooltip ) = @{ $submenu->{$_} };
-        if ( ref($url_or_submenu) ) {
-
-          my($subhtml, $submenuname ) = submenu($url_or_submenu, $_); #mmm, recursion
-
-          "$subhtml\n".
-          "myMenu$menunum.add(new WebFXMenuItem(\"$_\", null, \"$tooltip\", $submenuname ));";
-
-        } else {
-
-          "myMenu$menunum.add(new WebFXMenuItem(\"$_\", \"$url_or_submenu\", \"$tooltip\" ));";
-
-        }
-
-      }
-
-    } keys %$submenu )
-  ). "\n".
-  "myMenu$menunum.width = 280;\n",
-
-  "myMenu$menunum";
-
-}
-
-</%init>
-
diff --git a/httemplate/elements/menubar.html b/httemplate/elements/menubar.html
deleted file mode 100644
index ec6c13fea..000000000
--- a/httemplate/elements/menubar.html
+++ /dev/null
@@ -1,10 +0,0 @@
-%
-%  my($item, $url, @html);
-%  while (@_) {
-%    ($item, $url) = splice(@_,0,2);
-%    next if $item =~ /^\s*Main\s+Menu\s*$/i;
-%    push @html, qq!<A HREF="$url">$item</A>!;
-%  }
-%
-
-<% join(' | ', @html) %>
diff --git a/httemplate/elements/overlibmws.js b/httemplate/elements/overlibmws.js
deleted file mode 100644
index 5ef50d68f..000000000
--- a/httemplate/elements/overlibmws.js
+++ /dev/null
@@ -1,697 +0,0 @@
-/*
- Do not remove or change this notice.
- overlibmws.js core module - Copyright Foteos Macrides 2002-2005. All rights reserved.
-   Initial: August 18, 2002 - Last Revised: May 30, 2006
- This module is subject to the same terms of usage as for Erik Bosrup's overLIB,
- though only a minority of the code and API now correspond with Erik's version.
- See the overlibmws Change History and Command Reference via:
-
-	http://www.macridesweb.com/oltest/
-
- Published under an open source license: http://www.macridesweb.com/oltest/license.html
- Give credit on sites that use overlibmws and submit changes so others can use them as well.
- You can get Erik's version via: http://www.bosrup.com/web/overlib/
-*/
-
-// PRE-INIT -- Ignore these lines, configuration is below.
-var OLloaded=0,pmCnt=1,pMtr=new Array(),OLcmdLine=new Array(),OLrunTime=new Array(),OLv,OLudf,
-OLpct=new Array("83%","67%","83%","100%","117%","150%","200%","267%"),OLrefXY,
-OLbubblePI=0,OLcrossframePI=0,OLdebugPI=0,OLdraggablePI=0,OLexclusivePI=0,OLfilterPI=0,
-OLfunctionPI=0,OLhidePI=0,OLiframePI=0,OLovertwoPI=0,OLscrollPI=0,OLshadowPI=0,OLprintPI=0;
-if(typeof OLgateOK=='undefined')var OLgateOK=1;
-var OLp1or2c='inarray,caparray,caption,closetext,right,left,center,autostatuscap,padx,pady,'
-+'below,above,vcenter,donothing',OLp1or2co='nofollow,background,offsetx,offsety,fgcolor,'
-+'bgcolor,cgcolor,textcolor,capcolor,width,wrap,wrapmax,height,border,base,status,autostatus,'
-+'snapx,snapy,fixx,fixy,relx,rely,midx,midy,ref,refc,refp,refx,refy,fgbackground,bgbackground,'
-+'cgbackground,fullhtml,capicon,textfont,captionfont,textsize,captionsize,timeout,delay,hauto,'
-+'vauto,nojustx,nojusty,fgclass,bgclass,cgclass,capbelow,textpadding,textfontclass,'
-+'captionpadding,captionfontclass,sticky,noclose,mouseoff,offdelay,closecolor,closefont,'
-+'closesize,closeclick,closetitle,closefontclass,decode',OLp1or2o='text,cap,close,hpos,vpos,'
-+'padxl,padxr,padyt,padyb',OLp1co='label',OLp1or2=OLp1or2co+','+OLp1or2o,OLp1=OLp1co+','+'frame';
-OLregCmds(OLp1or2c+','+OLp1or2co+','+OLp1co);
-function OLud(v){return eval('typeof ol_'+v+'=="undefined"')?1:0;}
-
-// DEFAULT CONFIGURATION -- See overlibConfig.txt for descriptions
-if(OLud('fgcolor'))var ol_fgcolor="#ccccff";
-if(OLud('bgcolor'))var ol_bgcolor="#333399";
-if(OLud('cgcolor'))var ol_cgcolor="#333399";
-if(OLud('textcolor'))var ol_textcolor="#000000";
-if(OLud('capcolor'))var ol_capcolor="#ffffff";
-if(OLud('closecolor'))var ol_closecolor="#eeeeff";
-if(OLud('textfont'))var ol_textfont="Verdana,Arial,Helvetica";
-if(OLud('captionfont'))var ol_captionfont="Verdana,Arial,Helvetica";
-if(OLud('closefont'))var ol_closefont="Verdana,Arial,Helvetica";
-if(OLud('textsize'))var ol_textsize=1;
-if(OLud('captionsize'))var ol_captionsize=1;
-if(OLud('closesize'))var ol_closesize=1;
-if(OLud('fgclass'))var ol_fgclass="";
-if(OLud('bgclass'))var ol_bgclass="";
-if(OLud('cgclass'))var ol_cgclass="";
-if(OLud('textpadding'))var ol_textpadding=2;
-if(OLud('textfontclass'))var ol_textfontclass="";
-if(OLud('captionpadding'))var ol_captionpadding=2;
-if(OLud('captionfontclass'))var ol_captionfontclass="";
-if(OLud('closefontclass'))var ol_closefontclass="";
-if(OLud('close'))var ol_close="Close";
-if(OLud('closeclick'))var ol_closeclick=0;
-if(OLud('closetitle'))var ol_closetitle="Click to Close";
-if(OLud('text'))var ol_text="Default Text";
-if(OLud('cap'))var ol_cap="";
-if(OLud('capbelow'))var ol_capbelow=0;
-if(OLud('background'))var ol_background="";
-if(OLud('width'))var ol_width=200;
-if(OLud('wrap'))var ol_wrap=0;
-if(OLud('wrapmax'))var ol_wrapmax=0;
-if(OLud('height'))var ol_height= -1;
-if(OLud('border'))var ol_border=1;
-if(OLud('base'))var ol_base=0;
-if(OLud('offsetx'))var ol_offsetx=10;
-if(OLud('offsety'))var ol_offsety=10;
-if(OLud('sticky'))var ol_sticky=0;
-if(OLud('nofollow'))var ol_nofollow=0;
-if(OLud('noclose'))var ol_noclose=0;
-if(OLud('mouseoff'))var ol_mouseoff=0;
-if(OLud('offdelay'))var ol_offdelay=300;
-if(OLud('hpos'))var ol_hpos=RIGHT;
-if(OLud('vpos'))var ol_vpos=BELOW;
-if(OLud('status'))var ol_status="";
-if(OLud('autostatus'))var ol_autostatus=0;
-if(OLud('snapx'))var ol_snapx=0;
-if(OLud('snapy'))var ol_snapy=0;
-if(OLud('fixx'))var ol_fixx= -1;
-if(OLud('fixy'))var ol_fixy= -1;
-if(OLud('relx'))var ol_relx=null;
-if(OLud('rely'))var ol_rely=null;
-if(OLud('midx'))var ol_midx=null;
-if(OLud('midy'))var ol_midy=null;
-if(OLud('ref'))var ol_ref="";
-if(OLud('refc'))var ol_refc='UL';
-if(OLud('refp'))var ol_refp='UL';
-if(OLud('refx'))var ol_refx=0;
-if(OLud('refy'))var ol_refy=0;
-if(OLud('fgbackground'))var ol_fgbackground="";
-if(OLud('bgbackground'))var ol_bgbackground="";
-if(OLud('cgbackground'))var ol_cgbackground="";
-if(OLud('padxl'))var ol_padxl=1;
-if(OLud('padxr'))var ol_padxr=1;
-if(OLud('padyt'))var ol_padyt=1;
-if(OLud('padyb'))var ol_padyb=1;
-if(OLud('fullhtml'))var ol_fullhtml=0;
-if(OLud('capicon'))var ol_capicon="";
-if(OLud('frame'))var ol_frame=self;
-if(OLud('timeout'))var ol_timeout=0;
-if(OLud('delay'))var ol_delay=0;
-if(OLud('hauto'))var ol_hauto=0;
-if(OLud('vauto'))var ol_vauto=0;
-if(OLud('nojustx'))var ol_nojustx=0;
-if(OLud('nojusty'))var ol_nojusty=0;
-if(OLud('label'))var ol_label="";
-if(OLud('decode'))var ol_decode=0;
-// ARRAY CONFIGURATION - See overlibConfig.txt for descriptions.
-if(OLud('texts'))var ol_texts=new Array("Text 0","Text 1");
-if(OLud('caps'))var ol_caps=new Array("Caption 0","Caption 1");
-// END CONFIGURATION -- Don't change anything below, all configuration is above.
-
-// INIT -- Runtime variables.
-var o3_text="",o3_cap="",o3_sticky=0,o3_nofollow=0,o3_background="",o3_noclose=0,o3_mouseoff=0,
-o3_offdelay=300,o3_hpos=RIGHT,o3_offsetx=10,o3_offsety=10,o3_fgcolor="",o3_bgcolor="",
-o3_cgcolor="",o3_textcolor="",o3_capcolor="",o3_closecolor="",o3_width=200,o3_wrap=0,
-o3_wrapmax=0,o3_height= -1,o3_border=1,o3_base=0,o3_status="",o3_autostatus=0,o3_snapx=0,
-o3_snapy=0,o3_fixx= -1,o3_fixy= -1,o3_relx=null,o3_rely=null,o3_midx=null,o3_midy=null,o3_ref="",
-o3_refc='UL',o3_refp='UL',o3_refx=0,o3_refy=0,o3_fgbackground="",o3_bgbackground="",
-o3_cgbackground="",o3_padxl=0,o3_padxr=0,o3_padyt=0,o3_padyb=0,o3_fullhtml=0,o3_vpos=BELOW,
-o3_capicon="",o3_textfont="Verdana,Arial,Helvetica",o3_captionfont="",o3_closefont="",
-o3_textsize=1,o3_captionsize=1,o3_closesize=1,o3_frame=self,o3_timeout=0,o3_delay=0,o3_hauto=0,
-o3_vauto=0,o3_nojustx=0,o3_nojusty=0,o3_close="",o3_closeclick=0,o3_closetitle="",o3_fgclass="",
-o3_bgclass="",o3_cgclass="",o3_textpadding=2,o3_textfontclass="",o3_captionpadding=2,
-o3_captionfontclass="",o3_closefontclass="",o3_capbelow=0,o3_label="",o3_decode=0,
-CSSOFF=DONOTHING,CSSCLASS=DONOTHING,OLdelayid=0,OLtimerid=0,OLshowid=0,OLndt=0,over=null,
-OLfnRef="",OLhover=0,OLx=0,OLy=0,OLshowingsticky=0,OLallowmove=0,OLcC=null,
-OLua=navigator.userAgent.toLowerCase(),
-OLns4=(navigator.appName=='Netscape'&&parseInt(navigator.appVersion)==4),
-OLns6=(document.getElementById)?1:0,
-OLie4=(document.all)?1:0,
-OLgek=(OLv=OLua.match(/gecko\/(\d{8})/i))?parseInt(OLv[1]):0,
-OLmac=(OLua.indexOf('mac')>=0)?1:0,
-OLsaf=(OLua.indexOf('safari')>=0)?1:0,
-OLkon=(OLua.indexOf('konqueror')>=0)?1:0,
-OLkht=(OLsaf||OLkon)?1:0,
-OLopr=(OLua.indexOf('opera')>=0)?1:0,
-OLop7=(OLopr&&document.createTextNode)?1:0;
-if(OLopr){OLns4=OLns6=0;if(!OLop7)OLie4=0;}
-var OLieM=((OLie4&&OLmac)&&!(OLkht||OLopr))?1:0,
-OLie5=0,OLie55=0;if(OLie4&&!OLop7){
-if((OLv=OLua.match(/msie (\d\.\d+)\.*/i))&&(OLv=parseFloat(OLv[1]))>=5.0){
-OLie5=1;OLns6=0;if(OLv>=5.5)OLie55=1;}if(OLns6)OLie4=0;}
-if(OLns4)window.onresize=function(){location.reload();}
-var OLchkMh=1,OLdw;
-if(OLns4||OLie4||OLns6)OLmh();
-else{overlib=nd=cClick=OLpageDefaults=no_overlib;}
-
-/*
- PUBLIC FUNCTIONS
-*/
-// Loads defaults then args into runtime variables.
-function overlib(){
-if(!(OLloaded&&OLgateOK))return;
-if((OLexclusivePI)&&OLisExclusive(arguments))return true;
-if(OLchkMh)OLmh();
-if(OLndt&&!OLtimerid)OLndt=0;if(over)cClick();
-OLload(OLp1or2);OLload(OLp1);
-OLfnRef="";OLhover=0;
-OLsetRunTimeVar();
-OLparseTokens('o3_',arguments);
-if(!(over=OLmkLyr()))return false;
-if(o3_decode)OLdecode();
-if(OLprintPI)OLchkPrint();
-if(OLbubblePI)OLchkForBubbleEffect();
-if(OLdebugPI)OLsetDebugCanShow();
-if(OLshadowPI)OLinitShadow();
-if(OLiframePI)OLinitIfs();
-if(OLfilterPI)OLinitFilterLyr();
-if(OLexclusivePI&&o3_exclusive&&o3_exclusivestatus!="")o3_status=o3_exclusivestatus;
-else if(o3_autostatus==2&&o3_cap!="")o3_status=o3_cap;
-else if(o3_autostatus==1&&o3_text!="")o3_status=o3_text;
-if(!o3_delay){return OLmain();
-}else{OLdelayid=setTimeout("OLmain()",o3_delay);
-if(o3_status!=""){self.status=o3_status;return true;}
-else if(!(OLop7&&event&&event.type=='mouseover'))return false;}
-}
-
-// Clears popups if appropriate
-function nd(time){
-if(OLloaded&&OLgateOK){if(!((OLexclusivePI)&&OLisExclusive())){
-if(time&&over&&!o3_delay){if(OLtimerid>0)clearTimeout(OLtimerid);
-OLtimerid=(OLhover&&o3_frame==self&&!OLcursorOff())?0:
-setTimeout("cClick()",(o3_timeout=OLndt=time));}else{
-if(!OLshowingsticky){OLallowmove=0;if(over)OLhideObject(over);}}}}
-return false;
-}
-
-// Close function for stickies
-function cClick(){
-if(OLloaded&&OLgateOK){OLhover=0;if(over){
-if(OLovertwoPI&&over==over2)cClick2();OLhideObject(over);OLshowingsticky=0;}}
-return false;
-}
-
-// Sets page-specific defaults.
-function OLpageDefaults(){
-OLparseTokens('ol_',arguments);
-}
-
-// For unsupported browsers.
-function no_overlib(){return false;}
-
-/*
- OVERLIB MAIN FUNCTION SET
-*/
-function OLmain(){
-o3_delay=0;
-if(o3_frame==self){if(o3_noclose)OLoptMOUSEOFF(0);else if(o3_mouseoff)OLoptMOUSEOFF(1);}
-if(o3_sticky)OLshowingsticky=1;OLdoLyr();OLallowmove=0;if(o3_timeout>0){
-if(OLtimerid>0)clearTimeout(OLtimerid);OLtimerid=setTimeout("cClick()",o3_timeout);}
-if(o3_ref){OLrefXY=OLgetRefXY(o3_ref);if(OLrefXY[0]==null){o3_ref="";o3_midx=0;o3_midy=0;}}
-OLdisp(o3_status);if(OLdraggablePI)OLcheckDrag();
-if(o3_status!="")return true;else if(!(OLop7&&event&&event.type=='mouseover'))return false;
-}
-
-// Loads o3_ variables
-function OLload(c){var i,m=c.split(',');for(i=0;i<m.length;i++)eval('o3_'+m[i]+'=ol_'+m[i]);}
-
-// Chooses LGF 
-function OLdoLGF(){
-return (o3_background!=''||o3_fullhtml)?OLcontentBackground(o3_text,o3_background,o3_fullhtml):
-(o3_cap=="")?OLcontentSimple(o3_text):
-(o3_sticky)?OLcontentCaption(o3_text,o3_cap,o3_close):OLcontentCaption(o3_text,o3_cap,'');
-}
-
-// Makes Layer
-function OLmkLyr(id,f,z){
-id=(id||'overDiv');f=(f||o3_frame);z=(z||1000);var fd=f.document,d=OLgetRefById(id,fd);
-if(!d){if(OLns4)d=fd.layers[id]=new Layer(1024,f);else if(OLie4&&!document.getElementById){
-fd.body.insertAdjacentHTML('BeforeEnd','<div id="'+id+'"></div>');d=fd.all[id];
-}else{d=fd.createElement('div');if(d){d.id=id;fd.body.appendChild(d);}}if(!d)return null;
-if(OLns4)d.zIndex=z;else{var o=d.style;o.position='absolute';o.visibility='hidden';o.zIndex=z;}}
-return d;
-}
-
-// Creates and writes layer content
-function OLdoLyr(){
-if(o3_background==''&&!o3_fullhtml){
-if(o3_fgbackground!='')o3_fgbackground=' background="'+o3_fgbackground+'"';
-if(o3_bgbackground!='')o3_bgbackground=' background="'+o3_bgbackground+'"';
-if(o3_cgbackground!='')o3_cgbackground=' background="'+o3_cgbackground+'"';
-if(o3_fgcolor!='')o3_fgcolor=' bgcolor="'+o3_fgcolor+'"';
-if(o3_bgcolor!='')o3_bgcolor=' bgcolor="'+o3_bgcolor+'"';
-if(o3_cgcolor!='')o3_cgcolor=' bgcolor="'+o3_cgcolor+'"';
-if(o3_height>0)o3_height=' height="'+o3_height+'"';else o3_height='';}
-if(!OLns4)OLrepositionTo(over,(OLns6?20:0),0);var lyrHtml=OLdoLGF();
-if(o3_sticky&&OLtimerid>0){clearTimeout(OLtimerid);OLtimerid=0;}
-if(o3_wrap&&!o3_fullhtml){OLlayerWrite(lyrHtml);
-o3_width=(OLns4?over.clip.width:over.offsetWidth);
-if(OLns4&&o3_wrapmax<1)o3_wrapmax=o3_frame.innerWidth-40;
-o3_wrap=0;if(o3_wrapmax>0&&o3_width>o3_wrapmax)o3_width=o3_wrapmax;lyrHtml=OLdoLGF();}
-OLlayerWrite(lyrHtml);o3_width=(OLns4?over.clip.width:over.offsetWidth);
-if(OLbubblePI)OLgenerateBubble(lyrHtml);
-}
-
-/*
- LAYER GENERATION FUNCTIONS
-*/
-// Makes simple table without caption
-function OLcontentSimple(txt){
-var t=OLbgLGF()+OLfgLGF(txt)+OLbaseLGF();
-OLsetBackground('');return t;
-}
-
-// Makes table with caption and optional close link
-function OLcontentCaption(txt,title,close){
-var closing=(OLprintPI?OLprintCapLGF():''),closeevent='onmouseover',caption,t,
-cC='javascript:return '+OLfnRef+(OLovertwoPI&&over==over2?'cClick2();':'cClick();');
-if(o3_closeclick)closeevent=(o3_closetitle?'title="'+o3_closetitle+'" ':'')+'onclick';
-if(o3_capicon!='')o3_capicon='<img src="'+o3_capicon+'" /> ';
-if(close){closing+='<td align="right"><a href="'+cC+'" '
-+closeevent+'="'+cC+'"'+(o3_closefontclass?' class="'+o3_closefontclass
-+'">':'>'+OLlgfUtil(0,0,'','span',o3_closecolor,o3_closefont,o3_closesize))+close
-+(o3_closefontclass?'':OLlgfUtil(1,0,'','span'))+'</a></td>';}
-caption='<table'+OLwd(0)+' border="0" cellpadding="'+o3_captionpadding+'" cellspacing="0"'
-+(o3_cgclass?' class="'+o3_cgclass+'"':o3_cgcolor+o3_cgbackground)+'><tr><td'+OLwd(0)
-+(o3_cgclass?' class="'+o3_cgclass+'">':'>')+(o3_captionfontclass?'<div class="'
-+o3_captionfontclass+'">':OLlgfUtil(0,1,'','div',o3_capcolor,o3_captionfont,
-o3_captionsize))+o3_capicon+title+OLlgfUtil(1,1,'','div')+'</td>'+closing+'</tr></table>';
-t=OLbgLGF()+(o3_capbelow?OLfgLGF(txt)+caption:caption+OLfgLGF(txt))+OLbaseLGF();
-OLsetBackground('');return t;
-}
-
-// For BACKGROUND and FULLHTML commands
-function OLcontentBackground(txt, image, hasfullhtml){
-var t;if(hasfullhtml){t=txt;}else{t='<table'+OLwd(1)
-+' border="0" cellpadding="0" cellspacing="0" '+'height="'+o3_height
-+'"><tr><td colspan="3" height="'+o3_padyt+'"></td></tr><tr><td width="'
-+o3_padxl+'"></td><td valign="top"'+OLwd(2)+'>'
-+OLlgfUtil(0,0,o3_textfontclass,'div',o3_textcolor,o3_textfont,o3_textsize)+txt+
-OLlgfUtil(1,0,'','div')+'</td><td width="'+o3_padxr+'"></td></tr><tr><td colspan="3" height="'
-+o3_padyb+'"></td></tr></table>';}
-OLsetBackground(image);return t;
-}
-
-// LGF utilities
-function OLbgLGF(){
-return '<table'+OLwd(1)+o3_height+' border="0" cellpadding="'+o3_border+'" cellspacing="0"'
-+(o3_bgclass?' class="'+o3_bgclass+'"':o3_bgcolor+o3_bgbackground)+'><tr><td>';
-}
-function OLfgLGF(t){
-return '<table'+OLwd(0)+o3_height+' border="0" cellpadding="'+o3_textpadding
-+'" cellspacing="0"'+(o3_fgclass?' class="'+o3_fgclass+'"':o3_fgcolor+o3_fgbackground)
-+'><tr><td valign="top"'+(o3_fgclass?' class="'+o3_fgclass+'"':'')+'>'
-+OLlgfUtil(0,0,o3_textfontclass,'div',o3_textcolor,o3_textfont,o3_textsize)+t
-+(OLprintPI?OLprintFgLGF():'')+OLlgfUtil(1,0,'','div')+'</td></tr></table>';
-}
-function OLlgfUtil(end,stg,tfc,ele,col,fac,siz){
-if(end)return ('</'+(OLns4?'font'+(stg?'></strong':''):ele)+'>');else return (tfc?'<div '
-+'class="' +tfc +'">':('<'+(OLns4?(stg?'strong><':'')+'font color="'+col+'" face="'
-+OLquoteMultiNameFonts(fac)+'" size="'+siz:ele+' style="color:'+col
-+(stg?';font-weight:bold':'')+';font-family:'+OLquoteMultiNameFonts(fac)+';font-size:'
-+siz+';'+(ele=='span'?'text-decoration:underline;':''))+'">'));
-}
-function OLquoteMultiNameFonts(f){
-var i,v,pM=f.split(',');
-for(i=0;i<pM.length;i++){v=pM[i];v=v.replace(/^\s+/,'').replace(/\s+$/,'');
-if(/\s/.test(v) && !/['"]/.test(v)){v="\'"+v+"\'";pM[i]=v;}}
-return pM.join();
-}
-function OLbaseLGF(){
-return ((o3_base>0&&!o3_wrap)?('<table width="100%" border="0" cellpadding="0" cellspacing="0"'
-+(o3_bgclass?' class="'+o3_bgclass+'"':'')+'><tr><td height="'+o3_base
-+'"></td></tr></table>'):'')+'</td></tr></table>';
-}
-function OLwd(a){
-return(o3_wrap?'':' width="'+(!a?'100%':(a==1?o3_width:(o3_width-o3_padxl-o3_padxr)))+'"');
-}
-
-// Loads image into the div.
-function OLsetBackground(i){
-if(i==''){if(OLns4)over.background.src=null;
-else{if(OLns6)over.style.width='';over.style.backgroundImage='none';}
-}else{if(OLns4)over.background.src=i;
-else{if(OLns6)over.style.width=o3_width+'px';over.style.backgroundImage='url('+i+')';}}
-}
-
-/*
- HANDLING FUNCTIONS
-*/
-// Displays layer
-function OLdisp(s){
-if(!OLallowmove){if(OLshadowPI)OLdispShadow();if(OLiframePI)OLdispIfs();OLplaceLayer();
-if(OLndt)OLshowObject(over);else OLshowid=setTimeout("OLshowObject(over)",1);
-OLallowmove=(o3_sticky||o3_nofollow)?0:1;}OLndt=0;if(s!="")self.status=s;
-}
-
-// Decides placement of layer.
-function OLplaceLayer(){
-var snp,X,Y,pgLeft,pgTop,pWd=o3_width,pHt,iWd=100,iHt=100,SB=0,LM=0,CX=0,TM=0,BM=0,CY=0,
-o=OLfd(),nsb=(OLgek>=20010505&&!o3_frame.scrollbars.visible)?1:0;
-if(!OLkht&&o&&o.clientWidth)iWd=o.clientWidth;
-else if(o3_frame.innerWidth){SB=Math.ceil(1.4*(o3_frame.outerWidth-o3_frame.innerWidth));
-if(SB>20)SB=20;iWd=o3_frame.innerWidth;}
-pgLeft=(OLie4)?o.scrollLeft:o3_frame.pageXOffset;
-if(OLie55&&OLfilterPI&&o3_filter&&o3_filtershadow)SB=CX=5;else
-if((OLshadowPI)&&bkdrop&&o3_shadow&&o3_shadowx){SB+=((o3_shadowx>0)?o3_shadowx:0);
-LM=((o3_shadowx<0)?Math.abs(o3_shadowx):0);CX=Math.abs(o3_shadowx);}
-if(o3_ref!=""||o3_fixx> -1||o3_relx!=null||o3_midx!=null){
-if(o3_ref!=""){X=OLrefXY[0];if(OLie55&&OLfilterPI&&o3_filter&&o3_filtershadow){
-if(o3_refp=='UR'||o3_refp=='LR')X-=5;}
-else if((OLshadowPI)&&bkdrop&&o3_shadow&&o3_shadowx){
-if(o3_shadowx<0&&(o3_refp=='UL'||o3_refp=='LL'))X-=o3_shadowx;else
-if(o3_shadowx>0&&(o3_refp=='UR'||o3_refp=='LR'))X-=o3_shadowx;}
-}else{if(o3_midx!=null){
-X=parseInt(pgLeft+((iWd-pWd-SB-LM)/2)+o3_midx);
-}else{if(o3_relx!=null){
-if(o3_relx>=0)X=pgLeft+o3_relx+LM;else X=pgLeft+o3_relx+iWd-pWd-SB;
-}else{X=o3_fixx+LM;}}}
-}else{
-if(o3_hauto){
-if(o3_hpos==LEFT&&OLx-pgLeft<iWd/2&&OLx-pWd-o3_offsetx<pgLeft+LM)o3_hpos=RIGHT;else
-if(o3_hpos==RIGHT&&OLx-pgLeft>iWd/2&&OLx+pWd+o3_offsetx>pgLeft+iWd-SB)o3_hpos=LEFT;}
-X=(o3_hpos==CENTER)?parseInt(OLx-((pWd+CX)/2)+o3_offsetx):
-(o3_hpos==LEFT)?OLx-o3_offsetx-pWd:OLx+o3_offsetx;
-if(o3_snapx>1){
-snp=X % o3_snapx;
-if(o3_hpos==LEFT){X=X-(o3_snapx+snp);}else{X=X+(o3_snapx-snp);}}}
-if(!o3_nojustx&&X+pWd>pgLeft+iWd-SB)
-X=iWd+pgLeft-pWd-SB;if(!o3_nojustx&&X-LM<pgLeft)X=pgLeft+LM;
-pgTop=OLie4?o.scrollTop:o3_frame.pageYOffset;
-if(!OLkht&&!nsb&&o&&o.clientHeight)iHt=o.clientHeight;
-else if(o3_frame.innerHeight)iHt=o3_frame.innerHeight;
-if(OLbubblePI&&o3_bubble)pHt=OLbubbleHt;else pHt=OLns4?over.clip.height:over.offsetHeight;
-if((OLshadowPI)&&bkdrop&&o3_shadow&&o3_shadowy){TM=(o3_shadowy<0)?Math.abs(o3_shadowy):0;
-if(OLie55&&OLfilterPI&&o3_filter&&o3_filtershadow)BM=CY=5;else
-BM=(o3_shadowy>0)?o3_shadowy:0;CY=Math.abs(o3_shadowy);}
-if(o3_ref!=""||o3_fixy> -1||o3_rely!=null||o3_midy!=null){
-if(o3_ref!=""){Y=OLrefXY[1];if(OLie55&&OLfilterPI&&o3_filter&&o3_filtershadow){
-if(o3_refp=='LL'||o3_refp=='LR')Y-=5;}else if((OLshadowPI)&&bkdrop&&o3_shadow&&o3_shadowy){
-if(o3_shadowy<0&&(o3_refp=='UL'||o3_refp=='UR'))Y-=o3_shadowy;else
-if(o3_shadowy>0&&(o3_refp=='LL'||o3_refp=='LR'))Y-=o3_shadowy;}
-}else{if(o3_midy!=null){
-Y=parseInt(pgTop+((iHt-pHt-CY)/2)+o3_midy);
-}else{if(o3_rely!=null){
-if(o3_rely>=0)Y=pgTop+o3_rely+TM;else Y=pgTop+o3_rely+iHt-pHt-BM;}else{
-Y=o3_fixy+TM;}}}
-}else{
-if(o3_vauto){
-if(o3_vpos==ABOVE&&OLy-pgTop<iHt/2&&OLy-pHt-o3_offsety<pgTop)o3_vpos=BELOW;else
-if(o3_vpos==BELOW&&OLy-pgTop>iHt/2&&OLy+pHt+o3_offsety+((OLns4||OLkht)?17:0)>pgTop+iHt-BM)
-o3_vpos=ABOVE;}Y=(o3_vpos==VCENTER)?parseInt(OLy-((pHt+CY)/2)+o3_offsety):
-(o3_vpos==ABOVE)?OLy-(pHt+o3_offsety+BM):OLy+o3_offsety+TM;
-if(o3_snapy>1){
-snp=Y % o3_snapy;
-if(pHt>0&&o3_vpos==ABOVE){Y=Y-(o3_snapy+snp);}else{Y=Y+(o3_snapy-snp);}}}
-if(!o3_nojusty&&Y+pHt+BM>pgTop+iHt)Y=pgTop+iHt-pHt-BM;if(!o3_nojusty&&Y-TM<pgTop)Y=pgTop+TM;
-OLrepositionTo(over,X,Y);
-if(OLshadowPI)OLrepositionShadow(X,Y);if(OLiframePI)OLrepositionIfs(X,Y);
-if(OLns6&&o3_frame.innerHeight){iHt=o3_frame.innerHeight;OLrepositionTo(over,X,Y);}
-if(OLscrollPI)OLchkScroll(X-pgLeft,Y-pgTop);
-}
-
-// Chooses body or documentElement
-function OLfd(f){
-var fd=((f)?f:o3_frame).document,fdc=fd.compatMode,fdd=fd.documentElement;
-return (!OLop7&&fdc&&fdc!='BackCompat'&&fdd&&fdd.clientWidth)?fd.documentElement:fd.body;
-}
-
-// Gets location of REFerence object
-function OLgetRefXY(r,d){
-var o=OLgetRef(r,d),ob=o,rXY=[o3_refx,o3_refy],of;
-if(!o)return [null,null];
-if(OLns4){if(typeof o.length!='undefined'&&o.length>1){
-ob=o[0];rXY[0]+=o[0].x+o[1].pageX;rXY[1]+=o[0].y+o[1].pageY;
-}else{if((o.toString().indexOf('Image')!= -1)||(o.toString().indexOf('Anchor')!= -1)){
-rXY[0]+=o.x;rXY[1]+=o.y;}else{rXY[0]+=o.pageX;rXY[1]+=o.pageY;}}
-}else{rXY[0]+=OLpageLoc(o,'Left');rXY[1]+=OLpageLoc(o,'Top');}
-of=OLgetRefOffsets(ob);rXY[0]+=of[0];rXY[1]+=of[1];
-return rXY;
-}
-function OLgetRef(l,d){var r=OLgetRefById(l,d);return (r)?r:OLgetRefByName(l,d);}
-
-// Seeks REFerence by id
-function OLgetRefById(l,d){
-l=(l||'overDiv');d=(d||o3_frame.document);var j,r;
-if(OLie4&&d.all)return d.all[l];if(d.getElementById)return d.getElementById(l);
-if(d.layers&&d.layers.length>0){if(d.layers[l])return d.layers[l];
-for(j=0;j<d.layers.length;j++){r=OLgetRefById(l,d.layers[j].document);if(r)return r;}}
-return null;
-}
-
-// Seeks REFerence by name
-function OLgetRefByName(l,d){
-d=(d||o3_frame.document);var j,r,v=OLie4?d.all.tags('iframe'):
-OLns6?d.getElementsByTagName('iframe'):null;
-if(typeof d.images!='undefined'&&d.images[l])return d.images[l];
-if(typeof d.anchors!='undefined'&&d.anchors[l])return d.anchors[l];
-if(v)for(j=0;j<v.length;j++)if(v[j].name==l)return v[j];
-if(d.layers&&d.layers.length>0)for(j=0;j<d.layers.length;j++){
-r=OLgetRefByName(l,d.layers[j].document);
-if(r&&r.length>0)return r;else if(r)return [r,d.layers[j]];}
-return null;
-}
-
-// Gets layer vs REFerence offsets
-function OLgetRefOffsets(o){
-var c=o3_refc.toUpperCase(),p=o3_refp.toUpperCase(),W=0,H=0,pW=0,pH=0,of=[0,0];
-pW=(OLbubblePI&&o3_bubble)?o3_width:OLns4?over.clip.width:over.offsetWidth;
-pH=(OLbubblePI&&o3_bubble)?OLbubbleHt:OLns4?over.clip.height:over.offsetHeight;
-if((!OLop7)&&o.toString().indexOf('Image')!= -1){W=o.width;H=o.height;
-}else if((!OLop7)&&o.toString().indexOf('Anchor')!= -1){c=o3_refc='UL';}else{
-W=(OLns4)?o.clip.width:o.offsetWidth;H=(OLns4)?o.clip.height:o.offsetHeight;}
-if((OLns4||(OLns6&&OLgek))&&o.border){W+=2*parseInt(o.border);H+=2*parseInt(o.border);}
-if(c=='UL'){of=(p=='UR')?[-pW,0]:(p=='LL')?[0,-pH]:(p=='LR')?[-pW,-pH]:[0,0];
-}else if(c=='UR'){of=(p=='UR')?[W-pW,0]:(p=='LL')?[W,-pH]:(p=='LR')?[W-pW,-pH]:[W,0];
-}else if(c=='LL'){of=(p=='UR')?[-pW,H]:(p=='LL')?[0,H-pH]:(p=='LR')?[-pW,H-pH]:[0,H];
-}else if(c=='LR'){of=(p=='UR')?[W-pW,H]:(p=='LL')?[W,H-pH]:(p=='LR')?[W-pW,H-pH]:
-[W,H];}
-return of;
-}
-
-// Gets x or y location of object
-function OLpageLoc(o,t){
-var l=0;while(o.offsetParent&&o.offsetParent.tagName.toLowerCase()!='html'){
-l+=o['offset'+t];o=o.offsetParent;}l+=o['offset'+t];
-return l;
-} 
-
-// Moves layer
-function OLmouseMove(e){
-var e=(e||event);
-OLcC=(OLovertwoPI&&over2&&over==over2?cClick2:cClick);
-OLx=(e.pageX||e.clientX+OLfd().scrollLeft);OLy=(e.pageY||e.clientY+OLfd().scrollTop);
-if((OLallowmove&&over)&&(o3_frame==self||over==OLgetRefById()
-||(OLovertwoPI&&over2==over&&over==OLgetRefById('overDiv2')))){
-OLplaceLayer();if(OLhidePI)OLhideUtil(0,1,1,0,0,0);}
-if(OLhover&&over&&o3_frame==self&&OLcursorOff())if(o3_offdelay<1)OLcC();else
-{if(OLtimerid>0)clearTimeout(OLtimerid);OLtimerid=setTimeout("OLcC()",o3_offdelay);}
-}
-
-// Capture mouse and chain other scripts.
-function OLmh(){
-var fN,f,j,k,s,mh=OLmouseMove,w=(OLns4&&window.onmousemove),re=/function[ ]*(\w*)\(/;
-OLdw=document;if(document.onmousemove||w){if(w)OLdw=window;f=OLdw.onmousemove.toString();
-fN=f.match(re);if(!fN||fN[1]=='anonymous'||fN[1]=='OLmouseMove'){OLchkMh=0;return;}
-if(fN[1])s=fN[1]+'(e)';else{j=f.indexOf('{');k=f.lastIndexOf('}')+1;s=f.substring(j,k);}
-s+=';OLmouseMove(e);';mh=new Function('e',s);}
-OLdw.onmousemove=mh;if(OLns4)OLdw.captureEvents(Event.MOUSEMOVE);
-}
-
-/*
- PARSING
-*/
-function OLparseTokens(pf,ar){
-var i,v,md= -1,par=(pf!='ol_'),p=OLpar,q=OLparQuo,t=OLtoggle;OLudf=(par&&!ar.length?1:0);
-for(i=0;i< ar.length;i++){if(md<0){if(typeof ar[i]=='number'){OLudf=(par?1:0);i--;}
-else{switch(pf){case 'ol_':ol_text=ar[i];break;default:o3_text=ar[i];}}md=0;
-}else{
-if(ar[i]==INARRAY){OLudf=0;eval(pf+'text=ol_texts['+ar[++i]+']');continue;}
-if(ar[i]==CAPARRAY){eval(pf+'cap=ol_caps['+ar[++i]+']');continue;}
-if(ar[i]==CAPTION){q(ar[++i],pf+'cap');continue;}
-if(Math.abs(ar[i])==STICKY){t(ar[i],pf+'sticky');continue;}
-if(Math.abs(ar[i])==NOFOLLOW){t(ar[i],pf+'nofollow');continue;}
-if(ar[i]==BACKGROUND){q(ar[++i],pf+'background');continue;}
-if(Math.abs(ar[i])==NOCLOSE){t(ar[i],pf+'noclose');continue;}
-if(Math.abs(ar[i])==MOUSEOFF){t(ar[i],pf+'mouseoff');continue;}
-if(ar[i]==OFFDELAY){p(ar[++i],pf+'offdelay');continue;}
-if(ar[i]==RIGHT||ar[i]==LEFT||ar[i]==CENTER){p(ar[i],pf+'hpos');continue;}
-if(ar[i]==OFFSETX){p(ar[++i],pf+'offsetx');continue;}
-if(ar[i]==OFFSETY){p(ar[++i],pf+'offsety');continue;}
-if(ar[i]==FGCOLOR){q(ar[++i],pf+'fgcolor');continue;}
-if(ar[i]==BGCOLOR){q(ar[++i],pf+'bgcolor');continue;}
-if(ar[i]==CGCOLOR){q(ar[++i],pf+'cgcolor');continue;}
-if(ar[i]==TEXTCOLOR){q(ar[++i],pf+'textcolor');continue;}
-if(ar[i]==CAPCOLOR){q(ar[++i],pf+'capcolor');continue;}
-if(ar[i]==CLOSECOLOR){q(ar[++i],pf+'closecolor');continue;}
-if(ar[i]==WIDTH){p(ar[++i],pf+'width');continue;}
-if(Math.abs(ar[i])==WRAP){t(ar[i],pf+'wrap');continue;}
-if(ar[i]==WRAPMAX){p(ar[++i],pf+'wrapmax');continue;}
-if(ar[i]==HEIGHT){p(ar[++i],pf+'height');continue;}
-if(ar[i]==BORDER){p(ar[++i],pf+'border');continue;}
-if(ar[i]==BASE){p(ar[++i],pf+'base');continue;}
-if(ar[i]==STATUS){q(ar[++i],pf+'status');continue;}
-if(Math.abs(ar[i])==AUTOSTATUS){v=pf+'autostatus';
-eval(v+'=('+ar[i]+'<0)?('+v+'==2?2:0):('+v+'==1?0:1)');continue;}
-if(Math.abs(ar[i])==AUTOSTATUSCAP){v=pf+'autostatus';
-eval(v+'=('+ar[i]+'<0)?('+v+'==1?1:0):('+v+'==2?0:2)');continue;}
-if(ar[i]==CLOSETEXT){q(ar[++i],pf+'close');continue;}
-if(ar[i]==SNAPX){p(ar[++i],pf+'snapx');continue;}
-if(ar[i]==SNAPY){p(ar[++i],pf+'snapy');continue;}
-if(ar[i]==FIXX){p(ar[++i],pf+'fixx');continue;}
-if(ar[i]==FIXY){p(ar[++i],pf+'fixy');continue;}
-if(ar[i]==RELX){p(ar[++i],pf+'relx');continue;}
-if(ar[i]==RELY){p(ar[++i],pf+'rely');continue;}
-if(ar[i]==MIDX){p(ar[++i],pf+'midx');continue;}
-if(ar[i]==MIDY){p(ar[++i],pf+'midy');continue;}
-if(ar[i]==REF){q(ar[++i],pf+'ref');continue;}
-if(ar[i]==REFC){q(ar[++i],pf+'refc');continue;}
-if(ar[i]==REFP){q(ar[++i],pf+'refp');continue;}
-if(ar[i]==REFX){p(ar[++i],pf+'refx');continue;}
-if(ar[i]==REFY){p(ar[++i],pf+'refy');continue;}
-if(ar[i]==FGBACKGROUND){q(ar[++i],pf+'fgbackground');continue;}
-if(ar[i]==BGBACKGROUND){q(ar[++i],pf+'bgbackground');continue;}
-if(ar[i]==CGBACKGROUND){q(ar[++i],pf+'cgbackground');continue;}
-if(ar[i]==PADX){p(ar[++i],pf+'padxl');p(ar[++i],pf+'padxr');continue;}
-if(ar[i]==PADY){p(ar[++i],pf+'padyt');p(ar[++i],pf+'padyb');continue;}
-if(Math.abs(ar[i])==FULLHTML){t(ar[i],pf+'fullhtml');continue;}
-if(ar[i]==BELOW||ar[i]==ABOVE||ar[i]==VCENTER){p(ar[i],pf+'vpos');continue;}
-if(ar[i]==CAPICON){q(ar[++i],pf+'capicon');continue;}
-if(ar[i]==TEXTFONT){q(ar[++i],pf+'textfont');continue;}
-if(ar[i]==CAPTIONFONT){q(ar[++i],pf+'captionfont');continue;}
-if(ar[i]==CLOSEFONT){q(ar[++i],pf+'closefont');continue;}
-if(ar[i]==TEXTSIZE){q(ar[++i],pf+'textsize');continue;}
-if(ar[i]==CAPTIONSIZE){q(ar[++i],pf+'captionsize');continue;}
-if(ar[i]==CLOSESIZE){q(ar[++i],pf+'closesize');continue;}
-if(ar[i]==TIMEOUT){p(ar[++i],pf+'timeout');continue;}
-if(ar[i]==DELAY){p(ar[++i],pf+'delay');continue;}
-if(Math.abs(ar[i])==HAUTO){t(ar[i],pf+'hauto');continue;}
-if(Math.abs(ar[i])==VAUTO){t(ar[i],pf+'vauto');continue;}
-if(Math.abs(ar[i])==NOJUSTX){t(ar[i],pf+'nojustx');continue;}
-if(Math.abs(ar[i])==NOJUSTY){t(ar[i],pf+'nojusty');continue;}
-if(Math.abs(ar[i])==CLOSECLICK){t(ar[i],pf+'closeclick');continue;}
-if(ar[i]==CLOSETITLE){q(ar[++i],pf+'closetitle');continue;}
-if(ar[i]==FGCLASS){q(ar[++i],pf+'fgclass');continue;}
-if(ar[i]==BGCLASS){q(ar[++i],pf+'bgclass');continue;}
-if(ar[i]==CGCLASS){q(ar[++i],pf+'cgclass');continue;}
-if(ar[i]==TEXTPADDING){p(ar[++i],pf+'textpadding');continue;}
-if(ar[i]==TEXTFONTCLASS){q(ar[++i],pf+'textfontclass');continue;}
-if(ar[i]==CAPTIONPADDING){p(ar[++i],pf+'captionpadding');continue;}
-if(ar[i]==CAPTIONFONTCLASS){q(ar[++i],pf+'captionfontclass');continue;}
-if(ar[i]==CLOSEFONTCLASS){q(ar[++i],pf+'closefontclass');continue;}
-if(Math.abs(ar[i])==CAPBELOW){t(ar[i],pf+'capbelow');continue;}
-if(ar[i]==LABEL){q(ar[++i],pf+'label');continue;}
-if(Math.abs(ar[i])==DECODE){t(ar[i],pf+'decode');continue;}
-if(ar[i]==DONOTHING){continue;}
-i=OLparseCmdLine(pf,i,ar);}}
-if((OLfunctionPI)&&OLudf&&o3_function)o3_text=o3_function();
-if(pf=='o3_')OLfontSize();
-}
-function OLpar(a,v){eval(v+'='+a);}
-function OLparQuo(a,v){eval(v+"='"+OLescSglQt(a)+"'");}
-function OLescSglQt(s){return s.toString().replace(/'/g,"\\'");}
-function OLtoggle(a,v){eval(v+'=('+v+'==0&&'+a+'>=0)?1:0');}
-function OLhasDims(s){return /[%\-a-z]+$/.test(s);}
-function OLfontSize(){
-var i;if(OLhasDims(o3_textsize)){if(OLns4)o3_textsize="2";}else
-if(!OLns4){i=parseInt(o3_textsize);o3_textsize=(i>0&&i<8)?OLpct[i]:OLpct[0];}
-if(OLhasDims(o3_captionsize)){if(OLns4)o3_captionsize="2";}else
-if(!OLns4){i=parseInt(o3_captionsize);o3_captionsize=(i>0&&i<8)?OLpct[i]:OLpct[0];}
-if(OLhasDims(o3_closesize)){if(OLns4)o3_closesize="2";}else
-if(!OLns4){i=parseInt(o3_closesize);o3_closesize=(i>0&&i<8)?OLpct[i]:OLpct[0];}
-if(OLprintPI)OLprintDims();
-}
-function OLdecode(){
-var re=/%[0-9A-Fa-f]{2,}/,t=o3_text,c=o3_cap,u=unescape,d=!OLns4&&(!OLgek||OLgek>=20020826)
-&&typeof decodeURIComponent?decodeURIComponent:u;if(typeof(window.TypeError)=='function'){
-if(re.test(t)){eval(new Array('try{','o3_text=d(t);','}catch(e){','o3_text=u(t);',
-'}').join('\n'))};if(c&&re.test(c)){eval(new Array('try{','o3_cap=d(c);','}catch(e){',
-'o3_cap=u(c);','}').join('\n'))}}else{if(re.test(t))o3_text=u(t);if(c&&re.test(c))o3_cap=u(c);}
-}
-
-/*
- LAYER FUNCTIONS
-*/
-// Writes to layer
-function OLlayerWrite(t){
-t+="\n";
-if(OLns4){over.document.write(t);over.document.close();
-}else if(typeof over.innerHTML!='undefined'){if(OLieM)over.innerHTML='';over.innerHTML=t;
-}else{range=o3_frame.document.createRange();range.setStartAfter(over);
-domfrag=range.createContextualFragment(t);
-while(over.hasChildNodes()){over.removeChild(over.lastChild);}
-over.appendChild(domfrag);}
-if(OLprintPI)over.print=o3_print?t:null;
-}
-
-// Makes object visible
-function OLshowObject(o){
-OLshowid=0;o=(OLns4)?o:o.style;
-if(((OLfilterPI)&&!OLchkFilter(o))||!OLfilterPI)o.visibility="visible";
-if(OLshadowPI)OLshowShadow();if(OLiframePI)OLshowIfs();if(OLhidePI)OLhideUtil(1,1,0);
-}
-
-// Hides object
-function OLhideObject(o){
-if(OLshowid>0){clearTimeout(OLshowid);OLshowid=0;}
-if(OLtimerid>0)clearTimeout(OLtimerid);if(OLdelayid>0)clearTimeout(OLdelayid);
-OLtimerid=0;OLdelayid=0;self.status="";o3_label=ol_label;
-if(o3_frame!=self)o=OLgetRefById();
-if(o){if(o.onmouseover)o.onmouseover=null;
-if(OLscrollPI&&o==over)OLclearScroll();
-if(OLdraggablePI)OLclearDrag();
-if(OLfilterPI)OLcleanupFilter(o);if(OLshadowPI)OLhideShadow();
-var os=(OLns4)?o:o.style;os.visibility="hidden";
-if(OLhidePI&&o==over)OLhideUtil(0,0,1);if(OLiframePI)OLhideIfs(o);}
-}
-
-// Moves layer
-function OLrepositionTo(o,xL,yL){
-o=(OLns4)?o:o.style;
-o.left=(OLns4?xL:xL+'px');
-o.top=(OLns4?yL:yL+'px');
-}
-
-// Handle NOCLOSE-MOUSEOFF
-function OLoptMOUSEOFF(c){
-if(!c)o3_close="";
-over.onmouseover=function(){OLhover=1;if(OLtimerid>0){clearTimeout(OLtimerid);OLtimerid=0;}}
-}
-function OLcursorOff(){
-var o=(OLns4?over:over.style),pHt=OLns4?over.clip.height:over.offsetHeight,
-left=parseInt(o.left),top=parseInt(o.top),
-right=left+o3_width,bottom=top+((OLbubblePI&&o3_bubble)?OLbubbleHt:pHt);
-if(OLx<left||OLx>right||OLy<top||OLy>bottom)return true;
-return false;
-}
-
-/*
- REGISTRATION
-*/
-function OLsetRunTimeVar(){
-if(OLrunTime.length)for(var k=0;k<OLrunTime.length;k++)OLrunTime[k]();
-}
-function OLparseCmdLine(pf,i,ar){
-if(OLcmdLine.length){for(var k=0;k<OLcmdLine.length;k++){
-var j=OLcmdLine[k](pf,i,ar);if(j>-1){i=j;break;}}}
-return i;
-}
-function OLregCmds(c){
-if(typeof c!='string')return;
-var pM=c.split(',');pMtr=pMtr.concat(pM);
-for(var i=0;i<pM.length;i++)eval(pM[i].toUpperCase()+'='+pmCnt++);
-}
-function OLregRunTimeFunc(f){
-if(typeof f=='object')OLrunTime=OLrunTime.concat(f);
-else OLrunTime[OLrunTime.length++]=f;
-}
-function OLregCmdLineFunc(f){
-if(typeof f=='object')OLcmdLine=OLcmdLine.concat(f);
-else OLcmdLine[OLcmdLine.length++]=f;
-}
-
-OLloaded=1;
diff --git a/httemplate/elements/overlibmws_crossframe.js b/httemplate/elements/overlibmws_crossframe.js
deleted file mode 100644
index 6b21c42e8..000000000
--- a/httemplate/elements/overlibmws_crossframe.js
+++ /dev/null
@@ -1,44 +0,0 @@
-/*
- overlibmws_crossframe.js plug-in module - Copyright Foteos Macrides 2003-2006
-   For support of FRAME.
-   Initial: August 3, 2003 - Last Revised: November 2, 2004
- 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('frame');
-
-function OLparseCrossframe(pf,i,ar){
-var k=i,v;
-if(k<ar.length){
-if(ar[k]==FRAME){v=ar[++k];if(pf=='ol_')ol_frame=v;else OLoptFRAME(v);return k;}}
-return -1;
-}
-
-function OLgetFrameRef(thisFrame,ofrm){
-var i,v,retVal='';for(i=0;i<thisFrame.length;i++){if((((thisFrame[i].length>0)))&&(((OLns4))||
-((OLie4)&&(v=thisFrame[i].document.all.tags('iframe'))!=null&&v.length==0)||
-((OLns6)&&(v=thisFrame[i].document.getElementsByTagName('iframe'))!=null&&v.length==0))){
-retVal=OLgetFrameRef(thisFrame[i],ofrm);if(retVal=='')continue;}
-else if(thisFrame[i]!=ofrm)continue;retVal='['+i+']'+retVal;break;}
-return retVal;
-}
-
-function OLoptFRAME(frm){
-o3_frame=OLmkLyr('overDiv',frm)?frm:self;if(o3_frame!=self){
-var l,tFrm=OLgetFrameRef(top.frames,o3_frame),sFrm=OLgetFrameRef(top.frames,ol_frame);
-if(sFrm.length==tFrm.length) {l=tFrm.lastIndexOf('[');if(l){
-while(sFrm.substring(0,l)!=tFrm.substring(0,l))l=tFrm.lastIndexOf('[',l-1);
-tFrm=tFrm.substr(l);sFrm=sFrm.substr(l);}}var i,k,cnt=0,p='',str=tFrm;
-while((k=str.lastIndexOf('['))!= -1){cnt++;str=str.substring(0,k);}
-for(i=0;i<cnt;i++)p=p+'parent.';OLfnRef=p+'frames'+sFrm+'.';}
-}
-
-OLregCmdLineFunc(OLparseCrossframe);
-
-OLcrossframePI=1;
-OLloaded=1;
diff --git a/httemplate/elements/overlibmws_draggable.js b/httemplate/elements/overlibmws_draggable.js
deleted file mode 100644
index 0d25f842e..000000000
--- a/httemplate/elements/overlibmws_draggable.js
+++ /dev/null
@@ -1,78 +0,0 @@
-/*
- overlibmws_draggable.js plug-in module - Copyright Foteos Macrides 2002=2005
-   For support of the DRAGGABLE feature.
-   Initial: August 24, 2002 - Last Revised: March 2, 2006
- 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:(e.altKey||(OLop7&&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
deleted file mode 100644
index e3032f2ee..000000000
--- a/httemplate/elements/overlibmws_iframe.js
+++ /dev/null
@@ -1,93 +0,0 @@
-/*
- 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/pager.html b/httemplate/elements/pager.html
deleted file mode 100644
index a53300f53..000000000
--- a/httemplate/elements/pager.html
+++ /dev/null
@@ -1,55 +0,0 @@
-% my %opt = @_;
-% my $pager = '';
-%
-% if ( $opt{'total'} != $opt{'num_rows'} && $opt{'maxrecords'} ) {
-%
-%   unless ( $opt{'offset'} == 0 ) {
-%     $cgi->param('offset', $opt{'offset'} - $opt{'maxrecords'});
-
-      <A HREF="<% $cgi->self_url %>"><B><FONT SIZE="+1">Previous</FONT></B></A>
-
-%   }
-%
-%   my $page = 0;
-%   my $prevpage = 0;
-%   my $over = 0;
-%   my $step = $opt{total} / 10; # 10 evenly spaced
-%   for ( my $poff = 0; $poff < $opt{total}; $poff += $opt{maxrecords} ) {
-%     $page++;
-%	
-%     next unless
-%          $page <= 4                                          #first four
-%       || $page >= ( $opt{total} / $opt{maxrecords} ) - 3     #last four
-%       || abs( ($opt{offset}-$poff) / $opt{maxrecords} ) <= 3 #w/i 3 of current
-%       || $poff > $over                                       # evenly spaced
-%     ;           
-%
-%     $over += $step if $poff > $over;
-%
-%     if ( $opt{'offset'} == $poff ) {
-
-        <FONT SIZE="+2"><% $page %></FONT>
-
-%     } else {
-%       $cgi->param('offset', $poff);
-%
-%       if ( $page > $prevpage+1 ) {
-          ...
-%       }
-
-        <A HREF="<% $cgi->self_url %>"><% $page %></A>
-
-%     }
-%
-%     $prevpage = $page;
-%
-%   }
-%
-%   unless ( $opt{'offset'} + $opt{'maxrecords'} > $opt{'total'} ) {
-%     $cgi->param('offset', $opt{'offset'} + $opt{'maxrecords'});
-
-      <A HREF="<% $cgi->self_url %>"><B><FONT SIZE="+1">Next</FONT></B></A>
-%
-%   }
-%
-% }
diff --git a/httemplate/elements/phonenumber.html b/httemplate/elements/phonenumber.html
deleted file mode 100644
index b1ae2aa2a..000000000
--- a/httemplate/elements/phonenumber.html
+++ /dev/null
@@ -1,31 +0,0 @@
-<SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/overlibmws.js"></SCRIPT>
-<SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/overlibmws_iframe.js"></SCRIPT>
-<SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/overlibmws_draggable.js"></SCRIPT>
-<SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/iframecontentmws.js"></SCRIPT>
-
-% if ( length($number) ) { 
-
-  <% $number %>
-
-%   if ( $opt{'callable'} && $curuser->option('vonage-username') ) { 
-
-      <A HREF="javascript:void(0);" onClick="overlib( OLiframeContent('https://secure.click2callu.com/tpcc/makecall?username=<% uri_escape($curuser->option('vonage-username')) %>&password=<% uri_escape($curuser->option('vonage-password')) %>&fromnumber=<% uri_escape($curuser->option('vonage-fromnumber')) %>&tonumber=1<% $snumber %>', 240, 64, 'call_popup'), CAPTION, 'Initiating call', STICKY, AUTOSTATUSCAP, CLOSECLICK, DRAGGABLE, WIDTH, 240, HEIGHT, 64 ); return false;" TITLE="Call this number"><IMG SRC="<%$fsurl%>images/red_telephone_mimooh_01.png" BORDER=0 ALT="Call this number"></A>
-
-%   } 
-%
-% } else { 
-
-   
-
-% } 
-<%init>
-
-my( $number, %opt ) = @_;
-( my $snumber = $number ) =~ s/\D//g;
-
-my $curuser = $FS::CurrentUser::CurrentUser;
-
-( my $vonage_number = $curuser->option('vonage-fromnumber') ) =~ s/\D//g;
-$vonage_number =~ /^1/ or $vonage_number = "1$vonage_number";
-
-</%init>
diff --git a/httemplate/elements/progress-init.html b/httemplate/elements/progress-init.html
deleted file mode 100644
index 1c96a54ac..000000000
--- a/httemplate/elements/progress-init.html
+++ /dev/null
@@ -1,85 +0,0 @@
-%
-%  my( $formname, $fields, $action, $url_or_message, $key ) = @_;
-%  $key = '' unless defined $key;
-%
-%  my $url_or_message_link;
-%  if ( ref($url_or_message) ) { #its a message or something
-%    $url_or_message_link =
-%      'message='. uri_escape( $url_or_message->{'message'} )
-%  } else {
-%    $url_or_message_link = "url=$url_or_message";
-%  }
-%
-
-
-<% include('/elements/xmlhttp.html',
-              'method' => 'POST',
-              'url'    => $action,
-              'subs'   => [ 'start_job' ],
-              'key'    => $key,
-           )
-%>
-<SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/overlibmws.js"></SCRIPT>
-<SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/overlibmws_iframe.js"></SCRIPT>
-<SCRIPT TYPE="text/javascript">
-function OLiframeContent(src, width, height, name) {
-  return ('<iframe src="'+src+'" width="'+width+'" height="'+height+'"'
-   +(name?' name="'+name+'" id="'+name+'"':'')+' scrolling="auto">'
-   +'<div>[iframe not supported]</div></iframe>');
-}
-
-function <%$key%>process () {
-
-  //alert('<%$key%>process for form <%$formname%>');
-
-  if ( document.<%$formname%>.submit.disabled == false ) {
-    document.<%$formname%>.submit.disabled=true;
-  }
-
-  overlib( 'Submitting job to server...', WIDTH, 444, HEIGHT, 168, CAPTION, 'Please wait...', STICKY, AUTOSTATUSCAP, CLOSETEXT, '', CLOSECLICK, MIDX, 0, MIDY, 0 );
-
-  var Hash = new Array();
-  var x = 0;
-  var fieldName;
-  for (var i = 0; i<document.<%$formname%>.elements.length; i++) {
-    field  = document.<%$formname%>.elements[i];
-    if ( <% join(' || ', map { "(field.name.indexOf('$_') > -1)" } @$fields ) %>
-       )
-    {
-        if ( field.type == 'select-multiple' ) {
-          //alert('select-multiple ' + field.name);
-          for (var j=0; j < field.options.length; j++) {
-            if ( field.options[j].selected ) {
-              //alert(field.name + ' => ' + field.options[j].value);
-              Hash[x++] = field.name;
-              Hash[x++] = field.options[j].value;
-            }
-          }
-        } else if (    ( field.type != 'radio'  && field.type != 'checkbox' )
-                    || ( ( field.type == 'radio' || field.type == 'checkbox' )
-                         && document.<%$formname%>.elements[i].checked
-                       )
-                  )
-        {
-          Hash[x++] = field.name;
-          Hash[x++] = field.value;
-        }
-    }
-  }
-
-  // jsrsPOST = true;
-  // jsrsExecute( '<% $action %>', <%$key%>myCallback, 'start_job', Hash );
-
-  //alert('start_job( ' + Hash + ', <%$key%>myCallback )' );
-  //alert('start_job()' );
-  <%$key%>start_job( Hash, <%$key%>myCallback );
-
-}
-
-function <%$key%>myCallback( jobnum ) {
-
-  overlib( OLiframeContent('<%$p%>elements/progress-popup.html?jobnum=' + jobnum + ';<%$url_or_message_link%>;formname=<%$formname%>' , 444, 168, 'progress_popup'), CAPTION, 'Please wait...', STICKY, AUTOSTATUSCAP, CLOSETEXT, '', CLOSECLICK, MIDX, 0, MIDY, 0 );
-
-}
-
-</SCRIPT>
diff --git a/httemplate/elements/progress-popup.html b/httemplate/elements/progress-popup.html
deleted file mode 100644
index cda704a12..000000000
--- a/httemplate/elements/progress-popup.html
+++ /dev/null
@@ -1,105 +0,0 @@
-%
-%  my $jobnum = $cgi->param('jobnum');
-%  my $url = $cgi->param('url');
-%  my $message = $cgi->param('message');
-%  my $formname = scalar($cgi->param('formname'));
-%
-
-<HTML>
-  <HEAD>
-    <TITLE></TITLE>
-  </HEAD>
-  <BODY BGCOLOR="#ccccff" onLoad="refreshStatus()">
-
-<% include('/elements/xmlhttp.html',
-              'url'  => $p.'elements/jsrsServer.html',
-              'subs' => [ 'job_status' ],
-           )
-%>
-<SCRIPT TYPE="text/javascript" src="<%$fsurl%>elements/qlib/control.js"></SCRIPT>
-<SCRIPT TYPE="text/javascript" src="<%$fsurl%>elements/qlib/imagelist.js"></SCRIPT>
-<SCRIPT TYPE="text/javascript" src="<%$fsurl%>elements/qlib/progress.js"></SCRIPT>
-<SCRIPT TYPE="text/javascript">
-function refreshStatus () {
-  //jsrsExecute( '<%$p%>elements/jsrsServer.html', updateStatus, 'job_status', '<% $jobnum %>' );
-
-  job_status( '<% $jobnum %>', updateStatus );
-}
-function updateStatus( status_statustext ) {
-
-  //var Array = status_statustext.split("\n");
-  var statusArray = eval('(' + status_statustext + ')');
-  var status = statusArray[0];
-  var statustext = statusArray[1];
-
-  //if ( status == 'progress' ) {
-  //IE workaround, no i have no idea why
-  if ( status.indexOf('progress') > -1 ) {
-    document.getElementById("progress_percent").innerHTML = statustext + '%';
-    bar1.set(statustext);
-    bar1.update;
-    //jsrsExecute( '<%$p%>elements/jsrsServer.html', updateStatus, 'job_status', '<% $jobnum %>' );
-    job_status( '<% $jobnum %>', updateStatus );
-  } else if ( status.indexOf('complete') > -1 ) {
-% if ( $message ) { 
-
-    document.getElementById("progress_message").innerHTML = "<% $message %>";
-    document.getElementById("progress_bar").innerHTML = '';
-    document.getElementById("progress_percent").innerHTML = '<INPUT TYPE="button" VALUE="OK" onClick="parent.nd(1);">';
-    document.getElementById("progress_jobnum").innerHTML = '';
-    if ( parent.document.<%$formname%>.submit.disabled == true ) {
-      parent.document.<%$formname%>.submit.disabled=false;
-    }
-% } elsif ( $url ) { 
-
-    window.top.location.href = '<% $url %>';
-% } else { 
-
-    alert('job done but no url or message specified');
-% } 
-
-  } else if ( status.indexOf('error') > -1 ) {
-    document.getElementById("progress_message").innerHTML = '<FONT SIZE="+1" COLOR="#FF0000">Error: ' + statustext + '</FONT>';
-    document.getElementById("progress_bar").innerHTML = '';
-    document.getElementById("progress_percent").innerHTML = '<INPUT TYPE="button" VALUE="OK" onClick="parent.nd(1);">';
-    document.getElementById("progress_jobnum").innerHTML = '';
-    if ( parent.document.<%$formname%>.submit.disabled == true ) {
-      parent.document.<%$formname%>.submit.disabled=false;
-    }
-  } else {
-    alert('XXX unknown status returned from server: ' + status);
-  }
-  
-}
-</SCRIPT>
-
-    <TABLE WIDTH="100%">
-      <TR>
-        <TD ALIGN="center" ID="progress_message">
-          Server processing job...
-        </TD>
-      </TR><TR>
-        <TD ALIGN="center" ID="progress_bar">
-          <SCRIPT TYPE="text/javascript">
-            // Create imagelist
-            SEGS = new QImageList(4, 23, "<%$fsurl%>images/progressbar-empty.png", "<%$fsurl%>images/progressbar-full.png");
-            // Create bars
-            bar1 = new QProgress(null, "bar1", SEGS, 100);
-            // bar1.set(0);
-            // bar1.update;
-          </SCRIPT>
-        </TD>
-      </TR><TR>
-        <TD ALIGN="center">
-          <DIV ID="progress_percent">%</DIV>
-        </TD>
-      </TR><TR>
-        <TD ALIGN="center" ID="progress_jobnum">
-          (progress of job #<% $jobnum %>)
-        </TD>
-      </TR>
-    </TABLE>
-
-  </BODY>
-</HTML>
-
diff --git a/httemplate/elements/qlib/box.js b/httemplate/elements/qlib/box.js
deleted file mode 100644
index 537aac4c8..000000000
--- a/httemplate/elements/qlib/box.js
+++ /dev/null
@@ -1,29 +0,0 @@
-/**
- * QLIB 1.0 Box Control
- * Copyright (C) 2002 2003, Quazzle.com Serge Dolgov
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * http://qlib.quazzle.com
- */
-
-function QBox(parent, name, res, x, y, width, height, body, visible, effects, opacity, zindex) {
-    this.init(parent, name);
-    if (this.res = res) {
-        this.x = x - 0;
-        this.y = y - 0;
-        this.width = width - 0;
-        this.height = (typeof(height) == "number") ? height : null;
-        this.body = body || " ";
-        var j = QBox.arguments.length;
-        this.visible = (j > 8) ? visible : true;
-        this.effects = (j > 9) ? effects : (res.effects || 0);
-        this.opacity = (j > 10) ? opacity : (res.opacity != null ? res.opacity : 100);
-        this.zindex  = (j > 11) ? zindex : null;
-        this.create();
-    } else {
-        this.document.write("invalid resource");
-    }
-}
-QBox.prototype = new QBoxCtrl();
diff --git a/httemplate/elements/qlib/boxctrl.js b/httemplate/elements/qlib/boxctrl.js
deleted file mode 100644
index 417b204e4..000000000
--- a/httemplate/elements/qlib/boxctrl.js
+++ /dev/null
@@ -1,48 +0,0 @@
-/**
- * QLIB 1.0 Box Abstraction
- * Copyright (C) 2002 2003, Quazzle.com Serge Dolgov
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * http://qlib.quazzle.com
- */
-
-function QBoxCtrl_content() {
-    with (this) {
-        if (res) {
-            this.cwidth = width - res.L - res.R - 8;
-            this.cheight = height && (height - res.T - res.B - 8);
-            var ec = '"><table border="0" cellspacing="0" cellpadding="0"><tr><td></td></tr></table></td>';
-            document.write('<table class="qbox" border="0" cellspacing="0" cellpadding="0" width="' +
-                (width - 8) + (height != null ? '" height="' + (height - 8) : '') + '"><tr><td width="' +
-                res.L + '" height="' + res.T + '"><img src="' + res.TL.src + '" border="0" width="' +
-                res.L + '" height="' + res.T + '"></td><td width="' + cwidth + '" height="' + res.T +
-                '" background="' + res.TC.src + ec + '<td width="' + res.R + '" height="' + res.T +
-                '"><img src="' + res.TR.src + '" border="0" width="' + res.R + '" height="' + res.T +
-                '"></td></tr><tr><td width="' + res.L + (cheight != null ? '" height="' + cheight : '') +
-                '" background="' + res.ML.src + ec + '<td width="' + cwidth + '" bgcolor="' + res.bgcolor +
-                (cheight != null ? '" height="' + cheight : '') + (res.bgtile ? '" background="' +
-                res.bgtile.src : '') + '" align="left" valign="top" class="body" unselectable="on">');
-                if (typeof(body) == "function") {
-                    this.body();
-                } else {
-                    document.write(body);
-                }
-            document.write('</td><td width="' + res.R + (cheight != null ? '" height="' + cheight : '') +
-                '" background="' + res.MR.src + ec + '</tr><tr><td width="' + res.L + '" height="' + res.B +
-                '"><img src="' + res.BL.src + '" border="0" width="' + res.L + '" height="' + res.B +
-                '"></td><td width="' + cwidth + '" height="' + res.B + '" background="' + res.BC.src + ec +
-                '<td width="' + res.R + '" height="' + res.B + '"><img src="' + res.BR.src +
-                '" border="0" width="' + res.R + '" height="' + res.B + '"></td></tr></table><br>');
-        }
-    }
-}
-
-function QBoxCtrl() {
-    this.res = false;
-    this.body = " ";
-    this.cwidth = this.cheight = 0;
-    this.content = QBoxCtrl_content;
-}
-QBoxCtrl.prototype = new QWndCtrl();
diff --git a/httemplate/elements/qlib/boxres.js b/httemplate/elements/qlib/boxres.js
deleted file mode 100644
index 087817211..000000000
--- a/httemplate/elements/qlib/boxres.js
+++ /dev/null
@@ -1,42 +0,0 @@
-/**
- * QLIB 1.0 Box Resource
- * Copyright (C) 2002 2003, Quazzle.com Serge Dolgov
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * http://qlib.quazzle.com
- */
-
-function QBoxRes(t, r, b, l, tc, tr, mr, br, bc, bl, ml, tl, bgcolor, bgtile, effects, opacity) { 
-    var args = QBoxRes.arguments.length;
-    this.T = t;
-    this.R = r;
-    this.B = b;
-    this.L = l;
-    this.TC = new Image();
-    this.TC.src = tc;
-    this.TR = new Image(r, t);
-    this.TR.src = tr;
-    this.MR = new Image();
-    this.MR.src = mr;
-    this.BR = new Image(r, b);
-    this.BR.src = br;
-    this.BC = new Image();
-    this.BC.src = bc;
-    this.BL = new Image(l, b);
-    this.BL.src = bl;
-    this.ML = new Image();
-    this.ML.src = ml;
-    this.TL = new Image(l, t);
-    this.TL.src = tl;
-    this.bgcolor = bgcolor || "#FFFFFF";
-    if (bgtile) {
-        this.bgtile = new Image();
-        this.bgtile.src = bgtile;
-    } else {
-        this.bgtile = false;
-    }
-    this.effects = (args > 13) ? effects : null;
-    this.opacity = (args > 14) ? opacity : null;
-}
diff --git a/httemplate/elements/qlib/button.js b/httemplate/elements/qlib/button.js
deleted file mode 100644
index 05247d5f8..000000000
--- a/httemplate/elements/qlib/button.js
+++ /dev/null
@@ -1,74 +0,0 @@
-/**
- * QLIB 1.0 Button Control
- * Copyright (C) 2002 2003, Quazzle.com Serge Dolgov
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * http://qlib.quazzle.com
- */
-
-function QButton_update() {
-    with (this) {
-        image.src = ((!enabled && res.imgD) || (value ? res.imgP : res.imgN)).src;
-    }
-}
-
-function QButton_doEvent() {
-    with (this) {
-        if (enabled) {
-            if (res.style == 1) {
-                this.value = value ? 0 : 1;
-                update();
-            }
-            onClick(value, tag);
-        }
-    }
-    return false;
-}
-
-function QButton_enable(state) {
-    this.enabled = state;
-    this.update();
-}
-
-function QButton_set(value) {
-    if (this.enabled) {
-        this.value = value ? 1 : 0;
-        this.update();
-    }
-    return true;
-}
-
-function QButton(parent, name, res, tooltip) {
-    this.init(parent, name);
-    if (res) {
-        this.res = res;
-        this.tip = tooltip || "";
-        this.enabled = true;
-        this.value = 0;
-        this.set = QButton_set;
-        this.enable = QButton_enable;
-        this.update = QButton_update;
-        this.doEvent = QButton_doEvent;
-        this.onClick = QControl.event;
-        with (this) {
-            document.write('<a href="#" hidefocus="true" unselectable="on"' +
-                (tip ? ' title="' + tip + '"' : '') + ' onClick="return ' + name +
-                '.doEvent()" onMouseOver="' + (res.style == 2 ? name + '.set(1);' : '') +
-                'window.top.status=' + name + '.tip;return true" onMouseOut="' +
-                (!res.style || (res.style == 2) ? name + '.set();' : '') + 'window.top.status=\'\'"' +
-                (!res.style ? ' onMouseDown="return ' + name + '.set(1)" onMouseUp="return ' + name + '.set()"' : '') +
-                '><img class="qbutton" name="' + id + '" src="' + res.imgN.src + '" border="0" width="' +
-                res.width + '" height="' + res.height + '"></a>');
-            this.image = document.images[id] || new Image(1, 1);
-        }
-    } else {
-        this.document.write("invalid resource");
-    }
-}
-QButton.prototype = new QControl();
-QButton.NORMAL    = 0;
-QButton.CHECKBOX  = 1;
-QButton.WEB       = 2;
-QButton.SIGNAL    = 3;
diff --git a/httemplate/elements/qlib/buttonres.js b/httemplate/elements/qlib/buttonres.js
deleted file mode 100644
index 97f6dfccc..000000000
--- a/httemplate/elements/qlib/buttonres.js
+++ /dev/null
@@ -1,23 +0,0 @@
-/**
- * QLIB 1.0 Button Resource
- * Copyright (C) 2002 2003, Quazzle.com Serge Dolgov
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * http://qlib.quazzle.com
- */
-
-function QButtonRes(style, width, height, normal, pressed, disabled) {
-    this.style = style;
-    this.width = width;
-    this.height = height;
-    this.imgN = new Image(width, height);
-    this.imgN.src = normal;
-    this.imgP = new Image(width, height);
-    this.imgP.src = pressed;
-    if (disabled) {
-        this.imgD = new Image(width, height);
-        this.imgD.src = disabled;
-    }
-}
diff --git a/httemplate/elements/qlib/control.js b/httemplate/elements/qlib/control.js
deleted file mode 100644
index f50206e27..000000000
--- a/httemplate/elements/qlib/control.js
+++ /dev/null
@@ -1,51 +0,0 @@
-/**
- * QLIB 1.0 Base Abstract Control
- * Copyright (C) 2002 2003, Quazzle.com Serge Dolgov
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * http://qlib.quazzle.com
- */
-
-function QControl_init(parent, name) {
-    this.parent = parent || self;
-    this.window = (parent && parent.window) || self;
-    this.document = (parent && parent.document) || self.document;
-    this.name = (parent && parent.name) ? (parent.name + "." + name) : ("self." + name);
-    this.id = "Q";
-    var h = this.hash(this.name);
-    for (var j=0; j<8; j++) {
-        this.id += QControl.HEXTABLE.charAt(h & 15);
-        h >>>= 4;
-    }
-}
-
-function QControl_hash(str) {
-    var h = 0;
-    if (str) {
-        for (var j=str.length-1; j>=0; j--) {
-            h ^= QControl.ANTABLE.indexOf(str.charAt(j)) + 1;
-            for (var i=0; i<3; i++) {
-                var m = (h = h<<7 | h>>>25) & 150994944;
-                h ^= m ? (m == 150994944 ? 1 : 0) : 1;
-            }
-        }
-    }
-    return h;
-}
-
-function QControl_nop() {
-}
-
-function QControl() {
-    this.init = QControl_init;
-    this.hash = QControl_hash;
-    this.window = self;
-    this.document = self.document;
-    this.tag = null;
-}
-QControl.ANTABLE  = "w5Q2KkFts3deLIPg8Nynu_JAUBZ9YxmH1XW47oDpa6lcjMRfi0CrhbGSOTvqzEV";
-QControl.HEXTABLE = "0123456789ABCDEF";
-QControl.nop = QControl_nop;
-QControl.event = QControl_nop;
diff --git a/httemplate/elements/qlib/counter.js b/httemplate/elements/qlib/counter.js
deleted file mode 100644
index 72aeddbdb..000000000
--- a/httemplate/elements/qlib/counter.js
+++ /dev/null
@@ -1,81 +0,0 @@
-/**
- * QLIB 1.0 Animated Digital Counter
- * Copyright (C) 2002 2003, Quazzle.com Serge Dolgov
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * http://qlib.quazzle.com
- */
-
-function QCounter_update() {
-    with (this) {
-        var v = Math.max(value, 0);
-        var mod;
-        for (var j=0; j<size; j++) {
-            mod = Math.floor(v % 10);
-            images[j].src = (v >= 1) || (!j) ? res.list[mod].src : res.list[10].src;
-            v /= 10;
-        }
-    }
-}
-
-function QCounter_count(value, step) {
-    this._cntt = false;
-    this.value += step; 
-    if ((step * (this.value - value)) >= 0) {
-        this.value = value - 0;  // convert to number
-    } else {
-        this._cntt = setTimeout(this.name + ".count(" + value + "," + step + ")", 50);
-    }
-    this.update();
-}
-         
-function QCounter_set(value) {
-    this.setval = value;
-    if (value != this.value) {
-        if (this._cntt) {
-            clearTimeout(this._cntt);
-            this._cntt = false;
-        }
-        var dv = value - this.value;
-        if (this.effect == 2) {
-            dv = dv / Math.min(10, Math.abs(dv));
-        } else if (this.effect == 3) {
-            dv = dv / Math.abs(dv);
-        }
-        this.count(value, dv);
-    }
-}
-
-function QCounter(parent, name, res, size, effect) {
-    this.init(parent, name);
-    if (res) {
-        this.res = res;
-        this.setval = this.value = 0;
-        this.size = size || 4;
-        this.effect = effect || 2;
-        this._cntt = false;
-        this.images = new Array(this.size);
-        this.set = QCounter_set;
-        this.update = QCounter_update;
-        this.count = QCounter_count;
-        with (this) {
-            document.write('<table class="qcounter" width="' + (res.width * size) + '" height="' + res.height +
-                '" border="0" cellspacing="0" cellpadding="0" unselectable="on"><tr>');
-            for (var j=(size - 1); j>=0; j--) {
-                document.write('<td width="' + res.width + '" height="' + res.height +
-                    '" unselectable="on"><img name="' + id + j + '" src="' + (j ? res.list[10].src : res.list[0].src) +
-                    '" border="0" width="' + res.width + '" height="' + res.height + '"></td>');
-                images[j] = document.images[id + j] || new Image(1, 1);
-            }
-            document.write('</tr></table>');
-        }
-    } else {
-        this.document.write("invalid resource");
-    }
-}
-QCounter.prototype = new QControl();
-QCounter.INSTANT   = 1;
-QCounter.FAST      = 2;
-QCounter.SLOW      = 3;
diff --git a/httemplate/elements/qlib/imagelist.js b/httemplate/elements/qlib/imagelist.js
deleted file mode 100644
index 9f12de053..000000000
--- a/httemplate/elements/qlib/imagelist.js
+++ /dev/null
@@ -1,25 +0,0 @@
-/**
- * QLIB 1.0 ImageList Resource
- * Copyright (C) 2002 2003, Quazzle.com Serge Dolgov
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * http://qlib.quazzle.com
- */
-
-function QImageList(width, height) {
-    var len = QImageList.arguments.length - 2;
-    if (len > 0) {
-        this.list = new Array(len);
-        this.length = len;
-        this.width = width;
-        this.height = height;
-        var im;
-        for (var j=0; j<len; j++) {
-            im = new Image(width, height);
-            im.src = QImageList.arguments[j + 2];
-            this.list[j] = im;
-        }
-    }
-}
\ No newline at end of file
diff --git a/httemplate/elements/qlib/label.js b/httemplate/elements/qlib/label.js
deleted file mode 100644
index 2d8b1e710..000000000
--- a/httemplate/elements/qlib/label.js
+++ /dev/null
@@ -1,72 +0,0 @@
-/**
- * QLIB 1.0 Text Label
- * Copyright (C) 2002 2003, Quazzle.com Serge Dolgov
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * http://qlib.quazzle.com
- */
-
-function QLabel_set_ie(value) {
-    this.label.innerText = (this.value = value) || "\xA0";
-}
-
-function QLabel_set_dom2(value) {
-    with (this.label) {
-        replaceChild(this.document.createTextNode((this.value = value) || "\xA0"), firstChild);
-    }
-}
-
-function QLabel_set_ns4(value) {
-    this.value = value || "";
-    with (this) {
-        document.open();
-        document.write('<div class="qlabel">' + (clickable ? '<a href="#" title="' + tooltip + '" onClick="return ' +
-            name + '.doEvent()" onMouseOut="window.top.status=\'\'" onMouseOver="window.top.status=' + name +
-            '.tooltip;return true">' + value + '</a>' : value) + '</div>');
-        document.close();
-    }
-}
-
-function QLabel_doEvent() {
-    this.onClick(this.value, this.tag);
-    return false;
-}
-
-function QLabel(parent, name, value, clickable, tooltip) {
-    this.init(parent, name);
-    this.value = value || "";
-    this.clickable = clickable || false;
-    this.tooltip = tooltip || "";
-    this.doEvent = QLabel_doEvent;
-    this.onClick = QControl.event;
-    with (this) {
-        if (document.getElementById || document.all) {
-            document.write(clickable ? '<div class="qlabel" unselectable="on"><a id="' + id + '" href="#" title="' +
-                tooltip + '" onClick="return ' + name + '.doEvent()" onMouseOver="window.top.status=' + name +
-                '.tooltip;return true" onMouseOut="window.top.status=\'\'" hidefocus="true" unselectable="on">' +
-                (value || ' ') + '</a></div>' : '<div id="' + id + '" class="qlabel" unselectable="on">' +
-                (value || ' ') + '</div>');
-            this.label = document.getElementById ? document.getElementById(id) :
-                (document.all.item ? document.all.item(id) : document.all[id]);
-            this.set = (label && (label.innerText ? QLabel_set_ie :
-                (label.replaceChild && QLabel_set_dom2))) || QControl.nop;
-        } else if (document.layers) {
-            var suffix = "";
-            for (var j=value.length; j<QLabel.TEXTQUOTA; j++) suffix += "  ";
-            document.write('<div><ilayer id="i' + id + '"><layer id="' + id + '"><div class="qlabel">' +
-                (clickable ? '<a href="#" title="' + tooltip + '" onClick="return ' + name +
-                '.doEvent()" onMouseOver="window.top.status=' + name +
-                '.tooltip;return true" onMouseOut="window.top.status=\'\'">' + value + suffix + '</a>' :
-                value + suffix) + '</div></layer></ilayer></div>');
-            this.label = (this.label = document.layers["i" + id]) && label.document.layers[id];
-            this.document = label && label.document;
-            this.set = (label && document) ? QLabel_set_ns4 : QControl.nop;
-        } else {
-            document.write("Object is not supported");
-        }
-    }
-}
-QLabel.prototype = new QControl();
-QLabel.TEXTQUOTA = 50;
diff --git a/httemplate/elements/qlib/messagebox.js b/httemplate/elements/qlib/messagebox.js
deleted file mode 100644
index 2e458393d..000000000
--- a/httemplate/elements/qlib/messagebox.js
+++ /dev/null
@@ -1,57 +0,0 @@
-/**
- * QLIB 1.0 Message Box Control
- * Copyright (C) 2002 2003, Quazzle.com Serge Dolgov
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * http://qlib.quazzle.com
- */
-
-function QMessageBox_alert(msg) {
-    if (typeof(msg) == "string") {
-        this.label.set(this.value = msg);
-    }
-    this.center();
-    this.focus();
-    this.show(true);
-}
-
-function QMessageBox_close() {
-    with (this.parent) {
-        if (!onClose(tag)) show(false);
-    }
-}
-
-function QMessageBox_body() {
-    with (this) {
-        document.write('<table border="0" width="' + cwidth + '"><tr><td align="left" valign="top" unselectable="on">');
-        this.label = new QLabel(this, "label", value);
-        document.write('</td></tr><tr><td height="' + (bres.height + 14) + '" align="center" valign="bottom" unselectable="on">');
-        this.button = new QButton(this, "button", bres, "Close");
-        document.write('</td></tr></table>');
-        button.onClick = QMessageBox_close;
-    }
-}
-
-function QMessageBox(parent, name, box, btn, msg, effects, opacity) {
-    this.init(parent, name);
-    if ((this.res = box) && (this.bres = btn)) {
-        this.value = typeof(msg) == "string" ? msg : "";
-        this.width = Math.max(200, Math.floor(Math.sqrt(555 * this.value.length)));
-        this.height = null;
-        this.x = this.y = 0;
-        this.visible = false;
-        this.zindex = null;
-        this.body = QMessageBox_body;
-        var j = QMessageBox.arguments.length;
-        this.effects = j > 5 ? effects : (box.effects != null ? box.effects : 0);
-        this.opacity = j > 6 ? opacity : (box.opacity != null ? box.opacity : 100);
-        this.create();
-        this.alert = QMessageBox_alert;
-        this.onClose = QControl.event;
-    } else {
-        this.document.write("invalid resource");
-    }
-}
-QMessageBox.prototype = new QBoxCtrl();
diff --git a/httemplate/elements/qlib/progress.js b/httemplate/elements/qlib/progress.js
deleted file mode 100644
index 2de077eac..000000000
--- a/httemplate/elements/qlib/progress.js
+++ /dev/null
@@ -1,73 +0,0 @@
-/**
- * QLIB 1.0 Progress Control
- * Copyright (C) 2002 2003, Quazzle.com Serge Dolgov
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * http://qlib.quazzle.com
- */
-
-function QProgress_update() {
-    with (this) {
-        var i = low;
-        for (var j=0; j<size; j++) {
-            images[j].src = i < value ? imgsrc1 : imgsrc0;
-            i += delta;
-        }
-    }
-}
-
-function QProgress_set(value) {
-    this.value = value - 0;
-    this.update();
-}
-
-function QProgress_setBounds(low, high) {
-    this.low = Math.min(low, high);
-    this.high = Math.max(low, high);
-    this.delta = (this.high - this.low) / this.size;
-    this.update();
-}
- 
-function QProgress(parent, name, res, size, style) {
-    this.init(parent, name);
-    if (res) {
-        this.res = res;
-        this.value = 0;
-        this.low = 0;
-        this.high = 100;
-        this.size = size || 10;
-        this.delta = 100 / this.size;
-        this.style = style || 0;
-        this.images = new Array(this.size);
-        this.imgsrc0 = res.list[0] && res.list[0].src;
-        this.imgsrc1 = res.list[1] && res.list[1].src;
-        this.set = QProgress_set;
-        this.update = QProgress_update;
-        this.setBounds = QProgress_setBounds;
-        with (this) {
-            var hor = this.style < 2;
-            var rev = this.style % 2;
-            document.write('<table class="qprogress" border="0"  cellspacing="0" cellpadding="0" unselectable="on" ' +
-                (hor ? 'width="' + (size * res.width) + '" height="' + res.height + '"><tr>' : 'width="' + res.width +
-                '" height="' + (size * res.height) + '">'));
-            for (var j=0; j<size; j++) {
-                document.write((hor ? '' : '<tr>') + '<td width="' + res.width + '" height="' + res.height +
-                    '" unselectable="on"><img name="' + id + (rev ? size - j - 1 : j) + '" src="' + res.list[0].src +
-                    '" border="0" width="' + res.width + '" height="' + res.height + '"></td>' + (hor ? '' : '</tr>'));
-            }
-            document.write((hor ? '</tr>' : '') + '</table>');
-            for (var j=0; j<size; j++) {
-                images[j] = document.images[id + j] || new Image(1, 1);
-            }
-        }
-    } else {
-        this.document.write("invalid resource");
-    }
-}
-QProgress.prototype = new QControl();
-QProgress.NORMAL    = 0;
-QProgress.REVERSE   = 1;
-QProgress.FALL      = 2;
-QProgress.RISE      = 3;
diff --git a/httemplate/elements/qlib/sound.js b/httemplate/elements/qlib/sound.js
deleted file mode 100644
index 3d1aaf660..000000000
--- a/httemplate/elements/qlib/sound.js
+++ /dev/null
@@ -1,47 +0,0 @@
-/**
- * QLIB 1.0 Preloaded Sound
- * Copyright (C) 2002 2003, Quazzle.com Serge Dolgov
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * http://qlib.quazzle.com
- */
-
-function QSound_play(loop) {
-    this._out.loop = loop || 0;
-    this._out.src = this._buf.src;
-}
-
-function QSound_stop() {
-    this._out.loop = 0;
-    this._out.src = "";
-}
-
-function QSound_setVolume(volume) {
-    this._out.volume = this.volume = volume;
-}
- 
-function QSound(parent, name, src, volume) {
-    this.init(parent, name);
-    this.volume = volume || 0;
-    this.play = this.stop = this.setVolume = QControl.nop;
-    with (this) {
-        document.write('<bgsound id="' + id + '" src="" volume="' + volume + '">');
-        if (document.all && document.all.item) {
-            this._out = document.all.item(id);
-            if (_out && (typeof _out.src != "undefined") && (_out.volume === volume)) {
-                document.write('<bgsound id="b' + id + '" src="' + src + '" volume="-10000">');
-                this._buf = document.all.item("b" + id);
-                if (_buf) {
-                    this.play = QSound_play;
-                    this.stop = QSound_stop;
-                    this.setVolume = QSound_setVolume;
-
-                    _out.onreadystatechange = new Function("alert(0)");
-                }
-            }
-        }
-    }
-}
-QSound.prototype = new QControl();
diff --git a/httemplate/elements/qlib/sprite.js b/httemplate/elements/qlib/sprite.js
deleted file mode 100644
index 72a68fb7c..000000000
--- a/httemplate/elements/qlib/sprite.js
+++ /dev/null
@@ -1,125 +0,0 @@
-/**
- * QLIB 1.0 Sprite Object
- * Copyright (C) 2002 2003, Quazzle.com Serge Dolgov
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * http://qlib.quazzle.com
- */
-
-function QSprite_load(src) {
-    if (src) {
-        this.face = new Image(this.cwidth, this.cheight);
-        this.face.src = src;
-        this.valid = false;
-    }
-}
- 
-function QSprite_show(show) {
-    if (show && !this.valid && this.face.complete) {
-        this._img.src = this.face.src;
-        this.valid = true;
-    }
-    this._show(show);
-}
-
-function QSprite_moveTo(x, y) {
-    this.stop();
-    this._move(x, y);
-}
-
-function QSprite_slideTo(x, y) {
-    this.stop();
-    if (this.visible) {
-        this.doSlide(++this._spro, x, y);
-    } else {
-        this.moveTo(x, y);
-    }
-}
-
-function QSprite_shake() {
-    this.stop();
-    if (this.visible) {
-        this.doShake(++this._spro, 0, this.x, this.y);
-    }
-}
-
-function QSprite_stop() {
-    this._spro++;
-    if (this._sprt) {
-        clearTimeout(this._sprt);
-        this._sprt = false;
-    }
-}
-
-function QSprite_doSlide(id, x, y) {
-    if (this._spro == id) {
-        this._sprt = false;
-        var dx = Math.round(x - this.x);
-        var dy = Math.round(y - this.y);
-        if (dx || dy) {
-            if (dx) dx = dx > 0 ? Math.ceil(dx/4) : Math.floor(dx/4);
-            if (dy) dy = dy > 0 ? Math.ceil(dy/4) : Math.floor(dy/4);
-            this._move(this.x + dx, this.y + dy);
-            this._sprt = setTimeout(this.name + ".doSlide(" + id + "," + x + "," + y + ")", 30);
-        } else {
-            this._move(x, y);
-        }
-    }
-}
-
-function QSprite_doShake(id, phase, x, y) {
-    if (this._spro == id) {
-        this._sprt = false;
-        if (phase < 20) {
-            var m = 3 * Math.sin(.16 * phase);
-            this._move(x + m * Math.sin(phase), y + m * Math.cos(phase));
-            this._sprt = setTimeout(this.name + ".doShake(" + id + "," + (++phase) + "," + x + "," + y + ")", 20);
-        } else {
-            this._move(x, y);
-        }
-    }
-}
-
-function QSprite_doClick() {
-    if (!this._sprt) {
-        this.onClick(this.tag);
-    }
-    return false;
-}
-
-function QSprite(parent, name, x, y, width, height, src, visible, effects, opacity, zindex) {
-    this.init(parent, name);
-    this.x = x - 0;
-    this.y = y - 0;
-    this.width = (this.cwidth = width - 0) + 8;
-    this.height = (this.cheight = height - 0) + 8;
-    var j = QSprite.arguments.length;
-    this.visible = (j > 7) ? visible : true;
-    this.effects = (j > 8) ? effects : 0;
-    this.opacity = (j > 9) ? opacity : 100;
-    this.zindex  = (j > 10) ? zindex : null;
-    this.valid = !!src;
-    this.content = '<a href="#" title="" onclick="return false" onmousedown="return ' + this.name +
-        '.doClick()" onmouseover="window.top.status=\'\';return true" hidefocus="true" unselectable="on"><img name="' +
-        this.id + '" src="' + (src || '') + '" border="0" width="' + this.cwidth + '" height="' + this.cheight +
-        '" alt="" unselectable="on"></a>';
-    this.doClick = QSprite_doClick;
-    this.doSlide = QSprite_doSlide;
-    this.doShake = QSprite_doShake;
-    this.onClick = QControl.event;
-    this.create();
-    this.face = this._img = this.document.images[this.id] || new Image(1, 1);
-    this._spro = 0;
-    this._sprt = false;
-    this._show = this.show;
-    this._move = this.moveTo;
-    this.load = QSprite_load;
-    this.show = QSprite_show;
-    this.moveTo = QSprite_moveTo;
-    this.slideTo = QSprite_slideTo;
-    this.shake = QSprite_shake;
-    this.stop = QSprite_stop;
-}
-QSprite.prototype = new QWndCtrl();
diff --git a/httemplate/elements/qlib/window.js b/httemplate/elements/qlib/window.js
deleted file mode 100644
index 6056fda9b..000000000
--- a/httemplate/elements/qlib/window.js
+++ /dev/null
@@ -1,25 +0,0 @@
-/**
- * QLIB 1.0 Window Control
- * Copyright (C) 2002 2003, Quazzle.com Serge Dolgov
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * http://qlib.quazzle.com
- */
-
-function QWindow(parent, name, x, y, width, height, content, visible, effects, opacity, zindex) {
-    this.init(parent, name);
-    this.x = x - 0;
-    this.y = y - 0;
-    this.width = width - 0;
-    this.height = (typeof(height) == "number") ? height : null;
-    this.content = content;
-    var j = QWindow.arguments.length;
-    this.visible = (j > 7) ? visible : true;
-    this.effects = (j > 8) ? effects : 0;
-    this.opacity = (j > 9) ? opacity : 100;
-    this.zindex  = (j > 10) ? zindex : null;
-    this.create();
-}
-QWindow.prototype = new QWndCtrl();
diff --git a/httemplate/elements/qlib/wndctrl.js b/httemplate/elements/qlib/wndctrl.js
deleted file mode 100644
index b3bde4e92..000000000
--- a/httemplate/elements/qlib/wndctrl.js
+++ /dev/null
@@ -1,322 +0,0 @@
-/**
- * QLIB 1.0 Window Abstraction
- * Copyright (C) 2002 2003, Quazzle.com Serge Dolgov
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * http://qlib.quazzle.com
- */
-
-function QWndCtrl_center_ie4() {
-    var b = this.document.body;
-    this.moveTo(b.scrollLeft + Math.max(0, Math.floor((b.clientWidth -
-        this.width) / 2)), b.scrollTop + 100);
-}
-
-function QWndCtrl_center_moz() {
-    this.moveTo(self.pageXOffset + Math.max(0, Math.floor((self.innerWidth -
-        this.width) / 2)), self.pageYOffset + 100);
-}
-
-function QWndCtrl_setEffects_ie4(fx) {
-    this.effects = fx;
-    with (this.wnd) {
-        filters[0].enabled = (fx & 256) != 0;
-        filters[1].enabled = (fx & 512) != 0;
-        filters[2].enabled = (fx & 1024) != 0;
-        filters[4].enabled = (fx & 2048) != 0;
-    }
-}
-
-function QWndCtrl_setEffects_moz(fx) {
-    this.effects = fx;
-}
-
-function QWndCtrl_setOpacity_ie4(op) {
-    this.opacity = Math.max(0, Math.min(100, Math.floor(op - 0)));
-    this.wnd.filters[3].opacity = this.opacity;
-    this.wnd.filters[3].enabled = (this.opacity < 100);
-}
-
-function QWndCtrl_setOpacity_moz(op) {
-    this.opacity = Math.max(0, Math.min(100, Math.floor(op - 0)));
-    this.wnd.style.MozOpacity = this.opacity + "%";
-}
-
-function QWndCtrl_setSize_css(w, h) {
-    this.wnd.style.width = (this.width = Math.floor(w - 0)) + "px";
-    this.wnd.style.height = typeof(h) == "number" ? (this.height = Math.floor(h)) + "px" : "auto";
-}
-
-function QWndCtrl_setSize_ns4(w, h) {
-    this.wnd.clip.width = this.width = Math.floor(w - 0);
-    if (typeof(h) == "number") {
-        this.wnd.clip.height = this.height = Math.floor(h);
-    }
-}
-
-function QWndCtrl_focus() {
-    this.setZIndex(QWndCtrl.TOPZINDEX++);
-}
-
-function QWndCtrl_setZIndex_css(z) {
-    this.wnd.style.zIndex = this.zindex = z || 0;
-}
-
-function QWndCtrl_setZIndex_ns4(z) {
-    this.wnd.zIndex = this.zindex = z || 0;
-}
-
-function QWndCtrl_moveTo_css(x, y) {
-    this.wnd.style.left = (this.x = Math.floor(x - 0)) + "px";
-    this.wnd.style.top = (this.y = Math.floor(y - 0)) + "px";
-}
-
-function QWndCtrl_moveTo_ns4(x, y) {
-    this.wnd.moveTo(this.x = Math.floor(x - 0), this.y = Math.floor(y - 0));
-}
-
-function QWndCtrl_fxhandler() {
-    this.fxhandler = QControl.nop;
-    this.onShow(this.visible, this.tag);
-}
-
-function QWndCtrl_show_ie4(show) {
-    if (this.visible != show) {
-        var fx = false;
-        switch (show ? this.effects & 15 : (this.effects & 240) >>> 4) {
-            case 1:
-                fx = this.wnd.filters[5];
-                break;
-            case 2:
-                (fx = this.wnd.filters[6]).transition = show ? 1 : 0;
-                break;
-            case 3:
-                (fx = this.wnd.filters[6]).transition = show ? 3 : 2;
-                break;
-            case 4:
-                (fx = this.wnd.filters[6]).transition = show ? 5 : 4;
-                break;
-            case 5:
-                (fx = this.wnd.filters[6]).transition = show ? 14 : 13;
-                break;
-            case 6:
-                (fx = this.wnd.filters[6]).transition = show ? 16 : 15;
-                break;
-            case 7:
-                (fx = this.wnd.filters[6]).transition = 12;
-                break;
-            case 8:
-                (fx = this.wnd.filters[6]).transition = 8;
-                break;
-            case 9:
-                (fx = this.wnd.filters[6]).transition = 9;
-        }
-        if (fx) {
-            fx.apply();
-            this.wnd.style.visibility = (this.visible = show) ? "visible" : "hidden";
-            this.fxhandler = QWndCtrl_fxhandler;
-            fx.play(0.3);
-        } else {
-            this.wnd.style.visibility = (this.visible = show) ? "visible" : "hidden";
-            this.onShow(show, this.tag);
-        }
-    }
-}
-
-function QWndCtrl_fade_moz(op, step) {
-    this._wndt = false;
-    if (step) {
-        op += step;
-        if ((op > 0) && (op < this.opacity)) {
-            this.wnd.style.MozOpacity = op + "%";
-            this._wndt = setTimeout(this.name + ".fade(" + op + "," + step + ")", 50);
-        } else {
-            if (op <= 0) {
-                this.wnd.style.visibility = "hidden";
-                this.visible = false;
-            }
-            this.wnd.style.MozOpacity = this.opacity + "%";
-            this.onShow(this.visible, this.tag);
-        }
-    }
-}
-
-function QWndCtrl_show_moz(show) {
-    if (this.visible != show) {
-        if (this._wndt) {
-            clearTimeout(this._wndt);
-            this._wndt = false;
-        }
-        var step = show ? ((this.effects & 15) == 1) && Math.floor(this.opacity / 5) :
-            ((this.effects & 240) == 16) && -Math.floor(this.opacity / 5);
-        if (step) {
-            if (this.visible) {
-                this.fade(this.opacity - 0, step);
-            } else {
-                this.wnd.style.MozOpacity = "0%";
-                this.wnd.style.visibility = "visible";
-                this.visible = true;
-                this.fade(0, step);
-            }
-        } else {
-            this.wnd.style.visibility = (this.visible = show) ? "visible" : "hidden";
-            this.onShow(show, this.tag);
-        }
-    }
-}
-
-function QWndCtrl_show_css(show) {
-    if (this.visible != show) {
-        this.wnd.style.visibility = (this.visible = show) ? "visible" : "hidden";
-        this.onShow(show, this.tag);
-    }
-}
-
-function QWndCtrl_show_ns4(show) {
-    if (this.visible != show) {
-        this.wnd.visibility = (this.visible = show) ? "show" : "hidden";
-        this.onShow(show, this.tag);
-    }
-}
-
-function QWndCtrl_create_dom2() {
-    with (this) {
-        this.fxhandler = QControl.nop;
-        var ie4 = document.body && document.body.filters;
-        var moz = document.body && document.body.style &&
-            typeof(document.body.style.MozOpacity) == "string";
-        document.write('<div unselectable="on" id="' + id +
-            (ie4 ? '" onfilterchange="' + name + '.fxhandler()': '') +
-            '" style="position:absolute;left:' + x + 'px;top:' + y +
-            'px;width:' + width + (height != null ? 'px;height:' + height : '') +
-            'px;visibility:' + (visible ? 'visible' : 'hidden') +
-            ';overflow:hidden' + (zindex ? ';z-index:' + zindex : '') +
-            (ie4 ? ';filter:Gray(enabled=' + (effects & 256 ? '1' : '0') +
-            ') Xray(enabled=' + (effects & 512 ? '1' : '0') +
-            ') Invert(enabled=' + (effects & 1024 ? '1' : '0') +
-            ') alpha(enabled=' + (opacity < 100 ? '1' : '0') + ',opacity=' + opacity +
-            ') shadow(enabled=' + (effects & 2048 ? '1' : '0') +
-            ',direction=135) BlendTrans(enabled=0) RevealTrans(enabled=0)' : '') +
-            (moz && (opacity < 100) ? ';-moz-opacity:' + opacity + '%' : '') +
-            '"><div unselectable="on" class="qwindow">');
-        if (typeof(content) == "function") {
-            this.content();
-        } else {
-            document.write(content);
-        }
-        document.write('</div></div>');
-        if (this.wnd = document.getElementById ? document.getElementById(id) :
-            (document.all.item ? document.all.item(id) : document.all[id])) {
-            if (wnd.style) {
-                ie4 = ie4 && wnd.filters;
-                moz = moz && typeof(wnd.style.MozOpacity) == "string";
-                this.moveTo = QWndCtrl_moveTo_css;
-                this.setZIndex = QWndCtrl_setZIndex_css;
-                this.focus = QWndCtrl_focus;
-                this.setSize = QWndCtrl_setSize_css;
-                this.show = ie4 ? QWndCtrl_show_ie4 : (moz ? QWndCtrl_show_moz : QWndCtrl_show_css);
-                this.fade = moz ? QWndCtrl_fade_moz : QControl.nop;
-                this.setOpacity = ie4 ? QWndCtrl_setOpacity_ie4 : (moz ? QWndCtrl_setOpacity_moz : QControl.nop);
-                this.setEffects = ie4 ? QWndCtrl_setEffects_ie4 : (moz ? QWndCtrl_setEffects_moz : QControl.nop);
-                this.center = self.innerWidth ? QWndCtrl_center_moz :
-                    (document.body && document.body.clientWidth ? QWndCtrl_center_ie4 : QControl.nop);
-            }
-        }
-    }
-}
-
-function QWndCtrl_create_ns4(finalize) {
-    with (this) {
-        if (finalize) {
-            if (_wnde) {
-                parent.window.onload = _wnde;
-                parent.window.onload();
-            }
-            document.open();
-            document.write('<div class="qwindow">');
-            this.content();
-            document.write('</div>');
-            document.close();
-        } else {
-            document.write('<layer id="' + id + '" left="' + x + '" top="' + y +
-                '" width="' + width + '" visibility="' + (visible ? 'show' : 'hidden') +
-                (height != null ? '" height="' + height + '" clip="' + width + ',' + height : '') +
-                (zindex ? '" z-index="' + zindex : '') + (typeof(content) != "function" ?
-                '"><div class="qwindow">' + content + '</div></layer>' : '"> </layer>'));
-            if (this.window = this.wnd = document.layers[id]) {
-                if (this.document = wnd.document) {
-                    this.show = QWndCtrl_show_ns4;
-                    this.moveTo = QWndCtrl_moveTo_ns4;
-                    this.setZIndex = QWndCtrl_setZIndex_ns4;
-                    this.focus = QWndCtrl_focus;
-                    this.center = QWndCtrl_center_moz;
-                    this.setSize = QWndCtrl_setSize_ns4;
-                    if (typeof(content) == "function") {
-                        this._wnde = parent.window.onload;
-                        parent.window.onload = new Function(name + ".create(true)");
-                    }
-                }
-            }
-        }
-    }
-}
-
-function QWndCtrl_create_na() {
-    this.document.write('Object is not supported.');
-    this.wnd = null;
-}
-
-function QWndCtrl_create() {
-    with (this) {
-        this.create = (document.getElementById || document.all) ? QWndCtrl_create_dom2 :
-            (document.layers ? QWndCtrl_create_ns4 : QWndCtrl_create_na);
-        create();
-    }
-}
-
-function QWndCtrl() {
-    this.x = this.y = 0;
-    this.width = this.height = 0;
-    this.content = "";
-    this.visible = true;
-    this.effects = 0;
-    this.opacity = 100;
-    this.zindex = null;
-    this._wndt = this._wnde = false;
-    this.create = QWndCtrl_create;
-    this.show = QControl.nop;
-    this.focus = QControl.nop;
-    this.center = QControl.nop;
-    this.moveTo = QControl.nop;
-    this.setSize = QControl.nop;
-    this.setOpacity = QControl.nop;
-    this.setEffects = QControl.nop;
-    this.setZIndex  = QControl.nop;
-    this.onShow = QControl.event;
-}
-QWndCtrl.prototype = new QControl();
-QWndCtrl.TOPZINDEX = 1000;
-QWndCtrl.GRAY      = 256;
-QWndCtrl.XRAY      = 512;
-QWndCtrl.INVERT    = 1024;
-QWndCtrl.SHADOW    = 2048;
-QWndCtrl.FADEIN    = 1;
-QWndCtrl.FADEOUT   = 16;
-QWndCtrl.BOXIN     = 2;
-QWndCtrl.BOXOUT    = 32;
-QWndCtrl.CIRCLEIN  = 3;
-QWndCtrl.CIRCLEOUT = 48;
-QWndCtrl.WIPEIN    = 4;
-QWndCtrl.WIPEOUT   = 64;
-QWndCtrl.HBARNIN   = 5;
-QWndCtrl.HBARNOUT  = 80;
-QWndCtrl.VBARNIN   = 6;
-QWndCtrl.VBARNOUT  = 96;
-QWndCtrl.DISSOLVEIN  = 7;
-QWndCtrl.DISSOLVEOUT = 112;
-QWndCtrl.HBLINDSIN   = 8;
-QWndCtrl.HBLINDSOUT  = 128;
-QWndCtrl.VBLINDSIN   = 9;
-QWndCtrl.VBLINDSOUT  = 144;
diff --git a/httemplate/elements/search-cust_main.html b/httemplate/elements/search-cust_main.html
deleted file mode 100644
index f2b17eacb..000000000
--- a/httemplate/elements/search-cust_main.html
+++ /dev/null
@@ -1,164 +0,0 @@
-%
-%  my( %opt ) = @_;
-%  $opt{'field_name'} ||= 'custnum';
-%
-%  my $cust_main = '';
-%  if ( $opt{'value'} ) {
-%    $cust_main = qsearchs(
-%      'table'     => 'cust_main',
-%      'hashref'   => { 'custnum' => $opt{'value'} },
-%      'extra_sql' => " AND ". $FS::CurrentUser::CurrentUser->agentnums_sql,
-%    );
-%  }
-%
-
-
-<INPUT TYPE="hidden" NAME="<% $opt{'field_name'} %>" VALUE="<% $opt{'value'} %>">
-
-
-
-<INPUT TYPE="text" NAME="<% $opt{'field_name'} %>_search" ID="<% $opt{'field_name'} %>_search" SIZE="32" VALUE="<% $cust_main ? $cust_main->name : '(cust #, name or company)' %>" onFocus="clearhint_<% $opt{'field_name'} %>_search(this);" onClick="clearhint_<% $opt{'field_name'} %>_search(this);" onChange="smart_<% $opt{'field_name'} %>_search(this);">
-
-<SELECT NAME="<% $opt{'field_name'} %>_select" ID="<% $opt{'field_name'} %>_select" STYLE="color:#ff0000; display:none" onChange="select_<% $opt{'field_name'} %>(this);">
-</SELECT>
-
-<% include('/elements/xmlhttp.html',
-              'url'  => $p. 'misc/xmlhttp-cust_main-search.cgi',
-              'subs' => [ 'smart_search' ],
-           )
-%>
-
-<SCRIPT TYPE="text/javascript">
-
-  function clearhint_<% $opt{'field_name'} %>_search (what) {
-
-    what.style.color = '#000000';
-
-    if ( what.value == '(cust #, name or company)' )
-      what.value = '';
-
-    if ( what.value.indexOf('Customer not found: ') == 0 )
-      what.value = what.value.substr(20);
-
-  }
-
-  function smart_<% $opt{'field_name'} %>_search(what) {
-
-    var customer = what.value;
-
-    if ( customer == 'searching...' || customer == ''
-         || customer.indexOf('Customer not found: ') == 0 )
-      return;
-
-    if ( what.getAttribute('magic') == 'nosearch' ) {
-      what.setAttribute('magic', '');
-      return;
-    }
-
-    //what.value = 'searching...'
-    what.disabled = true;
-    what.style.color= '#000000';
-    what.style.backgroundColor = '#dddddd';
-
-    var customer_select = document.getElementById('<% $opt{'field_name'} %>_select');
-
-    //alert("search for customer " + customer);
-
-    function <% $opt{'field_name'} %>_search_update(customers) {
-
-      //alert('customers returned: ' + customers);
-
-      var customerArray = eval('(' + customers + ')');
-
-      what.disabled = false;
-      what.style.backgroundColor = '#ffffff';
-
-      if ( customerArray.length == 0 ) {
-
-        what.form.<% $opt{'field_name'} %>.value = '';
-
-        what.value = 'Customer not found: ' + what.value;
-        what.style.color = '#ff0000';
-
-        what.style.display = '';
-        customer_select.style.display = 'none';
-
-      } else if ( customerArray.length == 1 ) {
-
-        //alert('one customer found: ' + customerArray[0]);
-
-        what.form.<% $opt{'field_name'} %>.value = customerArray[0][0];
-        what.value = customerArray[0][1];
-
-        what.style.display = '';
-        customer_select.style.display = 'none';
-
-      } else {
-
-        //alert('multiple customers found, have to create select dropdown');
-
-        //blank the current list
-        for ( var i = customer_select.length; i >= 0; i-- )
-          customer_select.options[i] = null;
-
-        opt(customer_select, '', 'Multiple customers match "' + customer + '" - select one', '#ff0000');
-
-        //add the multiple customers
-        for ( var s = 0; s < customerArray.length; s++ )
-          opt(customer_select, customerArray[s][0], customerArray[s][1], '#000000');
-
-        opt(customer_select, 'cancel', '(Edit search string)', '#000000');
-
-        what.style.display = 'none';
-        customer_select.style.display = '';
-
-      }
-
-    }
-
-    smart_search( customer, <% $opt{'field_name'} %>_search_update );
-
-
-  }
-
-  function select_<% $opt{'field_name'} %> (what) {
-
-    var custnum = what.options[what.selectedIndex].value;
-    var customer = what.options[what.selectedIndex].text;
-
-    var customer_obj = document.getElementById('<% $opt{'field_name'} %>_search');
-
-    if ( custnum == '' ) {
-      //what.style.color = '#ff0000';
-
-    } else if ( custnum == 'cancel' ) {
-
-      customer_obj.style.color = '#000000';
-
-      what.style.display = 'none';
-      customer_obj.style.display = '';
-      customer_obj.focus();
-
-    } else {
-    
-      what.form.<% $opt{'field_name'} %>.value = custnum;
-
-      customer_obj.value = customer;
-      customer_obj.style.color = '#000000';
-
-      what.style.display = 'none';
-      customer_obj.style.display = '';
-
-    }
-
-  }
-
-  function opt(what,value,text,color) {
-    var optionName = new Option(text, value, false, false);
-    optionName.style.color = color;
-    var length = what.length;
-    what.options[length] = optionName;
-  }
-
-</SCRIPT>
-
diff --git a/httemplate/elements/select-access_group.html b/httemplate/elements/select-access_group.html
deleted file mode 100644
index 299a66a45..000000000
--- a/httemplate/elements/select-access_group.html
+++ /dev/null
@@ -1,16 +0,0 @@
-% 
-%  my( $groupnum, %opt ) = @_;
-%
-%  %opt{'records'} = delete $opt{'access_group'}
-%    if $opt{'access_group'};
-%
-%
-<% include( '/elements/select-table.html',
-                 'table'       => 'access_group',
-                 'name_col'    => 'groupname',
-                 'value'       => $groupnum,
-                 'empty_label' => '(none)',
-                 #'hashref'     => { 'disabled' => '' },
-                 %opt,
-             )
-%>
diff --git a/httemplate/elements/select-agent.html b/httemplate/elements/select-agent.html
deleted file mode 100644
index 54069a5cb..000000000
--- a/httemplate/elements/select-agent.html
+++ /dev/null
@@ -1,21 +0,0 @@
-<% include( '/elements/select-table.html',
-                 'table'       => 'agent',
-                 'name_col'    => 'agent',
-                 'value'       => $agentnum || '',
-                 'empty_label' => 'all',
-                 'hashref'     => { 'disabled' => '' },
-                 'extra_sql'   => ' AND '.
-                                  $FS::CurrentUser::CurrentUser->agentnums_sql.
-                                  ' ORDER BY agent',
-                 %opt,
-             )
-%>
-<%init>
-
-my %opt = @_;
-my $agentnum = $opt{'curr_value'} || $opt{'value'};
-
-$opt{'records'} = delete $opt{'agents'}
-  if $opt{'agents'};
-
-</%init>
diff --git a/httemplate/elements/select-agent_type.html b/httemplate/elements/select-agent_type.html
deleted file mode 100644
index ba59cd397..000000000
--- a/httemplate/elements/select-agent_type.html
+++ /dev/null
@@ -1,21 +0,0 @@
-<% include( '/elements/select-table.html',
-                 'table'       => 'agent_type',
-                 'name_col'    => 'atype',
-                 'value'       => $typenum || '',
-                 'empty_label' => 'all',
-                 'hashref'     => { 'disabled' => '' },
-                 #'extra_sql'   => ' AND '.
-                 #                 $FS::CurrentUser::CurrentUser->agentnums_sql.
-                 #                 ' ORDER BY agent',
-                 %opt,
-             )
-%>
-<%init>
-
-my %opt = @_;
-my $typenum = $opt{'curr_value'} || $opt{'value'};
-
-$opt{'records'} = delete $opt{'agent_types'}
-  if $opt{'agent_types'};
-
-</%init>
diff --git a/httemplate/elements/select-cust-fields.html b/httemplate/elements/select-cust-fields.html
deleted file mode 100644
index 98feaf85c..000000000
--- a/httemplate/elements/select-cust-fields.html
+++ /dev/null
@@ -1,24 +0,0 @@
-%
-%  my( $cust_fields, %opt ) = @_;
-%
-%  use FS::ConfDefaults;
-%  $opt{'avail_fields'} ||= [ FS::ConfDefaults->cust_fields_avail() ];
-%
-%  tie my %hash, 'Tie::IxHash', @{ $opt{'avail_fields'} };
-%
-%
-
-
-<SELECT NAME="cust_fields">
-
-  <OPTION VALUE="">(configured default)
-% 
-%     foreach my $value ( keys %hash ) { 
-
-
-       <OPTION VALUE="<% $value %>"><% $hash{$value} %>
-% } 
-
-
-</SELECT>
-
diff --git a/httemplate/elements/select-cust-part_pkg.html b/httemplate/elements/select-cust-part_pkg.html
deleted file mode 100644
index 8b446b95d..000000000
--- a/httemplate/elements/select-cust-part_pkg.html
+++ /dev/null
@@ -1,56 +0,0 @@
-<%doc>
-
-Example:
-
-  include( '/elements/select-cust-part_pkg.html',
-
-    #required
-    'cust_main'  => $cust_main, #or 'custnum' ? 
-             
-    #strongly recommended (you want your forms to be "sticky" on errors, right?)
-    'curr_value' => 'current_value',
-  
-    #opt
-    'part_pkg'   => \@records,
-
-    #select-table.html options
-  )
-
-</%doc>
-
-<% include( '/elements/select-table.html',
-              'table'          => 'part_pkg',
-              'name_col'       => 'pkg',
-              'empty_label'    => 'Select package',
-              'label_callback' => sub { $_[0]->pkgpart. ': '.
-                                        $_[0]->pkg.     ' - '.
-                                        $_[0]->comment;
-                                      },
-              %opt,
-          )
-%>
-<%init>
-
-my( %opt ) = @_;
-
-my $cust_main = $opt{'cust_main'}
-  or die "cust_main not specified";
-
-$opt{'records'} = delete $opt{'part_pkg'}
-  if $opt{'part_pkg'};
-
-my $extra_sql = $opt{'extra_sql'}.
-  ' AND 0 < ( SELECT COUNT(*) FROM type_pkgs '.
-  '             WHERE typenum = '. $cust_main->agent->typenum.
-  '             AND type_pkgs.pkgpart = part_pkg.pkgpart )';
-
-$opt{'records'} ||= [ qsearch({ 
-                                'table'     => 'part_pkg',
-                                'hashref'   => { 'disabled' => '', },
-                                'extra_sql' => "$extra_sql ORDER BY pkg",
-                                #'extra_sql' => $extra_sql,
-                                #'order_by'  => 'ORDER BY pkg',
-                             })
-                    ];
-
-</%init>
diff --git a/httemplate/elements/select-cust_main-status.html b/httemplate/elements/select-cust_main-status.html
deleted file mode 100644
index 2e0b6cb24..000000000
--- a/httemplate/elements/select-cust_main-status.html
+++ /dev/null
@@ -1,30 +0,0 @@
-<SELECT NAME="<% $opt{'field'} || 'status' %>"
-        <% $opt{'multiple'} ? 'MULTIPLE' : '' %>
-        <% $onchange %>
->
-
-  <OPTION VALUE="">all
-
-% foreach my $option ( @{ $opt{'statuses'} } ) { 
-
-    <OPTION VALUE="<% $option %>"
-            <% $option eq $curr_value ? 'SELECTED' : '' %>
-    ><% $option %>
-
-% } 
-
-</SELECT>
-
-<%init>
-
-my %opt = @_;
-
-$opt{'statuses'} ||= [ FS::cust_main->statuses() ]; # { disabled=>'' } )
-
-my $onchange = $opt{'onchange'}
-                 ? 'onChange="'. $opt{'onchange'}. '(this)"'
-                 : '';
-
-my $curr_value = $opt{'curr_value'} || $opt{'value'};
-
-</%init>
diff --git a/httemplate/elements/select-cust_pkg-status.html b/httemplate/elements/select-cust_pkg-status.html
deleted file mode 100644
index 2d545c047..000000000
--- a/httemplate/elements/select-cust_pkg-status.html
+++ /dev/null
@@ -1,30 +0,0 @@
-<SELECT NAME="<% $opt{'field'} || 'status' %>"
-        <% $opt{'multiple'} ? 'MULTIPLE' : '' %>
-        <% $onchange %>
->
-
-  <OPTION VALUE="">all
-
-% foreach my $option ( @{ $opt{'statuses'} } ) { 
-
-    <OPTION VALUE="<% $option %>"
-            <% $option eq $curr_value ? 'SELECTED' : '' %>
-    ><% $option %>
-
-% } 
-
-</SELECT>
-
-<%init>
-
-my %opt = @_;
-
-$opt{'statuses'} ||= [ FS::cust_pkg->statuses() ]; # { disabled=>'' } )
-
-my $onchange = $opt{'onchange'}
-                 ? 'onChange="'. $opt{'onchange'}. '(this)"'
-                 : '';
-
-my $curr_value = $opt{'curr_value'} || $opt{'value'};
-
-</%init>
diff --git a/httemplate/elements/select-month_year.html b/httemplate/elements/select-month_year.html
deleted file mode 100644
index 34476bc94..000000000
--- a/httemplate/elements/select-month_year.html
+++ /dev/null
@@ -1,62 +0,0 @@
-%
-%
-%  my %opt = @_;
-%
-%  my $prefix = $opt{'prefix'} || '';
-%  my $disabled = $opt{'disabled'} || '';
-%  my $empty = $opt{'empty_option'} || '';
-%  my $start_year = $opt{'start_year'};
-%  my $end_year = $opt{'end_year'} || '2037';
-%
-%  my @mon;
-%  if ( $opt{'show_month_abbr'} ) {
-%    @mon = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
-%  } else {
-%    @mon = ( 1 .. 12 );
-%  }
-%
-%  my $date = $opt{'selected_date'} || '';
-%  $date = '' if $date eq '-';
-%  #$date ||= '01-2000' unless $empty;
-%
-%  my $mon  = $opt{'selected_mon'}  || 0;
-%  my $year = $opt{'selected_year'} || 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="">' : '' %>
-% foreach ( 1 .. 12 ) { 
-
-   <OPTION<% $_ == $mon ? ' SELECTED' : '' %> VALUE="<% $_ %>"><% $mon[$_-1] %>
-% } 
-
-
-</SELECT>/<SELECT NAME="<% $prefix %>_year" SIZE="1" <% $disabled%>>
-
-<% $empty ? '<OPTION VALUE="">' : '' %>
-% for ( $start_year .. $end_year ) { 
-
-   <OPTION<% $_ == $year ? ' SELECTED' : '' %> VALUE="<% $_ %>"><% $_ %>
-% } 
-
-
-</SELECT>
-
diff --git a/httemplate/elements/select-otaker.html b/httemplate/elements/select-otaker.html
deleted file mode 100644
index 2a689f39d..000000000
--- a/httemplate/elements/select-otaker.html
+++ /dev/null
@@ -1,27 +0,0 @@
-<SELECT NAME="otaker">
-
-% unless ( $opt{'multiple'} || $opt{'disable_empty'} ) {
-  <OPTION VALUE="">all</OPTION>
-% }
-
-% foreach my $otaker ( @{ $opt{'otakers'} } ) { 
-    <OPTION VALUE="<% $otaker %>"><% $otaker %></OPTION>
-% } 
-
-</SELECT>
-
-<%init>
-
-my %opt = @_;
-
-unless ( $opt{'otakers'} ) {
-
-  my $sth = dbh->prepare("SELECT username FROM access_user".
-                       " WHERE disabled = '' or disabled IS NULL")
-    or die dbh->errstr;
-  $sth->execute or die $sth->errstr;
-  $opt{'otakers'} = [ map { $_->[0] } @{$sth->fetchall_arrayref} ];
-
-}
-
-</%init>
diff --git a/httemplate/elements/select-part_referral.html b/httemplate/elements/select-part_referral.html
deleted file mode 100644
index c4b8829c8..000000000
--- a/httemplate/elements/select-part_referral.html
+++ /dev/null
@@ -1,20 +0,0 @@
-<% include( '/elements/select-table.html',
-                 'table'       => 'part_referral',
-                 'name_col'    => 'referral',
-                 'value'       => $refnum,
-                 'empty_label' => 'Select advertising source',
-                 'hashref'     => { 'disabled' => '' },
-                 'extra_sql'   => ' AND '.
-                                  FS::part_referral->acl_agentnum_sql(1),
-                 %opt,
-             )
-%>
-<%init>
-
-my %opt = @_;
-my $refnum = $opt{'curr_value'} || $opt{'value'};
-
-$opt{'records'} = delete $opt{'part_referrals'}
-  if $opt{'part_referrals'};
-
-</%init>
diff --git a/httemplate/elements/select-payby.html b/httemplate/elements/select-payby.html
deleted file mode 100644
index 3f19cb952..000000000
--- a/httemplate/elements/select-payby.html
+++ /dev/null
@@ -1,40 +0,0 @@
-<SELECT NAME="<% $opt{'field'} || 'payby' %>"
-        <% $opt{'multiple'} ? 'MULTIPLE' : '' %>
-        <% $onchange %>
->
-
-% unless ( $opt{'multiple'} ) {
-    <OPTION VALUE="" <% '' eq $value ? 'SELECTED' : '' %> >all
-% }
-
-% foreach my $option ( keys %{ $opt{'paybys'} } ) { 
-%   my $sel = ( ref($value) && $value->{$option} ) || $option eq $value;
-
-    <OPTION VALUE="<% $option %>"
-            <% $sel ? 'SELECTED' : '' %>
-    ><% $opt{'paybys'}->{$option} %>
-
-% } 
-
-</SELECT>
-
-<%init>
-
-my %opt = @_;
-
-my $method = 'payby';
-$method = 'cust_payby'  if $opt{'payby_type'} eq 'cust';
-#$method = 'event_payby' if $opt{'payby_type'} eq 'event';
-#$method = 'pay_payby'   if $opt{'payby_type'} eq 'pay';
-
-unless ( $opt{'paybys'} ) {
-  tie %{ $opt{'paybys'} }, 'Tie::IxHash', FS::payby->$method();
-}
-
-my $onchange = $opt{'onchange'}
-                 ? 'onChange="'. $opt{'onchange'}. '(this)"'
-                 : '';
-
-my $value = $opt{'curr_value'} || $opt{'value'};
-
-</%init>
diff --git a/httemplate/elements/select-pkg_class.html b/httemplate/elements/select-pkg_class.html
deleted file mode 100644
index f30259e55..000000000
--- a/httemplate/elements/select-pkg_class.html
+++ /dev/null
@@ -1,18 +0,0 @@
-<% include( '/elements/select-table.html',
-                 'table'       => 'pkg_class',
-                 'name_col'    => 'classname',
-                 'value'       => $classnum,
-                 'empty_label' => '(none)',
-                 'hashref'     => { 'disabled' => '' },
-                 %opt,
-             )
-%>
-<%init>
-
-my %opt = @_;
-my $classnum = $opt{'curr_value'} || $opt{'value'};
-
-$opt{'records'} = delete $opt{'pkg_class'}
-  if $opt{'pkg_class'};
-
-</%init>
diff --git a/httemplate/elements/select-table.html b/httemplate/elements/select-table.html
deleted file mode 100644
index 8bcbf2504..000000000
--- a/httemplate/elements/select-table.html
+++ /dev/null
@@ -1,114 +0,0 @@
-<%doc>
-
-Example:
-
-  include( '/elements/select-table.html',
-
-    #required
-    'table'          => 'table_name',
-    'name_col'       => 'name_column',
-   
-    #strongly recommended (you want your forms to be "sticky" on errors, right?)
-    'curr_value'     => 'current_value',
-    #'value' => #deprecated form of 'curr_value',
-   
-    #opt
-    'empty_label'    => '', #better specify it though, the default might change
-    'hashref'        => {},
-    'extra_sql'      => '',
-    'records'        => \@records, #instead of hashref
-    'pre_options'    => [ 'value' => 'option' ], #before normal options
-    'element_name'   => '', #HTML element name, defaults to the name of
-                            # the primary key column
-    'field'          => '', #synonym for element_name
-    'element_etc'    => '', #additional attributes (i.e. "DISABLED") for the
-                            #<SELECT> element
-    'onchange'       => '', #javascript code
-    'multiple'       => 0, # bool
-    'disable_empty'  => 0, # bool (implied by multiple)
-    'debug'          => 0, #set true to enable
-    'label_callback' => sub { my $record = shift; return "label"; },
-  )
-
-</%doc>
-
-<SELECT <% $opt{'multiple'} ? 'MULTIPLE' : '' %>
-        NAME = "<% $opt{'element_name'} || $opt{'field'} || $key %>"
-        <% $onchange %>
-        <% $opt{'element_etc'} %>
->
-
-% while ( @pre_options ) { 
-    <OPTION VALUE="<% shift(@pre_options) %>"><% shift(@pre_options) %>
-
-% } 
-
-% unless ( $opt{'multiple'} || $opt{'disable_empty'} ) {
-    <OPTION VALUE=""><% $opt{'empty_label'} || 'all' %>
-% }
-
-% foreach my $record ( sort { $a->$name_col() cmp $b->$name_col() } @records ) {
-%   my $recvalue = $record->$key();
-    <OPTION VALUE="<% $recvalue %>"
-            <% ref($value) && $value->{$recvalue} || $value == $recvalue
-               ? ' SELECTED' : ''
-            %>
-    ><% $opt{'label_callback'}
-          ? &{ $opt{'label_callback'} }( $record )
-          : $record->$name_col()
-     %>
-% } 
-
-</SELECT>
-
-<%init>
-
-my( %opt ) = @_;
-
-warn "elements/select-table.html: \n". Dumper(%opt)
-  if exists $opt{debug} && $opt{debug};
-
-my $onchange = $opt{'onchange'}
-                 ? 'onChange="'. $opt{'onchange'}. '(this)"'
-                 : '';
-
-my $key = dbdef->table($opt{'table'})->primary_key; #? $opt{'primary_key'} ||
-
-my $name_col = $opt{'name_col'};
-
-my $value = $opt{'curr_value'} || $opt{'value'};
-$value = [ split(/\s*,\s*/, $value) ] if $opt{'multiple'} && $value =~ /,/;
-
-my @records = ();
-if ( $opt{'records'} ) {
-  @records = @{ $opt{'records'} };
-} else {
-  @records = qsearch( {
-    'table'     => $opt{'table'},
-    'hashref'   => ( $opt{'hashref'} || {} ),
-    'extra_sql' => ( $opt{'extra_sql'} || '' ),
-  });
-}
-
-unless (    ! $value
-         or ref($value)
-         or ! exists( $opt{hashref}->{disabled} ) #??
-         or grep { $value == $_->$key() } @records
-       ) {
-  delete $opt{hashref}->{disabled};
-  $opt{hashref}->{$key} = $value;
-  my $record = qsearchs( {
-    'table'     => $opt{table},
-    'hashref'   => $opt{hashref},
-    'extra_sql' => ( $opt{extra_sql} || '' ),
-  });
-  push @records, $record if $record;
-}
-
-if ( ref( $value ) eq 'ARRAY' ) {
-  $value = { map { $_ => 1 } @$value };
-}
-
-my @pre_options = $opt{pre_options} ? @{ $opt{pre_options} } : ();
-
-</%init>
diff --git a/httemplate/elements/select-taxclass.html b/httemplate/elements/select-taxclass.html
deleted file mode 100644
index 6fe35d32c..000000000
--- a/httemplate/elements/select-taxclass.html
+++ /dev/null
@@ -1,38 +0,0 @@
-% if ( $conf->exists('enable_taxclasses') ) { 
-
-    <SELECT NAME="<% $opt{'name'} || 'taxclass' %>">
-
-%   if ( $conf->exists('require_taxclasses') ) { 
-        <OPTION VALUE="(select)">Select tax class
-%   } else { 
-        <OPTION VALUE="">
-%   } 
-
-%   foreach my $taxclass ( @{ $opt{'taxclasses'} } ) { 
-        <OPTION VALUE="<% $taxclass %>"<% $taxclass eq $selected_taxclass ? ' SELECTED' : '' %>><% $taxclass %>
-%   } 
-
-    </SELECT>
-
-% } else { 
-
-  <INPUT TYPE="hidden" NAME="taxclass" VALUE="<% $selected_taxclass %>">
-
-% } 
-
-<%init>
-
-my( $selected_taxclass, %opt ) = @_;
-my $conf = new FS::Conf;
-
-unless ( $opt{'taxclasses'} ) {
-
-  my $sth = dbh->prepare('SELECT DISTINCT taxclass FROM cust_main_county')
-     or die dbh->errstr;
-  $sth->execute or die $sth->errstr;
-  my %taxclasses = map { $_->[0] => 1 } @{$sth->fetchall_arrayref};
-  @{ $opt{'taxclasses'} } = grep $_, keys %taxclasses;
-
-}
-
-</%init>
diff --git a/httemplate/elements/selectlayers.html b/httemplate/elements/selectlayers.html
deleted file mode 100644
index 4496892ff..000000000
--- a/httemplate/elements/selectlayers.html
+++ /dev/null
@@ -1,201 +0,0 @@
-<%doc>
-
-Example:
-
-  include( '/elements/selectlayers.html',
-    'field'        => $key, # SELECT element NAME (passed as form field)
-                            # also used as ID and a unique key for layers and
-                            # functions
-    'curr_value'   => $selected_layer,
-    'options'      => [ 'option1', 'option2' ],
-    'labels'       => { 'option1' => 'Option 1 Label',
-                        'option2' => 'Option 2 Label',
-                      },
-
-    #XXX put this handling it its own selectlayers-fields.html element?
-    'layer_prefix' => 'prefix_', #optional prefix for fieldnames
-    'layer_fields' => [ 'layer'  => [ 'fieldname',
-                                      { label => 'fieldname2',
-                                        type  => 'text', #implemented:
-                                                         # text, money, fixed,
-                                                         # hidden, checkbox,
-                                                         # checkbox-multiple,
-                                                         # select, select-agent,
-                                                         # select-pkg_class,
-                                                         # select-part_referral,
-                                                         # select-table,
-                                                         #XXX tbd:
-                                                         # more?
-                                      },
-                                      ...
-                                    ],
-                        'layer2' => [ 'l2fieldname',
-                                      ...
-                                    ],
-
-    #current values for layer fields above
-    'layer_values' => { 'layer'  => { 'fieldname'  => 'current_value',
-                                      'fieldname2' => 'field2value',
-                                      ...
-                                    },
-                        'layer2' => { 'l2fieldname' => 'l2value',
-                                      ...
-                                    },
-                        ...
-                      },
-
-    'html_between  => '', #optional HTML displayed between the SELECT and the
-                          #layers, scalar or coderef ('field' passed as a param)
-    'onchange'     => '', #javascript code run when the SELECT changes
-                          # ("what" is the element)
-    'js_only'      => 0, #set true to return only the JS portions
-    'html_only'    => 0, #set true to return only the HTML portions
-  )
-
-</%doc>
-% unless ( $opt{html_only} || $opt{js_only} ) {
-    <SCRIPT TYPE="text/javascript">
-% }
-% unless ( $opt{html_only} ) {
-      //alert('start function define');
-      function <% $key %>changed(what) {
-
-        <% $opt{'onchange'} %>
-
-        var <% $key %>layer = what.options[what.selectedIndex].value;
-
-%       foreach my $layer ( keys %$options ) {
-
-          if (<% $key %>layer == "<% $layer %>" ) {
-
-%           foreach my $not ( grep { $_ ne $layer } keys %$options ) {
-%             my $element = "document.getElementById('${key}d$not').style";
-              <% $element %>.display = "none";
-              <% $element %>.zIndex = 0;
-%           }
-
-%           my $element = "document.getElementById('${key}d$layer').style";
-            <% $element %>.display = "";
-            <% $element %>.zIndex = 1;
-
-          }
-%       }
-
-        //<% $opt{'onchange'} %>
-
-      }
-      //alert('end function define');
-% }
-% unless ( $opt{html_only} || $opt{js_only} ) {
-    </SCRIPT>
-% }
-%
-% unless ( $opt{js_only} ) {
-
-    <SELECT NAME          = "<% $key %>"
-            ID            = "<% $key %>"
-            previousValue = "<% $selected %>"
-            previousText  = "<% $options{$selected} %>"
-            onChange="<% $key %>changed(this);"
-    >
-
-%     foreach my $option ( keys %$options ) {
-
-        <OPTION VALUE="<% $option %>"
-                <% $option eq $selected ? ' SELECTED' : '' %>
-        ><% $options->{$option} %></OPTION>
-
-%     }
-
-    </SELECT>
-
-<% ref($between) ? &{$between}($key) : $between %>
-
-%   foreach my $layer ( keys %$options ) {
-
-      <DIV ID="<% $key %>d<% $layer %>"
-           STYLE="<% $layer eq $selected
-                       ? 'display: ""  ; z-index: 1'
-                       : 'display: none; z-index: 0'
-                  %>"
-      >
-
-        <% layer_callback($layer, $layer_fields, $layer_values, $layer_prefix) %>
-
-      </DIV>
-
-%   }
-
-% }
-<%once>
-
-my $conf = new FS::Conf;
-my $money_char = $conf->config('money_char') || '$';
-
-</%once>
-<%init>
-
-my %opt = @_;
-
-#use Data::Dumper;
-#warn Dumper(%opt);
-
-my $key = $opt{field}; # || 'generate_one' #?
-
-tie my %options, 'Tie::IxHash',
-   map { $_ => $opt{'labels'}->{$_} }
-       @{ $opt{'options'} }; #just arrayref for now
-
-my $between = exists($opt{html_between}) ? $opt{html_between} : '';
-my $options = \%options;
-
-my $selected = exists($opt{curr_value}) ? $opt{curr_value} : '';
-
-#XXX eek.  also eek $layer_fields in the layer_callback() call...
-my $layer_fields = $opt{layer_fields};
-my $layer_values = $opt{layer_values};
-my $layer_prefix = $opt{layer_prefix};
-
-sub layer_callback {
-  my( $layer, $layer_fields, $layer_values, $layer_prefix ) = @_;
-
-  return  '' unless $layer && exists $layer_fields->{$layer};
-  tie my %fields, 'Tie::IxHash', @{ $layer_fields->{$layer} };
-
-  #XXX this should become an element itself... (false laziness w/edit.html)
-  # but at least all the elements inside are the shared mason elements now
-
-  return '' unless keys %fields;
-  my $html = "<TABLE>";
-
-  foreach my $field ( keys %fields ) {
-
-    my $lf = ref($fields{$field})
-               ? $fields{$field}
-               : { 'label'=>$fields{$field} };
-
-    my $value = $layer_values->{$layer}{$field};
-
-    my $type = $lf->{type} || 'text';
-
-    my $include = $type;
-    $include = "input-$include" if $include =~ /^(text|money)$/;
-    $include = "tr-$include" unless $include eq 'hidden';
-
-    $html .= include( "/elements/$include.html",
-                        %$lf,
-                        'field'      => "$layer_prefix$field",
-                        'id'         => "$layer_prefix$field", #separate?
-                        #don't want field0_label0...?
-                        'label_id'   => $layer_prefix.$field."_label",
-
-                        'value'      => ( $lf->{'value'} || $value ), #hmm.
-                        'curr_value' => $value,
-                    );
-
-  }
-  $html .= '</TABLE>';
-  return $html;
-}
-
-</%init>
diff --git a/httemplate/elements/small_custview.html b/httemplate/elements/small_custview.html
deleted file mode 100644
index 9060d897d..000000000
--- a/httemplate/elements/small_custview.html
+++ /dev/null
@@ -1,3 +0,0 @@
-% my $conf = new FS::Conf; 
-
-<% small_custview( shift, shift || scalar($conf->config('countrydefault')), @_ ) %>
diff --git a/httemplate/elements/table-grid.html b/httemplate/elements/table-grid.html
deleted file mode 100644
index e1e6c36dc..000000000
--- a/httemplate/elements/table-grid.html
+++ /dev/null
@@ -1,25 +0,0 @@
-<STYLE TYPE="text/css">
-
-.grid table { border: solid; empty-cells: show }
-.grid TH { padding-left: 3px; padding-right: 3px; border: 1px solid #dddddd; border-bottom: dashed 1px black; border-right: none }
-.grid TD { padding-left: 3px; padding-right: 3px; empty-cells: show; border: 1px solid #cccccc; border-bottom: none; border-right: none }
-
-.inv table { border: none }
-.inv TH { border: none }
-.inv TD { border: none }
-
-</STYLE>
-
-<TABLE CLASS="grid" CELLSPACING=<% $opt{cellspacing} %> CELLPADDING=<% $opt{cellpadding} %> BORDER=1 BORDERCOLOR="#000000" <% $opt{bgcolor} %> STYLE="border: solid 1px black; empty-cells: show">
-
-<%init>
-
-my %opt = @_;
-$opt{cellspacing} ||= 0;
-$opt{cellpadding} ||= 0;
-
-$opt{bgcolor} =~ s/^#//;
-$opt{bgcolor} = 'BGCOLOR="#'. $opt{bgcolor}. '"' if length($opt{bgcolor});
-
-</%init>
-
diff --git a/httemplate/elements/table.html b/httemplate/elements/table.html
deleted file mode 100644
index 8152b65d8..000000000
--- a/httemplate/elements/table.html
+++ /dev/null
@@ -1,11 +0,0 @@
-%
-%   my $color = shift;
-%   if ( $color ) {
-%
-
-    <TABLE BGCOLOR="<% $color %>" BORDER=1 WIDTH="100%" CELLSPACING=0 CELLPADDING=2 BORDERCOLOR="#999999">
-% } else { 
-
-    <TABLE BORDER=1 CELLSPACING=0 CELLPADDING=2 BORDERCOLOR="#999999">
-% } 
-
diff --git a/httemplate/elements/tablebreak-tr-title.html b/httemplate/elements/tablebreak-tr-title.html
deleted file mode 100644
index 35dc05d8b..000000000
--- a/httemplate/elements/tablebreak-tr-title.html
+++ /dev/null
@@ -1,5 +0,0 @@
-</TABLE>
-
-<TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0>
-
-<% include('tr-title.html', @_ ) %>
diff --git a/httemplate/elements/tr-checkbox-multiple.html b/httemplate/elements/tr-checkbox-multiple.html
deleted file mode 100644
index bb90a820b..000000000
--- a/httemplate/elements/tr-checkbox-multiple.html
+++ /dev/null
@@ -1,40 +0,0 @@
-<% include('tr-td-label.html', @_ ) %>
-
-  <TD <% $style %>>
-
-%   foreach my $option ( @{ $opt{options} } ) { #just arrayref for now
-
-      <INPUT TYPE  = "checkbox"
-             NAME  = "<% $opt{field} %>"
-             ID    = "<% $opt{id}.'_'.$option %>"
-             VALUE = "<% $option %>"
-             <% ref($value) && $value->{$option} || $value eq $option
-                  ? ' CHECKED' : ''
-             %>
-             <% $onchange %>
-
-      > <% $labels->{$option} %>
-
-      <BR>
-
-%   }
-
-  </TD>
-
-</TR>
-
-<%init>
-
-my %opt = @_;
-
-my $onchange = $opt{'onchange'}
-                 ? 'onChange="'. $opt{'onchange'}. '(this)"'
-                 : '';
-
-my $value = $opt{'curr_value'} || $opt{'value'};
-
-my $labels = $opt{'option_labels'} || $opt{'labels'};
-
-my $style = $opt{'cell_style'} ? 'STYLE="'. $opt{'cell_style'}. '"' : '';
-
-</%init>
diff --git a/httemplate/elements/tr-checkbox.html b/httemplate/elements/tr-checkbox.html
deleted file mode 100644
index 2e6d1f107..000000000
--- a/httemplate/elements/tr-checkbox.html
+++ /dev/null
@@ -1,25 +0,0 @@
-<% include('tr-td-label.html', @_ ) %>
-
-  <TD <% $style %>>
-    <INPUT TYPE  = "checkbox"
-           NAME  = "<% $opt{field} %>"
-           ID    = "<% $opt{id} %>"
-           VALUE = "<% $opt{value} %>"
-           <% $opt{curr_value} eq $opt{value} ? ' CHECKED' : '' %>
-           <% $onchange %>
-    >
-  </TD>
-
-</TR>
-
-<%init>
-
-my %opt = @_;
-
-my $onchange = $opt{'onchange'}
-                 ? 'onChange="'. $opt{'onchange'}. '(this)"'
-                 : '';
-
-my $style = $opt{'cell_style'} ? 'STYLE="'. $opt{'cell_style'}. '"' : '';
-
-</%init>
diff --git a/httemplate/elements/tr-fixed-country.html b/httemplate/elements/tr-fixed-country.html
deleted file mode 100644
index 806d92cd6..000000000
--- a/httemplate/elements/tr-fixed-country.html
+++ /dev/null
@@ -1,10 +0,0 @@
-<% include('tr-fixed.html', %opt ) %>
-<%init>
-
-my %opt = @_;
-
-my $value = $opt{'curr_value'} || $opt{'value'};
-
-$opt{'formatted_value'} = code2country($value). " ($value)";
-
-</%init>
diff --git a/httemplate/elements/tr-fixed-state.html b/httemplate/elements/tr-fixed-state.html
deleted file mode 100644
index eea30ddc5..000000000
--- a/httemplate/elements/tr-fixed-state.html
+++ /dev/null
@@ -1,10 +0,0 @@
-<% include('tr-fixed.html', %opt ) %>
-<%init>
-
-my %opt = @_;
-
-my $value = $opt{'curr_value'} || $opt{'value'};
-
-$opt{'formatted_value'} = state_label($value, $opt{'object'}->country);
-
-</%init>
diff --git a/httemplate/elements/tr-fixed.html b/httemplate/elements/tr-fixed.html
deleted file mode 100644
index 095e1bce9..000000000
--- a/httemplate/elements/tr-fixed.html
+++ /dev/null
@@ -1,15 +0,0 @@
-<% include('tr-td-label.html', @_ ) %>
-
-  <TD BGCOLOR="#dddddd" <% $style %>><% $opt{'formatted_value'} || $opt{'curr_value'} || $opt{'value'} |h %></TD>
-
-</TR>
-
-<% include('hidden.html', %opt ) %>
-
-<%init>
-
-my %opt = @_;
-
-my $style = $opt{'cell_style'} ? 'STYLE="'. $opt{'cell_style'}. '"' : '';
-
-</%init>
diff --git a/httemplate/elements/tr-freq.html b/httemplate/elements/tr-freq.html
deleted file mode 100644
index cb58bf6b5..000000000
--- a/httemplate/elements/tr-freq.html
+++ /dev/null
@@ -1,54 +0,0 @@
-<% include('tr-td-label.html', @_) %>
-
-  <TD <% $style %>>
-
-    <INPUT TYPE  = "text"
-           SIZE  = "<% $opt{'size'} || 4 %>"
-           NAME  = "<% $opt{'field'} || 'freq' %>"
-           ID    = "<% $opt{'id'} %>"
-           VALUE = "<% $curr_value %>"
-    >
-
-    <SELECT NAME = "<% $opt{'field'} || 'freq' %>_units">
-%     foreach my $freq ( keys %freq ) {
-        <OPTION VALUE="<% $freq %>"
-                <% $freq eq $units ? 'SELECTED' : '' %>
-        ><% $freq{$freq} %>
-%     }
-    </SELECT>
-
-  </TD>
-
-</TR>
-
-<%once>
-
-  tie my %freq, 'Tie::IxHash',
-    #'y' => 'years',
-    'm' => 'months',
-    'w' => 'weeks',
-    'd' => 'days',
-    'h' => 'hours',
-  ;
-
-</%once>
-<%init>
-
-my %opt = @_;
-
-my $onchange = $opt{'onchange'}
-                 ? 'onChange="'. $opt{'onchange'}. '(this)"'
-                 : '';
-
-my $style = $opt{'cell_style'} ? 'STYLE="'. $opt{'cell_style'}. '"' : '';
-
-my $curr_value = $opt{'curr_value'} || $opt{'value'};
-my $units = 'm';
-
-if ( $curr_value =~ /^(\d*)([mwdh])$/i ) {
-  $curr_value = $1;
-  $units = lc($2);
-}
-
-</%init>
-
diff --git a/httemplate/elements/tr-input-beginning_ending.html b/httemplate/elements/tr-input-beginning_ending.html
deleted file mode 100644
index 8a1dd62a9..000000000
--- a/httemplate/elements/tr-input-beginning_ending.html
+++ /dev/null
@@ -1,75 +0,0 @@
-% unless ( $m->count == $previous_request_count ) {
-  <LINK REL="stylesheet" TYPE="text/css" HREF="<%$fsurl%>elements/calendar-win2k-2.css" TITLE="win2k-2">
-  <SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/calendar_stripped.js"></SCRIPT>
-  <SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/calendar-en.js"></SCRIPT>
-  <SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/calendar-setup.js"></SCRIPT>
-% }
-
-<TR>
-  <TD ALIGN="right">From date: </TD>
-  <TD><INPUT TYPE="text" NAME="<% $opt{prefix} %>beginning" ID="<% $opt{prefix} %>beginning_text" VALUE="" SIZE=<%$size%> MAXLENGTH=<%$maxlength%>> <IMG SRC="<%$fsurl%>images/calendar.png" ID="<% $opt{prefix} %>beginning_button" STYLE="cursor: pointer" TITLE="Select date"><IMG SRC="<%$fsurl%>images/calendar-disabled.png" ID="<% $opt{prefix} %>beginning_disabled" STYLE="display:none"><BR><i>m/d/y<% $time_hint %></i></TD>
-<SCRIPT TYPE="text/javascript">
-  Calendar.setup({
-    inputField: "<% $opt{prefix} %>beginning_text",
-    ifFormat:   "%m/%d/%Y<% $time_format %>",
-    button:     "<% $opt{prefix} %>beginning_button",
-    align:      "BR"
-    <% $input_time %>
-  });
-</SCRIPT>
-
-% unless ( $opt{layout} =~ /^h/i ) { #horizontal
-
-</TR>
-<TR>
-
-% }
-
-  <TD ALIGN="right">To date: </TD>
-  <TD><INPUT TYPE="text" NAME="<% $opt{prefix} %>ending" ID="<% $opt{prefix} %>ending_text" VALUE="" SIZE=<%$size%> MAXLENGTH=<%$maxlength%>> <IMG SRC="<%$fsurl%>images/calendar.png" ID="<% $opt{prefix} %>ending_button" STYLE="cursor: pointer" TITLE="Select date"><IMG SRC="<%$fsurl%>images/calendar-disabled.png" ID="<% $opt{prefix} %>ending_disabled" STYLE="display:none"><BR><i>m/d/y<% $time_hint %></i></TD>
-<SCRIPT TYPE="text/javascript">
-  Calendar.setup({
-    inputField: "<% $opt{prefix} %>ending_text",
-    ifFormat:   "%m/%d/%Y<% $time_format %>",
-    button:     "<% $opt{prefix} %>ending_button",
-    align:      "BR"
-    <% $input_time %>
-  });
-</SCRIPT>
-</TR>
-
-<TR>
-  <TD></TD>
-  <TD COLSPAN=<% $opt{layout} =~ /^h/i ? 3 : 1 %>>
-    <FONT SIZE="-1">(leave one or both dates blank for an open-ended search)</FONT>
-  </TD>
-</TR>
-
-<%once>
-
-my $previous_request_count = '';
-
-</%once>
-<%init>
-
-my %opt = @_;
-
-$opt{prefix} = '' unless defined $opt{prefix};
-$opt{prefix} .= '_' if $opt{prefix};
-
-my( $input_time, $time_format, $time_hint ) = ( '', '', '' );
-my( $size, $maxlength ) = ( 11, 10 );
-if ( $opt{'input_time'} ) {
-  $input_time  = ', showsTime: true, timeFormat: "12"'; # http://www.dynarch.com/demos/jscalendar/doc/html/reference.html#node_sec_2.3
-  $time_format = ' %k:%M:%S'; # http://www.dynarch.com/demos/jscalendar/doc/html/reference.html#node_sec_5.3.5
-  $time_hint   = ' h:m:s';
-  $size = 21;
-  $maxlength = 27;
-}
-
-</%init>
-<%cleanup>
-
-$previous_request_count = $m->count;
-
-</%cleanup>
diff --git a/httemplate/elements/tr-input-date-field.html b/httemplate/elements/tr-input-date-field.html
deleted file mode 100644
index 11581d5bc..000000000
--- a/httemplate/elements/tr-input-date-field.html
+++ /dev/null
@@ -1,40 +0,0 @@
-
-<LINK REL="stylesheet" TYPE="text/css" HREF="<%$fsurl%>elements/calendar-win2k-2.css" TITLE="win2k-2">
-<SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/calendar_stripped.js"></SCRIPT>
-<SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/calendar-en.js"></SCRIPT>
-<SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/calendar-setup.js"></SCRIPT>
-
-<TR>
-  <TD ALIGN="right"><% $label %></TD>
-  <TD>
-    <INPUT TYPE="text" NAME="<% $name %>" ID="<% $name %>_text" VALUE="<% $value %>">
-    <IMG SRC="<%$fsurl%>images/calendar.png" ID="<% $name  %>_button" STYLE="cursor: pointer" TITLE="Select date">
-  </TD>
-</TR>
-
-<SCRIPT TYPE="text/javascript">
-  Calendar.setup({
-    inputField: "<% $name %>_text",
-    ifFormat:   "<% $format %>",
-    button:     "<% $name %>_button",
-    align:      "BR"
-  });
-</SCRIPT>
-
-
-<%init>
-my($name, $value, $label, $format, $usedatetime) = @_;
-
-$format = "%m/%d/%Y" unless $format;
-$label = $name unless $label;
-
-if ($usedatetime) {
-  my $dt = DateTime->from_epoch(epoch => $value, time_zone => 'floating');
-  $value = $dt->strftime($format)
-    unless $value eq '';
-}else{
-  $value = time2str($format, $value);
-}
-
-</%init>
-
diff --git a/httemplate/elements/tr-input-lessthan_greaterthan.html b/httemplate/elements/tr-input-lessthan_greaterthan.html
deleted file mode 100644
index 16c2ed9fc..000000000
--- a/httemplate/elements/tr-input-lessthan_greaterthan.html
+++ /dev/null
@@ -1,13 +0,0 @@
-<TR>
-  <TD ALIGN="right"><% $opt{label} %> less than: </TD>
-  <TD><INPUT TYPE="text" NAME="<% $opt{field} %>_lt" SIZE=7></TD>
-</TR>
-
-<TR>
-  <TD ALIGN="right"><% $opt{label} %> greater than: </TD>
-  <TD><INPUT TYPE="text" NAME="<% $opt{field} %>_gt" SIZE=7></TD>
-</TR>
-
-<%init>
-  my %opt = @_;
-</%init>
diff --git a/httemplate/elements/tr-input-money.html b/httemplate/elements/tr-input-money.html
deleted file mode 100644
index 88014192d..000000000
--- a/httemplate/elements/tr-input-money.html
+++ /dev/null
@@ -1,13 +0,0 @@
-<% include('tr-input-text.html', @_,
-             'type'   => 'text',
-             'prefix' => $money_char,
-             'size'   => 8,
-          )
-%>
-<%once>
-
-my $conf = new FS::Conf;
-my $money_char = $conf->config('money_char') || '$';
-
-</%once>
-
diff --git a/httemplate/elements/tr-input-percentage.html b/httemplate/elements/tr-input-percentage.html
deleted file mode 100644
index ae553a93c..000000000
--- a/httemplate/elements/tr-input-percentage.html
+++ /dev/null
@@ -1,8 +0,0 @@
-<% include('tr-input-text.html', @_,
-             'type'       => 'text',
-             'postfix'    => '%',
-             'size'       => 5, #6?  check in IE (not a big deal)
-             'maxlength'  => 7,
-             'text-align' => 'right',
-          )
-%>
diff --git a/httemplate/elements/tr-input-text.html b/httemplate/elements/tr-input-text.html
deleted file mode 100644
index c8bec5ea6..000000000
--- a/httemplate/elements/tr-input-text.html
+++ /dev/null
@@ -1,44 +0,0 @@
-<% include('tr-td-label.html', @_ ) %>
-
-  <TD <% $style %>>
-
-    <% $opt{'prefix'} %><INPUT TYPE  = "<% $opt{type} || 'text' %>"
-                               NAME  = "<% $opt{field} %>"
-                               ID    = "<% $opt{id} %>"
-                               VALUE = "<% $value |h %>"
-                               <% $size %>
-                               <% $maxlength %>
-                               <% $align %>
-                               <% $onchange %>
-                        ><% $opt{'postfix'} %>
-
-  </TD>
-
-</TR>
-
-<%init>
-
-my %opt = @_;
-
-my $value = length($opt{curr_value}) ? $opt{curr_value} : $opt{value};
-
-my $onchange = $opt{'onchange'}
-                 ? 'onChange="'. $opt{'onchange'}. '(this)"'
-                 : '';
-
-my $size = $opt{'size'}
-             ? 'SIZE="'. $opt{'size'}. '"'
-             : '';
-
-my $maxlength = $opt{'maxlength'}
-                ? 'MAXLENGTH="'. $opt{'maxlength'}. '"'
-                : '';
-
-my $align = $opt{'text-align'}
-                ? 'STYLE="text-align: '. $opt{'text-align'}. '"'
-                : '';
-
-
-my $style = $opt{'cell_style'} ? 'STYLE="'. $opt{'cell_style'}. '"' : '';
-
-</%init>
diff --git a/httemplate/elements/tr-password.html b/httemplate/elements/tr-password.html
deleted file mode 100644
index bbc624d8c..000000000
--- a/httemplate/elements/tr-password.html
+++ /dev/null
@@ -1,4 +0,0 @@
-<% include('tr-input-text.html', @_,
-             'type'   => 'password',
-          )
-%>
diff --git a/httemplate/elements/tr-select-access_group.html b/httemplate/elements/tr-select-access_group.html
deleted file mode 100644
index e443ad26a..000000000
--- a/httemplate/elements/tr-select-access_group.html
+++ /dev/null
@@ -1,22 +0,0 @@
-%
-%  my( $groupnum, %opt ) = @_;
-%
-%  $opt{'access_group'} ||= [ qsearch( 'access_group', {} ) ]; # { disabled=>'' } )
-%
-%  #warn "***** tr-select-access_group: \n". Dumper(%opt);
-%
-% if ( scalar(@{ $opt{'access_group'} }) == 0 ) { 
-
-
-  <INPUT TYPE="hidden" NAME="groupnum" VALUE="">
-% } else { 
-
-
-  <TR>
-    <TD ALIGN="right"><% $opt{'label'} || 'Access group' %></TD>
-    <TD>
-      <% include( '/elements/select-access_group.html', $groupnum, %opt ) %>
-    </TD>
-  </TR>
-% } 
-
diff --git a/httemplate/elements/tr-select-agent.html b/httemplate/elements/tr-select-agent.html
deleted file mode 100644
index 69cd95cb0..000000000
--- a/httemplate/elements/tr-select-agent.html
+++ /dev/null
@@ -1,37 +0,0 @@
-% if ( scalar(@agents) == 1 ) { 
-
-  <INPUT TYPE="hidden" NAME="<% $opt{'field'} || 'agentnum' %>" VALUE="<% $agents[0]->agentnum %>">
-
-% } else { 
-
-  <TR>
-    <TD ALIGN="right"><% $opt{'label'} || 'Agent' %></TD>
-    <TD>
-      <% include( '/elements/select-agent.html',
-                     'curr_value' => $agentnum,
-                     'agents'     => \@agents,
-                     %opt,
-                 )
-      %>
-    </TD>
-  </TR>
-
-% } 
-
-<%init>
-
-my %opt = @_;
-my $agentnum = $opt{'curr_value'} || $opt{'value'};
-
-my @agents;
-if ( $opt{'agents'} ) {
-  #@agents = @{ $opt{'agents'} };
-  #here is the agent virtualization
-  my $agentnums_href = $FS::CurrentUser::CurrentUser->agentnums_href;
-  @agents = grep $agentnums_href->{$_->agentnum}, @{ $opt{'agents'} };
-  delete $opt{'agents'};
-} else {
-  @agents = $FS::CurrentUser::CurrentUser->agents;
-}
-
-</%init>
diff --git a/httemplate/elements/tr-select-agent_type.html b/httemplate/elements/tr-select-agent_type.html
deleted file mode 100644
index 1b0dfd445..000000000
--- a/httemplate/elements/tr-select-agent_type.html
+++ /dev/null
@@ -1,39 +0,0 @@
-% if ( scalar(@agent_types) == 1 ) { 
-
-  <INPUT TYPE="hidden" NAME="<% $opt{'field'} || 'typenum' %>" VALUE="<% $agent_types[0]->typenum %>">
-
-% } else { 
-
-  <TR>
-    <TD ALIGN="right"><% $opt{'label'} || 'Agent Type' %></TD>
-    <TD>
-      <% include( '/elements/select-agent_type.html',
-                     'curr_value'  => $typenum,
-                     'agent_types' => \@agent_types,
-                     %opt,
-                 )
-      %>
-    </TD>
-  </TR>
-
-% } 
-
-<%init>
-
-my %opt = @_;
-my $typenum = $opt{'curr_value'} || $opt{'value'};
-
-my @agent_types = ();
-if ( $opt{'agent_types'} ) {
-  #@agents = @{ $opt{'agents'} };
-
-  #here is the agent virtualization
-#  my $agentnums_href = $FS::CurrentUser::CurrentUser->agentnums_href;
-#  @agent_types = grep $agentnums_href->{$_->agentnum}, @{ $opt{'agent_types'} };
-
-  delete $opt{'agent_types'};
-} else {
-#  @agents = $FS::CurrentUser::CurrentUser->agents;
-}
-
-</%init>
diff --git a/httemplate/elements/tr-select-cust-fields.html b/httemplate/elements/tr-select-cust-fields.html
deleted file mode 100644
index 80562fe3d..000000000
--- a/httemplate/elements/tr-select-cust-fields.html
+++ /dev/null
@@ -1,15 +0,0 @@
-%
-%  my( $cust_fields, %opt ) = @_;
-%
-%  use FS::ConfDefaults;
-%  $opt{'avail_fields'} ||= [ FS::ConfDefaults->cust_fields_avail() ];
-%
-%
-
-
-<TR>
-  <TD ALIGN="right"><% $opt{'label'} || 'Customer fields' %></TD>
-  <TD>
-    <% include( '/elements/select-cust-fields.html', $cust_fields, %opt ) %>
-  </TD>
-</TR>
diff --git a/httemplate/elements/tr-select-cust_main-status.html b/httemplate/elements/tr-select-cust_main-status.html
deleted file mode 100644
index 6700d7ed9..000000000
--- a/httemplate/elements/tr-select-cust_main-status.html
+++ /dev/null
@@ -1,29 +0,0 @@
-<% include ('tr-td-label.html', @_ ) %>
-
-  <TD <% $style %>>
-
-    <% include( '/elements/select-cust_main-status.html', 
-                  'curr_value' => $curr_value,
-                  %opt
-              )
-    %>
-
-  </TD>
-
-</TR>
-
-<%init>
-
-my %opt = @_;
-
-#my $onchange = $opt{'onchange'}
-#                 ? 'onChange="'. $opt{'onchange'}. '(this)"'
-#                 : '';
-
-my $style = $opt{'cell_style'} ? 'STYLE="'. $opt{'cell_style'}. '"' : '';
-
-$opt{'statuses'} ||= [ FS::cust_main->statuses() ]; # { disabled=>'' } )
-
-my $curr_value = $opt{'curr_value'} || $opt{'value'};
-
-</%init>
diff --git a/httemplate/elements/tr-select-cust_pkg-status.html b/httemplate/elements/tr-select-cust_pkg-status.html
deleted file mode 100644
index 6cc29d0aa..000000000
--- a/httemplate/elements/tr-select-cust_pkg-status.html
+++ /dev/null
@@ -1,29 +0,0 @@
-<% include ('tr-td-label.html', 'label' => 'Status', @_ ) %>
-
-  <TD <% $style %>>
-
-    <% include( '/elements/select-cust_pkg-status.html', 
-                  'curr_value'  => $curr_value,
-                  %opt
-              )
-    %>
-
-  </TD>
-
-</TR>
-
-<%init>
-
-my %opt = @_;
-
-#my $onchange = $opt{'onchange'}
-#                 ? 'onChange="'. $opt{'onchange'}. '(this)"'
-#                 : '';
-
-my $style = $opt{'cell_style'} ? 'STYLE="'. $opt{'cell_style'}. '"' : '';
-
-$opt{'statuses'} ||= [ FS::cust_pkg->statuses() ]; # { disabled=>'' } )
-
-my $curr_value = $opt{'curr_value'} || $opt{'value'};
-
-</%init>
diff --git a/httemplate/elements/tr-select-from_to.html b/httemplate/elements/tr-select-from_to.html
deleted file mode 100644
index 083243d40..000000000
--- a/httemplate/elements/tr-select-from_to.html
+++ /dev/null
@@ -1,52 +0,0 @@
-%
-%
-%  #my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
-%  my ($curmon,$curyear) = (localtime(time))[4,5];
-%  
-%  #find first month
-%  my $syear = 1899+$curyear;
-%  my $smonth = $curmon+1;
-%  
-%  #want 12 month by default, not 13
-%  $smonth++;
-%  if ( $smonth > 12 ) { $smonth-=12; $syear++ }
-%  
-%  #find last month
-%  my $eyear = 1900+$curyear;
-%  my $emonth = $curmon+1;
-%
-%  my %hash = (
-%    'show_month_abbr' => 1,
-%    'start_year'      => '1999',
-%    'end_year'        => '2012', #haha, well...
-%     @_,
-%  );
-%
-%
-
-
-<TR>
-  <TD ALIGN="right">From: </TD>
-  <TD>
-    <% include('/elements/select-month_year.html',
-                  'prefix'        => 'start',
-                  'selected_mon'  => $smonth,
-                  'selected_year' => $syear,
-                  %hash,
-               )
-    %>
-  </TD>
-</TR>
-
-<TR>
-  <TD ALIGN="right">To: </TD>
-  <TD>
-    <% include('/elements/select-month_year.html',
-                  'prefix'        => 'end',
-                  'selected_mon'  => $emonth,
-                  'selected_year' => $eyear,
-                  %hash,
-               )
-    %>
-  </TD>
-</TR>
diff --git a/httemplate/elements/tr-select-invoice_template.html b/httemplate/elements/tr-select-invoice_template.html
deleted file mode 100644
index 7ba8d9907..000000000
--- a/httemplate/elements/tr-select-invoice_template.html
+++ /dev/null
@@ -1,39 +0,0 @@
-<% include('tr-td-label.html', @_) %>
-
-  <TD <% $style %>>
-
-    <SELECT NAME = "<% $opt{'field'} || 'templatename' %>"
-            ID   = "<% $opt{'id'} %>"
-    >
-
-%     foreach my $templatename ( '', @templatenames ) {
-            
-        <OPTION VALUE="<% $templatename %>"
-                <% $templatename eq $curr_value ? 'SELECTED' : '' %>
-        ><% $templatename || '(Default)' %>
-
-%     }
-
-    </SELECT>
-
-  </TD>
-
-</TR>
-
-<%init>
-
-my %opt = @_;
-
-my $onchange = $opt{'onchange'}
-                 ? 'onChange="'. $opt{'onchange'}. '(this)"'
-                 : '';
-
-my $style = $opt{'cell_style'} ? 'STYLE="'. $opt{'cell_style'}. '"' : '';
-
-my $curr_value = $opt{'curr_value'} || $opt{'value'};
-
-my $conf = new FS::Conf;
-
-my @templatenames = $conf->invoice_templatenames;
-
-</%init>
diff --git a/httemplate/elements/tr-select-otaker.html b/httemplate/elements/tr-select-otaker.html
deleted file mode 100644
index edf62dceb..000000000
--- a/httemplate/elements/tr-select-otaker.html
+++ /dev/null
@@ -1,10 +0,0 @@
-<TR>
-  <TD ALIGN="right"><% $opt{'label'} || 'Employee: ' %></TD>
-  <TD><% include('select-otaker.html', %opt) %></TD>
-</TR>
-
-<%init>
-
-my %opt = @_;
-
-</%init>
diff --git a/httemplate/elements/tr-select-part_pkg.html b/httemplate/elements/tr-select-part_pkg.html
deleted file mode 100644
index b6d4d4d9e..000000000
--- a/httemplate/elements/tr-select-part_pkg.html
+++ /dev/null
@@ -1,29 +0,0 @@
-% if ( scalar(@{ $opt{'part_pkg'} }) == 0 ) { 
-
-  <INPUT TYPE="hidden" NAME="<% $opt{'field'} || 'pkgpart' %>" VALUE="">
-
-% } else { 
-
-  <TR>
-    <TD ALIGN="right"><% $opt{'label'} || 'Package definition' %></TD>
-    <TD>
-      <% include( '/elements/select-table.html',
-                    'table'     => 'part_pkg',
-                    'name_col'  => 'pkg',
-                    'multiple'  => 1,
-                    #N/A 'empty_label' => '(none)',
-                    %opt,
-                )
-      %>
-    </TD>
-  </TR>
-
-% } 
-
-<%init>
-
-my( %opt ) = @_;
-
-$opt{'part_pkg'} ||= [ qsearch( 'part_pkg', {} ) ]; # { disabled=>'' } )
-
-</%init>
diff --git a/httemplate/elements/tr-select-part_referral.html b/httemplate/elements/tr-select-part_referral.html
deleted file mode 100644
index 62795e9b2..000000000
--- a/httemplate/elements/tr-select-part_referral.html
+++ /dev/null
@@ -1,35 +0,0 @@
-% if ( scalar( @{$opt{'part_referrals'}} ) == 0 ) {
-    <P><FONT SIZE="+1" COLOR="#ff0000">You have not created any advertising sources.  You must create at least one advertising source before adding a customer.  Go to <A HREF="<% popurl(2) %>browse/part_referral.html">advertising source listing</A> and create one or more advertising sources.</FONT>
-%   } elsif ( scalar( @{$opt{'part_referrals'}} ) == 1 ) {
-
-     <INPUT TYPE="hidden" NAME="<% $opt{'element_name'} || $opt{'field'} || 'refnum' %>" VALUE="<% $opt{'part_referrals'}->[0]->refnum %>">
-
-% } else { 
-
-     <TR>
-%      if ( $opt{'label'} ) {
-         <TD ALIGN="right"><% $opt{'label'} %></TD>
-%      } else {
-         <TH ALIGN="right"><%$r%>Advertising source</TH>
-%      }
-       <TD>
-         <% include( '/elements/select-part_referral.html',
-                       'curr_value' => $refnum,
-                       %opt
-                   )
-         %>
-       </TD>
-     </TR>
-
-% } 
-<%init>
-
-my %opt = @_;
-my $refnum = $opt{'curr_value'} || $opt{'value'};
-
-$opt{'part_referrals'} ||=
-  [ FS::part_referral->all_part_referral( 1 ) ]; #1: include global
-
-my $r = qq!<font color="#ff0000">*</font> !;
-
-</%init>
diff --git a/httemplate/elements/tr-select-part_svc.html b/httemplate/elements/tr-select-part_svc.html
deleted file mode 100644
index 0274ef12a..000000000
--- a/httemplate/elements/tr-select-part_svc.html
+++ /dev/null
@@ -1,29 +0,0 @@
-% if ( scalar(@{ $opt{'part_svc'} }) == 0 ) { 
-
-  <INPUT TYPE="hidden" NAME="<% $opt{'field'} || 'svcpart' %>" VALUE="">
-
-% } else { 
-
-  <TR>
-    <TD ALIGN="right"><% $opt{'label'} || 'Package definition' %></TD>
-    <TD>
-      <% include( '/elements/select-table.html',
-                    'table'     => 'part_svc',
-                    'name_col'  => 'svc',
-                    'multiple'  => 1,
-                    #N/A 'empty_label' => '(none)',
-                    %opt,
-                )
-      %>
-    </TD>
-  </TR>
-
-% } 
-
-<%init>
-
-my( %opt ) = @_;
-
-$opt{'part_svc'} ||= [ qsearch( 'part_svc', {} ) ]; # { disabled=>'' } )
-
-</%init>
diff --git a/httemplate/elements/tr-select-payby.html b/httemplate/elements/tr-select-payby.html
deleted file mode 100644
index 354eb5580..000000000
--- a/httemplate/elements/tr-select-payby.html
+++ /dev/null
@@ -1,37 +0,0 @@
-<% include ('tr-td-label.html', 'label' => 'Payment type', @_ ) %>
-
-  <TD <% $style %>>
-
-    <% include( '/elements/select-payby.html', 
-                  'curr_value'  => $curr_value,
-                  %opt
-              )
-    %>
-
-  </TD>
-
-</TR>
-
-<%init>
-
-my %opt = @_;
-
-#my $onchange = $opt{'onchange'}
-#                 ? 'onChange="'. $opt{'onchange'}. '(this)"'
-#                 : '';
-
-my $style = $opt{'cell_style'} ? 'STYLE="'. $opt{'cell_style'}. '"' : '';
-
-my $method = 'payby2longname';
-$method = 'cust_payby2longname'  if $opt{'payby_type'} eq 'cust';
-#$method = 'event_payby2longname' if $opt{'payby_type'} eq 'event';
-#$method = 'pay_payby2longname'   if $opt{'payby_type'} eq 'pay';
-
-unless ( $opt{'paybys'} ) {
-  tie %{ $opt{'paybys'} }, 'Tie::IxHash', FS::payby->$method();
-}
-
-my $curr_value = $opt{'curr_value'} || $opt{'value'};
-
-</%init>
-
diff --git a/httemplate/elements/tr-select-pkg_class.html b/httemplate/elements/tr-select-pkg_class.html
deleted file mode 100644
index aa2760996..000000000
--- a/httemplate/elements/tr-select-pkg_class.html
+++ /dev/null
@@ -1,27 +0,0 @@
-% if ( scalar(@{ $opt{'pkg_class'} }) == 0 ) { 
-
-  <INPUT TYPE="hidden" NAME="<% $opt{'field'} || 'classnum' %>" VALUE="">
-
-% } else { 
-
-  <TR>
-    <TD ALIGN="right"><% $opt{'label'} || 'Package class' %></TD>
-    <TD>
-      <% include( '/elements/select-pkg_class.html',
-                    'curr_value' => $classnum,
-                    %opt
-                )
-      %>
-    </TD>
-  </TR>
-
-% } 
-
-<%init>
-
-my %opt = @_;
-my $classnum = $opt{'curr_value'} || $opt{'value'};
-
-$opt{'pkg_class'} ||= [ qsearch( 'pkg_class', {} ) ]; # { disabled=>'' } )
-
-</%init>
diff --git a/httemplate/elements/tr-select-reason.html b/httemplate/elements/tr-select-reason.html
deleted file mode 100755
index 4051e7d20..000000000
--- a/httemplate/elements/tr-select-reason.html
+++ /dev/null
@@ -1,149 +0,0 @@
-<SCRIPT TYPE="text/javascript">
-  function sh_add<% $func_suffix %>()
-  {
-
-    if (document.getElementById('<% $id %>').selectedIndex == 0){
-      <% $controlledbutton ? $controlledbutton.'.disabled = true;' : ';' %>
-    }else{
-      <% $controlledbutton ? $controlledbutton.'.disabled = false;' : ';' %>
-    }
-
-%if ($curuser->access_right($add_access_right)){
-
-    if (document.getElementById('<% $id %>').selectedIndex == 
-         (document.getElementById('<% $id %>').length - 1)) {
-      document.getElementById('new<% $id %>').disabled = false;
-      document.getElementById('new<% $id %>').style.display = 'inline';
-      document.getElementById('new<% $id %>Label').style.display = 'inline';
-      document.getElementById('new<% $id %>T').disabled = false;
-      document.getElementById('new<% $id %>T').style.display = 'inline';
-      document.getElementById('new<% $id %>TLabel').style.display = 'inline';
-    } else {
-      document.getElementById('new<% $id %>').disabled = true;
-      document.getElementById('new<% $id %>').style.display = 'none';
-      document.getElementById('new<% $id %>Label').style.display = 'none';
-      document.getElementById('new<% $id %>T').disabled = true;
-      document.getElementById('new<% $id %>T').style.display = 'none';
-      document.getElementById('new<% $id %>TLabel').style.display = 'none';
-    }
-
-%}
-
-  }
-</SCRIPT>
-
-<TR>
-  <TD ALIGN="right">Reason</TD>
-  <TD>
-    <SELECT id="<% $id %>" name="<% $name %>" onFocus="sh_add<% $func_suffix %>()" onChange="sh_add<% $func_suffix %>()">
-      <OPTION VALUE="" <% ($init_reason eq "") ? 'SELECTED' : '' %>>Select Reason...</OPTION>
-%    foreach my $reason (@reasons) {
-      <OPTION VALUE="<% $reason->reasonnum %>" <% ($init_reason == $reason->reasonnum) ? 'SELECTED' : '' %>><% $reason->reasontype->type %> : <% $reason->reason %></OPTION>
-%    }
-%    if ($curuser->access_right($add_access_right)) {
-      <OPTION VALUE="-1" <% ($init_reason == -1) ? 'SELECTED' : '' %>>Add new reason</OPTION>
-%    }
-%
-    </SELECT>
-  </TD>
-</TR>
-
-%   my @types = qsearch( 'reason_type', { 'class' => $class } );
-%   if (scalar(@types) < 1) {  # we should never reach this
-<TR>
-  <TD ALIGN="right">
-    <P>No reason types.  Go add some. </P>
-  </TD>
-</TR>
-%   }elsif (scalar(@types) == 1) {
-<TR>
-  <TD ALIGN="right">
-    <P id="new<% $name %>TLabel" style="display:<% $display %>">Reason Type</P>
-  </TD>
-  <TD>
-    <P id="new<% $name %>T" disabled="<% $disabled %>" style="display:<% $display %>"><% $types[0]->type %>
-    <INPUT type="hidden" name="new<% $name %>T" value="<% $types[0]->typenum %>">
-  </TD>
-</TR>
-
-%   }else{
-
-<TR>
-  <TD ALIGN="right">
-    <P id="new<% $id %>TLabel" style="display:<% $display %>">Reason Type</P>
-  </TD>
-  <TD>
-    <SELECT id="new<% $id %>T" name="new<% $name %>T" "<% $disabled %>" style="display:<% $display %>">
-%     for my $type (@types) {
-        <OPTION VALUE="<% $type->typenum %>" <% ($init_type == $type->typenum) ? 'SELECTED' : '' %>><% $type->type %></OPTION>
-%     }
-    </SELECT>
-  </TD>
-</TR>
-%   }
-
-<TR>
-  <TD ALIGN="right">
-    <P id="new<% $id %>Label" style="display:<% $display %>">New Reason</P>
-  </TD>
-  <TD><INPUT id="new<% $id %>" name="new<% $name %>" type="text" value="<% $init_newreason |h %>" "<% $disabled %>" style="display:<% $display %>"></TD>
-</TR>
-
-<%init>
-
-my %opt = @_;
-
-my $name = $opt{'field'};
-my $class = $opt{'reason_class'};
-my $init_reason = $opt{'curr_value'};
-
-my $controlledbutton = $opt{'control_button'};
-
-( my $func_suffix = $name ) =~ s/\./_/g;
-
-my $id = $opt{'id'} || $func_suffix;
-
-my( $add_access_right, $access_right ); 
-if ($class eq 'C') {
-  $access_right = 'Cancel customer';
-  $add_access_right = 'Add on-the-fly cancel reason';
-} elsif ($class eq 'S') {
-  $access_right = 'Suspend customer package';
-  $add_access_right = 'Add on-the-fly suspend reason';
-} elsif ($class eq 'R') {
-  $access_right = 'Post credit';
-  $add_access_right = 'Add on-the-fly credit reason';
-} else {
-  die "illegal class: $class";
-}
-
-my( $display, $disabled ) = ( 'none', 'DISABLED' );
-my( $init_type, $init_newreason ) = ( '', '' );
-if ($init_reason == -1 || ref($init_reason) ) {
-
-  $display = 'inline';
-  $disabled = '';
-
-  if ( ref($init_reason) ) {
-    $init_type      = $init_reason->{'typenum'};
-    $init_newreason = $init_reason->{'reason'};
-    $init_reason = -1;
-  }
-
-}
-
-my $extra_sql =
-  "WHERE class = '$class' and (disabled = '' OR disabled is NULL)";
-
-my @reasons = qsearch({
-  table     => 'reason', 
-  hashref   => {},
-  extra_sql => $extra_sql,
-  addl_from => 'LEFT JOIN reason_type '.
-               ' ON reason_type.typenum = reason.reason_type',
-  order_by  => 'ORDER BY reason_type.type ASC, reason.reason ASC',
-});
-
-my $curuser = $FS::CurrentUser::CurrentUser;
-
-</%init>
diff --git a/httemplate/elements/tr-select-taxclass.html b/httemplate/elements/tr-select-taxclass.html
deleted file mode 100644
index 3bba683f8..000000000
--- a/httemplate/elements/tr-select-taxclass.html
+++ /dev/null
@@ -1,33 +0,0 @@
-% if ( ! $conf->exists('enable_taxclasses')
-%      || scalar(@{ $opt{'taxclasses'} }) == 0
-% ) { 
-
-  <INPUT TYPE="hidden" NAME=""<% $opt{'element_name'} || $opt{'field'} || 'taxclass' %>" VALUE="<% $taxclass %>">
-
-% } else { 
-
-  <TR>
-    <TD ALIGN="right"><% $opt{'label'} || 'Tax class: ' %></TD>
-    <TD>
-      <% include( '/elements/select-taxclass.html', $taxclass, %opt ) %>
-    </TD>
-  </TR>
-
-% } 
-<%init>
-
-my( $taxclass, %opt ) = @_;
-my $conf = new FS::Conf;
-
-unless ( $opt{'taxclasses'} ) {
-
-  #my $sth = dbh->prepare('SELECT DISTINCT taxclass FROM cust_main_county')
-  my $sth = dbh->prepare('SELECT taxclass FROM part_pkg_taxclass')
-    or die dbh->errstr;
-  $sth->execute or die $sth->errstr;
-  my %taxclasses = map { $_->[0] => 1 } @{$sth->fetchall_arrayref};
-  @{ $opt{'taxclasses'} } = grep $_, keys %taxclasses;
-
-}
-
-</%init>
diff --git a/httemplate/elements/tr-select.html b/httemplate/elements/tr-select.html
deleted file mode 100644
index 07b0a01d5..000000000
--- a/httemplate/elements/tr-select.html
+++ /dev/null
@@ -1,61 +0,0 @@
-<% include('tr-td-label.html', @_ ) %>
-
-  <TD <% $style %>>
-
-    <SELECT NAME          = "<% $opt{field} %>"
-            ID            = "<% $opt{id} %>"
-            previousValue = "<% $curr_value %>"
-            previousText  = "<% $labels->{$curr_value} || $curr_value %>"
-            <% $onchange %>
-    >
-
-%   if ( $opt{options} ) {
-%
-%     foreach my $option ( @{ $opt{options} } ) { #just arrayref for now
-
-        <OPTION VALUE="<% $option %>"
-                <% $opt{curr_value} eq $option ? 'SELECTED' : '' %>
-        >
-          <% $labels->{$option} || $option %>
-        </OPTION>
-
-%     }
-%
-%   } else { #deprecated weird value hashref used only by reason.html
-%
-%     my $aref = $opt{'value'}->{'values'};
-%     my $vkey = $opt{'value'}->{'vcolumn'};
-%     my $ckey = $opt{'value'}->{'ccolumn'};
-%     foreach my $v (@$aref) {
-
-        <OPTION VALUE="<% $v->$vkey %>"
-                <% ($opt{curr_value} eq $v->$vkey) ? 'SELECTED' : '' %>
-        >
-          <% $v->$ckey %>
-        </OPTION>
-
-%     }
-%
-%   }
-
-    </SELECT>
-
-  </TD>
-
-</TR>
-
-<%init>
-
-my %opt = @_;
-
-my $onchange = $opt{'onchange'}
-                 ? 'onChange="'. $opt{'onchange'}. '(this)"'
-                 : '';
-
-my $labels = $opt{'option_labels'} || $opt{'labels'};
-
-my $style = $opt{'cell_style'} ? 'STYLE="'. $opt{'cell_style'}. '"' : '';
-
-my $curr_value = $opt{'curr_value'};
-
-</%init>
diff --git a/httemplate/elements/tr-selectlayers.html b/httemplate/elements/tr-selectlayers.html
deleted file mode 100644
index 865d8226a..000000000
--- a/httemplate/elements/tr-selectlayers.html
+++ /dev/null
@@ -1,25 +0,0 @@
-% unless ( $opt{js_only} ) {
-
-  <% include('tr-td-label.html', @_ ) %>
-
-    <TD <% $style %>>
-
-% }
-
-      <% include('selectlayers.html', @_ ) %>
-
-% unless ( $opt{js_only} ) {
-
-    </TD>
-
-  </TR>
-
-% }
-
-<%init>
-
-my %opt = @_;
-
-my $style = $opt{'cell_style'} ? 'STYLE="'. $opt{'cell_style'}. '"' : '';
-
-</%init>
diff --git a/httemplate/elements/tr-selectmultiple-part_pkg.html b/httemplate/elements/tr-selectmultiple-part_pkg.html
deleted file mode 100644
index 455038da9..000000000
--- a/httemplate/elements/tr-selectmultiple-part_pkg.html
+++ /dev/null
@@ -1,20 +0,0 @@
-<TR>
-  <TD ALIGN="right"><% $opt{'label'} || 'Packages' %></TD>
-  <TD>
-    <% include( '/elements/select-table.html',
-                  'table'     => 'part_pkg',
-		  'name_col'  => 'pkg',
-		  'value'     => '',
-		  'empty_label' => '(none)',
-		  'element_etc' => 'multiple',
-		  %opt,
-              )
-    %>
-  </TD>
-</TR>
-
-<%init>
-
-my %opt = @_;
-
-</%init>
diff --git a/httemplate/elements/tr-td-label.html b/httemplate/elements/tr-td-label.html
deleted file mode 100644
index 77c048405..000000000
--- a/httemplate/elements/tr-td-label.html
+++ /dev/null
@@ -1,17 +0,0 @@
-<TR>
-
-  <TD ALIGN="right" VALIGN="top" STYLE="<% $style %>" ID="<% $opt{label_id} || $opt{id}. '_label0' %>">
-
-    <% $opt{label} %>
-
-  </TD>
-
-<%init>
-
-my %opt = @_;
-
-my $style = 'padding-top: 3px';
-$style .= '; '. $opt{'cell_style'}
-  if $opt{'cell_style'};
-
-</%init>
diff --git a/httemplate/elements/tr-title.html b/httemplate/elements/tr-title.html
deleted file mode 100644
index 6e2f58f6a..000000000
--- a/httemplate/elements/tr-title.html
+++ /dev/null
@@ -1,15 +0,0 @@
-<TR>
-  <TD BGCOLOR="#e8e8e8" COLSPAN=2> </TD>
-</TR>
-
-<TR>
-  <TH BGCOLOR="#e8e8e8" COLSPAN=2 ALIGN="left">
-    <FONT SIZE="+1"><% $opt{value} %></FONT>
-  </TH>
-</TR>
-
-<%init>
-
-my %opt = @_;
-
-</%init>
diff --git a/httemplate/elements/xmenu.css b/httemplate/elements/xmenu.css
deleted file mode 100644
index 97c7da8bb..000000000
--- a/httemplate/elements/xmenu.css
+++ /dev/null
@@ -1,196 +0,0 @@
-
-.webfx-menu, .webfx-menu * {
-	/*
-	Set the box sizing to content box
-	in the future when IE6 supports box-sizing
-	there will be an issue to fix the sizes
-
-	There is probably an issue with IE5 mac now
-	because IE5 uses content-box but the script
-	assumes all versions of IE uses border-box.
-
-	At the time of this writing mozilla did not support
-	box-sizing for absolute positioned element.
-
-	Opera only supports content-box
-	*/
-	box-sizing:			content-box;
-	-moz-box-sizing:	content-box;
-}
-
-.webfx-menu {
-	position:		absolute;
-	z-index:		100;
-	visibility:		hidden;
-	border:			1px solid black;
-	padding:		1px;
-	background:		white;
-	filter:			progid:DXImageTransform.Microsoft.Shadow(color="#777777", Direction=135, Strength=4)
-				alpha(Opacity=95);
-	-moz-opacity:		0.95;
-	/* a drop shadow would be nice in moz/others too... */
-}
-
-.webfx-menu-empty {
-	display:		block;
-	border:			1px solid white;
-	padding:		2px 5px 2px 5px;
-	font-size:		11px;
-	/* font-family:		Tahoma, Verdan, Helvetica, Sans-Serif; */
-	color:			black;
-}
-
-.webfx-menu a {
-	display:		block;
-	/* width:			expression(constExpression(ieBox ? "100%": "auto")); /* should be ignored by mz and op */
-	width:			expression(constExpression(ie ? "98%": "auto")); /* should be ignored by mz and op */
-	overflow:		visible;	
-	/* padding:		2px 0px 2px 5px; */
-	padding:		1px 0px 1px 5px;
-	font-size:		14px;
-/* 	font-family:		Verdana, Arial, Helvetica, sans-serif; */
-        font-weight:            bold;
-	text-decoration:	none;
-	vertical-align:		center;
-	color:			black;
-	border:			1px solid white;
-}	
-
-.webfx-menu a:visited {
-	color:			black;
-	border:			1px solid white;
-}
-
-.webfx-menu a:hover {
-	color:			black;
-	border:			1px solid #7e0079;
-}
-
-.webfx-menu a:hover {
-	color:			black;
-	/* background:		#faf7fa; #f5ebf4; #efdfef; white; #BC79B8; */
-	/* background:		#ffe6fe; */
-	/* background:		#ffc2fe; */
-	background:		#fff2fe;
-	border:			1px solid #7e0079; /*rgb(120,172,255);#ff8800;*/
-}	
-
-.webfx-menu a .arrow {
-	float:			right;
-	border:			0;
-	width:			3px;
-	margin-right:	3px;
-	margin-top:		4px;
-}
-
-/* separtor */
-.webfx-menu div {
-	height:			0;
-	height:			expression(constExpression(ieBox ? "2px" : "0"));
-	border-top:		1px solid #7e0079; /* rgb(120,172,255); */
-	border-bottom:	1px solid rgb(234,242,255);
-	overflow:		hidden;
-	margin:			2px 0px 2px 0px;
-	font-size:		0mm;
-}
-
-.webfx-menu-bar {
-        /* i want a vertical bar */
-        display:                        block;
-
-	/* background:		rgb(120,172,255);/*rgb(255,128,0);*/
-	/* background:		 #a097ed; */
-	background:		 #000000;
-	/* border:			1px solid #7E0079; */
-	/* border:			1px solid #000000; */
-	/* border: none */
-	color:				white;
-
-	padding:		2px;
-	
-	/* IE5.0 has the wierdest box model for inline elements */
-	padding:		expression(constExpression(ie50 ? "0px" : "2px"));
-}
-
-.webfx-menu-bar a,
-.webfx-menu-bar a:visited {
-        /* i want a vertical bar */
-        display:                        block;
-
-	/* border:				1px solid black; /*rgb(0,0,0);/*rgb(255,128,0);*/
-	/* border: 1px solid black; /* #ffffff; */
-	/* border-bottom: 1px solid black; */
-	border-bottom: 1px solid white;
-	/* border-bottom:	1px solid rgb(0,66,174);
-	/* border-bottom: 1px solid black;
-	border-bottom: 1px solid black;
-	border-bottom: 1px solid black; */
-
-	padding:			1px 5px 1px 5px;
-
-	/* color:				black; */
-	color:				white;
-	text-decoration:	none;
-
-	/* IE5.0 Does not paint borders and padding on inline elements without a height/width */
-	height:		expression(constExpression(ie50 ? "17px" : "auto"));
-}
-
-.webfx-menu-bar a:link {
-	color: white;
-}
-
-.webfx-menu-bar a:hover {
-	/* color:			black; */
-	color:			white;
-	/* background:		rgb(120,172,255);	 */
-	/* background:		#BC79B8; */
-        background:		#7e0079;
-	/* border-left:	1px solid rgb(234,242,255);
-	border-right:	1px solid rgb(0,66,174);
-	border-top:		1px solid rgb(234,242,255);
-	border-bottom:	1px solid rgb(0,66,174); */
-}
-
-.webfx-menu-bar a .arrow {
-	float:			right;
-	border:			0;
-/*	vertical-align:		top; */
-	width:			3px;
-	margin-right:	3px;
-	margin-top:		4px;
-}
-
-.webfx-menu-bar a:active, .webfx-menu-bar a:focus {
-	-moz-outline:	none;
-	outline:		none;
-	/*
-		ie does not support outline but ie55 can hide the outline using
-		a proprietary property on HTMLElement. Did I say that IE sucks at CSS?
-	*/
-	ie-dummy:		expression(this.hideFocus=true);
-
-/*	border-left:	1px solid rgb(0,66,174); */
-/*	border-right:	1px solid rgb(234,242,255); */
-/*	border-top:		1px solid rgb(0,66,174); */
-/*	border-bottom:	1px solid rgb(234,242,255); */
-}
-
-.webfx-menu-title  {
-	color:			black;
-	/* background:		#faf7fa; #f5ebf4; #efdfef; white; #BC79B8; */
-	background:		#7e0079;
-/*	border:			1px solid #7e0079; /*rgb(120,172,255);#ff8800;*/
-	/* padding:		3px 1px 3px 6px; */
-	padding:		3px 1px 3px 5px;
-	display:		block;
-	font-size:		16px;
-/*        font-family:            Verdana, Arial, Helvetica, sans-serif; */
-        font-weight:            bold;
-	text-decoration:	none;
-	color:			white;
-/*	border:			1px solid white; */
-	border-bottom:		1px solid white;
-        width:			expression(constExpression(ie ? "98%": "auto"));	/* should be ignored by mz and op */
-}	
-
diff --git a/httemplate/elements/xmenu.js b/httemplate/elements/xmenu.js
deleted file mode 100644
index 134265f53..000000000
--- a/httemplate/elements/xmenu.js
+++ /dev/null
@@ -1,668 +0,0 @@
-//<script>
-/*
- * This script was created by Erik Arvidsson (erik@eae.net)
- * for WebFX (http://webfx.eae.net)
- * Copyright 2001
- * 
- * For usage see license at http://webfx.eae.net/license.html	
- *
- * Created:		2001-01-12
- * Updates:		2001-11-20	Added hover mode support and removed Opera focus hacks
- *				2001-12-20	Added auto positioning and some properties to support this
- *				2002-08-13	toString used ' for attributes. Changed to " to allow in args
- */
- 
-// check browsers
-var ua = navigator.userAgent;
-var opera = /opera [56789]|opera\/[56789]/i.test(ua);
-var ie = !opera && /MSIE/.test(ua);
-var ie50 = ie && /MSIE 5\.[01234]/.test(ua);
-var ie6 = ie && /MSIE [6789]/.test(ua);
-var ieBox = ie && (document.compatMode == null || document.compatMode != "CSS1Compat");
-var moz = !opera && /gecko/i.test(ua);
-var nn6 = !opera && /netscape.*6\./i.test(ua);
-var khtml = /KHTML/i.test(ua);
-
-// define the default values
-
-webfxMenuDefaultWidth			= 154;
-
-webfxMenuDefaultBorderLeft		= 1;
-webfxMenuDefaultBorderRight		= 1;
-webfxMenuDefaultBorderTop		= 1;
-webfxMenuDefaultBorderBottom	= 1;
-
-webfxMenuDefaultPaddingLeft		= 1;
-webfxMenuDefaultPaddingRight	= 1;
-webfxMenuDefaultPaddingTop		= 1;
-webfxMenuDefaultPaddingBottom	= 1;
-
-webfxMenuDefaultShadowLeft		= 0;
-webfxMenuDefaultShadowRight		= ie && !ie50 && /win32/i.test(navigator.platform) ? 4 :0;
-webfxMenuDefaultShadowTop		= 0;
-webfxMenuDefaultShadowBottom	= ie && !ie50 && /win32/i.test(navigator.platform) ? 4 : 0;
-
-
-webfxMenuItemDefaultHeight		= 18;
-webfxMenuItemDefaultText		= "Untitled";
-webfxMenuItemDefaultHref		= "javascript:void(0)";
-
-webfxMenuSeparatorDefaultHeight	= 6;
-
-webfxMenuDefaultEmptyText		= "Empty";
-
-webfxMenuDefaultUseAutoPosition	= nn6 ? false : true;
-
-
-
-// other global constants
-
-webfxMenuImagePath				= "";
-
-webfxMenuUseHover				= opera ? true : false;
-webfxMenuHideTime				= 500;
-webfxMenuShowTime				= 200;
-
-
-
-var webFXMenuHandler = {
-	idCounter		:	0,
-	idPrefix		:	"webfx-menu-object-",
-	all				:	{},
-	getId			:	function () { return this.idPrefix + this.idCounter++; },
-	overMenuItem	:	function (oItem) {
-		if (this.showTimeout != null)
-			window.clearTimeout(this.showTimeout);
-		if (this.hideTimeout != null)
-			window.clearTimeout(this.hideTimeout);
-		var jsItem = this.all[oItem.id];
-		if (webfxMenuShowTime <= 0)
-			this._over(jsItem);
-		else if ( jsItem )
-			//this.showTimeout = window.setTimeout(function () { webFXMenuHandler._over(jsItem) ; }, webfxMenuShowTime);
-			// I hate IE5.0 because the piece of shit crashes when using setTimeout with a function object
-			this.showTimeout = window.setTimeout("webFXMenuHandler._over(webFXMenuHandler.all['" + jsItem.id + "'])", webfxMenuShowTime);
-	},
-	outMenuItem	:	function (oItem) {
-		if (this.showTimeout != null)
-			window.clearTimeout(this.showTimeout);
-		if (this.hideTimeout != null)
-			window.clearTimeout(this.hideTimeout);
-		var jsItem = this.all[oItem.id];
-		if (webfxMenuHideTime <= 0)
-			this._out(jsItem);
-		else if ( jsItem ) 
-			//this.hideTimeout = window.setTimeout(function () { webFXMenuHandler._out(jsItem) ; }, webfxMenuHideTime);
-			this.hideTimeout = window.setTimeout("webFXMenuHandler._out(webFXMenuHandler.all['" + jsItem.id + "'])", webfxMenuHideTime);
-	},
-	blurMenu		:	function (oMenuItem) {
-		window.setTimeout("webFXMenuHandler.all[\"" + oMenuItem.id + "\"].subMenu.hide();", webfxMenuHideTime);
-	},
-	_over	:	function (jsItem) {
-		if (jsItem.subMenu) {
-			jsItem.parentMenu.hideAllSubs();
-			jsItem.subMenu.show();
-		}
-		else
-			jsItem.parentMenu.hideAllSubs();
-	},
-	_out	:	function (jsItem) {
-		// find top most menu
-		var root = jsItem;
-		var m;
-		if (root instanceof WebFXMenuButton)
-			m = root.subMenu;
-		else {
-			m = jsItem.parentMenu;
-			while (m.parentMenu != null && !(m.parentMenu instanceof WebFXMenuBar))
-				m = m.parentMenu;
-		}
-		if (m != null)	
-			m.hide();	
-	},
-	hideMenu	:	function (menu) {
-		if (this.showTimeout != null)
-			window.clearTimeout(this.showTimeout);
-		if (this.hideTimeout != null)
-			window.clearTimeout(this.hideTimeout);
-
-		this.hideTimeout = window.setTimeout("webFXMenuHandler.all['" + menu.id + "'].hide()", webfxMenuHideTime);
-	},
-	showMenu	:	function (menu, src, dir) {
-		if (this.showTimeout != null)
-			window.clearTimeout(this.showTimeout);
-		if (this.hideTimeout != null)
-			window.clearTimeout(this.hideTimeout);
-
-		if (arguments.length < 3)
-			dir = "vertical";
-		
-		menu.show(src, dir);
-	}
-};
-
-function WebFXMenu() {
-	this._menuItems	= [];
-	this._subMenus	= [];
-	this.id			= webFXMenuHandler.getId();
-	this.top		= 0;
-	this.left		= 0;
-	this.shown		= false;
-	this.parentMenu	= null;
-	webFXMenuHandler.all[this.id] = this;
-}
-
-WebFXMenu.prototype.width			= webfxMenuDefaultWidth;
-WebFXMenu.prototype.emptyText		= webfxMenuDefaultEmptyText;
-WebFXMenu.prototype.useAutoPosition	= webfxMenuDefaultUseAutoPosition;
-
-WebFXMenu.prototype.borderLeft		= webfxMenuDefaultBorderLeft;
-WebFXMenu.prototype.borderRight		= webfxMenuDefaultBorderRight;
-WebFXMenu.prototype.borderTop		= webfxMenuDefaultBorderTop;
-WebFXMenu.prototype.borderBottom	= webfxMenuDefaultBorderBottom;
-
-WebFXMenu.prototype.paddingLeft		= webfxMenuDefaultPaddingLeft;
-WebFXMenu.prototype.paddingRight	= webfxMenuDefaultPaddingRight;
-WebFXMenu.prototype.paddingTop		= webfxMenuDefaultPaddingTop;
-WebFXMenu.prototype.paddingBottom	= webfxMenuDefaultPaddingBottom;
-
-WebFXMenu.prototype.shadowLeft		= webfxMenuDefaultShadowLeft;
-WebFXMenu.prototype.shadowRight		= webfxMenuDefaultShadowRight;
-WebFXMenu.prototype.shadowTop		= webfxMenuDefaultShadowTop;
-WebFXMenu.prototype.shadowBottom	= webfxMenuDefaultShadowBottom;
-
-
-
-WebFXMenu.prototype.add = function (menuItem) {
-	this._menuItems[this._menuItems.length] = menuItem;
-	if (menuItem.subMenu) {
-		this._subMenus[this._subMenus.length] = menuItem.subMenu;
-		menuItem.subMenu.parentMenu = this;
-	}
-	
-	menuItem.parentMenu = this;
-};
-
-WebFXMenu.prototype.show = function (relObj, sDir) {
-	if (this.useAutoPosition)
-		this.position(relObj, sDir);
-
-	var divElement = document.getElementById(this.id);
-	if ( divElement ) {
-
-	  divElement.style.left = opera ? this.left : this.left + "px";
-	  divElement.style.top = opera ? this.top : this.top + "px";
-	  divElement.style.visibility = "visible";
-
-	  if ( ie ) {
-	    var shimElement = document.getElementById(this.id + "Shim");
-	    if ( shimElement ) {
-	      shimElement.style.width = divElement.offsetWidth;
-	      shimElement.style.height = divElement.offsetHeight;
-	      shimElement.style.top = divElement.style.top;
-	      shimElement.style.left = divElement.style.left;
-	      /*shimElement.style.zIndex = divElement.style.zIndex - 1; */
-	      shimElement.style.display = "block";
-	      shimElement.style.filter='progid:DXImageTransform.Microsoft.Alpha(style=0,opacity=0)';
-	    }
-	  }
-
-	}
-
-	this.shown = true;
-
-	if (this.parentMenu)
-		this.parentMenu.show();
-};
-
-WebFXMenu.prototype.hide = function () {
-	this.hideAllSubs();
-	var divElement = document.getElementById(this.id);
-	if ( divElement ) {
-	  divElement.style.visibility = "hidden";
-	  if ( ie ) {
-	    var shimElement = document.getElementById(this.id + "Shim");
-	    if ( shimElement ) {
-	      shimElement.style.display = "none";
-	    }
-	  }
-	}
-
-	this.shown = false;
-};
-
-WebFXMenu.prototype.hideAllSubs = function () {
-	for (var i = 0; i < this._subMenus.length; i++) {
-		if (this._subMenus[i].shown)
-			this._subMenus[i].hide();
-	}
-};
-
-WebFXMenu.prototype.toString = function () {
-	var top = this.top + this.borderTop + this.paddingTop;
-	var str = "<div id='" + this.id + "' class='webfx-menu' style='" + 
-	"width:" + (!ieBox  ?
-		this.width - this.borderLeft - this.paddingLeft - this.borderRight - this.paddingRight  : 
-		this.width) + "px;" +
-	(this.useAutoPosition ?
-		"left:" + this.left + "px;" + "top:" + this.top + "px;" :
-		"") +
-	(ie50 ? "filter: none;" : "") +
-	"'>";
-
-	if (this._menuItems.length == 0) {
-		str +=	"<span class='webfx-menu-empty'>" + this.emptyText + "</span>";
-	}
-	else {	
-		str += '<span class="webfx-menu-title" onmouseover="webFXMenuHandler.overMenuItem(this)"' +
-			(webfxMenuUseHover ? " onmouseout='webFXMenuHandler.outMenuItem(this)'" : "") +
-			 '>' + this.emptyText + '</span>';
-        	// str += '<div id="' + this.id + '-title">' + this.emptyText + '</div>';
-		// loop through all menuItems
-		for (var i = 0; i < this._menuItems.length; i++) {
-			var mi = this._menuItems[i];
-			str += mi;
-			if (!this.useAutoPosition) {
-				if (mi.subMenu && !mi.subMenu.useAutoPosition)
-					mi.subMenu.top = top - mi.subMenu.borderTop - mi.subMenu.paddingTop;
-				top += mi.height;
-			}
-		}
-
-	}
-	
-	str += "</div>";
-
-	if ( ie ) {
-          str += "<iframe id='" + this.id + "Shim' src='javascript:false;' scrolling='no' frameBorder='0' style='position:absolute; top:0px; left: 0px; display:none;'></iframe>";
-	}
-	
-	for (var i = 0; i < this._subMenus.length; i++) {
-		this._subMenus[i].left = this.left + this.width - this._subMenus[i].borderLeft;
-		str += this._subMenus[i];
-	}
-	
-	return str;
-};
-// WebFXMenu.prototype.position defined later
-
-function WebFXMenuItem(sText, sHref, sToolTip, oSubMenu) {
-	this.text = sText || webfxMenuItemDefaultText;
-	this.href = (sHref == null || sHref == "") ? webfxMenuItemDefaultHref : sHref;
-	this.subMenu = oSubMenu;
-	if (oSubMenu)
-		oSubMenu.parentMenuItem = this;
-	this.toolTip = sToolTip;
-	this.id = webFXMenuHandler.getId();
-	webFXMenuHandler.all[this.id] = this;
-};
-WebFXMenuItem.prototype.height = webfxMenuItemDefaultHeight;
-WebFXMenuItem.prototype.toString = function () {
-	return	"<a" +
-			" id='" + this.id + "'" +
-			" href=\"" + this.href + "\"" +
-			(this.toolTip ? " title=\"" + this.toolTip + "\"" : "") +
-			" onmouseover='webFXMenuHandler.overMenuItem(this)'" +
-			(webfxMenuUseHover ? " onmouseout='webFXMenuHandler.outMenuItem(this)'" : "") +
-			(this.subMenu ? " unselectable='on' tabindex='-1'" : "") +
-			">" +
-			(this.subMenu ? "<img class='arrow' src=\"" + webfxMenuImagePath + "arrow.right.black.png\">" : "") +
-			this.text + 
-			"</a>";
-};
-
-
-function WebFXMenuSeparator() {
-	this.id = webFXMenuHandler.getId();
-	webFXMenuHandler.all[this.id] = this;
-};
-WebFXMenuSeparator.prototype.height = webfxMenuSeparatorDefaultHeight;
-WebFXMenuSeparator.prototype.toString = function () {
-	return	"<div" +
-			" id='" + this.id + "'" +
-			(webfxMenuUseHover ? 
-			" onmouseover='webFXMenuHandler.overMenuItem(this)'" +
-			" onmouseout='webFXMenuHandler.outMenuItem(this)'"
-			:
-			"") +
-			"></div>"
-};
-
-function WebFXMenuBar() {
-	this._parentConstructor = WebFXMenu;
-	this._parentConstructor();
-}
-WebFXMenuBar.prototype = new WebFXMenu;
-WebFXMenuBar.prototype.toString = function () {
-	var str = "<div id='" + this.id + "' class='webfx-menu-bar'>";
-	
-	// loop through all menuButtons
-	for (var i = 0; i < this._menuItems.length; i++)
-		str += this._menuItems[i];
-	
-	str += "</div>";
-
-	for (var i = 0; i < this._subMenus.length; i++)
-		str += this._subMenus[i];
-	
-	return str;
-};
-
-function WebFXMenuButton(sText, sHref, sToolTip, oSubMenu) {
-	this._parentConstructor = WebFXMenuItem;
-	this._parentConstructor(sText, sHref, sToolTip, oSubMenu);
-}
-WebFXMenuButton.prototype = new WebFXMenuItem;
-WebFXMenuButton.prototype.toString = function () {
-	return	"<a" +
-			" id='" + this.id + "'" +
-			" href='" + this.href + "'" +
-			(this.toolTip ? " title='" + this.toolTip + "'" : "") +
-			(webfxMenuUseHover ?
-				(" onmouseover='webFXMenuHandler.overMenuItem(this)'" +
-				" onmouseout='webFXMenuHandler.outMenuItem(this)'") :
-				(
-					" onfocus='webFXMenuHandler.overMenuItem(this)'" +
-					(this.subMenu ?
-						" onblur='webFXMenuHandler.blurMenu(this)'" :
-						""
-					)
-				)) +
-			">" +
-			(this.subMenu ? "<img class='arrow' src='" + webfxMenuImagePath + "arrow.right.png'>" : "") +				
-			this.text + 
-			"</a>";
-};
-
-
-
-
-
-/* Position functions */
-
-
-function getInnerLeft(el) {
-
-	if (el == null) return 0;
-
-	if (ieBox && el == document.body || !ieBox && el == document.documentElement) return 0;
-
-	return parseInt( getLeft(el) + parseInt(getBorderLeft(el)) );
-
-}
-
-
-
-function getLeft(el, debug) {
-
-	if (el == null) return 0;
-
-        //if ( debug )
-	//  alert ( el.offsetLeft + ' - ' + getInnerLeft(el.offsetParent) );
-
-	return parseInt( el.offsetLeft + parseInt(getInnerLeft(el.offsetParent)) );
-
-}
-
-
-
-function getInnerTop(el) {
-
-	if (el == null) return 0;
-
-	if (ieBox && el == document.body || !ieBox && el == document.documentElement) return 0;
-
-	return parseInt( getTop(el) + parseInt(getBorderTop(el)) );
-
-}
-
-
-
-function getTop(el) {
-
-	if (el == null) return 0;
-
-	return parseInt( el.offsetTop + parseInt(getInnerTop(el.offsetParent)) );
-
-}
-
-
-
-function getBorderLeft(el) {
-
-	return ie ?
-
-		el.clientLeft :
-
-		( khtml 
-		    ? parseInt(document.defaultView.getComputedStyle(el, null).getPropertyValue("border-left-width"))
-		    : parseInt(window.getComputedStyle(el, null).getPropertyValue("border-left-width")) 
-		);
-
-}
-
-
-
-function getBorderTop(el) {
-
-	return ie ?
-
-		el.clientTop :
-
-		( khtml 
-		    ? parseInt(document.defaultView.getComputedStyle(el, null).getPropertyValue("border-left-width"))
-		    : parseInt(window.getComputedStyle(el, null).getPropertyValue("border-top-width"))
-		);
-
-}
-
-
-
-function opera_getLeft(el) {
-
-	if (el == null) return 0;
-
-	return el.offsetLeft + opera_getLeft(el.offsetParent);
-
-}
-
-
-
-function opera_getTop(el) {
-
-	if (el == null) return 0;
-
-	return el.offsetTop + opera_getTop(el.offsetParent);
-
-}
-
-
-
-function getOuterRect(el, debug) {
-
-	return {
-
-		left:	(opera ? opera_getLeft(el) : getLeft(el, debug)),
-
-		top:	(opera ? opera_getTop(el) : getTop(el)),
-
-		width:	el.offsetWidth,
-
-		height:	el.offsetHeight
-
-	};
-
-}
-
-
-
-// mozilla bug! scrollbars not included in innerWidth/height
-
-function getDocumentRect(el) {
-
-	return {
-
-		left:	0,
-
-		top:	0,
-
-		width:	(ie ?
-
-					(ieBox ? document.body.clientWidth : document.documentElement.clientWidth) :
-
-					window.innerWidth
-
-				),
-
-		height:	(ie ?
-
-					(ieBox ? document.body.clientHeight : document.documentElement.clientHeight) :
-
-					window.innerHeight
-
-				)
-
-	};
-
-}
-
-
-
-function getScrollPos(el) {
-
-	return {
-
-		left:	(ie ?
-
-					(ieBox ? document.body.scrollLeft : document.documentElement.scrollLeft) :
-
-					window.pageXOffset
-
-				),
-
-		top:	(ie ?
-
-					(ieBox ? document.body.scrollTop : document.documentElement.scrollTop) :
-
-					window.pageYOffset
-
-				)
-
-	};
-
-}
-
-
-/* end position functions */
-
-WebFXMenu.prototype.position = function (relEl, sDir) {
-	var dir = sDir;
-	// find parent item rectangle, piRect
-	var piRect;
-	if (!relEl) {
-		var pi = this.parentMenuItem;
-		if (!this.parentMenuItem)
-			return;
-		
-		relEl = document.getElementById(pi.id);
-		if (dir == null)
-			dir = pi instanceof WebFXMenuButton ? "vertical" : "horizontal";
-		//alert('created RelEl from parent: ' + pi.id);
-		piRect = getOuterRect(relEl, 1);
-	}
-	else if (relEl.left != null && relEl.top != null && relEl.width != null && relEl.height != null) {	// got a rect
-		//alert('passed a Rect as RelEl: ' + typeof(relEl));
-
-		piRect = relEl;
-	}
-	else {
-		//alert('passed an element as RelEl: ' + typeof(relEl));
-		piRect = getOuterRect(relEl);
-	}
-
-	var menuEl = document.getElementById(this.id);
-	var menuRect = getOuterRect(menuEl);
-	var docRect = getDocumentRect();
-	var scrollPos = getScrollPos();
-	var pMenu = this.parentMenu;
-	
-	if (dir == "vertical") {
-		if (piRect.left + menuRect.width - scrollPos.left <= docRect.width) {
-			//alert('piRect.left: ' + piRect.left);
-			this.left = piRect.left;
-			if ( ! ie )
-			  this.left = this.left + 138;
-		} else if (docRect.width >= menuRect.width) {
-			//konq (not safari though) winds up here by accident and positions the menus all weird
-			//alert('docRect.width + scrollPos.left - menuRect.width');
-
-			this.left = docRect.width + scrollPos.left - menuRect.width;
-		} else {
-			//alert('scrollPos.left: ' + scrollPos.left);
-			this.left = scrollPos.left;
-		}
-			
-		if (piRect.top + piRect.height + menuRect.height <= docRect.height + scrollPos.top)
-
-			this.top = piRect.top + piRect.height;
-
-		else if (piRect.top - menuRect.height >= scrollPos.top)
-
-			this.top = piRect.top - menuRect.height;
-
-		else if (docRect.height >= menuRect.height)
-
-			this.top = docRect.height + scrollPos.top - menuRect.height;
-
-		else
-
-			this.top = scrollPos.top;
-	}
-	else {
-		if (piRect.top + menuRect.height - this.borderTop - this.paddingTop <= docRect.height + scrollPos.top)
-
-			this.top = piRect.top - this.borderTop - this.paddingTop;
-
-		else if (piRect.top + piRect.height - menuRect.height + this.borderTop + this.paddingTop >= 0)
-
-			this.top = piRect.top + piRect.height - menuRect.height + this.borderBottom + this.paddingBottom + this.shadowBottom;
-
-		else if (docRect.height >= menuRect.height)
-
-			this.top = docRect.height + scrollPos.top - menuRect.height;
-
-		else
-
-			this.top = scrollPos.top;
-
-
-
-		var pMenuPaddingLeft = pMenu ? pMenu.paddingLeft : 0;
-
-		var pMenuBorderLeft = pMenu ? pMenu.borderLeft : 0;
-
-		var pMenuPaddingRight = pMenu ? pMenu.paddingRight : 0;
-
-		var pMenuBorderRight = pMenu ? pMenu.borderRight : 0;
-
-		
-
-		if (piRect.left + piRect.width + menuRect.width + pMenuPaddingRight +
-
-			pMenuBorderRight - this.borderLeft + this.shadowRight <= docRect.width + scrollPos.left)
-
-			this.left = piRect.left + piRect.width + pMenuPaddingRight + pMenuBorderRight - this.borderLeft;
-
-		else if (piRect.left - menuRect.width - pMenuPaddingLeft - pMenuBorderLeft + this.borderRight + this.shadowRight >= 0)
-
-			this.left = piRect.left - menuRect.width - pMenuPaddingLeft - pMenuBorderLeft + this.borderRight + this.shadowRight;
-
-		else if (docRect.width >= menuRect.width)
-
-			this.left = docRect.width  + scrollPos.left - menuRect.width;
-
-		else
-
-			this.left = scrollPos.left;
-	}
-};
diff --git a/httemplate/elements/xmenu.top.css b/httemplate/elements/xmenu.top.css
deleted file mode 100644
index 75917031b..000000000
--- a/httemplate/elements/xmenu.top.css
+++ /dev/null
@@ -1,211 +0,0 @@
-
-.webfx-menu, .webfx-menu * {
-	/*
-	Set the box sizing to content box
-	in the future when IE6 supports box-sizing
-	there will be an issue to fix the sizes
-
-	There is probably an issue with IE5 mac now
-	because IE5 uses content-box but the script
-	assumes all versions of IE uses border-box.
-
-	At the time of this writing mozilla did not support
-	box-sizing for absolute positioned element.
-
-	Opera only supports content-box
-	*/
-	box-sizing:			content-box;
-	-moz-box-sizing:	content-box;
-}
-
-.webfx-menu {
-	position:		absolute;
-	z-index:		100;
-	visibility:		hidden;
-	border:			1px solid black;
-	padding:		1px;
-	background:		white;
-	filter:			progid:DXImageTransform.Microsoft.Shadow(color="#777777", Direction=135, Strength=4)
-				alpha(Opacity=95);
-	-moz-opacity:		0.95;
-	/* a drop shadow would be nice in moz/others too... */
-}
-
-.webfx-menu-empty {
-	display:		block;
-	border:			1px solid white;
-	padding:		2px 5px 2px 5px;
-	font-size:		11px;
-	/* font-family:		Tahoma, Verdan, Helvetica, Sans-Serif; */
-	color:			black;
-}
-
-.webfx-menu a {
-	display:		block;
-	/* width:			expression(constExpression(ieBox ? "100%": "auto")); /* should be ignored by mz and op */
-	width:			expression(constExpression(ie ? "98%": "auto")); /* should be ignored by mz and op */
-	overflow:		visible;	
-	/* padding:		2px 0px 2px 5px; */
-	padding:		1px 0px 1px 5px;
-	font-size:		14px;
-/* 	font-family:		Verdana, Arial, Helvetica, sans-serif; */
-        font-weight:            bold;
-	text-decoration:	none;
-	vertical-align:		center;
-	color:			black;
-	border:			1px solid white;
-}	
-
-.webfx-menu a:visited {
-	color:			black;
-	border:			1px solid white;
-}
-
-.webfx-menu a:hover {
-	color:			black;
-	border:			1px solid #7e0079;
-}
-
-.webfx-menu a:hover {
-	color:			black;
-	/* background:		#faf7fa; #f5ebf4; #efdfef; white; #BC79B8; */
-	/* background:		#ffe6fe; */
-	/* background:		#ffc2fe; */
-	background:		#fff2fe;
-	border:			1px solid #7e0079; /*rgb(120,172,255);#ff8800;*/
-}	
-
-.webfx-menu a .arrow {
-	float:			right;
-	border:			0;
-	width:			3px;
-	margin-right:	3px;
-	margin-top:		4px;
-}
-
-/* separtor */
-.webfx-menu div {
-	height:			0;
-	height:			expression(constExpression(ieBox ? "2px" : "0"));
-	border-top:		1px solid #7e0079; /* rgb(120,172,255); */
-	border-bottom:	1px solid rgb(234,242,255);
-	overflow:		hidden;
-	margin:			2px 0px 2px 0px;
-	font-size:		0mm;
-}
-
-.webfx-menu-bar {
-	/* background:		rgb(120,172,255);/*rgb(255,128,0);*/
-	/* background:		 #a097ed; */
-	background:		 #000000;
-	/* border:			1px solid #7E0079; */
-	/* border:			1px solid #000000; */
-	/* border: none */
-	color:				white;
-
-	padding:		2px;
-	
-	/* IE5.0 has the wierdest box model for inline elements */
-	padding:		expression(constExpression(ie50 ? "0px" : "2px"));
-}
-
-.webfx-menu-bar a,
-.webfx-menu-bar a:visited {
-        /* i want a vertical bar */
-        /* display:                        block; */
-
-	/* border:				1px solid black; /*rgb(0,0,0);/*rgb(255,128,0);*/
-	/* border: 1px solid black; /* #ffffff; */
-	/* border-bottom: 1px solid black; */
-	/* border-bottom: 1px solid white; */
-	/* border-bottom:	1px solid rgb(0,66,174);
-	/* border-bottom: 1px solid black;
-	border-bottom: 1px solid black;
-	border-bottom: 1px solid black; */
-
-	padding:			1px 5px 1px 5px;
-
-	/* color:				black; */
-	color:				white;
-	text-decoration:	none;
-
-	/* IE5.0 Does not paint borders and padding on inline elements without a height/width */
-	height:		expression(constExpression(ie50 ? "17px" : "auto"));
-
-         background-color:#333333;
-	 border:1px solid;
-	 border-top-color:#cccccc;
-	 border-left-color:#cccccc;
-	 border-right-color:#aaaaaa;
-	 border-bottom-color:#aaaaaa;
-
-         margin-right: 4px
-
-}
-
-.webfx-menu-bar a:link {
-	color: white;
-}
-
-.webfx-menu-bar a:hover {
-	/* color:			black; */
-	color:			white;
-	/* background:		rgb(120,172,255);	 */
-	/* background:		#BC79B8; */
-        background:		#7e0079;
-	/* border-left:	1px solid rgb(234,242,255);
-	border-right:	1px solid rgb(0,66,174);
-	border-top:		1px solid rgb(234,242,255);
-	border-bottom:	1px solid rgb(0,66,174); */
-
-	 border:1px solid;
-	 border-top-color:#cccccc;
-	 border-left-color:#cccccc;
-	 border-right-color:#aaaaaa;
-	 border-bottom-color:#aaaaaa;
-
-}
-
-.webfx-menu-bar a .arrow {
-	/* float:			right; */
-	border:			0;
-/*	vertical-align:		top; */
-/*	width:			3px; */
-/*	margin-right:	3px; */
-	margin-bottom:		2px;
-
-}
-
-.webfx-menu-bar a:active, .webfx-menu-bar a:focus {
-	-moz-outline:	none;
-	outline:		none;
-	/*
-		ie does not support outline but ie55 can hide the outline using
-		a proprietary property on HTMLElement. Did I say that IE sucks at CSS?
-	*/
-	ie-dummy:		expression(this.hideFocus=true);
-
-/*	border-left:	1px solid rgb(0,66,174); */
-/*	border-right:	1px solid rgb(234,242,255); */
-/*	border-top:		1px solid rgb(0,66,174); */
-/*	border-bottom:	1px solid rgb(234,242,255); */
-}
-
-.webfx-menu-title  {
-	color:			black;
-	/* background:		#faf7fa; #f5ebf4; #efdfef; white; #BC79B8; */
-	background:		#7e0079;
-/*	border:			1px solid #7e0079; /*rgb(120,172,255);#ff8800;*/
-	/* padding:		3px 1px 3px 6px; */
-	padding:		3px 1px 3px 5px;
-	display:		block;
-	font-size:		16px;
-/*        font-family:            Verdana, Arial, Helvetica, sans-serif; */
-        font-weight:            bold;
-	text-decoration:	none;
-	color:			white;
-/*	border:			1px solid white; */
-	border-bottom:		1px solid white;
-        width:			expression(constExpression(ie ? "98%": "auto"));	/* should be ignored by mz and op */
-}	
-
diff --git a/httemplate/elements/xmenu.top.js b/httemplate/elements/xmenu.top.js
deleted file mode 100644
index 8d81035a2..000000000
--- a/httemplate/elements/xmenu.top.js
+++ /dev/null
@@ -1,671 +0,0 @@
-//<script>
-/*
- * This script was created by Erik Arvidsson (erik@eae.net)
- * for WebFX (http://webfx.eae.net)
- * Copyright 2001
- * 
- * For usage see license at http://webfx.eae.net/license.html	
- *
- * Created:		2001-01-12
- * Updates:		2001-11-20	Added hover mode support and removed Opera focus hacks
- *				2001-12-20	Added auto positioning and some properties to support this
- *				2002-08-13	toString used ' for attributes. Changed to " to allow in args
- */
- 
-// check browsers
-var ua = navigator.userAgent;
-var opera = /opera [56789]|opera\/[56789]/i.test(ua);
-var ie = !opera && /MSIE/.test(ua);
-var ie50 = ie && /MSIE 5\.[01234]/.test(ua);
-var ie6 = ie && /MSIE [6789]/.test(ua);
-var ieBox = ie && (document.compatMode == null || document.compatMode != "CSS1Compat");
-var moz = !opera && /gecko/i.test(ua);
-var nn6 = !opera && /netscape.*6\./i.test(ua);
-var khtml = /KHTML/i.test(ua);
-
-// define the default values
-
-webfxMenuDefaultWidth			= 154;
-
-webfxMenuDefaultBorderLeft		= 1;
-webfxMenuDefaultBorderRight		= 1;
-webfxMenuDefaultBorderTop		= 1;
-webfxMenuDefaultBorderBottom	= 1;
-
-webfxMenuDefaultPaddingLeft		= 1;
-webfxMenuDefaultPaddingRight	= 1;
-webfxMenuDefaultPaddingTop		= 1;
-webfxMenuDefaultPaddingBottom	= 1;
-
-webfxMenuDefaultShadowLeft		= 0;
-webfxMenuDefaultShadowRight		= ie && !ie50 && /win32/i.test(navigator.platform) ? 4 :0;
-webfxMenuDefaultShadowTop		= 0;
-webfxMenuDefaultShadowBottom	= ie && !ie50 && /win32/i.test(navigator.platform) ? 4 : 0;
-
-
-webfxMenuItemDefaultHeight		= 18;
-webfxMenuItemDefaultText		= "Untitled";
-webfxMenuItemDefaultHref		= "javascript:void(0)";
-
-webfxMenuSeparatorDefaultHeight	= 6;
-
-webfxMenuDefaultEmptyText		= "Empty";
-
-webfxMenuDefaultUseAutoPosition	= nn6 ? false : true;
-
-
-
-// other global constants
-
-webfxMenuImagePath				= "";
-
-webfxMenuUseHover				= opera ? true : false;
-webfxMenuHideTime				= 500;
-webfxMenuShowTime				= 200;
-
-
-
-var webFXMenuHandler = {
-	idCounter		:	0,
-	idPrefix		:	"webfx-menu-object-",
-	all				:	{},
-	getId			:	function () { return this.idPrefix + this.idCounter++; },
-	overMenuItem	:	function (oItem) {
-		if (this.showTimeout != null)
-			window.clearTimeout(this.showTimeout);
-		if (this.hideTimeout != null)
-			window.clearTimeout(this.hideTimeout);
-		var jsItem = this.all[oItem.id];
-		if (webfxMenuShowTime <= 0)
-			this._over(jsItem);
-		else if ( jsItem )
-			//this.showTimeout = window.setTimeout(function () { webFXMenuHandler._over(jsItem) ; }, webfxMenuShowTime);
-			// I hate IE5.0 because the piece of shit crashes when using setTimeout with a function object
-			this.showTimeout = window.setTimeout("webFXMenuHandler._over(webFXMenuHandler.all['" + jsItem.id + "'])", webfxMenuShowTime);
-	},
-	outMenuItem	:	function (oItem) {
-		if (this.showTimeout != null)
-			window.clearTimeout(this.showTimeout);
-		if (this.hideTimeout != null)
-			window.clearTimeout(this.hideTimeout);
-		var jsItem = this.all[oItem.id];
-		if (webfxMenuHideTime <= 0)
-			this._out(jsItem);
-		else if ( jsItem ) 
-			//this.hideTimeout = window.setTimeout(function () { webFXMenuHandler._out(jsItem) ; }, webfxMenuHideTime);
-			this.hideTimeout = window.setTimeout("webFXMenuHandler._out(webFXMenuHandler.all['" + jsItem.id + "'])", webfxMenuHideTime);
-	},
-	blurMenu		:	function (oMenuItem) {
-		window.setTimeout("webFXMenuHandler.all[\"" + oMenuItem.id + "\"].subMenu.hide();", webfxMenuHideTime);
-	},
-	_over	:	function (jsItem) {
-		if (jsItem.subMenu) {
-			jsItem.parentMenu.hideAllSubs();
-			jsItem.subMenu.show();
-		}
-		else
-			jsItem.parentMenu.hideAllSubs();
-	},
-	_out	:	function (jsItem) {
-		// find top most menu
-		var root = jsItem;
-		var m;
-		if (root instanceof WebFXMenuButton)
-			m = root.subMenu;
-		else {
-			m = jsItem.parentMenu;
-			while (m.parentMenu != null && !(m.parentMenu instanceof WebFXMenuBar))
-				m = m.parentMenu;
-		}
-		if (m != null)	
-			m.hide();	
-	},
-	hideMenu	:	function (menu) {
-		if (this.showTimeout != null)
-			window.clearTimeout(this.showTimeout);
-		if (this.hideTimeout != null)
-			window.clearTimeout(this.hideTimeout);
-
-		this.hideTimeout = window.setTimeout("webFXMenuHandler.all['" + menu.id + "'].hide()", webfxMenuHideTime);
-	},
-	showMenu	:	function (menu, src, dir) {
-		if (this.showTimeout != null)
-			window.clearTimeout(this.showTimeout);
-		if (this.hideTimeout != null)
-			window.clearTimeout(this.hideTimeout);
-
-		if (arguments.length < 3)
-			dir = "vertical";
-		
-		menu.show(src, dir);
-	}
-};
-
-function WebFXMenu() {
-	this._menuItems	= [];
-	this._subMenus	= [];
-	this.id			= webFXMenuHandler.getId();
-	this.top		= 0;
-	this.left		= 0;
-	this.shown		= false;
-	this.parentMenu	= null;
-	webFXMenuHandler.all[this.id] = this;
-}
-
-WebFXMenu.prototype.width			= webfxMenuDefaultWidth;
-WebFXMenu.prototype.emptyText		= webfxMenuDefaultEmptyText;
-WebFXMenu.prototype.useAutoPosition	= webfxMenuDefaultUseAutoPosition;
-
-WebFXMenu.prototype.borderLeft		= webfxMenuDefaultBorderLeft;
-WebFXMenu.prototype.borderRight		= webfxMenuDefaultBorderRight;
-WebFXMenu.prototype.borderTop		= webfxMenuDefaultBorderTop;
-WebFXMenu.prototype.borderBottom	= webfxMenuDefaultBorderBottom;
-
-WebFXMenu.prototype.paddingLeft		= webfxMenuDefaultPaddingLeft;
-WebFXMenu.prototype.paddingRight	= webfxMenuDefaultPaddingRight;
-WebFXMenu.prototype.paddingTop		= webfxMenuDefaultPaddingTop;
-WebFXMenu.prototype.paddingBottom	= webfxMenuDefaultPaddingBottom;
-
-WebFXMenu.prototype.shadowLeft		= webfxMenuDefaultShadowLeft;
-WebFXMenu.prototype.shadowRight		= webfxMenuDefaultShadowRight;
-WebFXMenu.prototype.shadowTop		= webfxMenuDefaultShadowTop;
-WebFXMenu.prototype.shadowBottom	= webfxMenuDefaultShadowBottom;
-
-
-
-WebFXMenu.prototype.add = function (menuItem) {
-	this._menuItems[this._menuItems.length] = menuItem;
-	if (menuItem.subMenu) {
-		this._subMenus[this._subMenus.length] = menuItem.subMenu;
-		menuItem.subMenu.parentMenu = this;
-	}
-	
-	menuItem.parentMenu = this;
-};
-
-WebFXMenu.prototype.show = function (relObj, sDir) {
-	if (this.useAutoPosition)
-		this.position(relObj, sDir);
-
-	var divElement = document.getElementById(this.id);
-	if ( divElement ) {
-
-	  divElement.style.left = opera ? this.left : this.left + "px";
-	  divElement.style.top = opera ? this.top : this.top + "px";
-	  divElement.style.visibility = "visible";
-
-	  if ( ie ) {
-	    var shimElement = document.getElementById(this.id + "Shim");
-	    if ( shimElement ) {
-	      shimElement.style.width = divElement.offsetWidth;
-	      shimElement.style.height = divElement.offsetHeight;
-	      shimElement.style.top = divElement.style.top;
-	      shimElement.style.left = divElement.style.left;
-	      /*shimElement.style.zIndex = divElement.style.zIndex - 1; */
-	      shimElement.style.display = "block";
-	      shimElement.style.filter='progid:DXImageTransform.Microsoft.Alpha(style=0,opacity=0)';
-	    }
-	  }
-
-	}
-
-	this.shown = true;
-
-	if (this.parentMenu)
-		this.parentMenu.show();
-};
-
-WebFXMenu.prototype.hide = function () {
-	this.hideAllSubs();
-	var divElement = document.getElementById(this.id);
-	if ( divElement ) {
-	  divElement.style.visibility = "hidden";
-	  if ( ie ) {
-	    var shimElement = document.getElementById(this.id + "Shim");
-	    if ( shimElement ) {
-	      shimElement.style.display = "none";
-	    }
-	  }
-	}
-
-	this.shown = false;
-};
-
-WebFXMenu.prototype.hideAllSubs = function () {
-	for (var i = 0; i < this._subMenus.length; i++) {
-		if (this._subMenus[i].shown)
-			this._subMenus[i].hide();
-	}
-};
-
-WebFXMenu.prototype.toString = function () {
-	var top = this.top + this.borderTop + this.paddingTop;
-	var str = "<div id='" + this.id + "' class='webfx-menu' style='" + 
-	"width:" + (!ieBox  ?
-		this.width - this.borderLeft - this.paddingLeft - this.borderRight - this.paddingRight  : 
-		this.width) + "px;" +
-	(this.useAutoPosition ?
-		"left:" + this.left + "px;" + "top:" + this.top + "px;" :
-		"") +
-	(ie50 ? "filter: none;" : "") +
-	"'>";
-
-	if (this._menuItems.length == 0) {
-		str +=	"<span class='webfx-menu-empty'>" + this.emptyText + "</span>";
-	}
-	else {	
-		str += '<span class="webfx-menu-title" onmouseover="webFXMenuHandler.overMenuItem(this)"' +
-			(webfxMenuUseHover ? " onmouseout='webFXMenuHandler.outMenuItem(this)'" : "") +
-			 '>' + this.emptyText + '</span>';
-        	// str += '<div id="' + this.id + '-title">' + this.emptyText + '</div>';
-		// loop through all menuItems
-		for (var i = 0; i < this._menuItems.length; i++) {
-			var mi = this._menuItems[i];
-			str += mi;
-			if (!this.useAutoPosition) {
-				if (mi.subMenu && !mi.subMenu.useAutoPosition)
-					mi.subMenu.top = top - mi.subMenu.borderTop - mi.subMenu.paddingTop;
-				top += mi.height;
-			}
-		}
-
-	}
-	
-	str += "</div>";
-
-	if ( ie ) {
-          str += "<iframe id='" + this.id + "Shim' src='javascript:false;' scrolling='no' frameBorder='0' style='position:absolute; top:0px; left: 0px; display:none;'></iframe>";
-	}
-	
-	for (var i = 0; i < this._subMenus.length; i++) {
-		this._subMenus[i].left = this.left + this.width - this._subMenus[i].borderLeft;
-		str += this._subMenus[i];
-	}
-	
-	return str;
-};
-// WebFXMenu.prototype.position defined later
-
-function WebFXMenuItem(sText, sHref, sToolTip, oSubMenu) {
-	this.text = sText || webfxMenuItemDefaultText;
-	this.href = (sHref == null || sHref == "") ? webfxMenuItemDefaultHref : sHref;
-	this.subMenu = oSubMenu;
-	if (oSubMenu)
-		oSubMenu.parentMenuItem = this;
-	this.toolTip = sToolTip;
-	this.id = webFXMenuHandler.getId();
-	webFXMenuHandler.all[this.id] = this;
-};
-WebFXMenuItem.prototype.height = webfxMenuItemDefaultHeight;
-WebFXMenuItem.prototype.toString = function () {
-	return	"<a" +
-			" id='" + this.id + "'" +
-			" href=\"" + this.href + "\"" +
-			(this.toolTip ? " title=\"" + this.toolTip + "\"" : "") +
-			" onmouseover='webFXMenuHandler.overMenuItem(this)'" +
-			(webfxMenuUseHover ? " onmouseout='webFXMenuHandler.outMenuItem(this)'" : "") +
-			(this.subMenu ? " unselectable='on' tabindex='-1'" : "") +
-			">" +
-			(this.subMenu ? "<img class='arrow' src=\"" + webfxMenuImagePath + "arrow.right.black.png\">" : "") +
-			this.text + 
-			"</a>";
-};
-
-
-function WebFXMenuSeparator() {
-	this.id = webFXMenuHandler.getId();
-	webFXMenuHandler.all[this.id] = this;
-};
-WebFXMenuSeparator.prototype.height = webfxMenuSeparatorDefaultHeight;
-WebFXMenuSeparator.prototype.toString = function () {
-	return	"<div" +
-			" id='" + this.id + "'" +
-			(webfxMenuUseHover ? 
-			" onmouseover='webFXMenuHandler.overMenuItem(this)'" +
-			" onmouseout='webFXMenuHandler.outMenuItem(this)'"
-			:
-			"") +
-			"></div>"
-};
-
-function WebFXMenuBar() {
-	this._parentConstructor = WebFXMenu;
-	this._parentConstructor();
-}
-WebFXMenuBar.prototype = new WebFXMenu;
-WebFXMenuBar.prototype.toString = function () {
-	var str = "<div id='" + this.id + "' class='webfx-menu-bar'>";
-	
-	// loop through all menuButtons
-	for (var i = 0; i < this._menuItems.length; i++)
-		str += this._menuItems[i];
-	
-	str += "</div>";
-
-	for (var i = 0; i < this._subMenus.length; i++)
-		str += this._subMenus[i];
-	
-	return str;
-};
-
-function WebFXMenuButton(sText, sHref, sToolTip, oSubMenu) {
-	this._parentConstructor = WebFXMenuItem;
-	this._parentConstructor(sText, sHref, sToolTip, oSubMenu);
-}
-WebFXMenuButton.prototype = new WebFXMenuItem;
-WebFXMenuButton.prototype.toString = function () {
-	return	"<a" +
-			" id='" + this.id + "'" +
-			" href='" + this.href + "'" +
-			(this.toolTip ? " title='" + this.toolTip + "'" : "") +
-			(webfxMenuUseHover ?
-				(" onmouseover='webFXMenuHandler.overMenuItem(this)'" +
-				" onmouseout='webFXMenuHandler.outMenuItem(this)'") :
-				(
-					" onfocus='webFXMenuHandler.overMenuItem(this)'" +
-					(this.subMenu ?
-						" onblur='webFXMenuHandler.blurMenu(this)'" :
-						""
-					)
-				)) +
-			">" +
-			this.text + 
-			(this.subMenu ? "<img class='arrow' src='" + webfxMenuImagePath + "arrow.down.png'>" : "") +				
-			"</a>";
-};
-
-
-
-
-
-/* Position functions */
-
-
-function getInnerLeft(el, debug) {
-
-	if (el == null) return 0;
-
-	if (ieBox && el == document.body || !ieBox && el == document.documentElement) return 0;
-
-        //if ( debug ) 
-	//  alert ( 'getInnerLeft: ' + getLeft(el) + ' - ' + getBorderLeft(el) );
-
-	return parseInt( getLeft(el) + parseInt(getBorderLeft(el)) );
-
-}
-
-
-
-function getLeft(el, debug) {
-
-	if (el == null) return 0;
-
-        //if ( debug )
-	//  alert ( el + ': ' + el.offsetLeft + ' - ' + getInnerLeft(el.offsetParent) );
-
-	return parseInt( el.offsetLeft + parseInt(getInnerLeft(el.offsetParent)) );
-
-}
-
-
-
-function getInnerTop(el) {
-
-	if (el == null) return 0;
-
-	if (ieBox && el == document.body || !ieBox && el == document.documentElement) return 0;
-
-	return parseInt( getTop(el) + parseInt(getBorderTop(el)) );
-
-}
-
-
-
-function getTop(el) {
-
-	if (el == null) return 0;
-
-	return parseInt( el.offsetTop + parseInt(getInnerTop(el.offsetParent)) );
-
-}
-
-
-
-function getBorderLeft(el) {
-
-	return ie ?
-
-		el.clientLeft :
-
-		( khtml 
-		    ? parseInt(document.defaultView.getComputedStyle(el, null).getPropertyValue("border-left-width"))
-		    : parseInt(window.getComputedStyle(el, null).getPropertyValue("border-left-width")) 
-		);
-
-}
-
-
-
-function getBorderTop(el) {
-
-	return ie ?
-
-		el.clientTop :
-
-		( khtml 
-		    ? parseInt(document.defaultView.getComputedStyle(el, null).getPropertyValue("border-left-width"))
-		    : parseInt(window.getComputedStyle(el, null).getPropertyValue("border-top-width"))
-		);
-
-}
-
-
-
-function opera_getLeft(el) {
-
-	if (el == null) return 0;
-
-	return el.offsetLeft + opera_getLeft(el.offsetParent);
-
-}
-
-
-
-function opera_getTop(el) {
-
-	if (el == null) return 0;
-
-	return el.offsetTop + opera_getTop(el.offsetParent);
-
-}
-
-
-
-function getOuterRect(el, debug) {
-
-	return {
-
-		left:	(opera ? opera_getLeft(el) : getLeft(el, debug)),
-
-		top:	(opera ? opera_getTop(el) : getTop(el)),
-
-		width:	el.offsetWidth,
-
-		height:	el.offsetHeight
-
-	};
-
-}
-
-
-
-// mozilla bug! scrollbars not included in innerWidth/height
-
-function getDocumentRect(el) {
-
-	return {
-
-		left:	0,
-
-		top:	0,
-
-		width:	(ie ?
-
-					(ieBox ? document.body.clientWidth : document.documentElement.clientWidth) :
-
-					window.innerWidth
-
-				),
-
-		height:	(ie ?
-
-					(ieBox ? document.body.clientHeight : document.documentElement.clientHeight) :
-
-					window.innerHeight
-
-				)
-
-	};
-
-}
-
-
-
-function getScrollPos(el) {
-
-	return {
-
-		left:	(ie ?
-
-					(ieBox ? document.body.scrollLeft : document.documentElement.scrollLeft) :
-
-					window.pageXOffset
-
-				),
-
-		top:	(ie ?
-
-					(ieBox ? document.body.scrollTop : document.documentElement.scrollTop) :
-
-					window.pageYOffset
-
-				)
-
-	};
-
-}
-
-
-/* end position functions */
-
-WebFXMenu.prototype.position = function (relEl, sDir) {
-	var dir = sDir;
-	// find parent item rectangle, piRect
-	var piRect;
-	if (!relEl) {
-		var pi = this.parentMenuItem;
-		if (!this.parentMenuItem)
-			return;
-		
-		relEl = document.getElementById(pi.id);
-		if (dir == null)
-			dir = pi instanceof WebFXMenuButton ? "vertical" : "horizontal";
-		//alert('created RelEl from parent: ' + pi.id);
-		piRect = getOuterRect(relEl, 1);
-	}
-	else if (relEl.left != null && relEl.top != null && relEl.width != null && relEl.height != null) {	// got a rect
-		//alert('passed a Rect as RelEl: ' + typeof(relEl));
-
-		piRect = relEl;
-	}
-	else {
-		//alert('passed an element as RelEl: ' + typeof(relEl));
-		piRect = getOuterRect(relEl);
-	}
-
-	var menuEl = document.getElementById(this.id);
-	var menuRect = getOuterRect(menuEl);
-	var docRect = getDocumentRect();
-	var scrollPos = getScrollPos();
-	var pMenu = this.parentMenu;
-	
-	if (dir == "vertical") {
-		if (piRect.left + menuRect.width - scrollPos.left <= docRect.width) {
-			//alert('piRect.left: ' + piRect.left);
-			this.left = piRect.left;
-//			if ( ! ie )
-//			  this.left = this.left + 138;
-		} else if (docRect.width >= menuRect.width) {
-			//konq (not safari though) winds up here by accident and positions the menus all weird
-			//alert('docRect.width + scrollPos.left - menuRect.width');
-
-			this.left = docRect.width + scrollPos.left - menuRect.width;
-		} else {
-			//alert('scrollPos.left: ' + scrollPos.left);
-			this.left = scrollPos.left;
-		}
-			
-		if (piRect.top + piRect.height + menuRect.height <= docRect.height + scrollPos.top)
-
-			this.top = piRect.top + piRect.height;
-
-		else if (piRect.top - menuRect.height >= scrollPos.top)
-
-			this.top = piRect.top - menuRect.height;
-
-		else if (docRect.height >= menuRect.height)
-
-			this.top = docRect.height + scrollPos.top - menuRect.height;
-
-		else
-
-			this.top = scrollPos.top;
-	}
-	else {
-		if (piRect.top + menuRect.height - this.borderTop - this.paddingTop <= docRect.height + scrollPos.top)
-
-			this.top = piRect.top - this.borderTop - this.paddingTop;
-
-		else if (piRect.top + piRect.height - menuRect.height + this.borderTop + this.paddingTop >= 0)
-
-			this.top = piRect.top + piRect.height - menuRect.height + this.borderBottom + this.paddingBottom + this.shadowBottom;
-
-		else if (docRect.height >= menuRect.height)
-
-			this.top = docRect.height + scrollPos.top - menuRect.height;
-
-		else
-
-			this.top = scrollPos.top;
-
-
-
-		var pMenuPaddingLeft = pMenu ? pMenu.paddingLeft : 0;
-
-		var pMenuBorderLeft = pMenu ? pMenu.borderLeft : 0;
-
-		var pMenuPaddingRight = pMenu ? pMenu.paddingRight : 0;
-
-		var pMenuBorderRight = pMenu ? pMenu.borderRight : 0;
-
-		
-
-		if (piRect.left + piRect.width + menuRect.width + pMenuPaddingRight +
-
-			pMenuBorderRight - this.borderLeft + this.shadowRight <= docRect.width + scrollPos.left)
-
-			this.left = piRect.left + piRect.width + pMenuPaddingRight + pMenuBorderRight - this.borderLeft;
-
-		else if (piRect.left - menuRect.width - pMenuPaddingLeft - pMenuBorderLeft + this.borderRight + this.shadowRight >= 0)
-
-			this.left = piRect.left - menuRect.width - pMenuPaddingLeft - pMenuBorderLeft + this.borderRight + this.shadowRight;
-
-		else if (docRect.width >= menuRect.width)
-
-			this.left = docRect.width  + scrollPos.left - menuRect.width;
-
-		else
-
-			this.left = scrollPos.left;
-	}
-};
diff --git a/httemplate/elements/xmlhttp.html b/httemplate/elements/xmlhttp.html
deleted file mode 100644
index 3f4462b94..000000000
--- a/httemplate/elements/xmlhttp.html
+++ /dev/null
@@ -1,109 +0,0 @@
-<SCRIPT TYPE="text/javascript">
-
-  function rs_init_object() {
-    var A;
-    try {
-      A=new ActiveXObject("Msxml2.XMLHTTP");
-    } catch (e) {
-      try {
-        A=new ActiveXObject("Microsoft.XMLHTTP");
-      } catch (oc) {
-        A=null;
-      }
-    }
-    if(!A && typeof XMLHttpRequest != "undefined")
-      A = new XMLHttpRequest();
-    if (!A)
-      alert("Can't create XMLHttpRequest object");
-    return A;
-
-  }
-% foreach my $func ( @{$opt{'subs'}} ) { 
-%
-%       my $furl = $url;
-%       $furl =~ s/\"/\\\\\"/; #javascript escape
-%
-%  
-
-
-    function <%$key%><%$func%>() {
-        // count args; build URL
-        var url = "<%$furl%>";
-        var a = <%$key%><%$func%>.arguments;
-
-        var args;
-        var len;
-        var content = 'sub=<% uri_escape($func) %>';
-        if ( a && typeof a  == 'object'  && a[0].constructor == Array ) {
-            args = a[0];
-            len = args.length
-        } else {
-            args = a;
-            len = args.length - 1;
-        }
-        for (var i = 0; i < len; i++) 
-            content = content + "&arg=" + escape(args[i]);
-        content = content.replace( /[+]/g, '%2B'); // fix unescaped plus signs 
-
-        if ( '<%$method%>' == 'GET' ) {
-          url = url + content;
-        }
-
-        //alert('<%$method%> ' + url);
-
-        var xmlhttp = rs_init_object();
-        xmlhttp.open("<%$method%>", url, true);
-
-        xmlhttp.onreadystatechange = function() {
-            if (xmlhttp.readyState != 4) 
-        	return;
-
-            if (xmlhttp.status != 200) {
-              alert(xmlhttp.status + " status connecting to " + url);
-            } else {
-              var data = xmlhttp.responseText;
-              //alert('received response: ' + data);
-              a[a.length-1](data);
-              if ( data.indexOf("<b>System error</b>") > -1 ) {
-                var w;
-                if ( w = window.open("about:blank") ) {
-                  w.document.write(data);
-                } else {
-                  // popup blocking?  should use an overlib popup instead 
-                  alert("Error popup disabled; try disabling popup blocking to see");
-                }
-              }
-            }
-        }
-
-        if ( '<%$method%>' == 'POST' ) {
-
-          xmlhttp.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
-          xmlhttp.send(content);
-
-        } else {
-
-          xmlhttp.setRequestHeader("If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT");
-          xmlhttp.send(null);
-
-        }
-
-        //rs_debug("x_$func_name url = " + url);
-        //rs_debug("x_$func_name waiting..");
-    }
-% } 
-
-
-</SCRIPT>
-<%init>
-my ( %opt ) = @_;
-
-my $url = $opt{'url'};
-my $method = exists($opt{'method'}) ? $opt{'method'} : 'GET';
-#my @subs = @{ $opt{'subs'};
-my $key = exists($opt{'key'}) ? $opt{'key'} : '';
-
-$url .= ( ($url =~ /\?/) ? '&' : '?' )
-  if $method eq 'GET';
-
-</%init>
diff --git a/httemplate/graph/cust_bill_pkg.cgi b/httemplate/graph/cust_bill_pkg.cgi
deleted file mode 100644
index d7cae8055..000000000
--- a/httemplate/graph/cust_bill_pkg.cgi
+++ /dev/null
@@ -1,109 +0,0 @@
-<% include('elements/monthly.html',
-                'title'        => $title. 'Sales Report (Gross)',
-                'graph_type'   => 'Mountain',
-                'items'        => \@items,
-                'params'       => \@params,
-                'labels'       => \@labels,
-                'graph_labels' => \@labels,
-                'colors'       => \@colors,
-                'links'        => \@links,
-                'remove_empty' => 1,
-                'bottom_total' => 1,
-                'bottom_link'  => "$link;",
-                'agentnum'     => $agentnum,
-             )
-%>
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Financial reports');
-
-#XXX or virtual
-my( $agentnum, $sel_agent ) = ('', '');
-if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) {
-  $agentnum = $1;
-  $sel_agent = qsearchs('agent', { 'agentnum' => $agentnum } );
-  die "agentnum $agentnum not found!" unless $sel_agent;
-}
-my $title = $sel_agent ? $sel_agent->agent.' ' : '';
-
-#false lazinessish w/search/cust_pkg.cgi
-my $classnum = 0;
-my @pkg_class = ();
-if ( $cgi->param('classnum') =~ /^(\d*)$/ ) {
-  $classnum = $1;
-  if ( $classnum ) {
-    @pkg_class = ( qsearchs('pkg_class', { 'classnum' => $classnum } ) );
-    die "classnum $classnum not found!" unless $pkg_class[0];
-    $title .= $pkg_class[0]->classname.' ';
-  } elsif ( $classnum eq '' ) {
-    $title .= 'Empty class ';
-    @pkg_class = ( '(empty class)' );
-  } elsif ( $classnum eq '0' ) {
-    @pkg_class = qsearch('pkg_class', {} ); # { 'disabled' => '' } );
-    push @pkg_class, '(empty class)';
-  }
-}
-#eslaf
-
-my $hue = 0;
-#my $hue_increment = 170;
-#my $hue_increment = 145;
-my $hue_increment = 125;
-
-my @items  = ();
-my @params = ();
-my @labels = ();
-my @colors = ();
-my @links  = ();
-
-my $link = "${p}search/cust_bill_pkg.cgi?nottax=1;include_comp_cust=1";
-
-foreach my $agent ( $sel_agent || qsearch('agent', { 'disabled' => '' } ) ) {
-
-  my $col_scheme = Color::Scheme->new
-                     ->from_hue($hue) #->from_hex($agent->color)
-                     ->scheme('analogic')
-                   ;
-  my @recur_colors = ();
-  my @onetime_colors = ();
-
-  ### fixup the color handling for package classes...
-  my $n = 0;
-
-  foreach my $pkg_class ( @pkg_class ) {
-
-    push @items, 'cust_bill_pkg';
-
-
-    push @labels,
-      ( $sel_agent ? '' : $agent->agent.' ' ).
-      ( $classnum eq '0'
-          ? ( ref($pkg_class) ? $pkg_class->classname : $pkg_class ) 
-          : ''
-      );
-
-    my $row_classnum = ref($pkg_class) ? $pkg_class->classnum : 0;
-    my $row_agentnum = $agent->agentnum;
-    push @params, [ 'classnum' => $row_classnum,
-                    'agentnum' => $row_agentnum,
-                  ];
-
-    push @links, "$link;agentnum=$row_agentnum;classnum=$row_classnum;";
-
-    @recur_colors = ($col_scheme->colors)[0,4,8,1,5,9]
-      unless @recur_colors;
-    @onetime_colors = ($col_scheme->colors)[2,6,10,3,7,11]
-      unless @onetime_colors;
-    push @colors, shift @recur_colors;
-
-  }
-
-  $hue += $hue_increment;
-
-}
-
-#use Data::Dumper;
-#warn Dumper(\@items);
-
-</%init>
diff --git a/httemplate/graph/cust_pkg.cgi b/httemplate/graph/cust_pkg.cgi
deleted file mode 100644
index 21ce07d21..000000000
--- a/httemplate/graph/cust_pkg.cgi
+++ /dev/null
@@ -1,63 +0,0 @@
-<% include('elements/monthly.html',
-                'title'         => $agentname. 'Package Churn',
-                'items'         => \@items,
-                'labels'        => \%label,
-                'graph_labels'  => \%graph_label,
-                'colors'        => \%color,
-                'links'         => \%link,
-                'agentnum'      => $agentnum,
-                'sprintf'       => '%u',
-                'disable_money' => 1,
-             )
-%>
-<%init>
-
-#XXX use a different ACL for package churn?
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Financial reports');
-
-#false laziness w/money_time.cgi, cust_bill_pkg.cgi
-
-#XXX or virtual
-my( $agentnum, $agent ) = ('', '');
-if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) {
-  $agentnum = $1;
-  $agent = qsearchs('agent', { 'agentnum' => $agentnum } );
-  die "agentnum $agentnum not found!" unless $agent;
-}
-
-my $agentname = $agent ? $agent->agent.' ' : '';
-
-my @items = qw( setup_pkg susp_pkg cancel_pkg );
-
-my %label = (
-  'setup_pkg'  => 'New orders',
-  'susp_pkg'   => 'Suspensions',
-#  'unsusp' => 'Unsuspensions',
-  'cancel_pkg' => 'Cancellations',
-);
-my %graph_label = %label;
-
-my %color = (
-  'setup_pkg'   => '00cc00', #green
-  'susp_pkg'    => 'ff9900', #yellow
-  #'unsusp'  => '', #light green?
-  'cancel_pkg'  => 'cc0000', #red ? 'ff0000'
-);
-
-my %link = (
-  'setup_pkg'  => { 'link' => "${p}search/cust_pkg.cgi?agentnum=$agentnum;",
-                    'fromparam' => 'setup_begin',
-                    'toparam'   => 'setup_end',
-                  },
-  'susp_pkg'   => { 'link' => "${p}search/cust_pkg.cgi?agentnum=$agentnum;",
-                    'fromparam' => 'susp_begin',
-                    'toparam'   => 'susp_end',
-                  },
-  'cancel_pkg' => { 'link' => "${p}search/cust_pkg.cgi?agentnum=$agentnum;",
-                    'fromparam' => 'cancel_begin',
-                    'toparam'   => 'cancel_end',
-                  },
-);
-
-</%init>
diff --git a/httemplate/graph/elements/monthly.html b/httemplate/graph/elements/monthly.html
deleted file mode 100644
index 7039bfe56..000000000
--- a/httemplate/graph/elements/monthly.html
+++ /dev/null
@@ -1,351 +0,0 @@
-<%doc>
-
-Example:
-
-  include('elements/monthly.html',
-    #required
-    'title'           => 'Page title',
-    'items'           => \@items,
-    'labels'          => \@labels,       # or \%labels (keys are items)
-
-    #required?
-    'colors'          => \@colors,       # or \%colors,
-
-    #recommended
-    'graph_labels'    => \@graph_labels, # or \%graph_labels,
-
-    #optional
-    'params'          => \@params, # opt,
-    'links'           => \@links,      # or \%link, #opt
-    'link_fromparam'  => 'param_from', #defaults to 'begin'
-    'link_toparam'    => 'param_to',   #defaults to 'end'
-
-    #optional, pulled from CGI params if not specified
-    'start_month'     => $smonth,
-    'start_year'      => $syear,
-    'end_month'       => $emonth,
-    'end_year'        => $eyear,
-
-    #optional
-    'agentnum'        => $agentnum,
-    'nototal'         => 1,
-    'graph_type'      => 'LinesPoints',
-    'remove_empty'    => 1,
-    'bottom_total'    => 1,
-    'sprintf'         => '%u', #sprintf format, overrides default %.2f
-    'disable_money'   => 1,
-  );
-
-</%doc>
-% if ( $cgi->param('_type') =~ /^(csv)$/ ) {
-%
-%   #http_header('Content-Type' => 'text/comma-separated-values' ); #IE chokes
-%   http_header('Content-Type' => 'text/plain' );
-%
-%   my $csv = new Text::CSV_XS { 'always_quote' => 1,
-%                                'eol'          => "\n", #"\015\012", #"\012"
-%                              };
-%
-%   $csv->combine(map { my $m=$_; $m =~ s/^(\d+)\//$mon[$1-1] /; $m; }
-%                     ('', @{$data->{label}}, $opt{'nototal'} ? () : 'Total')
-%                );
-%   
-<% $csv->string %>
-%
-%   my @bottom_total = ();
-%   foreach ( @{ $data->{'items'} } ) {
-%
-%     my $col = 0;
-%     my $total = 0;
-%     $csv->combine(
-%       shift( @{ $data->{'item_labels'} } ),
-%       map { $total += $_; $bottom_total[$col++] += $_; sprintf($sprintf, $_); }
-%         ( @{ shift( @{$data->{data}} ) } ),
-%       ( $opt{'nototal'} ? () : sprintf($sprintf, $total) ),
-%     );
-%     unless ( $opt{'nototal'} ) { 
-%       $bottom_total[$col++] += $total; 
-%     } 
-%
-<% $csv->string %>
-%
-%   }
-% 
-%   if ( $opt{'bottom_total'} ) {
-%     $csv->combine(
-%       'Total',
-%       map { sprintf($sprintf, $_) } @bottom_total,
-%     );
-%
-<% $csv->string %>
-%
-%   } 
-%   
-% } elsif ( $cgi->param('_type') =~ /(\.xls)$/ ) {
-%
-%   #http_header('Content-Type' => 'application/excel' ); #eww
-%   http_header('Content-Type' => 'application/vnd.ms-excel' );
-%   #http_header('Content-Type' => 'application/msexcel' ); #alas
-%
-%   my $output = '';
-%   my $XLS = new IO::Scalar \$output;
-%   my $workbook = Spreadsheet::WriteExcel->new($XLS)
-%     or die "Error opening .xls file: $!";
-%
-%   my $worksheet = $workbook->add_worksheet(substr($opt{'title'},0,31));
-%
-%   my($r,$c) = (0,0);
-%
-%   foreach ('', @{$data->{label}}, ($opt{'nototal'} ? () : 'Total') ) {
-%     my $header = $_;
-%     $header =~ s/^(\d+)\//$mon[$1-1] /;
-%     $worksheet->write($r, $c++, $header)
-%   }
-%
-%   my @bottom_total = ();
-%   foreach ( @{ $data->{'items'} } ) {
-%     $r++;
-%     $c = 0;
-%     my $total = 0;
-%     $worksheet->write( $r, $c++, shift( @{ $data->{'item_labels'} } ) );
-%     foreach ( @{ shift( @{$data->{data}} ) } ) {
-%       $total += $_;
-%       $bottom_total[$c] += $_;
-%       $worksheet->write($r, $c++,  sprintf($sprintf, $_) );
-%     }
-%     unless ( $opt{'nototal'} ) { 
-%       $bottom_total[$c] += $total; 
-%       $worksheet->write($r, $c++,  sprintf($sprintf, $total) );
-%     } 
-%   }
-% 
-%   $c = 0;
-%   if ( $opt{'bottom_total'} ) {
-%     $r++;
-%     $worksheet->write($r, $c++, 'Total');
-%     $worksheet->write($r, $c++, sprintf($sprintf, $_)) foreach @bottom_total;
-%   } 
-%   
-%   $workbook->close();# or die "Error creating .xls file: $!";
-%
-%   http_header('Content-Length' => length($output) );
-%   
-<% $output %>
-% } elsif ( $cgi->param('_type') =~ /^(png)$/ ) {
-%
-%   #my $chart = Chart::LinesPoints->new(1024,480);
-%   #my $chart = Chart::LinesPoints->new(768,480);
-%
-%   my $graph_type = 'LinesPoints';
-%   if ( $opt{'graph_type'} =~ /^(LinesPoints|Mountain)$/ ) {
-%     $graph_type = $1;
-%   }
-%   my $class = "Chart::$graph_type";
-%
-%   my $chart = $class->new(976,384);
-%   
-%   my $d = 0;
-%   $chart->set(
-%     #'min_val' => 0,
-%     'legend' => 'bottom',
-%     'colors' => { ( 
-%                     map { my $color = $_;
-%                           'dataset'.$d++ =>
-%                             [ map hex($_), unpack 'a2a2a2', $color ]
-%                         }
-%                         #@{ $opt{'colors'} }
-%                         @{ $data->{'colors'} }
-%                   ),
-%                   #'grey_background' => [ 211, 211, 211 ],
-%                   'grey_background' => 'white',
-%                   'background' => [ 0xe8, 0xe8, 0xe8 ], #grey
-%                 },
-%     #'grey_background' => 'false',
-%     'legend_labels' => $data->{'item_labels'},
-%     'brush_size' => 4,
-%     #'pt_size' => 12,
-%   );
-%
-%   #my @data = map { $data->{$_} } ( 'label', @items );
-%   my @data = @{ $data->{data} };
-%   unshift @data, $data->{'label'};
-%   
-%   http_header('Content-Type' => 'image/png' );
-%
-%   $chart->_set_colors();
-%   
-<% $chart->scalar_png(\@data) %>
-%
-% } else {
-%
-<% include('/elements/header.html', $opt{'title'} ) %>
-% $cgi->param('_type', 'png'); 
-
-<IMG SRC="<% $cgi->self_url %>" WIDTH="976" HEIGHT="384">
-<P ALIGN="right">
-
-% unless ( $opt{'disable_download'} ) { 
-%   $cgi->param('_type', "monthly.xls" ); 
-            Download full results<BR>
-            as <A HREF="<% $cgi->self_url %>">Excel spreadsheet</A><BR>
-%   $cgi->param('_type', 'csv'); 
-            as <A HREF="<% $cgi->self_url %>">CSV file</A></P>
-%   $cgi->param('_type', "html" ); 
-% } 
-%
-</P>
-<% include('/elements/table.html', 'e8e8e8') %>
-
-<TR>
-
-  <TD></TD>
-
-% foreach my $column ( @{$data->{label}} ) {
-%       #$column =~ s/^(\d+)\//$mon[$1-1]<BR>/e;
-%       $column =~ s/^(\d+)\//$mon[$1-1]<BR>/;
-    <TH><% $column %></TH>
-% } 
-
-% unless ( $opt{'nototal'} ) { 
-    <TH>Total</TH>
-% } 
-
-</TR>
-
-% my @bottom_total = ();
-% foreach my $row ( @{ $data->{'items'} } ) {
-%
-%     #my $color = shift( @{ $opt{'colors'} } );
-%     my $color = shift( @{ $data->{'colors'} } );
-%     my $link = shift( @{ $data->{'links'} } );
-%     my ( $begin, $end ) = ( $fromparam, $toparam );
-%     if ( ref($link) ) {
-%       my $ref = $link;
-%       $link =  $ref->{link};
-%       $begin = $ref->{fromparam};
-%       $end =   $ref->{toparam};
-%     }
-%     $link = $link ? qq(<A HREF="$link) : '';
-%     my $label = shift( @{ $data->{'item_labels'} } );
-
-      <TR>
-
-        <TH>
-          <FONT COLOR="#<% $color %>"><% $label %></FONT>
-        </TH>
-
-%       #my $link = exists($opt{'links'}{$row})
-%             #  ? qq(<A HREF="$opt{'links'}{$row})
-%             #  : '';
-%       my @speriod = @{$data->{speriod}};
-%       my @eperiod = @{$data->{eperiod}};
-%       my $total = 0;
-%    
-%       my $col = 0;
-%       foreach my $column ( @{ shift( @{$data->{data}} ) } ) {
-
-          <TD ALIGN="right" BGCOLOR="#ffffff">
-            <% $link ? $link. "$begin=". shift(@speriod). ";$end=". shift(@eperiod). '">' : '' %><FONT COLOR="#<% $color %>"><% $money_char %><% sprintf($sprintf,, $column) %></FONT><% $link ? '</A>' : '' %>
-          </TD>
-%
-%         $total += $column;
-%         $bottom_total[$col++] += $column;
-%      
-%       } 
-
-%       unless ( $opt{'nototal'} ) { 
-            <TD ALIGN="right" BGCOLOR="#f5f6be">
-              <% $link ? $link. "$begin=". ${$data->{speriod}}[0]. ";$end=". ${$data->{eperiod}}[-1]. '">' : '' %><FONT COLOR="#<% $color %>"><% $money_char %><% sprintf($sprintf, $total) %></FONT><% $link ? '</A>' : '' %>
-            </TD>
-%           $bottom_total[$col++] += $total; 
-%       } 
-
-      </TR>
-
-% } 
-
-% if ( $opt{'bottom_total'} ) {
-%     my @speriod = ( @{$data->{speriod}}, ${$data->{speriod}}[0] );
-%     my @eperiod = ( @{$data->{eperiod}}, ${$data->{eperiod}}[-1] );
-
-  <TR>
-    <TH>Total</TH>
-
-% foreach my $total ( @bottom_total ) { 
-
-      <TD ALIGN="right" BGCOLOR="#f5f6be">
-        <% $opt{'bottom_link'}
-              ? '<A HREF="'. $opt{'bottom_link'}.
-                "$fromparam=". shift(@speriod).
-                ";$toparam=". shift(@eperiod). '">'
-              : ''
-        %>$<% sprintf($sprintf, $total) %><% $opt{'bottom_link'} ? '</A>' : '' %>
-
-      </TD>
-
-% } 
-
-  </TR>
-
-% } 
-
-</TABLE>
-
-<% include('/elements/footer.html') %>
-% } 
-<%once>
-
-</%once>
-<%init>
-
-my(%opt) = @_;
-
-my $sprintf = $opt{'sprintf'} || '%.2f';
-my $fromparam = $opt{'link_fromparam'} || 'begin';
-my $toparam =   $opt{'link_toparam'}   || 'end';
-
-my $conf = new FS::Conf;
-my $money_char = $opt{'disable_money'} ? '' : $conf->config('money_char');
-
-my @items = @{ $opt{'items'} };
-
-foreach my $other (qw( labels graph_labels colors links )) {
-#foreach my $other (qw( labels graph_labels colors )) {
-  if ( ref($opt{$other}) eq 'HASH' ) {
-    $opt{$other} = [ map $opt{$other}{$_}, @items ];
-  }
-}
-
-my @mon = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
-
-#find first month
-$opt{'start_month'} ||= $cgi->param('start_month'); # || $curmon+1;
-$opt{'start_year'}  ||= $cgi->param('start_year'); # || 1899+$curyear;
-
-#find last month
-$opt{'end_month'} ||= $cgi->param('end_month'); # || $curmon+1;
-$opt{'end_year'}  ||= $cgi->param('end_year'); # || 1900+$curyear;
-
-my $report = new FS::Report::Table::Monthly (
-
-  #'items'       => $opt{'items'},
-  'items'        => \@items,
-  'params'       => $opt{'params'},
-  'item_labels'  => ( $cgi->param('_type') =~ /^(png)$/
-                        ? $opt{'graph_labels'}
-                        : $opt{'labels'}
-                    ),
-  'colors'       => $opt{'colors'},
-  'links'        => $opt{'links'},
-
-  'start_month'  => $opt{'start_month'},
-  'start_year'   => $opt{'start_year'},
-  'end_month'    => $opt{'end_month'},
-  'end_year'     => $opt{'end_year'},
-
-  'agentnum'     => $opt{'agentnum'},
-  'remove_empty' => $opt{'remove_empty'},
-);
-my $data = $report->data;
-
-</%init>
diff --git a/httemplate/graph/money_time.cgi b/httemplate/graph/money_time.cgi
deleted file mode 100644
index b996380b6..000000000
--- a/httemplate/graph/money_time.cgi
+++ /dev/null
@@ -1,78 +0,0 @@
-<% include('elements/monthly.html',
-                'title'        => $agentname.
-                                  'Sales, Credits and Receipts Summary',
-                'items'        => \@items,
-                'labels'       => \%label,
-                'graph_labels' => \%graph_label,
-                'colors'       => \%color,
-                'links'        => \%link,
-                'agentnum'     => $agentnum,
-                'nototal'      => scalar($cgi->param('12mo')),
-             )
-%>
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Financial reports');
-
-#XXX or virtual
-my( $agentnum, $agent ) = ('', '');
-if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) {
-  $agentnum = $1;
-  $agent = qsearchs('agent', { 'agentnum' => $agentnum } );
-  die "agentnum $agentnum not found!" unless $agent;
-}
-
-my $agentname = $agent ? $agent->agent.' ' : '';
-
-my @items = qw( invoiced netsales credits netcredits payments receipts );
-if ( $cgi->param('12mo') == 1 ) {
-  @items = map $_.'_12mo', @items;
-}
-
-my %label = (
-  'invoiced'   => 'Gross Sales',
-  'netsales'   => 'Net Sales',
-  'credits'    => 'Gross Credits',
-  'netcredits' => 'Net Credits',
-  'payments'   => 'Gross Receipts',
-  'receipts'   => 'Net Receipts',
-);
-
-my %graph_suffix = (
- 'invoiced'   => ' (invoiced)', 
- 'netsales'   => ' (invoiced - applied credits)',
- 'credits'    => ' (credited)',
- 'netcredits' => ' (applied credits)',
- 'payments'   => ' (payments)',
- 'receipts'   => '/Cashflow (payments - refunds)',
-);
-my %graph_label = map { $_ => $label{$_}.$graph_suffix{$_} } keys %label;
-
-$label{$_.'_12mo'} = $label{$_}. " (previous 12 months)"
-  foreach keys %label;
-
-$graph_label{$_.'_12mo'} = $graph_label{$_}. " (previous 12 months)"
-  foreach keys %graph_label;
-
-my %color = (
-  'invoiced'   => '9999ff', #light blue
-  'netsales'   => '0000cc', #blue
-  'credits'    => 'ff9999', #light red
-  'netcredits' => 'cc0000', #red
-  'payments'   => '99cc99', #light green
-  'receipts'   => '00cc00', #green
-);
-$color{$_.'_12mo'} = $color{$_}
-  foreach keys %color;
-
-my %link = (
-  'invoiced'   => "${p}search/cust_bill.html?agentnum=$agentnum;",
-  'netsales'   => "${p}search/cust_bill.html?agentnum=$agentnum;net=1;",
-  'credits'    => "${p}search/cust_credit.html?agentnum=$agentnum;",
-  'netcredits' => "${p}search/cust_credit_bill.html?agentnum=$agentnum;",
-  'payments'   => "${p}search/cust_pay.cgi?magic=_date;agentnum=$agentnum;",
-);
-# XXX link 12mo?
-
-</%init>
diff --git a/httemplate/graph/report_cust_bill_pkg.html b/httemplate/graph/report_cust_bill_pkg.html
deleted file mode 100644
index be5a71a7a..000000000
--- a/httemplate/graph/report_cust_bill_pkg.html
+++ /dev/null
@@ -1,35 +0,0 @@
-<% include('/elements/header.html', 'Sales Report' ) %>
-
-<FORM ACTION="cust_bill_pkg.cgi" METHOD="GET">
-
-<TABLE>
-
-<% include('/elements/tr-select-from_to.html' ) %>
-
-<% include('/elements/tr-select-agent.html', '', 'label' => 'For agent: ' ) %>
-
-<% include('/elements/tr-select-pkg_class.html',
-              'pre_options' => [ '0' => 'all' ],
-              'empty_label' => '(empty class)',
-           )
-%>
-
-
-
-</TABLE>
-
-<BR><INPUT TYPE="submit" VALUE="Display">
-</FORM>
-
-<% include('/elements/footer.html') %>
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Financial reports');
-
-</%init>
diff --git a/httemplate/graph/report_cust_pkg.html b/httemplate/graph/report_cust_pkg.html
deleted file mode 100644
index 0ff01815f..000000000
--- a/httemplate/graph/report_cust_pkg.html
+++ /dev/null
@@ -1,27 +0,0 @@
-<% include('/elements/header.html', 'Package Churn Summary' ) %>
-
-<FORM ACTION="cust_pkg.cgi" METHOD="GET">
-
-<TABLE>
-
-<% include('/elements/tr-select-from_to.html' ) %>
-
-<% include('/elements/tr-select-agent.html',
-             'curr_value' => scalar($cgi->param('agentnum')),
-             'label' => 'For agent: ',
-          )
-%>
-
-</TABLE>
-
-<BR><INPUT TYPE="submit" VALUE="Display">
-</FORM>
-
-<% include('/elements/footer.html') %>
-<%init>
-
-#XXX use a different ACL for package churn?
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Financial reports');
-
-</%init>
diff --git a/httemplate/graph/report_money_time.html b/httemplate/graph/report_money_time.html
deleted file mode 100644
index 04e4c19b2..000000000
--- a/httemplate/graph/report_money_time.html
+++ /dev/null
@@ -1,39 +0,0 @@
-<% include('/elements/header.html', 'Sales, Credits and Receipts Summary' ) %>
-
-<FORM ACTION="money_time.cgi" METHOD="GET">
-
-
-
-<TABLE>
-
-<% include('/elements/tr-select-from_to.html' ) %>
-
-<% include('/elements/tr-select-agent.html', 'label' => 'For agent: ' ) %>
-
-<TR>
-  <TD ALIGN="right"><INPUT TYPE="checkbox" NAME="12mo" VALUE="1"></TD>
-  <TD>Show 12 month totals instead of monthly values</TD>
-</TR>
-
-</TABLE>
-
-<BR><INPUT TYPE="submit" VALUE="Display">
-</FORM>
-
-<% include('/elements/footer.html') %>
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Financial reports');
-
-</%init>
diff --git a/httemplate/images/32clear.gif b/httemplate/images/32clear.gif
deleted file mode 100644
index 5fdcea204..000000000
Binary files a/httemplate/images/32clear.gif and /dev/null differ
diff --git a/httemplate/images/ach.png b/httemplate/images/ach.png
deleted file mode 100644
index fdcd5e6ed..000000000
Binary files a/httemplate/images/ach.png and /dev/null differ
diff --git a/httemplate/images/arrow.down.png b/httemplate/images/arrow.down.png
deleted file mode 100644
index 34cb0286a..000000000
Binary files a/httemplate/images/arrow.down.png and /dev/null differ
diff --git a/httemplate/images/arrow.right.black.png b/httemplate/images/arrow.right.black.png
deleted file mode 100644
index 933c25894..000000000
Binary files a/httemplate/images/arrow.right.black.png and /dev/null differ
diff --git a/httemplate/images/arrow.right.png b/httemplate/images/arrow.right.png
deleted file mode 100644
index 60bcb76ab..000000000
Binary files a/httemplate/images/arrow.right.png and /dev/null differ
diff --git a/httemplate/images/background-cheat.png b/httemplate/images/background-cheat.png
deleted file mode 100644
index ad332f675..000000000
Binary files a/httemplate/images/background-cheat.png and /dev/null differ
diff --git a/httemplate/images/black-gradient.png b/httemplate/images/black-gradient.png
deleted file mode 100644
index 225732d16..000000000
Binary files a/httemplate/images/black-gradient.png and /dev/null differ
diff --git a/httemplate/images/black-gray-corner.png b/httemplate/images/black-gray-corner.png
deleted file mode 100644
index 17954cdd7..000000000
Binary files a/httemplate/images/black-gray-corner.png and /dev/null differ
diff --git a/httemplate/images/black-gray-gradient.png b/httemplate/images/black-gray-gradient.png
deleted file mode 100644
index f5c318fe7..000000000
Binary files a/httemplate/images/black-gray-gradient.png and /dev/null differ
diff --git a/httemplate/images/black-gray-side.png b/httemplate/images/black-gray-side.png
deleted file mode 100644
index f7a98a43d..000000000
Binary files a/httemplate/images/black-gray-side.png and /dev/null differ
diff --git a/httemplate/images/black-gray-top.png b/httemplate/images/black-gray-top.png
deleted file mode 100644
index ed0707573..000000000
Binary files a/httemplate/images/black-gray-top.png and /dev/null differ
diff --git a/httemplate/images/calendar-disabled.png b/httemplate/images/calendar-disabled.png
deleted file mode 100644
index 81816bcd6..000000000
Binary files a/httemplate/images/calendar-disabled.png and /dev/null differ
diff --git a/httemplate/images/calendar.png b/httemplate/images/calendar.png
deleted file mode 100644
index 163266174..000000000
Binary files a/httemplate/images/calendar.png and /dev/null differ
diff --git a/httemplate/images/cvv2.png b/httemplate/images/cvv2.png
deleted file mode 100644
index 48c58d561..000000000
Binary files a/httemplate/images/cvv2.png and /dev/null differ
diff --git a/httemplate/images/cvv2_amex.png b/httemplate/images/cvv2_amex.png
deleted file mode 100644
index 82d1f4715..000000000
Binary files a/httemplate/images/cvv2_amex.png and /dev/null differ
diff --git a/httemplate/images/menu-left-example.png b/httemplate/images/menu-left-example.png
deleted file mode 100644
index 375725cb9..000000000
Binary files a/httemplate/images/menu-left-example.png and /dev/null differ
diff --git a/httemplate/images/menu-top-example.png b/httemplate/images/menu-top-example.png
deleted file mode 100644
index bd9bea883..000000000
Binary files a/httemplate/images/menu-top-example.png and /dev/null differ
diff --git a/httemplate/images/progressbar-empty.png b/httemplate/images/progressbar-empty.png
deleted file mode 100644
index 318219c77..000000000
Binary files a/httemplate/images/progressbar-empty.png and /dev/null differ
diff --git a/httemplate/images/progressbar-full.png b/httemplate/images/progressbar-full.png
deleted file mode 100644
index 863d8e1ee..000000000
Binary files a/httemplate/images/progressbar-full.png and /dev/null differ
diff --git a/httemplate/images/red_telephone_mimooh_01.png b/httemplate/images/red_telephone_mimooh_01.png
deleted file mode 100644
index 2212ff0e8..000000000
Binary files a/httemplate/images/red_telephone_mimooh_01.png and /dev/null differ
diff --git a/httemplate/images/small-logo.png b/httemplate/images/small-logo.png
deleted file mode 100644
index 1e415e6d8..000000000
Binary files a/httemplate/images/small-logo.png and /dev/null differ
diff --git a/httemplate/index.html b/httemplate/index.html
deleted file mode 100644
index 60ab26f86..000000000
--- a/httemplate/index.html
+++ /dev/null
@@ -1,54 +0,0 @@
-% my $conf = new FS::Conf; 
-
-<% include('/elements/header.html', 'Billing Main' ) %>
-
-<% include('/elements/dashboard-toplist.html') %>
-
-%  my $sth = dbh->prepare(
-%    #"SELECT DISTINCT custnum FROM h_cust_main JOIN cust_main USING ( custnum )
-%    "SELECT custnum FROM h_cust_main JOIN cust_main USING ( custnum )
-%       WHERE ( history_action = 'insert' OR history_action = 'replace_new' ) 
-%         AND history_user = ?
-%       ORDER BY history_date desc" # LIMIT 10
-%    ) or die dbh->errstr;
-%
-%  $sth->execute( getotaker() ) or die $sth->errstr;
-%
-%  my %saw = ();
-%  my @custnums = grep { !$saw{$_}++ } map $_->[0], @{ $sth->fetchall_arrayref };
-%
-%  @custnums = splice(@custnums, 0, 10);
-%
-%  if ( @custnums ) {
-
-  <% include('/elements/table-grid.html') %>
-
-% my $bgcolor1 = '#eeeeee';
-%     my $bgcolor2 = '#ffffff';
-%     my $bgcolor = $bgcolor2;
-
-  <TR>
-    <TH CLASS="grid" BGCOLOR="#cccccc" COLSPAN=1>Customers I recently added or modified</TH>
-  </TR>
-
-% foreach my $custnum ( @custnums ) { 
-% my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } ); 
-% next unless $cust_main; 
-
-    <TR>
-      <TD CLASS="grid" BGCOLOR="<% $bgcolor %>"><A HREF="view/cust_main.cgi?<% $custnum %>"><% $custnum %>: <% $cust_main->name %></A></TD>
-    </TR>
-
-%       if ( $bgcolor eq $bgcolor1 ) {
-%          $bgcolor = $bgcolor2;
-%        } else {
-%          $bgcolor = $bgcolor1;
-%        }
-%    
-% } 
-
-  </TABLE>
-
-% } 
-
-<% include('/elements/footer.html') %>
diff --git a/httemplate/misc/batch-cust_pay.html b/httemplate/misc/batch-cust_pay.html
deleted file mode 100644
index 84889399d..000000000
--- a/httemplate/misc/batch-cust_pay.html
+++ /dev/null
@@ -1,32 +0,0 @@
-<% include('/elements/header.html', 'Quick payment entry') %>
-
-<% include('/elements/error.html') %>
-
-<FORM ACTION="process/batch-cust_pay.cgi" NAME="OneTrueForm" METHOD="POST" onsubmit="document.OneTrueForm.submit.disabled=true;">
-
-
-
-<% include( "elements/customer-table.html",
-            header => [ '', 'Amount', 'Check #', '' ],
-            fields => [ sub {'$'}, 'paid', 'payinfo', 'error', ],
-            types  => [ 'immutable', '', '', 'immutable', ],
-            sizes  => [ 0, 8, 10, 0, ],
-            param  => { () },
-          ) %>
-
-
-
-<BR>
-<INPUT TYPE="submit" NAME="submit" VALUE="Post payment batch">
-
-</FORM>
-
-<% include('/elements/footer.html') %>
-
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Post payment batch');
-
-</%init>
diff --git a/httemplate/misc/bill.cgi b/httemplate/misc/bill.cgi
deleted file mode 100755
index 3c3c48c54..000000000
--- a/httemplate/misc/bill.cgi
+++ /dev/null
@@ -1,45 +0,0 @@
-%if ( $error ) {
-%  errorpage($error);
-%} else {
-<% $cgi->redirect(popurl(2). "view/cust_main.cgi?$custnum") %>
-%}
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Bill customer now');
-
-#untaint custnum
-my($query) = $cgi->keywords;
-$query =~ /^(\d*)$/;
-my $custnum = $1;
-my $cust_main = qsearchs('cust_main',{'custnum'=>$custnum});
-die "Can't find customer!\n" unless $cust_main;
-
-my $conf = new FS::Conf;
-
-my $error = $cust_main->bill(
-#                          'time'=>$time
-                         );
-
-unless ( $error ) {
-  $error = $cust_main->apply_payments_and_credits
-           || $cust_main->collect(
-                                  #'invoice-time'=>$time,
-                                  #'batch_card'=> 'yes',
-                                  #'batch_card'=> 'no',
-                                  #'report_badcard'=> 'yes',
-                                  #'retry_card' => 'yes',
-
-                                  'retry' => 'yes',
-                                   
-                                  #this is used only by cust_main::batch_card
-                                  #need to pick & create an actual config
-                                  #value if we're going to turn this on
-                                  #("realtime-backend" doesn't exist,
-                                  # "backend-realtime" is for something
-                                  #  entirely different)
-                                  #'realtime' => $conf->exists('realtime-backend'),
-                                 );
-}
-
-</%init>
diff --git a/httemplate/misc/bulk_change_pkg.cgi b/httemplate/misc/bulk_change_pkg.cgi
deleted file mode 100755
index 93349859d..000000000
--- a/httemplate/misc/bulk_change_pkg.cgi
+++ /dev/null
@@ -1,59 +0,0 @@
-<% include('/elements/header-popup.html', "Change Packages") %>
-
-% if ( $cgi->param('error') ) {
-  <FONT SIZE="+1" COLOR="#ff0000">Error: <% $cgi->param('error') %></FONT>
-  <BR><BR>
-% }
-
-<FORM ACTION="<% $p %>misc/process/bulk_change_pkg.cgi" METHOD=POST>
-
-<INPUT TYPE="hidden" NAME="query" VALUE="<% $cgi->keywords %>">
-%  for my $param (qw(agentnum magic status classnum pkgpart)) {
-<INPUT TYPE="hidden" NAME="<% $param %>" VALUE="<% $cgi->param($param) %>">
-%  }
-%
-% foreach my $field (qw( setup last_bill bill adjourn susp expire cancel )) {
-% 
-  <INPUT TYPE="hidden" NAME="<% $field %>begin" VALUE="<% $cgi->param("${field}.begin") %>">
-  <INPUT TYPE="hidden" NAME="<% $field %>beginning" VALUE="<% $cgi->param("${field}beginning") %>">
-  <INPUT TYPE="hidden" NAME="<% $field %>end" VALUE="<% $cgi->param("${field}.end") %>">
-  <INPUT TYPE="hidden" NAME="<% $field %>ending" VALUE="<% $cgi->param("${field}.ending") %>">
-% }
-
-<% ntable('#cccccc') %>
-
-  <TR>
-    <TD>New package: </TD>
-    <TD><% include('/elements/select-table.html',
-                     'table'          => 'part_pkg',
-                     'name_col'       => 'pkg',
-                     'empty_label'    => 'Select package',
-                     'label_callback' => sub { $_[0]->pkgpart. ': '.
-                                               $_[0]->pkg.     ' - '.
-                                               $_[0]->comment;
-                                             },
-                     'element_name'   => 'new_pkgpart',
-                     'curr_value'     => ( $cgi->param('error')
-                                           ? scalar($cgi->param('new_pkgpart'))
-                                           : ''
-                                         ),
-                  )
-        %>
-    </TD>
-  </TR>
-
-</TABLE>
-
-<BR>
-<INPUT TYPE="submit" VALUE="Change packages">
-
-</FORM>
-</BODY>
-</HTML>
-
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Bulk change customer packages');
-
-</%init>
diff --git a/httemplate/misc/cancel-unaudited.cgi b/httemplate/misc/cancel-unaudited.cgi
deleted file mode 100755
index 4919c6632..000000000
--- a/httemplate/misc/cancel-unaudited.cgi
+++ /dev/null
@@ -1,33 +0,0 @@
-%if ( $error ) {
-%  errorpage($error);
-%} else {
-<% $cgi->redirect(popurl(2)) %>
-%}
-
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Unprovision customer service')
-      && $FS::CurrentUser::CurrentUser->access_right('View/link unlinked services');
-
-#untaint svcnum
-my($query) = $cgi->keywords;
-$query =~ /^(\d+)$/;
-my $svcnum = $1;
-
-#my $svc_acct = qsearchs('svc_acct',{'svcnum'=>$svcnum});
-#die "Unknown svcnum!" unless $svc_acct;
-
-my $cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum});
-die "Unknown svcnum!" unless $cust_svc;
-my $cust_pkg = $cust_svc->cust_pkg;
-if ( $cust_pkg ) {
-  errorpage( 'This account has already been audited.  Cancel the '.
-           qq!<A HREF="${p}view/cust_main.cgi?!. $cust_pkg->custnum.
-           '#cust_pkg'. $cust_pkg->pkgnum. '">'.
-           'package</A> instead.');
-}
-
-my $error = $cust_svc->cancel;
-
-</%init>
diff --git a/httemplate/misc/cancel_cust.html b/httemplate/misc/cancel_cust.html
deleted file mode 100644
index bb4e1904a..000000000
--- a/httemplate/misc/cancel_cust.html
+++ /dev/null
@@ -1,74 +0,0 @@
-<% include('/elements/header-popup.html', 'Cancel customer' ) %>
-
-<% include('/elements/error.html') %>
-
-<FORM NAME="cust_cancel_popup" ACTION="<% popurl(1) %>cust_main-cancel.cgi" METHOD=POST>
-<INPUT TYPE="hidden" NAME="custnum" VALUE="<% $custnum %>">
-
-
- <P ALIGN="center"><B>Permanently delete all services and cancel this customer?</B>
-
- <% $ban %>
- 
-<BR><BR>
-
-<% ntable("#cccccc", 2) %>
-
-<% include('/elements/tr-select-reason.html',
-             'field'          => 'reasonnum',
-             'reason_class'   => 'C',
-             #XXX these need to be sticky on errors too...
-             #'curr_value'     => '',
-             'control_button' => 'document.cust_cancel_popup.submit',
-          )
-%>
-
-</TABLE>
-
-<BR>
-<P ALIGN="CENTER">
-<INPUT TYPE="submit" NAME="submit" VALUE="Cancel customer" disabled='true'>         <INPUT TYPE="BUTTON" VALUE="Don't cancel" onClick="parent.cClick();"> 
-
-</FORM>
-</BODY>
-</HTML>
-
-<%init>
-
-my($custnum, $reasonnum, $submit, $cust_main, $curuser, $class); 
-if ( $cgi->param('error') ) {
-  $custnum        = $cgi->param('custnum');
-  $reasonnum     = $cgi->param('reasonnum');
-} else {
-  my( $query ) = $cgi->keywords;
-  if ( $query =~ /^(\d+)$/ ) {
-    $custnum  = $1;
-  } else {
-    die "illegal query ". $cgi->keywords;
-  }
-}
-
-$curuser = $FS::CurrentUser::CurrentUser;
-
-die "access denied" unless $curuser->access_right('Cancel customer');
-
-$cust_main = qsearchs( {
-  'table'     => 'cust_main',
-  'hashref'   => { 'custnum' => $custnum },
-  'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
-} );
-die "No customer # $custnum" unless $cust_main;
-
-my $ban = '';
-if ( $cust_main->payby =~ /^(CARD|DCRD|CHEK|DCHK)$/ ) {
-  $ban = '<BR><P ALIGN="center">'.
-         '<INPUT TYPE="checkbox" NAME="ban" VALUE="1"> Ban this customer\'s ';
-  if ( $cust_main->payby =~ /^(CARD|DCRD)$/ ) {
-    $ban .= 'credit card';
-  } elsif (  $cust_main->payby =~ /^(CHEK|DCHK)$/ ) {
-    $ban .= 'ACH account';
-  }
-}
-
-</%init>
-
diff --git a/httemplate/misc/cancel_pkg.html b/httemplate/misc/cancel_pkg.html
deleted file mode 100755
index 8dffba72e..000000000
--- a/httemplate/misc/cancel_pkg.html
+++ /dev/null
@@ -1,109 +0,0 @@
-%# if ( $link eq 'popup' ) { 
-  <% include('/elements/header-popup.html', $title ) %>
-%# } else { 
-%#  <%  include("/elements/header.html", $title, '') %>
-%# } 
-
-<LINK REL="stylesheet" TYPE="text/css" HREF="../elements/calendar-win2k-2.css" TITLE="win2k-2">
-<SCRIPT TYPE="text/javascript" SRC="../elements/calendar_stripped.js"></SCRIPT>
-<SCRIPT TYPE="text/javascript" SRC="../elements/calendar-en.js"></SCRIPT>
-<SCRIPT TYPE="text/javascript" SRC="../elements/calendar-setup.js"></SCRIPT>
-
-<% include('/elements/error.html') %>
-
-<FORM NAME="sc_popup" ACTION="<% popurl(1) %>process/cancel_pkg.html" METHOD=POST>
-<INPUT TYPE="hidden" NAME="pkgnum" VALUE="<% $pkgnum %>">
-<INPUT TYPE="hidden" NAME="method" VALUE="<% $method %>">
-
-
-<BR><BR>
-<% ucfirst($method) . " $pkgnum: " .$part_pkg->pkg. ' - ' .$part_pkg->comment %>
-<% ntable("#cccccc", 2) %>
-
-% if ($method eq 'expire' || $method eq 'adjourn') {
-<TR>
-  <TD><% $submit =~ /^(\w*)\s/ %> package on </TD>
-    <TD><INPUT TYPE="text" NAME="date" ID="expire_date" VALUE="<% $date |h %>">
-        <IMG SRC="<% $p %>images/calendar.png" ID="expire_button" STYLE="cursor:pointer" TITLE="Select date">
-        <BR><I>m/d/y</I>
-    </TD>
-</TR>
-<SCRIPT TYPE="text/javascript">
-  Calendar.setup({
-    inputField: "expire_date",
-    ifFormat:   "%m/%d/%Y",
-    button:     "expire_button",
-    align:      "BR"
-  });
-</SCRIPT>
-%}
-%
-
-<% include('/elements/tr-select-reason.html',
-             'field'          => 'reasonnum',
-             'reason_class'   => $class,
-             'curr_value'     => $reasonnum,
-             'control_button' => 'document.sc_popup.submit',
-          )
-%>
-
-</TABLE>
-
-<BR>
-<INPUT TYPE="submit" NAME="submit" VALUE="<% $submit %>" disabled='true'>
-
-</FORM>
-</BODY>
-</HTML>
-
-<%init>
-
-my $date = time2str("%m/%d/%Y", time);
-
-my($pkgnum, $reasonnum);
-if ( $cgi->param('error') ) {
-  $pkgnum    = $cgi->param('pkgnum');
-  $reasonnum = $cgi->param('reasonnum');
-  $date      = $cgi->param('date');
-} elsif ( $cgi->param('pkgnum') =~ /^(\d+)$/ ) {
-  $pkgnum    = $1;
-  $reasonnum = '';
-} else {
-  die "illegal query ". $cgi->keywords;
-}
-
-$cgi->param('method') =~ /^(\w+)$/ or die 'illegal method';
-my $method = $1;
-
-my($class, $submit, $right);
-if ($method eq 'cancel') {
-  $class  = 'C';
-  $submit = 'Cancel Now';
-  $right  = 'Cancel customer package immediately';
-} elsif ($method eq 'expire') {
-  $class  = 'C';
-  $submit = 'Cancel Later';
-  $right  = 'Cancel customer package later';
-} elsif ($method eq 'suspend') {
-  $class  = 'S';
-  $submit = 'Suspend Now';
-  $right  = 'Suspend customer package';
-} elsif ($method eq 'adjourn') {
-  $class  = 'S';
-  $submit = "Suspend Later";
-  $right  = 'Suspend customer package later';
-} else {
-  die 'illegal query (unknown method param)';
-}
-
-my $curuser = $FS::CurrentUser::CurrentUser;
-die "access denied" unless $curuser->access_right($right);
-
-my $title = ucfirst($method) . ' Package';
-
-my $cust_pkg = qsearchs('cust_pkg', {'pkgnum' => $pkgnum})
-  or die "Unknown pkgnum: $pkgnum";
-
-my $part_pkg = $cust_pkg->part_pkg;
-
-</%init>
diff --git a/httemplate/misc/catchall.cgi b/httemplate/misc/catchall.cgi
deleted file mode 100755
index 240f34d0e..000000000
--- a/httemplate/misc/catchall.cgi
+++ /dev/null
@@ -1,118 +0,0 @@
-<% include('/elements/header.html', 'Domain Catchall Edit') %>
-
-<% include('/elements/error.html') %>
-
-<FORM ACTION="<%$p1%>process/catchall.cgi" METHOD=POST>
-
-<INPUT TYPE="hidden" NAME="svcnum" VALUE="<% $svcnum |h %>">
-Service #<FONT SIZE=+1><B><% $svcnum ? $svcnum : ' (NEW)' |h %></B></FONT>
-<BR><BR>
-
-<INPUT TYPE="hidden" NAME="pkgnum" VALUE="<% $pkgnum |h %>">
-
-<INPUT TYPE="hidden" NAME="svcpart" VALUE="<% $svcpart %>">
-
-% my $domain   = $svc_domain->domain;
-% my $catchall = $svc_domain->catchall;
-
-<INPUT TYPE="hidden" NAME="domain" VALUE="<% $domain |h %>">
-
-Mail to <I>(anything)</I>@<B><% $domain |h %></B> forwards to <SELECT NAME="catchall" SIZE=1>
-% foreach $_ (keys %email) {
-    <OPTION<% $_ eq $catchall ? ' SELECTED' : '' %> VALUE="<% $_ %>"><% $email{$_} %>
-% }
-</SELECT>
-<BR><BR>
-
-<INPUT TYPE="submit" VALUE="Submit">
-
-</FORM>
-
-<% include('/elements/footer.html') %>
-
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Edit domain catchall');
-
-my $conf = new FS::Conf;
-
-my($svc_domain, $svcnum, $pkgnum, $svcpart, $part_svc);
-if ( $cgi->param('error') ) {
-  $svc_domain = new FS::svc_domain ( {
-    map { $_, scalar($cgi->param($_)) } fields('svc_domain')
-  } );
-  $svcnum = $svc_domain->svcnum;
-  $pkgnum = $cgi->param('pkgnum');
-  $svcpart = $cgi->param('svcpart');
-  $part_svc=qsearchs('part_svc',{'svcpart'=>$svcpart});
-  die "No part_svc entry!" unless $part_svc;
-} else {
-  my($query) = $cgi->keywords;
-  if ( $query =~ /^(\d+)$/ ) { #editing
-    $svcnum=$1;
-    $svc_domain=qsearchs('svc_domain',{'svcnum'=>$svcnum})
-      or die "Unknown (svc_domain) svcnum!";
-
-    my($cust_svc)=qsearchs('cust_svc',{'svcnum'=>$svcnum})
-      or die "Unknown (cust_svc) svcnum!";
-
-    $pkgnum=$cust_svc->pkgnum;
-    $svcpart=$cust_svc->svcpart;
-  
-    $part_svc=qsearchs('part_svc',{'svcpart'=>$svcpart});
-    die "No part_svc entry!" unless $part_svc;
-
-  } else { 
-
-    die "Invalid (svc_domain) svcnum!";
-
-  }
-}
-
-my %email;
-if ($pkgnum) {
-
-  #find all possible user svcnums (and emails)
-
-  #starting with that currently attached
-  if ($svc_domain->catchall) {
-    my($svc_acct)=qsearchs('svc_acct',{'svcnum'=>$svc_domain->catchall});
-    $email{$svc_domain->catchall} = $svc_acct->email;
-  }
-
-  #and including the rest for this customer
-  my($u_part_svc,@u_acct_svcparts);
-  foreach $u_part_svc ( qsearch('part_svc',{'svcdb'=>'svc_acct'}) ) {
-    push @u_acct_svcparts,$u_part_svc->getfield('svcpart');
-  }
-
-  my($cust_pkg)=qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
-  my($custnum)=$cust_pkg->getfield('custnum');
-  my($i_cust_pkg);
-  foreach $i_cust_pkg ( qsearch('cust_pkg',{'custnum'=>$custnum}) ) {
-    my($cust_pkgnum)=$i_cust_pkg->getfield('pkgnum');
-    my($acct_svcpart);
-    foreach $acct_svcpart (@u_acct_svcparts) {   #now find the corresponding 
-                                              #record(s) in cust_svc ( for this
-                                              #pkgnum ! )
-      my($i_cust_svc);
-      foreach $i_cust_svc ( qsearch('cust_svc',{'pkgnum'=>$cust_pkgnum,'svcpart'=>$acct_svcpart}) ) {
-        my($svc_acct)=qsearchs('svc_acct',{'svcnum'=>$i_cust_svc->getfield('svcnum')});
-        $email{$svc_acct->getfield('svcnum')}=$svc_acct->email;
-      }  
-    }
-  }
-
-} else {
-
-  my($svc_acct)=qsearchs('svc_acct',{'svcnum'=>$svc_domain->catchall});
-  $email{$svc_domain->catchall} = $svc_acct->email;
-}
-
-# add an absence of a catchall
-$email{''} = "(none)";
-
-my $p1 = popurl(1);
-
-</%init>
diff --git a/httemplate/misc/cdr-import.html b/httemplate/misc/cdr-import.html
deleted file mode 100644
index 60f619e81..000000000
--- a/httemplate/misc/cdr-import.html
+++ /dev/null
@@ -1,22 +0,0 @@
-<% include("/elements/header.html",'Call Detail Record Import') %>
-<FORM ACTION="process/cdr-import.html" METHOD="POST" ENCTYPE="multipart/form-data">
-Import a CSV file containing Call Detail Records (CDRs).<BR><BR>
-CDR Format: <SELECT NAME="format">
-<OPTION VALUE="asterisk">Asterisk</OPTION>
-<OPTION VALUE="unitel">Unitel/RSLCOM</OPTION>
-<OPTION VALUE="simple">Simple</OPTION>
-</SELECT><BR><BR>
-
-Filename: <INPUT TYPE="file" NAME="csvfile"><BR><BR>
-
-<INPUT TYPE="submit" VALUE="Upload">
-</FORM>
-
-<% include('/elements/footer.html') %>
-
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Import');
-
-</%init>
diff --git a/httemplate/misc/change_pkg.cgi b/httemplate/misc/change_pkg.cgi
deleted file mode 100755
index d6a24fb32..000000000
--- a/httemplate/misc/change_pkg.cgi
+++ /dev/null
@@ -1,70 +0,0 @@
-<% include('/elements/header-popup.html', "Change Package") %>
-
-<% include('/elements/error.html') %>
-
-<FORM ACTION="<% $p %>edit/process/cust_pkg.cgi" METHOD=POST>
-<INPUT TYPE="hidden" NAME="action" VALUE="change">
-<INPUT TYPE="hidden" NAME="custnum" VALUE="<% $custnum %>">
-<INPUT TYPE="hidden" NAME="remove_pkg" VALUE="<% $pkgnum %>">
-
-<% ntable('#cccccc') %>
-
-  <TR>
-    <TD>Current package: </TD>
-    <TD>
-      <B><% $part_pkg->pkgpart %>: <% $part_pkg->pkg %> - <% $part_pkg->comment %></B>
-    </TD>
-  </TR>
-  
-  <TR>
-    <TD>New package: </TD>
-    <TD><% include('/elements/select-cust-part_pkg.html',
-                     'cust_main'    => $cust_main,
-                     'element_name' => 'new_pkgpart',
-                     'extra_sql'    => ' AND pkgpart != '. $cust_pkg->pkgpart,
-                     'curr_value'   => ( $cgi->param('error')
-                                           ? scalar($cgi->param('new_pkgpart'))
-                                           : ''
-                                       ),
-                  )
-        %>
-    </TD>
-  </TR>
-
-</TABLE>
-
-<BR>
-<INPUT TYPE="submit" VALUE="Change package">
-
-</FORM>
-</BODY>
-</HTML>
-
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Change customer package');
-
-my $pkgnum;
-if ( $cgi->param('error') ) {
-  $pkgnum = ($cgi->param('remove_pkg'))[0];
-} else {
-  $pkgnum = $cgi->param('pkgnum');
-}
-$pkgnum =~ /^(\d+)$/ or die "illegal pkgnum $pkgnum";
-$pkgnum = $1;
-
-my $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } )
-  or die "unknown pkgnum $pkgnum";
-my $custnum = $cust_pkg->custnum;
-
-my $conf = new FS::Conf;
-
-my $cust_main = $cust_pkg->cust_main
-  or die "can't get cust_main record for custnum ". $cust_pkg->custnum.
-         " ( pkgnum ". cust_pkg->pkgnum. ")";
-my $agent = $cust_main->agent;
-
-my $part_pkg = $cust_pkg->part_pkg;
-
-</%init>
diff --git a/httemplate/misc/counties.cgi b/httemplate/misc/counties.cgi
deleted file mode 100644
index c022a27d9..000000000
--- a/httemplate/misc/counties.cgi
+++ /dev/null
@@ -1,7 +0,0 @@
-[ <% join(', ', map { qq("$_") } @counties) %> ]
-<%init>
-
-my( $state, $country ) = $cgi->param('arg');
-my @counties = counties($state, $country);
-
-</%init>
diff --git a/httemplate/misc/cust_main-cancel.cgi b/httemplate/misc/cust_main-cancel.cgi
deleted file mode 100755
index 009a7d41b..000000000
--- a/httemplate/misc/cust_main-cancel.cgi
+++ /dev/null
@@ -1,57 +0,0 @@
-<% header("Customer cancelled") %>
-  <SCRIPT TYPE="text/javascript">
-    window.top.location.reload();
-  </SCRIPT>
-  </BODY>
-</HTML>
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Cancel customer');
-
-my $custnum;
-my $ban = '';
-if ( $cgi->param('custnum') =~ /^(\d+)$/ ) {
-  $custnum = $1;
-  $ban = $cgi->param('ban');
-} else {
-  my($query) = $cgi->keywords;
-  $query =~ /^(\d+)$/ || die "Illegal custnum";
-  $custnum = $1;
-}
-
-#false laziness w/process/cancel_pkg.html
-
-#untaint reasonnum
-my $reasonnum = $cgi->param('reasonnum');
-$reasonnum =~ /^(-?\d+)$/ || die "Illegal reasonnum";
-$reasonnum = $1;
-
-if ($reasonnum == -1) {
-  $reasonnum = {
-    'typenum' => scalar( $cgi->param('newreasonnumT') ),
-    'reason'  => scalar( $cgi->param('newreasonnum' ) ),
-  };
-}
-
-#eslaf
-
-my $cust_main = qsearchs( {
-  'table'     => 'cust_main',
-  'hashref'   => { 'custnum' => $custnum },
-  'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
-} );
-
-warn "cancelling $cust_main";
-my @errors = $cust_main->cancel(
-  'ban'    => $ban,
-  'reason' => $reasonnum,
-);
-my $error = join(' / ', @errors) if scalar(@errors);
-
-if ( $error ) {
-  $cgi->param('error', $error);
-  print $cgi->redirect(popurl(1). "cancel_cust.html?". $cgi->query_string );
-}
-
-</%init>
diff --git a/httemplate/misc/cust_main-import.cgi b/httemplate/misc/cust_main-import.cgi
deleted file mode 100644
index 84da38611..000000000
--- a/httemplate/misc/cust_main-import.cgi
+++ /dev/null
@@ -1,109 +0,0 @@
-<% include("/elements/header.html",'Batch Customer Import') %>
-
-Import a CSV file containing customer records.
-<BR><BR>
-
-<FORM ACTION="process/cust_main-import.cgi" METHOD="post" ENCTYPE="multipart/form-data">
-
-<% &ntable("#cccccc", 2) %>
-
-<% include('/elements/tr-select-agent.html',
-              #'curr_value' => '', #$agentnum,
-              'label'       => "<B>Agent</B>",
-              'empty_label' => 'Select agent',
-           )
-%>
-
-<TR>
-  <TH ALIGN="right">Format</TH>
-  <TD>
-    <SELECT NAME="format">
-
-      <OPTION VALUE="extended" SELECTED>Extended
-      <OPTION VALUE="extended-plus_company">Extended plus company
-    </SELECT>
-  </TD>
-</TR>
-
-<TR>
-  <TH ALIGN="right">CSV filename</TH>
-  <TD><INPUT TYPE="file" NAME="csvfile"></TD>
-</TR>
-% #include('/elements/tr-select-part_referral.html')
-%
-
-
-
-
-<TR><TD COLSPAN=2 ALIGN="center" STYLE="padding-top:6px"><INPUT TYPE="submit" VALUE="Import CSV file"></TD></TR>
-
-</TABLE>
-
-</FORM>
-
-<BR>
-
-
-
-<b>Extended</b> file format is CSV, with the following field order: <i>agent_custid, refnum<%$req%>, last<%$req%>, first<%$req%>, address1<%$req%>, address2, city<%$req%>, state<%$req%>, zip<%$req%>, country, daytime, night, ship_last, ship_first, ship_address1, ship_address2, ship_city, ship_state, ship_zip, ship_country, payinfo<%$req%>, paycvv, paydate<%$req%>, invoicing_list, pkgpart, username, _password</i>
-<BR><BR>
-
-<b>Extended plus company</b> file format is CSV, with the following field order: <i>agent_custid, refnum<%$req%>, last<%$req%>, first<%$req%>, company, address1<%$req%>, address2, city<%$req%>, state<%$req%>, zip<%$req%>, country, daytime, night, ship_last, ship_first, ship_company, ship_address1, ship_address2, ship_city, ship_state, ship_zip, ship_country, payinfo<%$req%>, paycvv, paydate<%$req%>, invoicing_list, pkgpart, username, _password</i>
-<BR><BR>
-
-<%$req%> Required fields
-<BR><BR>
-
-Field information:
-
-<ul>
-
-  <li><i>agent_custid</i>: This is the reseller's idea of the customer number or identifier.  It may be left blank.  If specified, it must be unique per-agent.
-
-  <li><i>refnum</i>: Advertising source number - where a customer heard about your service.  Configuration -> Miscellaneous -> View/Edit advertising sources.  This field has special treatment upon import: If a string is passed instead
-of an integer, the string is searched for and if necessary auto-created in the
-advertising source table.
-
-  <li><i>payinfo</i>: Credit card number, or leave this, <i>paycvv</i> and <i>paydate</i> blank for email/paper invoicing.
-
-  <li><i>paycvv</i>: CVV2 number (three digits on the back of the credit card)
-
-  <li><i>paydate</i>: Credit card expiration date, MM/YYYY or MM/YY (M/YY and M/YYYY are also accepted).
-
-  <li><i>invoicing_list</i>: Email address for invoices, or POST for postal invoices.
-
-  <li><i>pkgpart</i>: Package definition.  Configuration -> Provisioning, services and packages -> View/Edit package definitions
-
-  <li><i>username</i> and <i>_password</i> are required if <i>pkgpart</i> is specified.
-</ul>
-
-<BR>
-
-<% include('/elements/footer.html') %>
-
-<%once>
-
-my $req = qq!<font color="#ff0000">*</font>!;
-
-</%once>
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Import');
-
-</%init>
diff --git a/httemplate/misc/cust_main-import_charges.cgi b/httemplate/misc/cust_main-import_charges.cgi
deleted file mode 100644
index 3801929e8..000000000
--- a/httemplate/misc/cust_main-import_charges.cgi
+++ /dev/null
@@ -1,22 +0,0 @@
-<% include('/elements/header.html', 'Batch Customer Charge') %>
-
-<FORM ACTION="process/cust_main-import_charges.cgi" METHOD="post" ENCTYPE="multipart/form-data">
-
-Import a CSV file containing customer charges.<BR><BR>
-Default file format is CSV, with the following field order: <i>custnum, amount, description</i><BR><BR>
-If <i>amount</i> is negative, a credit will be applied instead.<BR><BR>
-<BR><BR>
-
-CSV Filename: <INPUT TYPE="file" NAME="csvfile"><BR><BR>
-<INPUT TYPE="submit" VALUE="Import">
-
-</FORM>
-
-<% include('/elements/footer.html') %>
-
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Import');
-
-</%init>
diff --git a/httemplate/misc/cust_main_note-import.cgi b/httemplate/misc/cust_main_note-import.cgi
deleted file mode 100644
index b93c5c1cc..000000000
--- a/httemplate/misc/cust_main_note-import.cgi
+++ /dev/null
@@ -1,207 +0,0 @@
-<% include("/elements/header.html", 'Batch Customer Note Import') %>
-%
-
-<FORM ACTION="process/cust_main_note-import.cgi" METHOD="POST">
-
-
-<SCRIPT TYPE="text/javascript">
-
-  function clearhint_custnum() {
-
-    if ( this.value == 'Not found' ) {
-      this.value = '';
-      this.style.color = '#000000';
-    }
-
-  }
-
-  function search_custnum() {
-
-    this.style.color = '#000000'
-
-    var custnum_obj = this;
-    var searchrow = this.getAttribute('rownum');
-    var custnum = this.value;
-    var name_obj = document.getElementById('name'+searchrow);
-
-    if ( custnum == 'searching...' || custnum == 'Not found' )
-      return;
-
-    var customer_select = document.getElementById('cust_select'+searchrow);
-
-    if ( custnum == '' ) {
-      customer_select.selectedIndex = 0;
-      return;
-    }
-
-    custnum_obj.value = 'searching...';
-    custnum_obj.disabled = true;
-    custnum_obj.style.backgroundColor = '#dddddd';
-
-
-    //alert('search for custnum ' + custnum + ', row#' + searchrow );
-
-    function search_custnum_update(name) {
-
-      var name = eval('(' + name + ')' );
-
-      custnum_obj.disabled = false;
-      custnum_obj.style.backgroundColor = '#ffffff';
-
-      if ( name.length > 0 ) {
-        //alert('custnum found: ' + name);
-        opt(customer_select,custnum,name,'#000000');
-        customer_select.selectedIndex = customer_select.length - 1;
-        custnum_obj.value = custnum;
-        name_obj.value = name;
-      } else {
-        custnum_obj.value = 'Not found';
-        custnum_obj.style.color = '#ff0000';
-      }
-
-    }
-
-    custnum_search( custnum, search_custnum_update );
-
-  }
-
-  function select_customer() {
-
-    var custnum = this.options[this.selectedIndex].value;
-    var name = this.options[this.selectedIndex].text;
-
-    var searchrow = this.getAttribute('rownum');
-    var custnum_obj = document.getElementById('custnum'+searchrow);
-    var name_obj = document.getElementById('name'+searchrow);
-
-    custnum_obj.value = custnum;
-    custnum_obj.style.color = '#000000';
-
-    name_obj.value = name;
-
-  }
-
-  function opt(what,value,text,color) {
-    var optionName = new Option(text, value, false, false);
-    optionName.style.color = color;
-    var length = what.length;
-    what.options[length] = optionName;
-  }
-
-  function previewChanged(what) {
-    var submit_obj = document.getElementById('importsubmit');
-    if (what.checked) {
-      submit_obj.value = 'Preview note import';
-    }else{
-      submit_obj.value = 'Import notes';
-    }
-  }
-
-</SCRIPT>
-
-<% include('/elements/xmlhttp.html',
-              'url'  => $p. 'misc/xmlhttp-cust_main-search.cgi',
-              'subs' => [qw( custnum_search )],
-           )
-%>
-
-%  my $fh = $cgi->upload('csvfile');
-%  my $csv = new Text::CSV_XS;
-%  my $skip_fuzzies = $cgi->param('fuzzies') ? 0 : 1;
-%
-%  if ( defined($fh) ) {
-     <TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0>
-     <TR>
-       <TH>Cust #</TH>
-       <TH>Customer</TH>
-       <TH>Last</TH>
-       <TH>First</TH>
-       <TH>Note to be added</TH>
-     </TR>
-%    my $agentnum   => scalar($cgi->param('agentnum')),
-%    my $line;
-%    my $row = 0;
-%    while ( defined($line=<$fh>) ) {
-%      $line =~ s/(\S*)\s*$/$1/;
-%      $line =~ s/^(.*)(#!).*/$1/;
-%
-%      $csv->parse($line) or die "can't parse line: " . $csv->error_input();
-%      my $custnum = 0;
-%      my @values = $csv->fields();
-%      my $last  = shift @values;
-%      if ($last =~ /^\s*(\d+)\s*$/ ) {
-%        $custnum = $1;
-%        $last = shift @values;
-%      }
-%      my $first = shift @values;
-%      my $note  = join ' ', @values;
-%      next unless ( $last || $first || $note );
-%      my @cust_main = ();
-%      warn "searching for: $last, $first" if ($first || $last);
-%      if ($custnum) {
-%        @cust_main = qsearch('cust_main', { 'custnum' => $custnum });
-%      } else {
-%        @cust_main = FS::cust_main::smart_search(
-%                                          'search' => "$last, $first",
-%                                          'no_fuzzy_on_exact' => $skip_fuzzies,
-%                                                )
-%          if ($first || $last);
-%      }
-%
-       <TR>
-         <TD>
-           <INPUT TYPE="text" NAME="custnum<% $row %>" ID="custnum<% $row %>" SIZE=8 MAXLENGTH=12 VALUE="<% $cust_main[0] ? $cust_main[0]->custnum : '' %>" rownum="<% $row %>">
-             <SCRIPT TYPE="text/javascript">
-               var custnum_input<% $row %> = document.getElementById("custnum<% $row %>");
-               custnum_input<% $row %>.onfocus = clearhint_custnum;
-               custnum_input<% $row %>.onchange = search_custnum;
-             </SCRIPT>
-         </TD>
-         <TD>
-           <SELECT NAME="cust_select<% $row %>" ID="cust_select<% $row %>" rownum="<% $row %>">
-             <OPTION VALUE="">---</OPTION>
-%      my $i=0;
-%      foreach (@cust_main) {
-             <OPTION <% $i ? '' : 'SELECTED' %> VALUE="<% $_->custnum %>"><% $_->name %></OPTION>
-%        $i++;
-%      }
-           </SELECT>
-             <SCRIPT TYPE="text/javascript">
-               var customer_select<% $row %> = document.getElementById("cust_select<% $row %>");
-               customer_select<% $row %>.onchange = select_customer;
-             </SCRIPT>
-           <INPUT TYPE="hidden" NAME="name<% $row %>" ID="name<% $row %>" VALUE="<% $i ? $cust_main[0]->name : '' %>">
-         </TD>
-         <TD>
-           <% $first %>
-           <INPUT TYPE="hidden" NAME="first<% $row %>" VALUE="<% $first %>">
-         </TD>
-         <TD>
-           <% $last %>
-           <INPUT TYPE="hidden" NAME="last<% $row %>" VALUE="<% $last %>">
-         </TD>
-         <TD>
-           <% $note %>
-           <INPUT TYPE="hidden" NAME="note<% $row %>" VALUE="<% $note %>">
-         </TD>
-       </TR>
-%      $row++;
-%    }
-     </TABLE>
-     <INPUT TYPE="submit" NAME="submit" ID="importsubmit" VALUE="Import notes">
-     <INPUT TYPE="checkbox" NAME="preview" onchange="previewChanged(this);">
-     Preview mode
-%  } else {
-     No file supplied
-%  }
-
-</FORM>
-</BODY>
-</HTML>
-
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Import');
-
-</%init>
diff --git a/httemplate/misc/cust_main_note-import.html b/httemplate/misc/cust_main_note-import.html
deleted file mode 100644
index d8fefa732..000000000
--- a/httemplate/misc/cust_main_note-import.html
+++ /dev/null
@@ -1,39 +0,0 @@
-<% include("/elements/header.html",'Batch Customer Note Import') %>
-
-<FORM ACTION="cust_main_note-import.cgi" METHOD="post" ENCTYPE="multipart/form-data">
-
-Import a CSV file containing customer notes records.
-<BR><BR>
-
-File format is CSV, with the following field order: <i>[custnum,] last, first, notefield1, notefield2, notefield3...</i>
-<BR>
-The optional custnum field is identified by being numeric.
-Anything after the character sequence #! is ignored.
-<BR><BR>
-
-<% &ntable("#cccccc") %>
-
-<TR>
-  <TH ALIGN="right">CSV filename</TH>
-  <TD><INPUT TYPE="file" NAME="csvfile"></TD>
-</TR>
-<TR>
-  <TH ALIGN="right">Include additional possibilites when exact match is found</TH>
-  <TD><INPUT TYPE="checkbox" NAME="fuzzies"></TD>
-</TR>
-
-</TABLE>
-<BR><BR>
-
-<INPUT TYPE="submit" VALUE="Load and match">
-</FORM>
-
-<% include('/elements/footer.html') %>
-
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Import');
-
-</%init>
-
diff --git a/httemplate/misc/cust_pay-import.cgi b/httemplate/misc/cust_pay-import.cgi
deleted file mode 100644
index 849a25bea..000000000
--- a/httemplate/misc/cust_pay-import.cgi
+++ /dev/null
@@ -1,62 +0,0 @@
-<% include("/elements/header.html",'Batch Payment Import') %>
-
-Import a CSV file containing customer payments.
-<BR><BR>
-
-<FORM ACTION="process/cust_pay-import.cgi" METHOD="post" ENCTYPE="multipart/form-data">
-
-<% &ntable("#cccccc", 2) %>
-
-<% include('/elements/tr-select-agent.html',
-              #'curr_value' => '', #$agentnum,
-              'label'       => "<B>Agent</B>",
-              'empty_label' => 'Select agent',
-           )
-%>
-
-<TR>
-  <TH ALIGN="right">Format</TH>
-  <TD>
-    <SELECT NAME="format">
-      <OPTION VALUE="simple">Simple
-
-    </SELECT>
-  </TD>
-</TR>
-
-<TR>
-  <TH ALIGN="right">CSV filename</TH>
-  <TD><INPUT TYPE="file" NAME="csvfile"></TD>
-</TR>
-
-<TR><TD COLSPAN=2 ALIGN="center" STYLE="padding-top:6px"><INPUT TYPE="submit" VALUE="Import CSV file"></TD></TR>
-
-</TABLE>
-
-</FORM>
-
-<BR>
-
-Simple file format is CSV, with the following field order: <i>custnum, agent_custid, amount, checknum</i>
-<BR><BR>
-
-
-
-Field information:
-
-<ul>
-
-  <li><i>custnum</i>: This is the freeside customer number.  It may be left blank.  If specified, agent_custid must be blank.
-
-  <li><i>agent_custid</i>: This is the reseller's idea of the customer number or identifier.  It may be left blank.  If specified, custnum must be blank.
-
-  <li><i>amount</i>: A positive numeric value with at most two digits after the decimal point.
-
-  <li><i>checknum</i>: A sequences of digits.  May be left blank.
-
-</ul>
-
-<BR>
-
-<% include('/elements/footer.html') %>
diff --git a/httemplate/misc/delete-agent_payment_gateway.cgi b/httemplate/misc/delete-agent_payment_gateway.cgi
deleted file mode 100644
index 20a202e0e..000000000
--- a/httemplate/misc/delete-agent_payment_gateway.cgi
+++ /dev/null
@@ -1,15 +0,0 @@
-% die "you don't have the 'Configuration' access right"
-%   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
-%
-% my($query) = $cgi->keywords;
-% $query  =~ /^(\d+)$/ || die "Illegal agentgatewaynum";
-% my $agentgatewaynum = $1;
-%
-% my $agent_payment_gateway = qsearchs('agent_payment_gateway', { 
-%   'agentgatewaynum' => $agentgatewaynum,
-% });
-%
-% my $error = $agent_payment_gateway->delete;
-% errorpage($error) if $error;
-%
-% print $cgi->redirect($p. "browse/agent.cgi");
diff --git a/httemplate/misc/delete-cust_credit.cgi b/httemplate/misc/delete-cust_credit.cgi
deleted file mode 100755
index 03eb47299..000000000
--- a/httemplate/misc/delete-cust_credit.cgi
+++ /dev/null
@@ -1,21 +0,0 @@
-% if ( $error ) {
-%   errorpage($error);
-% } else {
-<% $cgi->redirect($p. "view/cust_main.cgi?". $custnum) %>
-% }
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Delete credit');
-
-#untaint crednum
-my($query) = $cgi->keywords;
-$query =~ /^(\d+)$/ || die "Illegal crednum";
-my $crednum = $1;
-
-my $cust_credit = qsearchs('cust_credit',{'crednum'=>$crednum});
-my $custnum = $cust_credit->custnum;
-
-my $error = $cust_credit->delete;
-
-</%init>
diff --git a/httemplate/misc/delete-cust_pay.cgi b/httemplate/misc/delete-cust_pay.cgi
deleted file mode 100755
index 38e7e4ba1..000000000
--- a/httemplate/misc/delete-cust_pay.cgi
+++ /dev/null
@@ -1,21 +0,0 @@
-% if ( $error ) {
-%   errorpage($error);
-% } else {
-<% $cgi->redirect($p. "view/cust_main.cgi?". $custnum) %>
-% }
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Delete payment');
-
-#untaint paynum
-my($query) = $cgi->keywords;
-$query =~ /^(\d+)$/ || die "Illegal paynum";
-my $paynum = $1;
-
-my $cust_pay = qsearchs('cust_pay',{'paynum'=>$paynum});
-my $custnum = $cust_pay->custnum;
-
-my $error = $cust_pay->delete;
-
-</%init>
diff --git a/httemplate/misc/delete-cust_refund.cgi b/httemplate/misc/delete-cust_refund.cgi
deleted file mode 100755
index 983a79da5..000000000
--- a/httemplate/misc/delete-cust_refund.cgi
+++ /dev/null
@@ -1,21 +0,0 @@
-% if ( $error ) {
-%   errorpage($error);
-% } else {
-<% $cgi->redirect($p. "view/cust_main.cgi?". $custnum) %>
-% }
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Delete refund');
-
-#untaint refundnum
-my($query) = $cgi->keywords;
-$query =~ /^(\d+)$/ || die "Illegal refundnum";
-my $refundnum = $1;
-
-my $cust_refund = qsearchs('cust_refund',{'refundnum'=>$refundnum});
-my $custnum = $cust_refund->custnum;
-
-my $error = $cust_refund->delete;
-
-</%init>
diff --git a/httemplate/misc/delete-customer.cgi b/httemplate/misc/delete-customer.cgi
deleted file mode 100755
index 17b7bda5e..000000000
--- a/httemplate/misc/delete-customer.cgi
+++ /dev/null
@@ -1,64 +0,0 @@
-<% include('/elements/header.html', 'Delete customer') %>
-
-<% include('/elements/error.html') %>
-
-<FORM ACTION="<% popurl(1) %>process/delete-customer.cgi" METHOD=POST>
-<INPUT TYPE="hidden" NAME="custnum" VALUE="<% $custnum |h %>">
-
-%if ( qsearch('cust_pkg', { 'custnum' => $custnum, 'cancel' => '' } ) ) {
-  Move uncancelled packages to customer number 
-  <INPUT TYPE="text" NAME="new_custnum" VALUE="<% $new_custnum |h %>"><BR><BR>
-%}
-
-This will <B>completely remove</B> all traces of this customer record.  This
-is <B>not</B> what you want if this is a real customer who has simply
-canceled service with you.  For that, cancel all of the customer's packages.
-(you can optionally hide cancelled customers with the <A HREF="../config/config-view.cgi#hidecancelledcustomers">hidecancelledcustomers</A> configuration option)
-<BR>
-<BR>Are you <B>absolutely sure</B> you want to delete this customer?
-<BR><INPUT TYPE="submit" VALUE="Yes">
-</FORM>
-
-<% include('/elements/footer.html') %>
-
-%#Deleting a customer you have financial records on (i.e. credits) is
-%#typically considered fraudulant bookkeeping.  Remember, deleting   
-%#customers should ONLY be used for completely bogus records.  You should
-%#NOT delete real customers who simply discontinue service.
-%#
-%#For real customers who simply discontinue service, cancel all of the
-%#customer's packages.  Customers with all cancelled packages are not  
-%#billed.  There is no need to take further action to prevent billing on
-%#customers with all cancelled packages.
-%#
-%#Also see the "hidecancelledcustomers" and "hidecancelledpackages"
-%#configuration options, which will allow you to surpress the display of
-%#cancelled customers and packages, respectively.
-
-<%init>
-
-my $conf = new FS::Conf;
-die "Customer deletions not enabled in configuration"
-  unless $conf->exists('deletecustomers');
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Delete customer');
-
-my($custnum, $new_custnum);
-if ( $cgi->param('error') ) {
-  $custnum = $cgi->param('custnum');
-  $new_custnum = $cgi->param('new_custnum');
-} else {
-  my($query) = $cgi->keywords;
-  $query =~ /^(\d+)$/ or die "Illegal query: $query";
-  $custnum = $1;
-  $new_custnum = '';
-}
-my $cust_main = qsearchs( {
-  'table'     => 'cust_main',
-  'hashref'   => { 'custnum' => $custnum },
-  'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
-} )
-  or die 'Unknown custnum';
-
-<%/init>
diff --git a/httemplate/misc/delete-domain_record.cgi b/httemplate/misc/delete-domain_record.cgi
deleted file mode 100755
index 08eedde5f..000000000
--- a/httemplate/misc/delete-domain_record.cgi
+++ /dev/null
@@ -1,20 +0,0 @@
-% if ( $error ) {
-%   errorpage($error);
-% } else {
-<% $cgi->redirect($p. "view/svc_domain.cgi?". $domain_record->svcnum) %>
-% }
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice');
-
-#untaint recnum
-my($query) = $cgi->keywords;
-$query =~ /^(\d+)$/ || die "Illegal recnum";
-my $recnum = $1;
-
-my $domain_record = qsearchs('domain_record',{'recnum'=>$recnum});
-
-my $error = $domain_record->delete;
-
-</%init>
diff --git a/httemplate/misc/delete-part_export.cgi b/httemplate/misc/delete-part_export.cgi
deleted file mode 100755
index 52404e0c4..000000000
--- a/httemplate/misc/delete-part_export.cgi
+++ /dev/null
@@ -1,20 +0,0 @@
-% if ( $error ) {
-%   errorpage($error);
-% } else {
-<% $cgi->redirect($p. "browse/part_export.cgi") %>
-% }
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
-
-#untaint exportnum
-my($query) = $cgi->keywords;
-$query =~ /^(\d+)$/ || die "Illegal exportnum";
-my $exportnum = $1;
-
-my $part_export = qsearchs('part_export',{'exportnum'=>$exportnum});
-
-my $error = $part_export->delete;
-
-</%init>
diff --git a/httemplate/misc/disable-payment_gateway.cgi b/httemplate/misc/disable-payment_gateway.cgi
deleted file mode 100644
index 13e1f92bc..000000000
--- a/httemplate/misc/disable-payment_gateway.cgi
+++ /dev/null
@@ -1,25 +0,0 @@
-%if ( $error ) {
-%  errorpage($error);
-%} else {
-%#<% $cgi->redirect(popurl(2). "browse/payment_gateway.html?showdiabled=$showdisabled") %>
-<% $cgi->redirect(popurl(2). "browse/payment_gateway.html") %>
-%}
-<%init>
-
-die "access deined"
-  unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
-
-#my $showdisabled = 0;
-#$cgi->param('showdisabled') =~ /^(\d+)$/ and $showdisabled = $1;
-
-#$cgi->param('gatewaynum') =~ /^(\d+)$/ or die 'illegal gatewaynum';
-my($query) = $cgi->keywords;
-$query =~ /^(\d+)$/ or die 'illegal gatewaynum';
-my $gatewaynum = $1;
-
-my $payment_gateway =
-  qsearchs('payment_gateway', { 'gatewaynum' => $gatewaynum } );
-
-my $error = $payment_gateway->disable;
-
-</%init>
diff --git a/httemplate/misc/download-batch.cgi b/httemplate/misc/download-batch.cgi
deleted file mode 100644
index 57905daf9..000000000
--- a/httemplate/misc/download-batch.cgi
+++ /dev/null
@@ -1,213 +0,0 @@
-%if ($format eq "BoM") {
-%
-%  my($origid,$datacenter,$typecode,$shortname,$longname,$mybank,$myacct) =
-%    $conf->config("batchconfig-$format");
-%  
-<% sprintf( "A%10s%04u%06u%05u%54s\n",$origid,$pay_batch->batchnum,$jdate,$datacenter,"").
-        sprintf( "XD%03u%06u%-15s%-30s%09u%-12s   \n",$typecode,$jdate,$shortname,$longname,$mybank,$myacct )
-  %>
-%
-%}elsif ($format eq "PAP"){
-%
-%  my($origid,$datacenter,$typecode,$shortname,$longname,$mybank,$myacct) =
-%    $conf->config("batchconfig-$format");
-%  
-<% sprintf( "H%10sD%3s%06u%-15s%09u%-12s%04u%19s\n",$origid,$typecode,$cdate,$shortname,$mybank,$myacct,$pay_batch->batchnum,"") %>
-%
-%
-%}elsif ($format eq "csv-td_canada_trust-merchant_pc_batch"){
-%#  1;
-%}elsif ($format eq "csv-chase_canada-E-xactBatch"){
-%
-%  my($origid) = $conf->config("batchconfig-$format");
-<% sprintf( '$$E-xactBatchFileV1.0$$%s:%03u$$%s',$sdate,$pay_batch->batchnum, $origid)
-  %>
-%
-%}elsif ($format eq "ach-spiritone"){
-%#  1;
-%}else{
-%  die "Unknown format for batch in batchconfig. \n";
-%}
-%
-%
-%for my $cust_pay_batch ( sort { $a->paybatchnum <=> $b->paybatchnum }
-%                           qsearch('cust_pay_batch',
-%			      {'batchnum'=>$pay_batch->batchnum} )
-%) {
-%
-%  $cust_pay_batch->exp =~ /^\d{2}(\d{2})[\/\-](\d+)[\/\-]\d+$/;
-%  my( $mon, $y ) = ( $2, $1 );
-%  if ( $conf->exists('batch-increment_expiration') ) {
-%    my( $curmon, $curyear ) = (localtime(time))[4,5];
-%    $curmon++; $curyear-=100;
-%    $y++ while $y < $curyear || ( $y == $curyear && $mon < $curmon );
-%  }
-%  $mon = "0$mon" if $mon =~ /^\d$/;
-%  $y = "0$y" if $y =~ /^\d$/;
-%  my $exp = "$mon$y";
-%
-%  if ( $first_download ) {
-%    my $balance = $cust_pay_batch->cust_main->balance;
-%    if ( $balance <= 0 ) {
-%      my $error = $cust_pay_batch->delete;
-%      if ( $error ) {
-%        $dbh->rollback or die $dbh->errstr if $oldAutoCommit;
-%        die $error;
-%      }
-%      next;
-%    } elsif ( $balance < $cust_pay_batch->amount ) {
-%      $cust_pay_batch->amount($balance);
-%      my $error = $cust_pay_batch->replace;
-%      if ( $error ) {
-%        $dbh->rollback or die $dbh->errstr if $oldAutoCommit;
-%        die $error;
-%      }
-%    #} elsif ( $balance > $cust_pay_batch->amount ) {
-%    } 
-%  }
-%
-%  $batchcount++;
-%  $batchtotal += $cust_pay_batch->amount;
-%  
-%  if ($format eq "BoM") {
-%
-%    my( $account, $aba ) = split( '@', $cust_pay_batch->payinfo );
-%    
-<% sprintf( "D%010.0f%09u%-12s%-29s%-19s\n",$cust_pay_batch->amount*100,$aba,$account,$cust_pay_batch->payname,$cust_pay_batch->paybatchnum) %>
-%
-%
-%  } elsif ($format eq "PAP"){
-%
-%    my( $account, $aba ) = split( '@', $cust_pay_batch->payinfo );
-%    
-<% sprintf( "D%-23s%06u%-19s%09u%-12s%010.0f\n",$cust_pay_batch->payname,$cdate,$cust_pay_batch->paybatchnum,$aba,$account,$cust_pay_batch->amount*100) %>
-%
-%
-%  } elsif ($format eq "csv-td_canada_trust-merchant_pc_batch") {
-%
-%    
-,,,,<% $cust_pay_batch->payinfo %>,<% $exp %>,<% $cust_pay_batch->amount %>,<% $cust_pay_batch->paybatchnum %>
-%
-%
-%  } elsif ($format eq "csv-chase_canada-E-xactBatch"){
-%
-%  my $payname=$cust_pay_batch->payname; $payname =~ tr/",/  /; #payinfo too? :P
-<% $cust_pay_batch->paybatchnum %>,<% $cust_pay_batch->custnum %>,<% $cust_pay_batch->invnum %>,"<% $payname %>",00,<% $cust_pay_batch->payinfo %>,<% $cust_pay_batch->amount %>,<% $exp %>,,
-%
-%
-%  }elsif ($format eq "ach-spiritone"){
-%
-%  my( $account, $aba ) = split( '@', $cust_pay_batch->payinfo );
-%  my $payname=$cust_pay_batch->first. " ". $cust_pay_batch->last;
-%  $payname =~ tr/",/  /;                                        #payinfo too?
-%  my $batchline = qq!"$payname","!.$cust_pay_batch->paybatchnum.
-%                  qq!","$aba","$account","27","!.$cust_pay_batch->amount.
-%                  qq!","27","0.00"!;
-%  push @batchlines, $batchline;
-<% $batchline %>
-%
-%  } else {
-%    die "I'm already dead, but you did not know that.\n";
-%  }
-%
-%}
-%
-%if ($format eq "BoM") {
-%
-%  
-<% sprintf( "YD%08u%014.0f%56s\n",$batchcount,$batchtotal*100,"" ).
-        sprintf( "Z%014u%05u%014u%05u%41s\n",$batchtotal*100,$batchcount,"0","0","" ) %>
-%
-%
-%} elsif ($format eq "PAP"){
-%
-%  
-<% sprintf( "T%08u%014.0f%57s\n",$batchcount,$batchtotal*100,"" ) %>
-%
-%
-%} elsif ($format eq "csv-td_canada_trust-merchant_pc_batch"){
-%  #1;
-%} elsif ($format eq "csv-chase_canada-E-xactBatch"){
-%  #1;
-%} elsif ($format eq "ach-spiritone"){
-%  #1;
-%} else {
-%  die "I'm already dead (again), but you did not know that.\n";
-%}
-%
-<%init>
-
-my $conf=new FS::Conf;
-
-#http_header('Content-Type' => 'text/comma-separated-values' ); #IE chokes
-http_header('Content-Type' => 'text/plain' );
-
-my $batchnum;
-if ( $cgi->param('batchnum') =~ /^(\d+)$/ ) {
-  $batchnum = $1;
-} else {
-  die "No batch number (bad URL) \n";
-}
-
-my $format;
-if ( $cgi->param('format') =~ /^([\w\- ]+)$/ ) {
-  $format = $1;
-} else {
-  $format = $conf->config('batch-default_format');
-}
-
-my $autopost;
-if ( $format eq 'ach-spiritone' ) {
-  $autopost = 1;
-}else{
-  $autopost = 0;
-}
-
-my $oldAutoCommit = $FS::UID::AutoCommit;
-local $FS::UID::AutoCommit = 0;
-my $dbh = dbh;
-
-my $pay_batch = qsearchs('pay_batch', {'batchnum'=>$batchnum, 'status'=>'O'} );
-my $first_download = 1;
-unless ($pay_batch) {
-  $pay_batch = qsearchs('pay_batch', {'batchnum'=>$batchnum, 'status'=>'I'} )
-    if $FS::CurrentUser::CurrentUser->access_right('Reprocess batches');
-  $first_download = 0;
-}
-die "No pending batch. \n" unless $pay_batch;
-
-my $error = $pay_batch->set_status('I');
-die "error updating batch status: $error\n" if $error;
-
-my $batchtotal=0;
-my $batchcount=0;
-
-my (@date)=localtime($pay_batch->download);
-my $jdate = sprintf("%03d", $date[5] % 100).sprintf("%03d", $date[7] + 1);
-my $cdate = sprintf("%02d", $date[3]).sprintf("%02d", $date[4] + 1).
-            sprintf("%02d", $date[5] % 100);
-my $sdate = sprintf("%02d", $date[5] % 100).'/'.sprintf("%02d", $date[4] + 1).
-            '/'.sprintf("%02d", $date[3]);
-
-my @batchlines = ();
-</%init>
-<%cleanup>
-if ($autopost) {
-  my $dir = $FS::UID::conf_dir. "/cache.". $FS::UID::datasrc;
-  my $fh = new File::Temp(
-    TEMPLATE => 'paybatch.'. $batchnum .'.XXXXXXXX',
-    DIR      => $dir,
-  ) or die "can't open temp file: $!\n";
-
-  print $fh map{ "$_\n" } @batchlines;
-  seek $fh, 0, 0;
-
-  $error = $pay_batch->import_results( 'filehandle' => $fh,
-                                       'format'     => $format,
-                                     );
-  die $error if $error;
-}
-
-$dbh->commit or die $dbh->errstr if $oldAutoCommit;
-
-</%cleanup>
diff --git a/httemplate/misc/dump.cgi b/httemplate/misc/dump.cgi
deleted file mode 100644
index 3b60b20ef..000000000
--- a/httemplate/misc/dump.cgi
+++ /dev/null
@@ -1,20 +0,0 @@
-%  die "access denied"
-%    unless $FS::CurrentUser::CurrentUser->access_right('Export');
-%
-%  if ( driver_name =~ /^Pg$/ ) {
-%    my $dbname = (split(':', datasrc))[2];
-%    if ( $dbname =~ /[;=]/ ) {
-%      my %elements = map { /^(\w+)=(.*)$/; $1=>$2 } split(';', $dbname);
-%      $dbname = $elements{'dbname'};
-%    }
-%    open(DUMP,"pg_dump $dbname |");
-%  } else {
-%    errorpage("don't (yet) know how to dump ". driver_name. " databases");
-%  }
-%
-%  http_header('Content-Type' => 'text/plain' );
-%
-%  while (<DUMP>) {
-%    print $_;
-%  }
-%  close DUMP;
diff --git a/httemplate/misc/elements/customer-table.html b/httemplate/misc/elements/customer-table.html
deleted file mode 100644
index fc298b03e..000000000
--- a/httemplate/misc/elements/customer-table.html
+++ /dev/null
@@ -1,387 +0,0 @@
-%  # options example...  
-%  #
-%  # #listrefs...
-%  # 'header'      => [ '#', 'Item' ],
-%  # 'fields'      => [
-%  #                    'column',
-%  #                    sub { my ($row,$param) = @_; $param->{"column$row"}; },
-%  #                  ],
-%  # 'sizes'       => [],                         # sizes ignored for immutable
-%  # 'types'       => ['immutable', ''],          # immutable or ''/text
-%  # 'param'       => { column0 => 1 },           # preset column of row 0 to 1
-%  # 
-
-<SCRIPT TYPE="text/javascript">
-
-  function clearhint_custnum() {
-
-    if ( this.value == 'Not found' || this.value == 'Multiple' ) {
-      this.value = '';
-      this.style.color = '#000000';
-    }
-
-  }
-
-  function clearhint_customer() {
-
-    this.style.color = '#000000';
-
-    if ( this.value == '(last name or company)' || this.value == 'Not found' )
-      this.value = '';
-
-  }
-
-  function <% $opt{prefix} %>search_custnum() {
-
-    this.style.color = '#000000'
-
-    var custnum_obj = this;
-    var searchrow = this.getAttribute('rownum');
-    var custnum = this.value;
-
-    if ( custnum == 'searching...' || custnum == 'Not found' || custnum == '' )
-      return;
-
-    if ( this.getAttribute('magic') == 'nosearch' ) {
-      this.setAttribute('magic', '');
-      return;
-    }
-
-    if ( ( <% $opt{prefix} %>rownum - searchrow ) == 1 ) {
-      <% $opt{prefix} %>addRow();
-    }
-    var customer = document.getElementById('customer'+searchrow);
-    customer.value = 'searching...';
-    customer.disabled = true;
-    customer.style.color = '#000000';
-    customer.style.backgroundColor = '#dddddd';
-
-    var customer_select = document.getElementById('cust_select'+searchrow);
-
-    customer.style.display = '';
-    customer_select.style.display = 'none';
-
-    function search_custnum_update(name) {
-
-      var name = eval('(' + name + ')' );
-
-      customer.disabled = false;
-      customer.style.backgroundColor = '#ffffff';
-
-      if ( name.length > 0 ) {
-        customer.value = name;
-        customer.setAttribute('magic', 'nosearch');
-      } else {
-        customer.value = 'Not found';
-        customer.style.color = '#ff0000';
-        custnum_obj.style.color = '#ff0000';
-
-      }
-
-    }
-
-    custnum_search( custnum, search_custnum_update );
-
-  }
-
-  function <% $opt{prefix} %>search_customer() {
-
-    var customer_obj = this;
-    var searchrow = this.getAttribute('rownum');
-    var customer = this.value;
-
-    if ( customer == 'searching...' || customer == 'Not found' || customer == '' )
-      return;
-
-    if ( this.getAttribute('magic') == 'nosearch' ) {
-      this.setAttribute('magic', '');
-      return;
-    }
-
-    if ( ( <% $opt{prefix} %>rownum - searchrow ) == 1 ) {
-      <% $opt{prefix} %>addRow();
-    }
-
-    var custnum_obj = document.getElementById('custnum'+searchrow);
-    custnum_obj.value = 'searching...';
-    custnum_obj.disabled = true;
-    custnum_obj.style.color = '#000000';
-    custnum_obj.style.backgroundColor = '#dddddd';
-
-    var customer_select = document.getElementById('cust_select'+searchrow);
-
-    function search_customer_update(customers) {
-
-      var customerArray = eval('(' + customers + ')');
-
-      custnum_obj.disabled = false;
-      custnum_obj.style.backgroundColor = '#ffffff';
-
-      if ( customerArray.length == 0 ) {
-
-        custnum_obj.value = 'Not found';
-        custnum_obj.style.color = '#ff0000';
-        customer_obj.style.color = '#ff0000';
-
-        customer_obj.style.display = '';
-        customer_select.style.display = 'none';
-
-
-      } else if ( customerArray.length == 1 ) {
-
-        custnum_obj.value = customerArray[0][0];
-        customer_obj.value = customerArray[0][1];
-
-        customer_obj.style.display = '';
-        customer_select.style.display = 'none';
-
-
-      } else {
-
-        custnum_obj.value = 'Multiple'; // or something
-        custnum_obj.style.color = '#ff0000';
-
-        //blank the current list
-        for ( var i = customer_select.length; i >= 0; i-- )
-          customer_select.options[i] = null;
-
-        opt(customer_select, '', 'Multiple customers match "' + customer + '" - select one', '#ff0000');
-
-        //add the multiple customers
-        for ( var s = 0; s < customerArray.length; s++ )
-          opt(customer_select, customerArray[s][0], customerArray[s][1], '#000000');
-
-        opt(customer_select, 'cancel', '(Edit search string)', '#000000');
-
-        customer_obj.style.display = 'none';
-
-        customer_select.style.display = '';
-
-      }
-
-    }
-
-    smart_search( customer, search_customer_update );
-
-  }
-
-  function select_customer() {
-
-    var custnum = this.options[this.selectedIndex].value;
-    var customer = this.options[this.selectedIndex].text;
-
-    var searchrow = this.getAttribute('rownum');
-    var custnum_obj = document.getElementById('custnum'+searchrow);
-    var customer_obj = document.getElementById('customer'+searchrow);
-
-    if ( custnum == '' ) {
-
-    } else if ( custnum == 'cancel' ) {
-
-      custnum_obj.value = '';
-      custnum_obj.style.color = '#000000';
-
-      this.style.display = 'none';
-      customer_obj.style.display = '';
-      customer_obj.focus();
-
-    } else {
-
-      custnum_obj.value = custnum;
-      custnum_obj.style.color = '#000000';
-
-      customer_obj.value = customer;
-      customer_obj.style.color = '#000000';
-
-      this.style.display = 'none';
-      customer_obj.style.display = '';
-
-    }
-
-  }
-
-  function opt(what,value,text,color) {
-    var optionName = new Option(text, value, false, false);
-    optionName.style.color = color;
-    var length = what.length;
-    what.options[length] = optionName;
-  }
-
-</SCRIPT>
-
-<TABLE ID="<% $opt{prefix} %>OneTrueTable" BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0>
-
-<TR>
-  <TH>Cust #</TH>
-  <TH>Customer</TH>
-% foreach my $header ( @{$opt{header}} ) {
-    <TH><% $header %></TH>
-% }
-</TR>
-% my $row = 0;
-% for ( $row = 0; exists($param->{"custnum$row"}); $row++ ) { 
-
-    <TR>
-
-      <TD>
-        <INPUT TYPE="text" NAME="custnum<% $row %>" ID="custnum<% $row %>" SIZE=8 MAXLENGTH=12 VALUE="<% $param->{"custnum$row"} %>" rownum="<% $row %>">
-          <SCRIPT TYPE="text/javascript">
-            var custnum_input<% $row %> = document.getElementById("custnum<% $row %>");
-            custnum_input<% $row %>.onfocus = clearhint_custnum;
-            custnum_input<% $row %>.onchange = <% $opt{prefix} %>search_custnum;
-          </SCRIPT>
-      </TD>
-
-      <TD>
-        <INPUT TYPE="text" NAME="customer<% $row %>" ID="customer<% $row %>" SIZE=64 VALUE="<% $param->{"customer$row"} %>" rownum="<% $row %>">
-          <SCRIPT TYPE="text/javascript">
-            var customer_input<% $row %> = document.getElementById("customer<% $row %>");
-            customer_input<% $row %>.onfocus = clearhint_customer;
-            customer_input<% $row %>.onclick = clearhint_customer;
-            customer_input<% $row %>.onchange = <% $opt{prefix} %>search_customer;
-          </SCRIPT>
-        <SELECT NAME="cust_select<% $row %>" ID="cust_select<% $row %>" rownum="<% $row %>" STYLE="color:#ff0000; display:none">
-        </SELECT>
-          <SCRIPT TYPE="text/javascript">
-            var customer_select<% $row %> = document.getElementById("cust_select<% $row %>");
-            customer_select<% $row %>.onchange = select_customer;
-          </SCRIPT>
-      </TD>
-
-%   my $col = 0;
-%   foreach my $field ( @{$opt{fields}} ) {
-%     my $value;
-%     if ( ref($field) eq 'CODE' ) {
-%       $value = &{$field}($row,$param);
-%     } else {
-%       $value = $param->{"$field$row"}; 
-%     }
-%     my $name = (ref($field) eq 'CODE') ? "column${col}_$row" : "$field$row";
-%     my $size = $sizes->[$col] || 10;
-      <TD>
-%     if (! $types->[$col] || $types->[$col] eq 'text') {
-        <INPUT TYPE="text" NAME="<% $name %>" SIZE="<% $size %>" VALUE="<% $value %>" >
-%     } elsif ($types->[$col] eq 'immutable') {
-        <% $value %>
-        <INPUT TYPE="hidden" NAME="<% $name %>" VALUE="<% $value %>" >
-%     } else {
-        Cannot represent unknown type: <% $types->[$col] %>
-%     }
-      </TD>
-%     $col++;
-%   }
-
-    </TR>
-% } 
-
-
-</TABLE>
-
-<% include('/elements/xmlhttp.html',
-              'url'  => $p. 'misc/xmlhttp-cust_main-search.cgi',
-              'subs' => [qw( custnum_search smart_search )],
-           )
-%>
-
-<SCRIPT TYPE="text/javascript">
-
-  var <% $opt{prefix} %>rownum = <% $row %>;
-
-  function <% $opt{prefix} %>addRow() {
-
-    var table = document.getElementById('<% $opt{prefix} %>OneTrueTable');
-    var tablebody = table.getElementsByTagName('tbody').item(0);
-
-    var row = document.createElement('TR');
-
-    var custnum_cell = document.createElement('TD');
-
-      var custnum_input = document.createElement('INPUT');
-      custnum_input.setAttribute('name', 'custnum'+<% $opt{prefix} %>rownum);
-      custnum_input.setAttribute('id',   'custnum'+<% $opt{prefix} %>rownum);
-      custnum_input.setAttribute('size', 8);
-      custnum_input.setAttribute('maxlength', 12);
-      custnum_input.setAttribute('rownum', <% $opt{prefix} %>rownum);
-      custnum_input.onfocus = clearhint_custnum;
-      custnum_input.onchange = <% $opt{prefix} %>search_custnum;
-      custnum_cell.appendChild(custnum_input);
-
-    row.appendChild(custnum_cell);
-
-    var customer_cell = document.createElement('TD');
-
-      var customer_input = document.createElement('INPUT');
-      customer_input.setAttribute('name', 'customer'+<% $opt{prefix} %>rownum);
-      customer_input.setAttribute('id',   'customer'+<% $opt{prefix} %>rownum);
-      customer_input.setAttribute('size', 64);
-      customer_input.setAttribute('value', '(last name or company)' );
-      customer_input.setAttribute('rownum', <% $opt{prefix} %>rownum);
-      customer_input.onfocus = clearhint_customer;
-      customer_input.onclick = clearhint_customer;
-      customer_input.onchange = <% $opt{prefix} %>search_customer;
-      customer_cell.appendChild(customer_input);
-
-      var customer_select = document.createElement('SELECT');
-      customer_select.setAttribute('name', 'cust_select'+<% $opt{prefix} %>rownum);
-      customer_select.setAttribute('id',   'cust_select'+<% $opt{prefix} %>rownum);
-      customer_select.setAttribute('rownum', <% $opt{prefix} %>rownum);
-      customer_select.style.color = '#ff0000';
-      customer_select.style.display = 'none';
-      customer_select.onchange = select_customer;
-      customer_cell.appendChild(customer_select);
-
-    row.appendChild(customer_cell);
-
-%   my $col = 0;
-%   foreach my $field ( @{$opt{fields}} ) {
-    var my_cell = document.createElement('TD');
-
-%     if ($types->[$col] eq 'immutable') {
-%       my $value;
-%       if ( ref($field) eq 'CODE' ) {
-%         $value = &{$field}($row,$param);
-%       } else {
-%         $value = $param->{"$field$row"}; 
-%       }
-        var my_text = document.createTextNode('<% $value %>');
-        my_cell.appendChild(my_text);
-%     }
-
-      var my_input = document.createElement('INPUT');
-      my_input.setAttribute('name', '<% $field %>'+<% $opt{prefix} %>rownum);
-      my_input.setAttribute('size', <% $sizes->[$col] || 10 %>);
-%     if ($types->[$col] eq 'immutable') {
-        my_input.setAttribute('type', 'hidden');
-%     }
-      my_cell.appendChild(my_input);
-
-    row.appendChild(my_cell);
-
-%     $col++;
-%   }
-
-    tablebody.appendChild(row);
-
-    <% $opt{prefix} %>rownum++;
-
-  }
-
-% unless ($cgi->param('error')) {
-  <% $opt{prefix} %>addRow();
-% }
-</SCRIPT>
-
-<%init>
-
-my(%opt) = @_;
-
-$opt{prefix} = '' unless defined $opt{prefix};
-$opt{prefix} .= '_' if $opt{prefix};
-
-my $types = $opt{'types'} ? [ @{$opt{'types'}} ] : [];
-my $sizes = $opt{'sizes'} ? [ @{$opt{'sizes'}} ] : [];
-
-my $param = $opt{param};
-$param = $cgi->Vars if $cgi->param('error');
-
-</%init>
diff --git a/httemplate/misc/email-invoice.cgi b/httemplate/misc/email-invoice.cgi
deleted file mode 100755
index 269722f67..000000000
--- a/httemplate/misc/email-invoice.cgi
+++ /dev/null
@@ -1,19 +0,0 @@
-<% $cgi->redirect("${p}view/cust_main.cgi?$custnum") %>
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Resend invoices');
-
-#untaint invnum
-my($query) = $cgi->keywords;
-$query =~ /^((.+)-)?(\d+)$/;
-my $template = $2;
-my $invnum = $3;
-my $cust_bill = qsearchs('cust_bill',{'invnum'=>$invnum});
-die "Can't find invoice!\n" unless $cust_bill;
-
-$cust_bill->email($template); 
-
-my $custnum = $cust_bill->getfield('custnum');
-
-</%init>
diff --git a/httemplate/misc/email_events.cgi b/httemplate/misc/email_events.cgi
deleted file mode 100644
index e7a0e77f8..000000000
--- a/httemplate/misc/email_events.cgi
+++ /dev/null
@@ -1,9 +0,0 @@
-<% $server->process %>
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Resend invoices');
-
-my $server = new FS::UI::Web::JSRPC 'FS::cust_event::process_reemail', $cgi;
-
-</%init>
diff --git a/httemplate/misc/email_invoice_events.cgi b/httemplate/misc/email_invoice_events.cgi
deleted file mode 100644
index d65fe172b..000000000
--- a/httemplate/misc/email_invoice_events.cgi
+++ /dev/null
@@ -1,9 +0,0 @@
-<% $server->process %>
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Resend invoices');
-
-my $server = new FS::UI::Web::JSRPC 'FS::cust_bill_event::process_reemail', $cgi;
-
-</%init>
diff --git a/httemplate/misc/email_invoices.cgi b/httemplate/misc/email_invoices.cgi
deleted file mode 100644
index 78ca0f67d..000000000
--- a/httemplate/misc/email_invoices.cgi
+++ /dev/null
@@ -1,9 +0,0 @@
-<% $server->process %>
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Resend invoices');
-
-my $server = new FS::UI::Web::JSRPC 'FS::cust_bill::process_reemail', $cgi;
-
-</%init>
diff --git a/httemplate/misc/fax-invoice.cgi b/httemplate/misc/fax-invoice.cgi
deleted file mode 100755
index e2e6db095..000000000
--- a/httemplate/misc/fax-invoice.cgi
+++ /dev/null
@@ -1,19 +0,0 @@
-<% $cgi->redirect("${p}view/cust_main.cgi?$custnum") %>
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Resend invoices');
-
-#untaint invnum
-my($query) = $cgi->keywords;
-$query =~ /^((.+)-)?(\d+)$/;
-my $template = $2;
-my $invnum = $3;
-my $cust_bill = qsearchs('cust_bill',{'invnum'=>$invnum});
-die "Can't find invoice!\n" unless $cust_bill;
-
-$cust_bill->fax($template);
-
-my $custnum = $cust_bill->getfield('custnum');
-
-</%init>
diff --git a/httemplate/misc/fax_events.cgi b/httemplate/misc/fax_events.cgi
deleted file mode 100644
index 39cba0707..000000000
--- a/httemplate/misc/fax_events.cgi
+++ /dev/null
@@ -1,9 +0,0 @@
-<% $server->process %>
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Resend invoices');
-
-my $server = new FS::UI::Web::JSRPC 'FS::cust_event::process_refax', $cgi;
-
-</%init>
diff --git a/httemplate/misc/fax_invoice_events.cgi b/httemplate/misc/fax_invoice_events.cgi
deleted file mode 100644
index 05420eeca..000000000
--- a/httemplate/misc/fax_invoice_events.cgi
+++ /dev/null
@@ -1,9 +0,0 @@
-<% $server->process %>
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Resend invoices');
-
-my $server = new FS::UI::Web::JSRPC 'FS::cust_bill_event::process_refax', $cgi;
-
-</%init>
diff --git a/httemplate/misc/fax_invoices.cgi b/httemplate/misc/fax_invoices.cgi
deleted file mode 100644
index a843523db..000000000
--- a/httemplate/misc/fax_invoices.cgi
+++ /dev/null
@@ -1,9 +0,0 @@
-<% $server->process %>
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Resend invoices');
-
-my $server = new FS::UI::Web::JSRPC 'FS::cust_bill::process_refax', $cgi;
-
-</%init>
diff --git a/httemplate/misc/inventory_item-import.html b/httemplate/misc/inventory_item-import.html
deleted file mode 100644
index f3636c0e7..000000000
--- a/httemplate/misc/inventory_item-import.html
+++ /dev/null
@@ -1,23 +0,0 @@
-<% include("/elements/header.html", $inventory_class->classname. 's') %>
-
-<FORM ACTION="process/inventory_item-import.html" METHOD="POST" ENCTYPE="multipart/form-data">
-<INPUT TYPE="hidden" NAME="classnum" VALUE="<% $classnum %>">
-Import a file containing <% $inventory_class->classname %>s, one per line.<BR><BR>
-
-Filename: <INPUT TYPE="file" NAME="filename"><BR><BR>
-
-<INPUT TYPE="submit" VALUE="Upload">
-</FORM>
-
-<% include('/elements/footer.html') %>
-
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Import');
-
-$cgi->param =~ /^(\d+)$/ or errorpage("illegal classnum");
-my $classnum = $1;
-my $inventory_class = qsearchs('inventory_class', { 'classnum' => $classnum } );
-
-</%init>
diff --git a/httemplate/misc/link.cgi b/httemplate/misc/link.cgi
deleted file mode 100755
index 748eaa15f..000000000
--- a/httemplate/misc/link.cgi
+++ /dev/null
@@ -1,84 +0,0 @@
-<% include("/elements/header.html","Link to existing $svc") %>
-
-<FORM ACTION="<% popurl(1) %>process/link.cgi" METHOD=POST>
-% if ( $link_field ) { 
-
-  <INPUT TYPE="hidden" NAME="svcnum" VALUE="">
-  <INPUT TYPE="hidden" NAME="link_field" VALUE="<% $link_field %>">
-  <% $link_field %> of existing service: <INPUT TYPE="text" NAME="link_value">
-  <BR>
-% if ( $link_field2 ) { 
-
-    <INPUT TYPE="hidden" NAME="link_field2" VALUE="<% $link_field2->{field} %>">
-    <% $link_field2->{'label'} %> of existing service: 
-% if ( $link_field2->{'type'} eq 'select' ) { 
-% if ( $link_field2->{'select_table'} ) { 
-
-        <SELECT NAME="link_value2">
-        <OPTION> </OPTION>
-% foreach my $r ( qsearch( $link_field2->{'select_table'}, {})) { 
-% my $key = $link_field2->{'select_key'}; 
-% my $label = $link_field2->{'select_label'}; 
-
-          <OPTION VALUE="<% $r->$key() %>"><% $r->$label() %></OPTION>
-% } 
-
-        </SELECT>
-% } else { 
-
-        Don't know how to process secondary link field for <% $svcdb %>
-        (type=>select but no select_table)
-% } 
-% } else { 
-
-      Don't know how to process secondary link field for <% $svcdb %>
-        (unknown type <% $link_field2->{'type'} %>)
-% } 
-
-    <BR>
-% } 
-% } else { 
-
-  Service # of existing service: <INPUT TYPE="text" NAME="svcnum" VALUE="">
-% } 
-
-
-<INPUT TYPE="hidden" NAME="pkgnum" VALUE="<% $pkgnum %>">
-<INPUT TYPE="hidden" NAME="svcpart" VALUE="<% $svcpart %>">
-<BR><INPUT TYPE="submit" VALUE="Link">
-</FORM>
-
-<% include('/elements/footer.html') %>
-
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('View/link unlinked services');
-
-my %link_field = (
-  'svc_acct'    => 'username',
-  'svc_domain'  => 'domain',
-);
-
-my %link_field2 = (
-  'svc_acct'    => { label => 'Domain',
-                     field => 'domsvc',
-                     type  => 'select',
-                     select_table => 'svc_domain',
-                     select_key   => 'svcnum',
-                     select_label => 'domain'
-                   },
-);
-
-$cgi->param('pkgnum') =~ /^(\d+)$/ or die 'unparsable pkgnum';
-my $pkgnum = $1;
-$cgi->param('svcpart') =~ /^(\d+)$/ or die 'unparsable svcpart';
-my $svcpart = $1;
-
-my $part_svc = qsearchs('part_svc',{'svcpart'=>$svcpart});
-my $svc = $part_svc->getfield('svc');
-my $svcdb = $part_svc->getfield('svcdb');
-my $link_field = $link_field{$svcdb};
-my $link_field2 = $link_field2{$svcdb};
-
-</%init>
diff --git a/httemplate/misc/meta-import.cgi b/httemplate/misc/meta-import.cgi
deleted file mode 100644
index 5b3470c06..000000000
--- a/httemplate/misc/meta-import.cgi
+++ /dev/null
@@ -1,79 +0,0 @@
-<% include('/elements/header.html', 'Import') %>
-
-<FORM ACTION="process/meta-import.cgi" METHOD="post" ENCTYPE="multipart/form-data">
-Import data from a DBI data source<BR><BR>
-%
-%  #false laziness with edit/cust_main.cgi
-%  my @agents = qsearch( 'agent', {} );
-%  die "No agents created!" unless @agents;
-%  my $agentnum = $agents[0]->agentnum; #default to first
-%
-%  if ( scalar(@agents) == 1 ) {
-%
-
-    <INPUT TYPE="hidden" NAME="agentnum" VALUE="<% $agentnum %>">
-% } else { 
-
-    <BR><BR>Agent <SELECT NAME="agentnum" SIZE="1">
-% foreach my $agent (sort { $a->agent cmp $b->agent } @agents) { 
-
-    <OPTION VALUE="<% $agent->agentnum %>" <% " SELECTED"x($agent->agentnum==$agentnum) %>><% $agent->agent %></OPTION>
-% } 
-
-    </SELECT><BR><BR>
-% } 
-%
-%  my @referrals = qsearch('part_referral',{});
-%  die "No advertising sources created!" unless @referrals;
-%  my $refnum = $referrals[0]->refnum; #default to first
-%
-%  if ( scalar(@referrals) == 1 ) {
-%
-
-    <INPUT TYPE="hidden" NAME="refnum" VALUE="<% $refnum %>">
-% } else { 
-
-    <BR><BR>Advertising source <SELECT NAME="refnum" SIZE="1">
-% foreach my $referral ( sort { $a->referral <=> $b->referral } @referrals) { 
-
-    <OPTION VALUE="<% $referral->refnum %>" <% " SELECTED"x($referral->refnum==$refnum) %>><% $referral->refnum %>: <% $referral->referral %></OPTION>
-% } 
-
-    </SELECT><BR><BR>
-% } 
-
-
-    First package: <SELECT NAME="pkgpart"><OPTION VALUE="">(none)</OPTION>
-% foreach my $part_pkg ( qsearch('part_pkg',{'disabled'=>'' }) ) { 
-
-     <OPTION VALUE="<% $part_pkg->pkgpart %>"><% $part_pkg->pkg. ' - '. $part_pkg->comment %></OPTION>
-% } 
-
-</SELECT><BR><BR>
-
-  <table>
-    <tr>
-      <td align="right">DBI data source: </td>
-      <td><INPUT TYPE="text" NAME="data_source"></td>
-    </tr>
-    <tr>
-      <td align="right">DBI username: </td>
-      <td><INPUT TYPE="text" NAME="username"></td>
-    </tr>
-    <tr>
-      <td align="right">DBI password: </td>
-      <td><INPUT TYPE="text" NAME="password"></td>
-    </tr>
-  </table>
-  <INPUT TYPE="submit" VALUE="Import">
-
-  </FORM>
-
-<% include('/elements/footer.html') %>
-
-<%init>
-
-#there's no ACL for this...  haven't used in ages
-die 'meta-import not enabled; remove this if you want to use it';
-
-</%init>
diff --git a/httemplate/misc/order_pkg.html b/httemplate/misc/order_pkg.html
deleted file mode 100644
index 05cd99cc5..000000000
--- a/httemplate/misc/order_pkg.html
+++ /dev/null
@@ -1,62 +0,0 @@
-<% include('/elements/header-popup.html', 'Order new package' ) %>
-
-<SCRIPT TYPE="text/javascript">
-function enable_order_pkg () {
-  if ( document.OrderPkgForm.pkgpart.selectedIndex > 0 ) {
-    document.OrderPkgForm.submit.disabled = false;
-  } else {
-    document.OrderPkgForm.submit.disabled = true;
-  }
-}
-</SCRIPT>
-
-<FORM NAME="OrderPkgForm" ACTION="<% $p %>edit/process/quick-cust_pkg.cgi" METHOD="POST">
-
-<INPUT TYPE="hidden" NAME="custnum" VALUE="<% $cust_main->custnum %>">
-
-<% ntable("#cccccc", 2) %>
-<TR>
-  <TH ALIGN="right">Package</TH>
-  <TD>
-    <% include('/elements/select-cust-part_pkg.html',
-                 'cust_main' => $cust_main,
-                 'onchange'  => 'enable_order_pkg',
-              )
-    %>
-  </TD>
-</TR>
-
-% if ( $conf->exists('pkg_referral') ) {
-  <% include('/elements/tr-select-part_referral.html',
-               'curr_value'    => scalar( $cgi->param('refnum') ), #get rid of empty_label first# || $cust_main->refnum,
-               'disable_empty' => 1,
-               'multiple'      => $conf->exists('pkg_referral-multiple'),
-            )
-  %>
-% }
-
-</TABLE>
-
-<BR>
-<INPUT NAME="submit" TYPE="submit" VALUE="Order Package" disabled>
-
-</FORM>
-</BODY>
-</HTML>
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Order customer package');
-
-my $conf = new FS::Conf;
-
-my($query) = $cgi->keywords;
-$query =~ /^(\d+)$/;
-my $custnum = $1;
-my $cust_main = qsearchs({
-  'table'     => 'cust_main',
-  'hashref'   => { 'custnum' => $custnum },
-  'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
-});
-
-</%init>
diff --git a/httemplate/misc/payment.cgi b/httemplate/misc/payment.cgi
deleted file mode 100644
index f99f2f068..000000000
--- a/httemplate/misc/payment.cgi
+++ /dev/null
@@ -1,254 +0,0 @@
-<% include( '/elements/header.html', "Process $type{$payby} payment" ) %>
-<% include( '/elements/small_custview.html', $cust_main, '', '', popurl(2) . "view/cust_main.cgi" ) %>
-<FORM NAME="OneTrueForm" ACTION="process/payment.cgi" METHOD="POST" onSubmit="document.OneTrueForm.process.disabled=true">
-<INPUT TYPE="hidden" NAME="custnum"   VALUE="<% $custnum %>">
-<INPUT TYPE="hidden" NAME="payby"     VALUE="<% $payby %>">
-<INPUT TYPE="hidden" NAME="payunique" VALUE="<% $payunique %>">
-<INPUT TYPE="hidden" NAME="balance"   VALUE="<% $balance %>">
-
-<SCRIPT TYPE="text/javascript" SRC="../elements/overlibmws.js"></SCRIPT>
-<SCRIPT TYPE="text/javascript" SRC="../elements/overlibmws_iframe.js"></SCRIPT>
-<SCRIPT TYPE="text/javascript" SRC="../elements/overlibmws_draggable.js"></SCRIPT>
-<SCRIPT TYPE="text/javascript">
-function OLiframeContent(src, width, height, name) {
-  return ('<iframe src="'+src+'" width="'+width+'" height="'+height+'"'
-   +(name?' name="'+name+'" id="'+name+'"':'')+' scrolling="auto">'
-   +'<div>[iframe not supported]</div></iframe>');
-}
-</SCRIPT>
-% #include( '/elements/table.html', '#cccccc' ) 
-
-<% ntable('#cccccc') %>
-  <TR>
-    <TD ALIGN="right">Payment amount</TD>
-    <TD>
-      <TABLE><TR><TD BGCOLOR="#ffffff">
-        $<INPUT TYPE="text" NAME="amount" SIZE=8 VALUE="<% $balance > 0 ? sprintf("%.2f", $balance) : '' %>">
-      </TD></TR></TABLE>
-    </TD>
-  </TR>
-% if ( $payby eq 'CARD' ) {
-%     my( $payinfo, $paycvv, $month, $year ) = ( '', '', '', '' );
-%     my $payname = $cust_main->first. ' '. $cust_main->getfield('last');
-%     my $address1 = $cust_main->address1;
-%     my $address2 = $cust_main->address2;
-%     my $city     = $cust_main->city;
-%     my $state    = $cust_main->state;
-%     my $zip     = $cust_main->zip;
-%     if ( $cust_main->payby =~ /^(CARD|DCRD)$/ ) {
-%       $payinfo = $cust_main->paymask;
-%       $paycvv = $cust_main->paycvv;
-%       ( $month, $year ) = $cust_main->paydate_monthyear;
-%       $payname = $cust_main->payname if $cust_main->payname;
-%     }
-%
-
-  <TR>
-    <TD ALIGN="right">Card number</TD>
-    <TD>
-      <TABLE>
-        <TR>
-          <TD>
-            <INPUT TYPE="text" NAME="payinfo" SIZE=20 MAXLENGTH=19 VALUE="<%$payinfo%>"> </TD>
-          <TD>Exp.</TD>
-          <TD>
-            <SELECT NAME="month">
-% for ( ( map "0$_", 1 .. 9 ), 10 .. 12 ) { 
-
-                <OPTION<% $_ == $month ? ' SELECTED' : '' %>><% $_ %>
-% } 
-
-            </SELECT>
-          </TD>
-          <TD> / </TD>
-          <TD>
-            <SELECT NAME="year">
-% my @a = localtime; for ( $a[5]+1900 .. $a[5]+1915 ) { 
-
-                <OPTION<% $_ == $year ? ' SELECTED' : '' %>><% $_ %>
-% } 
-
-            </SELECT>
-          </TD>
-        </TR>
-      </TABLE>
-    </TD>
-  </TR>
-  <TR>
-    <TD ALIGN="right">CVV2</TD>
-    <TD><INPUT TYPE="text" NAME="paycvv" VALUE="<% $paycvv %>" SIZE=4 MAXLENGTH=4>
-        (<A HREF="javascript:void(0);" onClick="overlib( OLiframeContent('../docs/cvv2.html', 480, 352, 'cvv2_popup' ), CAPTION, 'CVV2 Help', STICKY, AUTOSTATUSCAP, CLOSECLICK, DRAGGABLE ); return false;">help</A>)
-    </TD>
-  </TR>
-  <TR>
-    <TD ALIGN="right">Exact name on card</TD>
-    <TD><INPUT TYPE="text" SIZE=32 MAXLENGTH=80 NAME="payname" VALUE="<%$payname%>"></TD>
-  </TR><TR>
-    <TD ALIGN="right">Card billing address</TD>
-    <TD>
-      <INPUT TYPE="text" SIZE=40 MAXLENGTH=80 NAME="address1" VALUE="<%$address1%>">
-    </TD>
-  </TR><TR>
-    <TD ALIGN="right">Address line 2</TD>
-    <TD>
-      <INPUT TYPE="text" SIZE=40 MAXLENGTH=80 NAME="address2" VALUE="<%$address2%>">
-    </TD>
-  </TR><TR>
-    <TD ALIGN="right">City</TD>
-    <TD>
-      <TABLE>
-        <TR>
-          <TD>
-            <INPUT TYPE="text" NAME="city" SIZE="12" MAXLENGTH=80 VALUE="<%$city%>">
-          </TD>
-          <TD>State</TD>
-          <TD>
-            <SELECT NAME="state">
-% for ( @states ) { 
-
-                <OPTION<% $_ eq $state ? ' SELECTED' : '' %>><% $_ %> 
-% } 
-
-            </SELECT>
-          </TD>
-          <TD>Zip</TD>
-          <TD>
-            <INPUT TYPE="text" NAME="zip" SIZE=11 MAXLENGTH=10 VALUE="<%$zip%>">
-          </TD>
-        </TR>
-      </TABLE>
-    </TD>
-  </TR>
-% } elsif ( $payby eq 'CHEK' ) {
-%     my( $payinfo1, $payinfo2, $payname, $ss, $paytype, $paystate,
-%         $stateid, $stateid_state )
-%       = ( '', '', '', '', '', '', '', '' );
-%     if ( $cust_main->payby =~ /^(CHEK|DCHK)$/ ) {
-%       $cust_main->paymask =~ /^([\dx]+)\@([\dx]+)$/i
-%         or die "unparsable payinfo ". $cust_main->payinfo;
-%       ($payinfo1, $payinfo2) = ($1, $2);
-%       $payname = $cust_main->payname;
-%       $ss = $cust_main->ss;
-%       $paytype = $cust_main->getfield('paytype');
-%       $paystate = $cust_main->getfield('paystate');
-%       $stateid = $cust_main->getfield('stateid');
-%       $stateid_state = $cust_main->getfield('stateid_state');
-%     }
-%
-
-  <INPUT TYPE="hidden" NAME="month" VALUE="12">
-  <INPUT TYPE="hidden" NAME="year" VALUE="2037">
-  <TR>
-    <TD ALIGN="right">Account number</TD>
-    <TD><INPUT TYPE="text" SIZE=10 NAME="payinfo1" VALUE="<%$payinfo1%>"></TD>
-    <TD ALIGN="right">Type</TD>
-    <TD><SELECT NAME="paytype"><% join('', map { qq!<OPTION VALUE="$_" !.($paytype eq $_ ? 'SELECTED' : '').">$_</OPTION>" } @FS::cust_main::paytypes) %></SELECT></TD>
-  </TR>
-  <TR>
-    <TD ALIGN="right">ABA/Routing number</TD>
-    <TD>
-      <INPUT TYPE="text" SIZE=10 MAXLENGTH=9 NAME="payinfo2" VALUE="<%$payinfo2%>">
-      (<A HREF="javascript:void(0);" onClick="overlib( OLiframeContent('../docs/ach.html', 380, 240, 'ach_popup' ), CAPTION, 'ACH Help', STICKY, AUTOSTATUSCAP, CLOSECLICK, DRAGGABLE ); return false;">help</A>)
-    </TD>
-  </TR>
-  <TR>
-    <TD ALIGN="right">Bank name</TD>
-    <TD><INPUT TYPE="text" NAME="payname" VALUE="<%$payname%>"></TD>
-  </TR>
-  <TR>
-    <TD ALIGN="right">Bank state</TD>
-    <TD><% include('../edit/cust_main/select-state.html', #meh 
-                   'empty'   => '(choose)',
-                   'state'   => $paystate,
-                   'country' => $cust_main->country,
-                   'prefix'  => 'pay',
-                  ) %></TD>
-  </TR>
-  <TR>
-    <TD ALIGN="right">
-      Account holder<BR>
-      Social security or tax ID #
-    </TD>
-    <TD><INPUT TYPE="text" NAME="ss" VALUE="<%$ss%>"></TD>
-  </TR>
-  <TR>
-    <TD ALIGN="right">
-      Account holder<BR>
-      Driver’s license or state ID #
-    </TD>
-    <TD><INPUT TYPE="text" NAME="stateid" VALUE="<%$stateid%>"></TD>
-    <TD ALIGN="right">State</TD>
-    <TD><% include('../edit/cust_main/select-state.html', #meh 
-                   'empty'   => '(choose)',
-                   'state'   => $stateid_state,
-                   'country' => $cust_main->country,
-                   'prefix'  => 'stateid_',
-                  ) %></TD>
-  </TR>
-% } 
-
-
-<TR>
-  <TD COLSPAN=2>
-    <INPUT TYPE="checkbox" CHECKED NAME="save" VALUE="1">
-    Remember this information
-  </TD>
-</TR><TR>
-% if ($conf->exists("batch-enable")) {
-  <TD COLSPAN=2>
-    <INPUT TYPE="checkbox" <% ( $conf->exists("paymentforcedtobatch") && $payby eq 'CHEK' ) ? 'CHECKED DISABLED' : '' %> NAME="batch" VALUE="1">
-    Add to current batch
-% if ($conf->exists("paymentforcedtobatch") && $payby eq 'CHEK' ) {
-    <INPUT TYPE="hidden" NAME="batch" VALUE="1">
-% }
-  </TD>
-</TR><TR>
-% }
-  <TD COLSPAN=2>
-    <INPUT TYPE="checkbox"<% ( ( $payby eq 'CARD' && $cust_main->payby ne 'DCRD' ) || ( $payby eq 'CHEK' && $cust_main->payby eq 'CHEK' ) ) ? ' CHECKED' : '' %> NAME="auto" VALUE="1" onClick="if (this.checked) { document.OneTrueForm.save.checked=true; }">
-    Charge future payments to this <% $type{$payby} %> automatically
-  </TD>
-</TR>
-</TABLE>
-<BR>
-<INPUT TYPE="submit" NAME="process" VALUE="Process payment">
-</FORM>
-
-<% include('/elements/footer.html') %>
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Process payment');
-
-my %type = ( 'CARD' => 'credit card',
-             'CHEK' => 'electronic check (ACH)',
-           );
-
-$cgi->param('payby') =~ /^(CARD|CHEK)$/
-  or die "unknown payby ". $cgi->param('payby');
-my $payby = $1;
-
-$cgi->param('custnum') =~ /^(\d+)$/
-  or die "illegal custnum ". $cgi->param('custnum');
-my $custnum = $1;
-
-my $cust_main = qsearchs( 'cust_main', { 'custnum'=>$custnum } );
-die "unknown custnum $custnum" unless $cust_main;
-
-my $balance = $cust_main->balance;
-
-my $payinfo = '';
-
-#false laziness w/selfservice make_payment.html shortcut for one-country
-my $conf = new FS::Conf;
-my %states = map { $_->state => 1 }
-               qsearch('cust_main_county', {
-                 'country' => $conf->config('countrydefault') || 'US'
-               } );
-my @states = sort { $a cmp $b } keys %states;
-
-my $payunique = "webui-payment-". time. "-$$-". rand() * 2**32;
-
-</%init>
-
-
diff --git a/httemplate/misc/print-invoice.cgi b/httemplate/misc/print-invoice.cgi
deleted file mode 100755
index aeef68795..000000000
--- a/httemplate/misc/print-invoice.cgi
+++ /dev/null
@@ -1,19 +0,0 @@
-<% $cgi->redirect("${p}view/cust_main.cgi?$custnum") %>
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Resend invoices');
-
-#untaint invnum
-my($query) = $cgi->keywords;
-$query =~ /^((.+)-)?(\d+)$/;
-my $template = $2;
-my $invnum = $3;
-my $cust_bill = qsearchs('cust_bill',{'invnum'=>$invnum});
-die "Can't find invoice!\n" unless $cust_bill;
-
-$cust_bill->print($template);
-
-my $custnum = $cust_bill->getfield('custnum');
-
-</%init>
diff --git a/httemplate/misc/print_events.cgi b/httemplate/misc/print_events.cgi
deleted file mode 100644
index 8d83d3de1..000000000
--- a/httemplate/misc/print_events.cgi
+++ /dev/null
@@ -1,9 +0,0 @@
-<% $server->process %>
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Resend invoices');
-
-my $server = new FS::UI::Web::JSRPC 'FS::cust_event::process_reprint', $cgi; 
-
-</%init>
diff --git a/httemplate/misc/print_invoice_events.cgi b/httemplate/misc/print_invoice_events.cgi
deleted file mode 100644
index c974d5f4e..000000000
--- a/httemplate/misc/print_invoice_events.cgi
+++ /dev/null
@@ -1,9 +0,0 @@
-<% $server->process %>
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Resend invoices');
-
-my $server = new FS::UI::Web::JSRPC 'FS::cust_bill_event::process_reprint', $cgi; 
-
-</%init>
diff --git a/httemplate/misc/print_invoices.cgi b/httemplate/misc/print_invoices.cgi
deleted file mode 100644
index f859f6db8..000000000
--- a/httemplate/misc/print_invoices.cgi
+++ /dev/null
@@ -1,9 +0,0 @@
-<% $server->process %>
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Resend invoices');
-
-my $server = new FS::UI::Web::JSRPC 'FS::cust_bill::process_reprint', $cgi;
-
-</%init>
diff --git a/httemplate/misc/process/batch-cust_pay.cgi b/httemplate/misc/process/batch-cust_pay.cgi
deleted file mode 100644
index 058a2251a..000000000
--- a/httemplate/misc/process/batch-cust_pay.cgi
+++ /dev/null
@@ -1,47 +0,0 @@
-%  die "access denied"
-%    unless $FS::CurrentUser::CurrentUser->access_right('Post payment batch');
-%
-%  my $param = $cgi->Vars;
-%
-%  #my $paybatch = $param->{'paybatch'};
-%  my $paybatch = time2str('webbatch-%Y/%m/%d-%T'. "-$$-". rand() * 2**32, time);
-%
-%  my @cust_pay = ();
-%  #my $row = 0;
-%  #while ( exists($param->{"custnum$row"}) ) {
-%  for ( my $row = 0; exists($param->{"custnum$row"}); $row++ ) {
-%    push @cust_pay, new FS::cust_pay {
-%                                       'custnum'  => $param->{"custnum$row"},
-%                                       'paid'     => $param->{"paid$row"},
-%                                       'payby'    => 'BILL',
-%                                       'payinfo'  => $param->{"payinfo$row"},
-%                                       'paybatch' => $paybatch,
-%                                     }
-%      if    $param->{"custnum$row"}
-%         || $param->{"paid$row"}
-%         || $param->{"payinfo$row"};
-%    #$row++;
-%  }
-%
-%  my @errors = FS::cust_pay->batch_insert(@cust_pay);
-%  my $num_errors = scalar(grep $_, @errors);
-%
-%  if ( $num_errors ) {
-%
-%    $cgi->param('error', "$num_errors error". ($num_errors>1 ? 's' : '').
-%                         ' - Batch not processed, correct and resubmit'
-%               );
-%
-%    my $erow=0;
-%    $cgi->param('error'. $erow++, shift @errors) while @errors;
-%
-%    
-<% $cgi->redirect($p.'batch-cust_pay.html?'. $cgi->query_string)
-
-  %>
-% } else {
-%
-%    
-<% $cgi->redirect(popurl(3). "search/cust_pay.cgi?magic=paybatch;paybatch=$paybatch") %>
-% } 
-
diff --git a/httemplate/misc/process/bulk_change_pkg.cgi b/httemplate/misc/process/bulk_change_pkg.cgi
deleted file mode 100755
index d2ab4bf49..000000000
--- a/httemplate/misc/process/bulk_change_pkg.cgi
+++ /dev/null
@@ -1,56 +0,0 @@
-% if ($error) {
-<% $cgi->redirect(popurl(2)."/bulk_change_pkg.cgi?".$cgi->query_string ) %>
-% }
-<% include('/elements/header-popup.html', "Packages Changed") %>
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Bulk change customer packages');
-
-my %search_hash = ();
-
-$search_hash{'query'} = $cgi->param('query');
-
-for my $param (qw(agentnum magic status classnum pkgpart)) {
-  $search_hash{$param} = $cgi->param($param)
-    if $cgi->param($param);
-}
-
-###
-# parse dates
-###
-
-#false laziness w/report_cust_pkg.html
-my %disable = (
-  'all'             => {},
-  'one-time charge' => { 'last_bill'=>1, 'bill'=>1, 'adjourn'=>1, 'susp'=>1, 'expire'=>1, 'cancel'=>1, },
-  'active'          => { 'susp'=>1, 'cancel'=>1 },
-  'suspended'       => { 'cancel' => 1 },
-  'cancelled'       => {},
-  ''                => {},
-);
-
-foreach my $field (qw( setup last_bill bill adjourn susp expire cancel )) {
-
-  my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi, $field);
-
-  next if $beginning == 0 && $ending == 4294967295
-       or $disable{$cgi->param('status')}->{$field};
-
-  $search_hash{$field} = [ $beginning, $ending ];
-
-}
-
-my $sql_query = FS::cust_pkg->search_sql(\%search_hash);
-$sql_query->{'select'} = 'cust_pkg.pkgnum';
-
-my $error = FS::cust_pkg::bulk_change( [ $cgi->param('new_pkgpart') ],
-                                       [ map { $_->pkgnum } qsearch($sql_query) ],
-                                     );
-
-$cgi->param("error", substr($error, 0, 512)); # arbitrary length believed
-                                              # suited for all supported
-                                              # browsers
-
-
-</%init>
diff --git a/httemplate/misc/process/cancel_pkg.html b/httemplate/misc/process/cancel_pkg.html
deleted file mode 100755
index d265c1849..000000000
--- a/httemplate/misc/process/cancel_pkg.html
+++ /dev/null
@@ -1,79 +0,0 @@
-<% header("Package $past{$method}") %>
-  <SCRIPT TYPE="text/javascript">
-    window.top.location.reload();
-  </SCRIPT>
-  </BODY>
-</HTML>
-<%once>
-
-my %past = ( 'cancel'  => 'cancelled',
-             'expire'  => 'expired',
-             'suspend' => 'suspended',
-             'adjourn' => 'adjourned',
-           );
-
-#i'm sure this is false laziness with somewhere, at least w/misc/cancel_pkg.html
-my %right = ( 'cancel'  => 'Cancel customer package immediately',
-              'expire'  => 'Cancel customer package later',
-              'suspend' => 'Suspend customer package',
-              'adjourn' => 'Suspend customer package later',
-            );
-
-</%once>
-<%init>
-
-#untaint method
-my $method = $cgi->param('method');
-$method =~ /^(cancel|expire|suspend|adjourn)$/ or die "Illegal method";
-$method = $1;
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right($right{$method});
-
-#untaint pkgnum
-my $pkgnum = $cgi->param('pkgnum');
-$pkgnum =~ /^(\d+)$/ or die "Illegal pkgnum";
-$pkgnum = $1;
-
-#untaint reasonnum
-my $reasonnum = $cgi->param('reasonnum');
-$reasonnum =~ /^(-?\d+)$/ or die "Illegal reasonnum";
-$reasonnum = $1;
-
-my $date = time;
-if ($method eq 'expire' || $method eq 'adjourn'){
-  #untaint date
-  $date = $cgi->param('date');
-  str2time($cgi->param('date')) =~ /^(\d+)$/ or die "Illegal date";
-  $date = $1;
-}
-
-my $cust_pkg = qsearchs( 'cust_pkg', {'pkgnum'=>$pkgnum} );
-
-#my $otaker = $FS::CurrentUser::CurrentUser->name;
-#$otaker = $FS::CurrentUser::CurrentUser->username
-#  if ($otaker eq "User, Legacy");
-
-if ($reasonnum == -1) {
-  $reasonnum = {
-    'typenum' => scalar( $cgi->param('newreasonnumT') ),
-    'reason'  => scalar( $cgi->param('newreasonnum' ) ),
-  };
-}
-
-my $error;
-if ($method eq 'expire' || $method eq 'adjourn'){
-  my %hash = $cust_pkg->hash;
-  $hash{$method} = $date;
-  my $new = new FS::cust_pkg \%hash;
-  $error = $new->replace($cust_pkg, 'reason' => $reasonnum);
-} else {
-  $error = $cust_pkg->$method( 'reason' => $reasonnum );
-}
-
-if ($error) {
-  $cgi->param('error', $error);
-  print $cgi->redirect(popurl(2). "cancel_pkg.html?". $cgi->query_string );
-}
-
-</%init>
diff --git a/httemplate/misc/process/catchall.cgi b/httemplate/misc/process/catchall.cgi
deleted file mode 100755
index 0dda2eada..000000000
--- a/httemplate/misc/process/catchall.cgi
+++ /dev/null
@@ -1,35 +0,0 @@
-%if ($error) {
-%  $cgi->param('error', $error);
-<% $cgi->redirect(popurl(2). "catchall.cgi?". $cgi->query_string ) %>
-%} else {
-<% $cgi->redirect(popurl(3). "view/svc_domain.cgi?$svcnum") %>
-%}
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Edit domain catchall');
-
-$FS::svc_domain::whois_hack=1;
-
-$cgi->param('svcnum') =~ /^(\d*)$/ or die "Illegal svcnum!";
-my $svcnum =$1;
-
-my $old = qsearchs('svc_domain',{'svcnum'=>$svcnum}) if $svcnum;
-
-my $new = new FS::svc_domain ( {
-  map {
-    ($_, scalar($cgi->param($_)));
-  } ( fields('svc_domain'), qw( pkgnum svcpart ) )
-} );
-
-$new->setfield('action' => 'M');
-
-my $error;
-if ( $svcnum ) {
-  $error = $new->replace($old);
-} else {
-  $error = $new->insert;
-  $svcnum = $new->getfield('svcnum');
-} 
-
-</%init>
diff --git a/httemplate/misc/process/cdr-import.html b/httemplate/misc/process/cdr-import.html
deleted file mode 100644
index 4848fa325..000000000
--- a/httemplate/misc/process/cdr-import.html
+++ /dev/null
@@ -1,22 +0,0 @@
-% if ( $error ) {
-%   errorpage($error);
-% } else {
-    <% include("/elements/header.html",'Import successful') %>
-    
-    <% include("/elements/footer.html",'Import successful') %> 
-% }
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Import');
-
-my $fh = $cgi->upload('csvfile');
-
-my $error = defined($fh)
-  ? FS::cdr::batch_import( {
-      'filehandle' => $fh,
-      'format'     => $cgi->param('format'),
-    } )
-  : 'No file';
-
-</%init>
diff --git a/httemplate/misc/process/cust_main-import.cgi b/httemplate/misc/process/cust_main-import.cgi
deleted file mode 100644
index aa8cd5298..000000000
--- a/httemplate/misc/process/cust_main-import.cgi
+++ /dev/null
@@ -1,28 +0,0 @@
-% if ( $error ) {
-%   errorpage($error);
-%  } else {
-    <% include('/elements/header.html','Import successful') %> 
-    <% include('/elements/footer.html') %> 
-%  }
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Import');
-
-my $fh = $cgi->upload('csvfile');
-#warn $cgi;
-#warn $fh;
-
-my $error = defined($fh)
-  ? FS::cust_main::batch_import( {
-      filehandle => $fh,
-      agentnum   => scalar($cgi->param('agentnum')),
-      refnum     => scalar($cgi->param('refnum')),
-      pkgpart    => scalar($cgi->param('pkgpart')),
-      #'fields'    => [qw( cust_pkg.setup dayphone first last address1 address2
-      #                   city state zip comments                          )],
-      'format'   => scalar($cgi->param('format')),
-    } )
-  : 'No file';
-
-</%init>
diff --git a/httemplate/misc/process/cust_main-import_charges.cgi b/httemplate/misc/process/cust_main-import_charges.cgi
deleted file mode 100644
index 3ca68944a..000000000
--- a/httemplate/misc/process/cust_main-import_charges.cgi
+++ /dev/null
@@ -1,23 +0,0 @@
-% if ( $error ) {
-%   errorpage($error);
-%  } else {
-     <% include('/elements/header.html','Import successful') %> 
-     <% include('/elements/footer.html') %> 
-%  }
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Import');
-
-my $fh = $cgi->upload('csvfile');
-#warn $cgi;
-#warn $fh;
-
-my $error = defined($fh)
-  ? FS::cust_main::batch_charge( {
-      filehandle => $fh,
-      'fields'    => [qw( custnum amount pkg )],
-    } )
-  : 'No file';
-
-</%init>
diff --git a/httemplate/misc/process/cust_main_note-import.cgi b/httemplate/misc/process/cust_main_note-import.cgi
deleted file mode 100644
index 6aa8b1d37..000000000
--- a/httemplate/misc/process/cust_main_note-import.cgi
+++ /dev/null
@@ -1,82 +0,0 @@
-<% include("/elements/header.html", "Batch Customer Note Import $op") %>
-
-The following items <% $op eq 'Preview' ? 'would not be' : 'were not' %> imported.  (See below for imported items)
-<PRE>
-%  foreach my $row (@uninserted) {
-%    $csv->combine( (map{ $row->{$_} } qw(last first note) ),
-%                   $row->{error} ? ('#!', $row->{error}) : (),
-%                 );
-<% $csv->string %>
-%  }
-</PRE>
-
-The following items <% $op eq 'Preview' ? 'would be' : 'were' %> imported.  (See above for unimported items)
-
-<PRE>
-%  foreach my $row (@inserted) {
-%    $csv->combine( (map{ $row->{$_} } qw(custnum last first note) ),
-%                   ('#!', $row->{name}),
-%                 );
-<% $csv->string %>
-%  }
-</PRE>
-  
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Import');
-
-my $date = time;
-my $otaker = $FS::CurrentUser::CurrentUser->username;
-my $csv = new Text::CSV_XS;
-
-my $param = $cgi->Vars;
-
-my $op = $param->{preview} ? "Preview" : "Results";
-
-my @inserted = ();
-my @uninserted = ();
-for ( my $row = 0; exists($param->{"custnum$row"}); $row++ ) {
-  if ( $param->{"custnum$row"} ) {
-#    my $cust_main_note = new FS::cust_main_note {
-#                                          'custnum'  => $param->{"custnum$row"},
-#                                          '_date'    => $date,
-#                                          'otaker'   => $otaker,
-#                                          'comments' => $param->{"note$row"},
-#                                                };
-#    my $error = '';
-#    $error = $cust_main_note->insert unless ($op eq "Preview");
-    my $cust_main = qsearchs('cust_main',
-                             { 'custnum' => $param->{"custnum$row"} }
-                            );
-    my $error;
-    if ($cust_main) {
-      $cust_main->comments
-        ? $cust_main->comments($cust_main->comments. " ". $param->{"note$row"})
-        : $cust_main->comments($param->{"note$row"});
-      $error = $cust_main->replace;
-    }else{
-      $error = "Can't find customer " . $param->{"custnum$row"};
-    }
-    my $result = { 'custnum' => $param->{"custnum$row"},
-                   'last'    => $param->{"last$row"},
-                   'first'   => $param->{"first$row"},
-                   'note'    => $param->{"note$row"},
-                   'name'    => $param->{"name$row"},
-                   'error'   => $error,
-                 };
-    if ($error) {
-      push @uninserted, $result;
-    }else{
-      push @inserted, $result;
-    }
-  }else{
-    push @uninserted, { 'custnum' => '',
-                        'last'    => $param->{"last$row"},
-                        'first'   => $param->{"first$row"},
-                        'note'    => $param->{"note$row"},
-                        'error'   => '',
-                      };
-  }
-}
-</%init>
diff --git a/httemplate/misc/process/cust_pay-import.cgi b/httemplate/misc/process/cust_pay-import.cgi
deleted file mode 100644
index d4ff226ec..000000000
--- a/httemplate/misc/process/cust_pay-import.cgi
+++ /dev/null
@@ -1,21 +0,0 @@
-<% $cgi->redirect(popurl(3). "search/cust_pay.cgi?magic=paybatch;paybatch=$paybatch") %> 
-<%init>
-
-my $fh = $cgi->upload('csvfile');
-
-# webbatch?  I suppose
-my $paybatch = time2str('webbatch-%Y/%m/%d-%T'. "-$$-". rand() * 2**32, time);
-
-my $error = defined($fh)
-  ? FS::cust_pay::batch_import( {
-      'filehandle' => $fh,
-      'agentnum'   => scalar($cgi->param('agentnum')),
-      'format'     => scalar($cgi->param('format')),
-      'paybatch'   => $paybatch,
-    } )
-  : 'No file';
-
-errorpage($error)
-  if ( $error );
-
-</%init>
diff --git a/httemplate/misc/process/delete-customer.cgi b/httemplate/misc/process/delete-customer.cgi
deleted file mode 100755
index d509a5e0e..000000000
--- a/httemplate/misc/process/delete-customer.cgi
+++ /dev/null
@@ -1,33 +0,0 @@
-%if ( $error ) {
-%  $cgi->param('error', $error);
-<% $cgi->redirect(popurl(2). "delete-customer.cgi?". $cgi->query_string ) %>
-%} elsif ( $new_custnum ) {
-<% $cgi->redirect(popurl(3). "view/cust_main.cgi?$new_custnum") %>
-%} else {
-<% $cgi->redirect(popurl(3)) %>
-%}
-<%init>
-
-my $conf = new FS::Conf;
-die "Customer deletions not enabled in configuration"
-  unless $conf->exists('deletecustomers');
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Delete customer');
-
-$cgi->param('custnum') =~ /^(\d+)$/;
-my $custnum = $1;
-my $new_custnum;
-if ( $cgi->param('new_custnum') ) {
-  $cgi->param('new_custnum') =~ /^(\d+)$/
-    or die "Illegal new customer number: ". $cgi->param('new_custnum');
-  $new_custnum = $1;
-} else {
-  $new_custnum = '';
-}
-my $cust_main = qsearchs( 'cust_main', { 'custnum' => $custnum } )
-  or die "Customer not found: $custnum";
-
-my $error = $cust_main->delete($new_custnum);
-
-</%init>
diff --git a/httemplate/misc/process/inventory_item-import.html b/httemplate/misc/process/inventory_item-import.html
deleted file mode 100644
index 3aae202c7..000000000
--- a/httemplate/misc/process/inventory_item-import.html
+++ /dev/null
@@ -1,22 +0,0 @@
-% if ( $error ) {
-%   errorpage($error);
-% } else {
-    <% include("/elements/header.html",'Import successful') %>
-    
-    <% include("/elements/footer.html",'Import successful') %> 
-%  }
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Import');
-
-my $fh = $cgi->upload('filename');
-
-my $error = defined($fh)
-  ? FS::inventory_item::batch_import( {
-      'filehandle' => $fh,
-      'classnum'   => $cgi->param('classnum'),
-    } )
-  : 'No file';
-
-</%init>
diff --git a/httemplate/misc/process/link.cgi b/httemplate/misc/process/link.cgi
deleted file mode 100755
index df15dca72..000000000
--- a/httemplate/misc/process/link.cgi
+++ /dev/null
@@ -1,72 +0,0 @@
-%unless ($error) {
-%  #no errors, so let's view this customer.
-%  my $custnum = $new->cust_pkg->custnum;
-<% $cgi->redirect(popurl(3). "view/cust_main.cgi?$custnum#cust_pkg$pkgnum" ) %>
-%} else {
-% errorpage($error);
-%}
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('View/link unlinked services');
-
-my $DEBUG = 0;
-
-$cgi->param('pkgnum') =~ /^(\d+)$/;
-my $pkgnum = $1;
-$cgi->param('svcpart') =~ /^(\d+)$/;
-my $svcpart = $1;
-$cgi->param('svcnum') =~ /^(\d*)$/;
-my $svcnum = $1;
-
-unless ( $svcnum ) {
-  my $part_svc = qsearchs('part_svc',{'svcpart'=>$svcpart});
-  my $svcdb = $part_svc->getfield('svcdb');
-  $cgi->param('link_field') =~ /^(\w+)$/;
-  my $link_field = $1;
-  my %search = ( $link_field => $cgi->param('link_value') );
-  if ( $cgi->param('link_field2') =~ /^(\w+)$/ ) {
-    $search{$1} = $cgi->param('link_value2');
-  }
-
-  my @svc_x = ( sort { ($a->cust_svc->pkgnum > 0) <=> ($b->cust_svc->pkgnum > 0)
-                       or ($b->cust_svc->svcpart == $svcpart)
-                            <=> ($a->cust_svc->svcpart == $svcpart)
-                     }
-                     qsearch( $svcdb, \%search )
-              );
-
-  if ( $DEBUG ) {
-    warn scalar(@svc_x). " candidate accounts found for linking ".
-         "(svcpart $svcpart):\n";
-    foreach my $svc_x ( @svc_x ) {
-      warn "  ". $svc_x->email.
-           " (svcnum ". $svc_x->svcnum. ",".
-           " pkgnum ".  $svc_x->cust_svc->pkgnum. ",".
-           " svcpart ". $svc_x->cust_svc->svcpart. ")\n";
-    }
-  }
-
-  my $svc_x = $svc_x[0];
-
-  errorpage("$link_field not found!") unless $svc_x;
-
-  $svcnum = $svc_x->svcnum;
-
-}
-
-my $old = qsearchs('cust_svc',{'svcnum'=>$svcnum});
-die "svcnum not found!" unless $old;
-my $conf = new FS::Conf;
-my($error, $new);
-if ( $old->pkgnum && ! $conf->exists('legacy_link-steal') ) {
-  $error = "svcnum $svcnum already linked to package ". $old->pkgnum;
-} else {
-  $new = new FS::cust_svc { $old->hash };
-  $new->pkgnum($pkgnum);
-  $new->svcpart($svcpart);
-
-  $error = $new->replace($old);
-}
-
-</%init>
diff --git a/httemplate/misc/process/meta-import.cgi b/httemplate/misc/process/meta-import.cgi
deleted file mode 100644
index 68ae49c60..000000000
--- a/httemplate/misc/process/meta-import.cgi
+++ /dev/null
@@ -1,190 +0,0 @@
-<% include("/elements/header.html",'Map tables') %>
-
-<SCRIPT>
-var gSafeOnload = new Array();
-var gSafeOnsubmit = new Array();
-window.onload = SafeOnload;
-function SafeAddOnLoad(f) {
-  gSafeOnload[gSafeOnload.length] = f;
-}
-function SafeOnload() {
-  for (var i=0;i<gSafeOnload.length;i++)
-    gSafeOnload[i]();
-}
-function SafeAddOnSubmit(f) {
-  gSafeOnsubmit[gSafeOnsubmit.length] = f;
-}
-function SafeOnsubmit() {
-  for (var i=0;i<gSafeOnsubmit.length;i++)
-    gSafeOnsubmit[i]();
-}
-</SCRIPT>
-
-<FORM NAME="OneTrueForm" METHOD="POST" ACTION="meta-import.cgi">
-%
-%  #use DBIx::DBSchema;
-%  my $schema = new_native DBIx::DBSchema
-%                 map { $cgi->param($_) } qw( data_source username password );
-%  foreach my $field (qw( data_source username password )) { 
-
-    <INPUT TYPE="hidden" NAME=<% $field %> VALUE="<% $cgi->param($field) %>">
-% }
-%
-%  my %schema;
-%  use Tie::DxHash;
-%  tie %schema, 'Tie::DxHash';
-%  if ( $cgi->param('schema') ) {
-%    my $schema_string = $cgi->param('schema');
-%    
- <INPUT TYPE="hidden" NAME="schema" VALUE="<%$schema_string%>"> 
-%
-%    %schema = map { /^\s*(\w+)\s*=>\s*(\w+)\s*$/
-%                      or die "guru meditation #420: $_";
-%                    ( $1 => $2 );
-%                  }
-%              split( /\n/, $schema_string );
-%  }
-%
-%  #first page
-%  unless ( $cgi->param('magic') ) { 
-
-
-    <INPUT TYPE="hidden" NAME="magic" VALUE="process">
-    <% hashmaker('schema', [ $schema->tables ],
-                            [ grep !/^h_/, dbdef->tables ],  ) %>
-    <br><INPUT TYPE="submit" VALUE="done">
-%
-%
-%  #second page
-%  } elsif ( $cgi->param('magic') eq 'process' ) { 
-
-
-    <INPUT TYPE="hidden" NAME="magic" VALUE="process2">
-%
-%
-%    my %unique;
-%    foreach my $table ( keys %schema ) {
-%
-%      my @from_columns = $schema->table($table)->columns;
-%      my @fs_columns = dbdef->table($schema{$table})->columns;
-%
-%      
-
-      <% hashmaker( $table.'__'.$unique{$table}++,
-                     \@from_columns => \@fs_columns,
-                     $table         =>  $schema{$table}, ) %>
-      <br><hr><br>
-%
-%
-%    }
-%
-%    
-
-    <br><INPUT TYPE="submit" VALUE="done">
-%
-%
-%  #third (results)
-%  } elsif ( $cgi->param('magic') eq 'process2' ) {
-%
-%    print "<pre>\n";
-%
-%    my %unique;
-%    foreach my $table ( keys %schema ) {
-%      ( my $spaces = $table ) =~ s/./ /g;
-%      print "'$table' => { 'table' => '$schema{$table}',\n".
-%            #(length($table) x ' '). "         'map'   => {\n";
-%            "$spaces        'map'   => {\n";
-%      my %map = map { /^\s*(\w+)\s*=>\s*(\w+)\s*$/
-%                         or die "guru meditation #420: $_";
-%                       ( $1 => $2 );
-%                     }
-%                 split( /\n/, $cgi->param($table.'__'.$unique{$table}++) );
-%      foreach ( keys %map ) {
-%        print "$spaces                     '$_' => '$map{$_}',\n";
-%      }
-%      print "$spaces                   },\n";
-%      print "$spaces      },\n";
-%
-%    }
-%    print "\n</pre>";
-%
-%  } else {
-%    warn "unrecognized magic: ". $cgi->param('magic');
-%  }
-%
-%  
-
-</FORM>
-</BODY>
-</HTML>
-%
-%  #hashmaker widget
-%  sub hashmaker {
-%    my($name, $from, $to, $labelfrom, $labelto) = @_;
-%    my $fromsize = scalar(@$from);
-%    my $tosize = scalar(@$to);
-%    "<TABLE><TR><TH>$labelfrom</TH><TH>$labelto</TH></TR><TR><TD>".
-%        qq!<SELECT NAME="${name}_from" SIZE=$fromsize>\n!.
-%        join("\n", map { qq!<OPTION VALUE="$_">$_</OPTION>! } sort { $a cmp $b } @$from ).
-%        "</SELECT>\n<BR>".
-%      qq!<INPUT TYPE="button" VALUE="refill" onClick="repack_${name}_from()">!.
-%      '</TD><TD>'.
-%        qq!<SELECT NAME="${name}_to" SIZE=$tosize>\n!.
-%        join("\n", map { qq!<OPTION VALUE="$_">$_</OPTION>! } sort { $a cmp $b } @$to ).
-%        "</SELECT>\n<BR>".
-%      qq!<INPUT TYPE="button" VALUE="refill" onClick="repack_${name}_to()">!.
-%      '</TD></TR>'.
-%      '<TR><TD COLSPAN=2>'.
-%        qq!<INPUT TYPE="button" VALUE="map" onClick="toke_$name(this.form)">!.
-%      '</TD></TR><TR><TD COLSPAN=2>'.
-%      qq!<TEXTAREA NAME="$name" COLS=80 ROWS=8>

!. -% ''. -% "". -% ''; -% } -% -% -<%init> - -#there's no ACL for this... haven't used in ages -#make XSS-safe if this is used for more than just admins to import data.... -die 'meta-import not enabled; remove this if you want to use it'; - - diff --git a/httemplate/misc/process/payment.cgi b/httemplate/misc/process/payment.cgi deleted file mode 100644 index 2baca1e39..000000000 --- a/httemplate/misc/process/payment.cgi +++ /dev/null @@ -1,183 +0,0 @@ -% if ( $cgi->param('batch') ) { - - <% include( '/elements/header.html', ucfirst($type{$payby}). ' processing successful', - include('/elements/menubar.html'), - - ) - %> - - <% include( '/elements/small_custview.html', $cust_main, '', '', popurl(3). "view/cust_main.cgi" ) %> - - <% include('/elements/footer.html') %> - -% } else { -<% $cgi->redirect(popurl(3). "view/cust_pay.html?paynum=$paynum" ) %> -% } -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Process payment'); - -#some false laziness w/MyAccount::process_payment - -$cgi->param('custnum') =~ /^(\d+)$/ - or die "illegal custnum ". $cgi->param('custnum'); -my $custnum = $1; - -my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } ); -die "unknown custnum $custnum" unless $cust_main; - -$cgi->param('amount') =~ /^\s*(\d*(\.\d\d)?)\s*$/ - or errorpage("illegal amount ". $cgi->param('amount')); -my $amount = $1; -errorpage("amount <= 0") unless $amount > 0; - -$cgi->param('year') =~ /^(\d+)$/ - or errorpage("illegal year ". $cgi->param('year')); -my $year = $1; - -$cgi->param('month') =~ /^(\d+)$/ - or errorpage("illegal month ". $cgi->param('month')); -my $month = $1; - -$cgi->param('payby') =~ /^(CARD|CHEK)$/ - or errorpage("illegal payby ". $cgi->param('payby')); -my $payby = $1; -my %payby2fields = ( - 'CARD' => [ qw( address1 address2 city state zip ) ], - 'CHEK' => [ qw( ss paytype paystate stateid stateid_state ) ], -); -my %type = ( 'CARD' => 'credit card', - 'CHEK' => 'electronic check (ACH)', - ); - -$cgi->param('payname') =~ /^([\w \,\.\-\']+)$/ - or errorpage(gettext('illegal_name'). " payname: ". $cgi->param('payname')); -my $payname = $1; - -$cgi->param('payunique') =~ /^([\w \!\@\#\$\%\&\-\+\;\:\'\"\,\.\?\/\=]*)$/ - or errorpage(gettext('illegal_text'). " payunique: ". $cgi->param('payunique')); -my $payunique = $1; - -$cgi->param('balance') =~ /^\s*(\-?\s*\d*(\.\d\d)?)\s*$/ - or errorpage("illegal balance"); -my $balance = $1; - -my $payinfo; -my $paycvv = ''; -if ( $payby eq 'CHEK' ) { - - if ($cgi->param('payinfo1') =~ /xx/i || $cgi->param('payinfo2') =~ /xx/i ) { - $payinfo = $cust_main->payinfo; - } else { - $cgi->param('payinfo1') =~ /^(\d+)$/ - or errorpage("illegal account number ". $cgi->param('payinfo1')); - my $payinfo1 = $1; - $cgi->param('payinfo2') =~ /^(\d+)$/ - or errorpage("illegal ABA/routing number ". $cgi->param('payinfo2')); - my $payinfo2 = $1; - $payinfo = $payinfo1. '@'. $payinfo2; - } - -} elsif ( $payby eq 'CARD' ) { - - $payinfo = $cgi->param('payinfo'); - if ($payinfo eq $cust_main->paymask) { - $payinfo = $cust_main->payinfo; - } - $payinfo =~ s/\D//g; - $payinfo =~ /^(\d{13,16})$/ - or errorpage(gettext('invalid_card')); # . ": ". $self->payinfo; - $payinfo = $1; - validate($payinfo) - or errorpage(gettext('invalid_card')); # . ": ". $self->payinfo; - errorpage(gettext('unknown_card_type')) - if cardtype($payinfo) eq "Unknown"; - - if ( defined $cust_main->dbdef_table->column('paycvv') ) { - if ( length($cgi->param('paycvv') ) ) { - if ( cardtype($payinfo) eq 'American Express card' ) { - $cgi->param('paycvv') =~ /^(\d{4})$/ - or errorpage("CVV2 (CID) for American Express cards is four digits."); - $paycvv = $1; - } else { - $cgi->param('paycvv') =~ /^(\d{3})$/ - or errorpage("CVV2 (CVC2/CID) is three digits."); - $paycvv = $1; - } - } - } - -} else { - die "unknown payby $payby"; -} - -my $error = ''; -my $paynum = ''; -if ( $cgi->param('batch') ) { - - $error = $cust_main->batch_card( - 'payby' => $payby, - 'amount' => $amount, - 'payinfo' => $payinfo, - 'paydate' => "$year-$month-01", - 'payname' => $payname, - map { $_ => $cgi->param($_) } - @{$payby2fields{$payby}} - ); - errorpage($error) if $error; - -} else { - - $error = $cust_main->realtime_bop( $FS::payby::payby2bop{$payby}, $amount, - 'quiet' => 1, - 'manual' => 1, - 'balance' => $balance, - 'payinfo' => $payinfo, - 'paydate' => "$year-$month-01", - 'payname' => $payname, - 'payunique' => $payunique, - 'paycvv' => $paycvv, - 'paynum_ref' => \$paynum, - map { $_ => $cgi->param($_) } @{$payby2fields{$payby}} - ); - errorpage($error) if $error; - - $cust_main->apply_payments; - -} - -if ( $cgi->param('save') ) { - my $new = new FS::cust_main { $cust_main->hash }; - if ( $payby eq 'CARD' ) { - $new->set( 'payby' => ( $cgi->param('auto') ? 'CARD' : 'DCRD' ) ); - } elsif ( $payby eq 'CHEK' ) { - $new->set( 'payby' => ( $cgi->param('auto') ? 'CHEK' : 'DCHK' ) ); - } else { - die "unknown payby $payby"; - } - $new->set( 'payinfo' => $payinfo ); - $new->set( 'paydate' => "$year-$month-01" ); - $new->set( 'payname' => $payname ); - - #false laziness w/FS:;cust_main::realtime_bop - check both to make sure - # working correctly - my $conf = new FS::Conf; - if ( $payby eq 'CARD' && - grep { $_ eq cardtype($payinfo) } $conf->config('cvv-save') ) { - $new->set( 'paycvv' => $paycvv ); - } else { - $new->set( 'paycvv' => ''); - } - - $new->set( $_ => $cgi->param($_) ) foreach @{$payby2fields{$payby}}; - - my $error = $new->replace($cust_main); - errorpage("payment processed successfully, but error saving info: $error") - if $error; - $cust_main = $new; -} - -#success! - - diff --git a/httemplate/misc/process/recharge_svc.html b/httemplate/misc/process/recharge_svc.html deleted file mode 100755 index 147b9533a..000000000 --- a/httemplate/misc/process/recharge_svc.html +++ /dev/null @@ -1,92 +0,0 @@ -%unless ($error) { -% -% my ($amount, $seconds, $up, $down, $total) = (0, 0, 0, 0, 0); -% #should probably use payby.pm but whatever -% if ($payby eq 'PREP') { -% $error = $cust_main->get_prepay($prepaid, \$amount, \$seconds, \$up, \$down, \$total) -% || $svc_acct->increment_seconds($seconds) -% || $svc_acct->increment_upbytes($up) -% || $svc_acct->increment_downbytes($down) -% || $svc_acct->increment_totalbytes($total) -% || $cust_main->insert_cust_pay_prepay( $amount, $prepaid ); -% } elsif ( $payby =~ /^(CARD|DCRD|CHEK|DCHK|LECB|BILL|COMP)$/ ) { -% my $part_pkg = $svc_acct->cust_svc->cust_pkg->part_pkg; -% $amount = $part_pkg->option('recharge_amount', 1); -% my %rhash = map { $_ =~ /^recharge_(.*)$/; $1, $part_pkg->option($_) } -% grep { $part_pkg->option($_, 1) } -% qw ( recharge_seconds recharge_upbytes recharge_downbytes -% recharge_totalbytes ); -% -% my $description = "Recharge"; -% $description .= " $rhash{seconds}s" if $rhash{seconds}; -% $description .= " $rhash{upbytes} up" if $rhash{upbytes}; -% $description .= " $rhash{downbytes} down" if $rhash{downbytes}; -% $description .= " $rhash{totalbytes} total" if $rhash{totalbytes}; -% -% $error = $cust_main->charge($amount, "Recharge " . $svc_acct->label, -% $description, $part_pkg->taxclass); -% -% if ($part_pkg->option('recharge_reset', 1)) { -% $error ||= $svc_acct->set_usage(\%rhash); -% }else{ -% $error ||= $svc_acct->recharge(\%rhash); -% } -% -% my $old_balance = $cust_main->balance; -% $error ||= $cust_main->bill; -% $error ||= $cust_main->apply_payments_and_credits; -% my $bill_error = $cust_main->collect('realtime' => 1) unless $error; -% $error ||= "Failed to collect - $bill_error" -% if $cust_main->balance > $old_balance && $cust_main->balance > 0 -% && $payby ne 'BILL'; -% -% } else { -% $error = "fatal error - unknown payby: $payby"; -% } -%} -% -%if ($error) { -% $cgi->param('error', $error); -% $dbh->rollback if $oldAutoCommit; -% print $cgi->redirect(popurl(2). "recharge_svc.html?". $cgi->query_string ); -%} -%$dbh->commit or die $dbh->errstr if $oldAutoCommit; -% -<% header("Package recharged") %> - - -<%init> - -my $conf = new FS::Conf; - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Recharge customer service'); - -#untaint svcnum -my $svcnum = $cgi->param('svcnum'); -$svcnum =~ /^(\d+)$/ || die "Illegal svcnum"; -$svcnum = $1; - -#untaint prepaid -my $prepaid = $cgi->param('prepaid'); -$prepaid =~ /^(\w*)$/; -$prepaid = $1; - -#untaint payby -my $payby = $cgi->param('payby'); -$payby =~ /^([A-Z]*)$/; -$payby = $1; - -my $error = ''; -my $svc_acct = qsearchs( 'svc_acct', {'svcnum'=>$svcnum} ); -$error = "Can't recharge service $svcnum. " unless $svc_acct; - -my $cust_main = $svc_acct->cust_svc->cust_pkg->cust_main; - -my $oldAutoCommit = $FS::UID::AutoCommit; -local $FS::UID::AutoCommit = 0; -my $dbh = dbh; - - diff --git a/httemplate/misc/process/timeworked.html b/httemplate/misc/process/timeworked.html deleted file mode 100644 index c589d768f..000000000 --- a/httemplate/misc/process/timeworked.html +++ /dev/null @@ -1,57 +0,0 @@ -% if ($error) { -<% $cgi->redirect(popurl(2). "timeworked.html?". $cgi->query_string) %> -% } else { -<% $cgi->redirect(popurl(3). "search/timeworked.html") %> -% } -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Time queue'); - -my @acct_rt_transaction; -foreach my $transaction ( - map { /^transactionid(\d+)$/; $1; } grep /^transactionid\d+$/, $cgi->param -) { - my $s = "multiplier${transaction}_"; - my %multipliers = map { /^$s(\d+)$/; $1 => $cgi->param("$s$1"); } - grep /^$s\d+$/, $cgi->param; - my $msum = 0; - foreach(values %multipliers) {$msum += $_}; - - my $seconds = $cgi->param("seconds$transaction"); - my %seconds = - map { $_ => sprintf("%.0f", $seconds * $multipliers{$_} / $msum) } - (keys %multipliers); - my $sum = 0; - my $count = 0; - foreach (values %seconds) { - $sum += $_; - $count++; - } - - #fudge in some time if we're close - if (abs($seconds-$sum) <= $count) { - my $adjustment = $seconds-$sum; - foreach (keys %seconds) { # explicitly choose one? - $seconds{$_} += $adjustment; - last; - } - } else { - die "unexpectedly cannot apportion time"; - } - - foreach my $customer ( grep {$seconds{$_}} keys %seconds ) { - push @acct_rt_transaction, new FS::acct_rt_transaction { - 'custnum' => $customer, - 'transaction_id' => $transaction, - 'seconds' => $seconds{$customer}, - 'support' => $seconds{$customer} * $msum, - }; - } - -} - -my $error = FS::acct_rt_transaction->batch_insert(@acct_rt_transaction); -$cgi->param('error', $error) if $error; - - diff --git a/httemplate/misc/queue.cgi b/httemplate/misc/queue.cgi deleted file mode 100644 index 5dee29b88..000000000 --- a/httemplate/misc/queue.cgi +++ /dev/null @@ -1,49 +0,0 @@ -<% $cgi->redirect(popurl(2). "search/queue.html") %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Job queue'); - -$cgi->param('action') =~ /^(new|del|(retry|remove) selected)$/ - or die "Illegal action"; -my $action = $1; - -my $job; -if ( $action eq 'new' || $action eq 'del' ) { - $cgi->param('jobnum') =~ /^(\d+)$/ or die "Illegal jobnum"; - my $jobnum = $1; - $job = qsearchs('queue', { 'jobnum' => $1 }) - or die "unknown jobnum $jobnum - ". - "it probably completed normally or was removed by another user"; -} - -if ( $action eq 'new' ) { - my %hash = $job->hash; - $hash{'status'} = 'new'; - $hash{'statustext'} = ''; - my $new = new FS::queue \%hash; - my $error = $new->replace($job); - die $error if $error; -} elsif ( $action eq 'del' ) { - my $error = $job->delete; - die $error if $error; -} elsif ( $action =~ /^(retry|remove) selected$/ ) { - foreach my $jobnum ( - map { /^jobnum(\d+)$/; $1; } grep /^jobnum\d+$/, $cgi->param - ) { - my $job = qsearchs('queue', { 'jobnum' => $jobnum }); - if ( $action eq 'retry selected' && $job ) { #new - my %hash = $job->hash; - $hash{'status'} = 'new'; - $hash{'statustext'} = ''; - my $new = new FS::queue \%hash; - my $error = $new->replace($job); - die $error if $error; - } elsif ( $action eq 'remove selected' && $job ) { #del - my $error = $job->delete; - die $error if $error; - } - } -} - - diff --git a/httemplate/misc/recharge_svc.html b/httemplate/misc/recharge_svc.html deleted file mode 100755 index d8a8faad4..000000000 --- a/httemplate/misc/recharge_svc.html +++ /dev/null @@ -1,105 +0,0 @@ -<% include('/elements/header-popup.html', 'Recharge Service' ) %> - -<% include('/elements/error.html') %> - - - -<% include('/elements/footer.html') %> - -<%once> - -my $conf = new FS::Conf; -my $money_char = $conf->config('money_char') || '$'; - - -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Recharge customer service'); - -my($svcnum, $prepaid, $payby); -if ( $cgi->param('error') ) { - $svcnum = $cgi->param('svcnum'); - $prepaid = $cgi->param('prepaid'); - $payby = $cgi->param('payby'); -} elsif ( $cgi->param('svcnum') =~ /^(\d+)$/ ) { - $svcnum = $1; - $prepaid = ''; -} else { - die "illegal query ". $cgi->keywords; -} - -my $title = 'Recharge Service'; - -my $cust_svc = qsearchs('cust_svc', {'svcnum' => $svcnum}); -die "No such service: $svcnum" unless $cust_svc; - -my($label, $value) = $cust_svc->label; - -$payby = $cust_svc->cust_pkg->cust_main->payby unless $payby; -my $part_pkg = $cust_svc->cust_pkg->part_pkg; -my $amount = $part_pkg->option('recharge_amount', 1) || 0; - -my $recharge_label = "Charge $money_char$amount for "; - -$recharge_label .= $part_pkg->option('recharge_seconds', 1) . 's ' - if $part_pkg->option('recharge_seconds', 1); - - -$recharge_label .= FS::UI::bytecount::display_bytecount( - $part_pkg->option('recharge_upbytes', 1) ) - . ' up ' - if $part_pkg->option('recharge_upbytes', 1); - - -$recharge_label .= FS::UI::bytecount::display_bytecount( - $part_pkg->option('recharge_downbytes', 1) ) - . ' down ' - if $part_pkg->option('recharge_downbytes', 1); - - -$recharge_label .= FS::UI::bytecount::display_bytecount( - $part_pkg->option('recharge_totalbytes', 1) ) - . ' total ' - if $part_pkg->option('recharge_totalbytes', 1); - - -$recharge_label = '' - unless ($recharge_label ne "Charge $money_char$amount for "); - - - diff --git a/httemplate/misc/states.cgi b/httemplate/misc/states.cgi deleted file mode 100644 index cf2b46ee2..000000000 --- a/httemplate/misc/states.cgi +++ /dev/null @@ -1,7 +0,0 @@ -% -% -% my $country = $cgi->param('arg'); -% my @output = states_hash($country); -% -% -[ <% join(', ', map { qq("$_") } @output) %> ] diff --git a/httemplate/misc/svc_acct-domains.cgi b/httemplate/misc/svc_acct-domains.cgi deleted file mode 100644 index 573457483..000000000 --- a/httemplate/misc/svc_acct-domains.cgi +++ /dev/null @@ -1,31 +0,0 @@ -[ <% join(', ', map { qq("$_->[0]", "$_->[1]") } @svc_domain) %> ] -<%init> - -my $conf = new FS::Conf; - -my $pkgpart_svcpart = $cgi->param('arg'); -$pkgpart_svcpart =~ /^\d+_(\d+)$/; -my $part_svc = qsearchs('part_svc', { 'svcpart' => $1 }) if $1; -my $part_svc_column = $part_svc->part_svc_column('domsvc') if $part_svc; - -my @output = split /,/, $part_svc_column->columnvalue if $part_svc_column; -my $columnflag = $part_svc_column->columnflag if $part_svc_column; -my @svc_domain = (); -my %seen = (); - -foreach (@output) { - my $svc_domain = qsearchs('svc_domain', { 'svcnum' => $_ }) - or warn "unknown svc_domain.svcnum $_ for part_svc_column domsvc; ". - "svcpart = " . $part_svc->svcpart; - push @svc_domain, [ $_ => $svc_domain->domain ]; - $seen{$_}++; -} -if ($conf->exists('svc_acct-alldomains') - && ( $columnflag eq 'D' || $columnflag eq '' ) - ) { - foreach (grep { $_->svcnum ne $output[0] } qsearch('svc_domain', {}) ){ - push @svc_domain, [ $_->svcnum => $_->domain ]; - } -} - - diff --git a/httemplate/misc/timeworked.html b/httemplate/misc/timeworked.html deleted file mode 100755 index db4b64ce7..000000000 --- a/httemplate/misc/timeworked.html +++ /dev/null @@ -1,135 +0,0 @@ -<% include('/elements/header.html', $title, '' ) %> - -<% include('/elements/error.html') %> - -

- - - - - - - - - - - - - - - - - - - - - - - - - -% foreach my $tr_id ( keys %ticketmap ) { -% my (@customers) = @{$customers{$ticketmap{$tr_id}}}; -% next unless @customers; -% my $default_multiplier = sprintf("%.2f", 1/@customers); -% my ($custnum, $name) = split(':', pop @customers, 2); -% my $link = $p. 'rt/Ticket/Display.html?id='. $ticketmap{$tr_id}. -% '#txn-'. $tr_id; - - - - - - -% my $seconds = 0; -% if ( $cgi->param("seconds$tr_id") =~ /^(\d+)$/ ) { -% $seconds = $1; -% } - - - - - - - -% foreach ( @customers ) { -% ($custnum, $name) = split(':', $_, 2); - - - - - - - - -% } -% } - - - -

Trans	Ticket		Time	Customer		Multiplier
#	#	Subject	hours	#	Name
<% $tr_id %>	<% $ticketmap{$tr_id} %>	<% $ticket{$ticketmap{$tr_id}} \|h %>	<% sprintf("%0.2f", $seconds/3600) %>	<% $custnum %>	<% $name %>	- - - -% my $multiplier = $default_multiplier; -% my $mult_paramname = "multiplier${tr_id}_$custnum"; -% if ( $cgi->param($mult_paramname) =~ /^\s([\d\.]+)\s$/ ) { -% $multiplier = $1; -% } - - -
<% $custnum %>					<% $name %>	- -% $multiplier = $default_multiplier; -% $mult_paramname = "multiplier${tr_id}_$custnum"; -% if ( $cgi->param($mult_paramname) =~ /^\s([\d\.]+)\s$/ ) { -% $multiplier = $1; -% } - - - -

- -
- - -

- -<% include('/elements/footer.html') %> - -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Time queue'); - -my(%ticketmap, %ticket, %customers); -my $title = 'Assign Time Worked'; -tie %ticketmap, 'Tie::IxHash'; - -RT::Init(); - -my $CurrentUser = RT::CurrentUser->new(); -$CurrentUser->LoadByName($FS::CurrentUser::CurrentUser->username); - -foreach my $id ( map { /^transactionid(\d+)$/; $1; } - grep /^transactionid\d+$/, $cgi->param) { - my $transaction = new RT::Transaction($CurrentUser); - $transaction->Load($id); - $ticketmap{$id} = $transaction->ObjectId; - unless(exists($ticket{$ticketmap{$id}})) { - my $ticket = new RT::Ticket($CurrentUser); - $ticket->Load($ticketmap{$id}); - $ticket{$ticketmap{$id}} = $ticket->Subject; - $customers{$ticketmap{$id}} = - [ map { $_->Resolver->AsString } - grep { $_->Resolver->{'fstable'} eq 'cust_main' } - grep { $_->Scheme eq 'freeside' } - map { $_->TargetURI } - @{ $ticket->_Links('Base')->ItemsArrayRef } - ]; - - } -} - - - diff --git a/httemplate/misc/unapply-cust_credit.cgi b/httemplate/misc/unapply-cust_credit.cgi deleted file mode 100755 index ed739ac1b..000000000 --- a/httemplate/misc/unapply-cust_credit.cgi +++ /dev/null @@ -1,20 +0,0 @@ -<% $cgi->redirect($p. "view/cust_main.cgi?". $custnum) %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Unapply credit'); - -#untaint crednum -my($query) = $cgi->keywords; -$query =~ /^(\d+)$/ || die "Illegal crednum"; -my $crednum = $1; - -my $cust_credit = qsearchs('cust_credit', { 'crednum' => $crednum } ); -my $custnum = $cust_credit->custnum; - -foreach my $cust_credit_bill ( $cust_credit->cust_credit_bill ) { - my $error = $cust_credit_bill->delete; - errorpage($error) if $error; -} - - diff --git a/httemplate/misc/unapply-cust_pay.cgi b/httemplate/misc/unapply-cust_pay.cgi deleted file mode 100755 index 8cdac180b..000000000 --- a/httemplate/misc/unapply-cust_pay.cgi +++ /dev/null @@ -1,20 +0,0 @@ -<% $cgi->redirect($p. "view/cust_main.cgi?". $custnum) %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Unapply payment'); - -#untaint paynum -my($query) = $cgi->keywords; -$query =~ /^(\d+)$/ || die "Illegal paynum"; -my $paynum = $1; - -my $cust_pay = qsearchs('cust_pay', { 'paynum' => $paynum } ); -my $custnum = $cust_pay->custnum; - -foreach my $cust_bill_pay ( $cust_pay->cust_bill_pay ) { - my $error = $cust_bill_pay->delete; - errorpage($error) if $error; -} - - diff --git a/httemplate/misc/unprovision.cgi b/httemplate/misc/unprovision.cgi deleted file mode 100755 index 4ab15fdc0..000000000 --- a/httemplate/misc/unprovision.cgi +++ /dev/null @@ -1,26 +0,0 @@ -%if ( $error ) { -% errorpage($error); -%} else { -<% $cgi->redirect(popurl(2)."view/cust_main.cgi?$custnum") %> -%} -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Unprovision customer service'); - -#untaint svcnum -my($query) = $cgi->keywords; -$query =~ /^(\d+)$/; -my $svcnum = $1; - -#my $svc_acct = qsearchs('svc_acct',{'svcnum'=>$svcnum}); -#die "Unknown svcnum!" unless $svc_acct; - -my $cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum}); -die "Unknown svcnum!" unless $cust_svc; - -my $custnum = $cust_svc->cust_pkg->custnum; - -my $error = $cust_svc->cancel; - - diff --git a/httemplate/misc/unsusp_pkg.cgi b/httemplate/misc/unsusp_pkg.cgi deleted file mode 100755 index b350693dd..000000000 --- a/httemplate/misc/unsusp_pkg.cgi +++ /dev/null @@ -1,20 +0,0 @@ -%if ( $error ) { -% errorpage($error); -%} else { -<% $cgi->redirect(popurl(2). "view/cust_main.cgi?".$cust_pkg->getfield('custnum')) %> -%} -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Unsuspend customer package'); - -#untaint pkgnum -my ($query) = $cgi->keywords; -$query =~ /^(\d+)$/ || die "Illegal pkgnum"; -my $pkgnum = $1; - -my $cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum}); - -my $error = $cust_pkg->unsuspend; - - diff --git a/httemplate/misc/unvoid-cust_pay_void.cgi b/httemplate/misc/unvoid-cust_pay_void.cgi deleted file mode 100755 index 91fe1c223..000000000 --- a/httemplate/misc/unvoid-cust_pay_void.cgi +++ /dev/null @@ -1,21 +0,0 @@ -%if ( $error ) { -% errorpage($error); -%} else { -<% $cgi->redirect($p. "view/cust_main.cgi?". $custnum) %> -%} -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Unvoid'); - -#untaint paynum -my($query) = $cgi->keywords; -$query =~ /^(\d+)$/ || die "Illegal paynum"; -my $paynum = $1; - -my $cust_pay_void = qsearchs('cust_pay_void', { 'paynum' => $paynum } ); -my $custnum = $cust_pay_void->custnum; - -my $error = $cust_pay_void->unvoid; - - diff --git a/httemplate/misc/upload-batch.cgi b/httemplate/misc/upload-batch.cgi deleted file mode 100644 index d1a84fd02..000000000 --- a/httemplate/misc/upload-batch.cgi +++ /dev/null @@ -1,36 +0,0 @@ -% if ( $error ) { -% errorpage($error); -% } else { - <% include('/elements/header.html','Batch results upload successful') %> - <% include('/elements/footer.html') %> -% } -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Process batches'); - -my $error; - -my $fh = $cgi->upload('batch_results'); -$error = 'No file uploaded' unless defined($fh); - -unless ( $error ) { - - $cgi->param('batchnum') =~ /^(\d+)$/; - my $batchnum = $1; - - my $pay_batch = qsearchs( 'pay_batch', { 'batchnum' => $batchnum } ); - if ( ! $pay_batch ) { - $error = "batchnum $batchnum not found"; - } elsif ( $pay_batch->status ne 'I' ) { - $error = "batch $batchnum is not in transit"; - } else { - $error = $pay_batch->import_results( - 'filehandle' => $fh, - 'format' => $cgi->param('format'), - ); - } - -} - - diff --git a/httemplate/misc/void-cust_pay.cgi b/httemplate/misc/void-cust_pay.cgi deleted file mode 100755 index 7b484e93e..000000000 --- a/httemplate/misc/void-cust_pay.cgi +++ /dev/null @@ -1,26 +0,0 @@ -%if ( $error ) { -% errorpage($error); -%} else { -<% $cgi->redirect($p. "view/cust_main.cgi?". $custnum) %> -%} -<%init> - -#untaint paynum -my($query) = $cgi->keywords; -$query =~ /^(\d+)$/ || die "Illegal paynum"; -my $paynum = $1; - -my $cust_pay = qsearchs('cust_pay',{'paynum'=>$paynum}); - -my $right = 'Regular void'; -$right = 'Credit card void' if $cust_pay->payby eq 'CARD'; -$right = 'Echeck void' if $cust_pay->payby eq 'CHEK'; - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right($right); - -my $custnum = $cust_pay->custnum; - -my $error = $cust_pay->void; - - diff --git a/httemplate/misc/whois.cgi b/httemplate/misc/whois.cgi deleted file mode 100644 index 35d0eccc9..000000000 --- a/httemplate/misc/whois.cgi +++ /dev/null @@ -1,27 +0,0 @@ -<% include("/elements/header.html","Whois $domain", menubar( - ( $custnum - ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", - ) - : () - ), - "View this domain (#$svcnum)" => "${p}view/svc_domain.cgi?$svcnum", -)) %> - -

<% $whois %>

- -<% include('/elements/footer.html') %> - -<%init> - -my $svcnum = $cgi->param('svcnum'); -my $custnum = $cgi->param('custnum'); -my $domain = $cgi->param('domain'); - -my $whois = eval { whois($domain) }; - if ( $@ ) { - ( $whois = $@ ) =~ s/ at \/.*Net\/Whois\/Raw\.pm line \d+.*$//s; - } else { - $whois =~ s/^\n+//; - } - - diff --git a/httemplate/misc/xmlhttp-cust_main-search.cgi b/httemplate/misc/xmlhttp-cust_main-search.cgi deleted file mode 100644 index 67512fad9..000000000 --- a/httemplate/misc/xmlhttp-cust_main-search.cgi +++ /dev/null @@ -1,22 +0,0 @@ -% -% my $sub = $cgi->param('sub'); -% -% if ( $sub eq 'custnum_search' ) { -% -% my $custnum = $cgi->param('arg'); -% my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } ); -% -% -"<% $cust_main ? $cust_main->name : '' %>" -% } elsif ( $sub eq 'smart_search' ) { -% -% my $string = $cgi->param('arg'); -% my @cust_main = smart_search( 'search' => $string ); -% my $return = [ map [ $_->custnum, $_->name ], @cust_main ]; -% -% -<% objToJson($return) %> -% } - - - diff --git a/httemplate/misc/xmlrpc.cgi b/httemplate/misc/xmlrpc.cgi deleted file mode 100644 index 1d0383f2a..000000000 --- a/httemplate/misc/xmlrpc.cgi +++ /dev/null @@ -1,18 +0,0 @@ -% -% -% my $request_xml = $cgi->param('POSTDATA'); -% -% #$r->log_error($request_xml); -% -% my $fsxmlrpc = new FS::XMLRPC; -% my ($error, $response_xml) = $fsxmlrpc->serve($request_xml); -% -% #$r->log_error($error) if $error; -% -% http_header('Content-Type' => 'text/xml', -% 'Content-Length' => length($response_xml)); -% -% print $response_xml; -% -% - diff --git a/httemplate/pref/pref-process.html b/httemplate/pref/pref-process.html deleted file mode 100644 index 25f30e9a9..000000000 --- a/httemplate/pref/pref-process.html +++ /dev/null @@ -1,57 +0,0 @@ -% my $error = ''; -% -% my $access_user; -% if ( grep { $cgi->param($_) !~ /^\s*$/ } -% qw(_password new_password new_password2) -% ) { -% -% $access_user = qsearchs( 'access_user', { -% 'username' => getotaker, -% '_password' => $cgi->param('_password'), -% } ); -% -% $error = 'Current password incorrect; password not changed' -% unless $access_user; -% -% $error ||= "New passwords don't match" -% unless $cgi->param('new_password') eq $cgi->param('new_password2'); -% -% $error ||= "No new password entered" -% unless length($cgi->param('new_password')); -% -% $access_user->_password($cgi->param('new_password')) unless $error; -% -% } else { -% -% $access_user = $FS::CurrentUser::CurrentUser; -% -% } -% -% my %param = $access_user->options; -% -% #XXX autogen -% my @paramlist = qw( menu_position -% email_address -% vonage-fromnumber vonage-username vonage-password -% height width availHeight availWidth colorDepth -% ); -% -% foreach (@paramlist) { -% scalar($cgi->param($_)) =~ /^[,.\-\@\w]*$/ && next; -% $error ||= "Illegal value for parameter $_"; -% last; -% } -% -% foreach (@paramlist) { -% $param{$_} = scalar($cgi->param($_)); -% } -% -% $error ||= $access_user->replace( \%param ); -% -% if ( $error ) { -% $cgi->param('error', $error); -% print $cgi->redirect(popurl(1). "pref.html?". $cgi->query_string ); -% } else { -<% include('/elements/header.html', 'Preferences updated') %> -<% include('/elements/footer.html') %> -% } diff --git a/httemplate/pref/pref.html b/httemplate/pref/pref.html deleted file mode 100644 index de5bd8270..000000000 --- a/httemplate/pref/pref.html +++ /dev/null @@ -1,102 +0,0 @@ -<% include('/elements/header.html', 'Preferences for '. getotaker ) %> - -

- -<% include('/elements/error.html') %> - - -Change password (leave blank for no change) -<% ntable("#cccccc",2) %> - - - Current password: - - - - - New password: - - - - - Re-enter new password: - - - - -
- - -Interface -<% ntable("#cccccc",2) %> - - - Menu location: - - > Left
- > Top
- -

- - - -
- - -Email Address -<% ntable("#cccccc",2) %> - - - Email Address(es) (comma separated) - - - - - - -
- - -Vonage integration (see Click2Call) -<% ntable("#cccccc",2) %> - - - Vonage phone number - - - - - Vonage username - - - - - Vonage password - - - - -
- - -% foreach my $prop (qw( height width availHeight availWidth colorDepth )) { - - -% } - - - -<% include('/elements/footer.html') %> -<%init> - -# XSS via your own preferences? seems unlikely, but nice try anyway... -( $FS::CurrentUser::CurrentUser->option('menu_position') || 'left' ) - =~ /^(\w+)$/ or die "illegal menu_position"; -my $menu_position = $1; -( $FS::CurrentUser::CurrentUser->option('email_address') ) - =~ /^([,\w\@.]*)$/ or die "illegal email_address"; #too late -my $email_address = $1; - - diff --git a/httemplate/search/cdr.html b/httemplate/search/cdr.html deleted file mode 100644 index 0facc7fab..000000000 --- a/httemplate/search/cdr.html +++ /dev/null @@ -1,91 +0,0 @@ -<% include( 'elements/search.html', - 'title' => $title, - 'name' => 'call detail records', - 'query' => { 'table' => 'cdr', - 'hashref' => $hashref, - 'extra_sql' => $qsearch, - 'order_by' => 'ORDER BY calldate', - }, - 'count_query' => $count_query, - 'header' => [ fields('cdr') ], #XXX fill in some nice names - 'fields' => [ fields('cdr') ], #XXX fill in some pretty-print - # processing, etc. - ) -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('List rating data'); - -my $title = 'Call Detail Records'; -my $hashref = {}; - -#process params for CDR search, populate $hashref... -# and fixup $count_query - -my @search = (); -my @qsearch = (); - -### -# freesidestatus -### - -if ( $cgi->param('freesidestatus') eq 'NULL' ) { - - my $title = "Unprocessed $title"; - $hashref->{'freesidestatus'} = ''; # Record.pm will take care of it - push @search, "( freesidestatus IS NULL OR freesidestatus = '' )"; - -} elsif ( $cgi->param('freesidestatus') =~ /^([\w ]+)$/ ) { - - my $title = "Processed $title"; - $hashref->{'freesidestatus'} = $1; - push @search, "freesidestatus = '$1'"; - -} - -### -# dates -### - -my $str2time_sql = str2time_sql; - -my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi); -push @search, -my @dsearch = ( "$str2time_sql calldate) >= $beginning ", - "$str2time_sql calldate) <= $ending" - ); -push @search, @dsearch; -push @qsearch, @search; - - -### -# src/dest -### - -if ( $cgi->param('src') =~ /^\s*([\d\-\+\ ]+)\s*$/ ) { - ( my $src = $1 ) =~ s/\D//g; - $hashref->{'src'} = $src; - push @search, "src = '$src'"; -} - -if ( $cgi->param('dst') =~ /^\s*([\d\-\+ ]+)\s*$/ ) { - ( my $dst = $1 ) =~ s/\D//g; - $hashref->{'dst'} = $dst; - push @search, "dst = '$dst'"; -} - -### -# finish it up -### - -my $search = join(' AND ', @search); -$search = "WHERE $search" if $search; - -my $count_query = "SELECT COUNT(*) FROM cdr $search"; - -my $qsearch = join(' AND ', @qsearch); -$qsearch = ( scalar(keys %$hashref) ? ' AND ' : ' WHERE ' ) . $qsearch - if $qsearch; - - diff --git a/httemplate/search/cust_bill.html b/httemplate/search/cust_bill.html deleted file mode 100755 index 25a7ea051..000000000 --- a/httemplate/search/cust_bill.html +++ /dev/null @@ -1,227 +0,0 @@ -<% include( 'elements/search.html', - 'title' => 'Invoice Search Results', - 'html_init' => $html_init, - 'menubar' => $menubar, - 'name' => 'invoices', - 'query' => $sql_query, - 'count_query' => $count_query, - 'count_addl' => $count_addl, - 'redirect' => $link, - 'header' => [ 'Invoice #', - 'Balance', - 'Net Amount', - 'Gross Amount', - 'Date', - FS::UI::Web::cust_header(), - ], - 'fields' => [ - 'invnum', - sub { sprintf($money_char.'%.2f', shift->get('owed') ) }, - sub { sprintf($money_char.'%.2f', shift->get('net') ) }, - sub { sprintf($money_char.'%.2f', shift->charged ) }, - sub { time2str('%b %d %Y', shift->_date ) }, - \&FS::UI::Web::cust_fields, - ], - 'align' => 'rrrr'.FS::UI::Web::cust_aligns(), - 'links' => [ - $link, - $link, - $link, - $link, - $link, - ( map { $_ ne 'Cust. Status' ? $clink : '' } - FS::UI::Web::cust_header() - ), - ], - 'color' => [ - '', - '', - '', - '', - '', - FS::UI::Web::cust_colors(), - ], - 'style' => [ - '', - '', - '', - '', - '', - FS::UI::Web::cust_styles(), - ], - - - ) -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('List invoices'); - -my $join_cust_main = 'LEFT JOIN cust_main USING ( custnum )'; -#here is the agent virtualization -my $agentnums_sql = $FS::CurrentUser::CurrentUser->agentnums_sql; - -my( $count_query, $sql_query ); -my $count_addl = ''; -#my $distinct = ''; -my %search; - -if ( $cgi->param('invnum') =~ /^\s*(FS-)?(\d+)\s*$/ ) { - - $count_query = - "SELECT COUNT(*) FROM cust_bill $join_cust_main". - " WHERE invnum = $2 AND $agentnums_sql"; #agent virtualization - $sql_query = { - 'table' => 'cust_bill', - 'addl_from' => $join_cust_main, - 'hashref' => { 'invnum' => $2 }, - #'select' => '*', - 'extra_sql' => " AND $agentnums_sql", #agent virtualization - }; - -} else { - - #some false laziness w/cust_bill::re_X - my @where; - my $orderby = 'ORDER BY cust_bill._date'; - - if ( $cgi->param('beginning') - && $cgi->param('beginning') =~ /^([ 0-9\-\/]{0,10})$/ ) { - $search{'begin'} = str2time($1); - } - if ( $cgi->param('ending') - && $cgi->param('ending') =~ /^([ 0-9\-\/]{0,10})$/ ) { - $search{'end'} = str2time($1) + 86399; - } - - if ( $cgi->param('begin') =~ /^(\d+)$/ ) { - $search{'begin'} = $1; - } - if ( $cgi->param('end') =~ /^(\d+)$/ ) { - $search{'end'} = $1; - } - - if ( $cgi->param('invnum_min') =~ /^\s*(\d+)\s*$/ ) { - $search{'invnum_min'} = $1; - } - if ( $cgi->param('invnum_max') =~ /^\s*(\d+)\s*$/ ) { - $search{'invnum_max'} = $1; - } - - if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) { - $search{'agentnum'} = $1; - } - - $search{'open'} = 1 if $cgi->param('open'); - $search{'net'} = 1 if $cgi->param('net' ); - - my($query) = $cgi->keywords; - if ( $query =~ /^(OPEN(\d*)_)?(invnum|date|custnum)$/ ) { - $search{'open'} = 1 if $1; - ($search{'days'}, my $field) = ($2, $3); - $field = "_date" if $field eq 'date'; - $orderby = "ORDER BY cust_bill.$field"; - } - - if ( $cgi->param('newest_percust') ) { - $search{'newest_percust'} = 1; - $count_query = "SELECT COUNT(DISTINCT cust_bill.custnum), 'N/A', 'N/A'"; - } - - my $extra_sql = ' WHERE '. FS::cust_bill->search_sql( \%search ); - - unless ( $count_query ) { - $count_query = 'SELECT COUNT(*), '. join(', ', - map "SUM($_)", - ( 'charged', - FS::cust_bill->net_sql, - FS::cust_bill->owed_sql, - ) - ); - $count_addl = [ '$%.2f invoiced (gross)', - '$%.2f invoiced (net)', - '$%.2f outstanding balance', - ]; - } - $count_query .= " FROM cust_bill $join_cust_main $extra_sql"; - - $sql_query = { - 'table' => 'cust_bill', - 'addl_from' => $join_cust_main, - 'hashref' => {}, - #'select' => "$distinct ". join(', ', - 'select' => join(', ', - 'cust_bill.*', - #( map "cust_main.$_", qw(custnum last first company) ), - 'cust_main.custnum as cust_main_custnum', - FS::UI::Web::cust_sql_fields(), - FS::cust_bill->owed_sql. ' AS owed', - FS::cust_bill->net_sql. ' AS net', - ), - 'extra_sql' => $extra_sql, - 'order_by' => $orderby, - }; - -} - -my $link = [ "${p}view/cust_bill.cgi?", 'invnum', ]; -my $clink = sub { - my $cust_bill = shift; - $cust_bill->cust_main_custnum - ? [ "${p}view/cust_main.cgi?", 'custnum' ] - : ''; -}; - -my $conf = new FS::Conf; -my $money_char = $conf->config('money_char') || '$'; - -my $html_init = join("\n", map { - ( my $action = $_ ) =~ s/_$//; - include('/elements/progress-init.html', - $_.'form', - [ keys %search ], - "../misc/${_}invoices.cgi", - { 'message' => "Invoices re-${action}ed" }, #would be nice to show the number of them, but... - $_, #key - ), - qq!!, - ( map qq!!, keys %search ), - qq!

! -} qw( print_ email_ fax_ ) ). - -''; - -my $menubar = [ - 'Print these invoices' => - "javascript:confirm_print_process()", - 'Email these invoices' => - "javascript:confirm_email_process()", - ]; - -push @$menubar, 'Fax these invoices' => - "javascript:confirm_fax_process()" - if $conf->exists('hylafax'); - - diff --git a/httemplate/search/cust_bill_event.cgi b/httemplate/search/cust_bill_event.cgi deleted file mode 100644 index ff4168d6d..000000000 --- a/httemplate/search/cust_bill_event.cgi +++ /dev/null @@ -1,166 +0,0 @@ -<% include( 'elements/search.html', - 'title' => $title, - 'html_init' => $html_init, - 'menubar' => $menubar, - 'name' => 'billing events', - 'query' => $sql_query, - 'count_query' => $count_sql, - 'header' => [ 'Event', - 'Date', - 'Status', - #'Inv #', 'Inv Date', 'Cust #', - 'Invoice', - FS::UI::Web::cust_header(), - ], - 'fields' => [ - 'event', - sub { time2str("%b %d %Y %T", $_[0]->_date) }, - sub { - #my $cust_bill_event = shift; - my $status = $_[0]->status; - $status .= ': '.$_[0]->statustext - if $_[0]->statustext; - $status; - }, - sub { - #my $cust_bill_event = shift; - 'Invoice #'. $_[0]->invnum. - ' ('. - time2str("%D", $_[0]->cust_bill_date). - ')'; - }, - \&FS::UI::Web::cust_fields, - ], - 'align' => 'lrlr'.FS::UI::Web::cust_aligns(), - 'links' => [ - '', - '', - '', - sub { - my $part_bill_event = shift; - my $template = $part_bill_event->templatename; - $template .= '-' if $template; - [ "${p}view/cust_bill.cgi?$template", 'invnum']; - }, - ( map { $_ ne 'Cust. Status' ? $link_cust : '' } - FS::UI::Web::cust_header() - ), - ], - 'color' => [ - '', - '', - '', - '', - FS::UI::Web::cust_colors(), - ], - 'style' => [ - '', - '', - '', - '', - FS::UI::Web::cust_styles(), - ], - ) -%> -<%init> - -my $curuser = $FS::CurrentUser::CurrentUser; - -die "access denied" - unless $curuser->access_right('Billing event reports') - or $curuser->access_right('View customer billing events') - && $cgi->param('invnum') =~ /^(\d+)$/; - -my $title = $cgi->param('failed') - ? 'Failed invoice events' - : 'Invoice events'; - -my %search = (); - -if ( $cgi->param('agentnum') && $cgi->param('agentnum') =~ /^(\d+)$/ ) { - $search{agentnum} = $1; -} - -($search{beginning}, $search{ending}) - = FS::UI::Web::parse_beginning_ending($cgi); - -if ( $cgi->param('failed') ) { - $search{failed} = '1'; -} - -if ( $cgi->param('part_bill_event.payby') =~ /^(\w+)$/ ) { - $search{payby} = $1; -} - -if ( $cgi->param('invnum') =~ /^(\d+)$/ ) { - $search{invnum} = $1; -} - -my $where = 'WHERE '. FS::cust_bill_event->search_sql( \%search ); - -my $join = 'LEFT JOIN part_bill_event USING ( eventpart ) '. - 'LEFT JOIN cust_bill USING ( invnum ) '. - 'LEFT JOIN cust_main USING ( custnum ) '; - -my $sql_query = { - 'table' => 'cust_bill_event', - 'select' => join(', ', - 'cust_bill_event.*', - 'part_bill_event.event', - 'cust_bill.custnum', - 'cust_bill._date AS cust_bill_date', - 'cust_main.custnum AS cust_main_custnum', - FS::UI::Web::cust_sql_fields(), - ), - 'hashref' => {}, - 'extra_sql' => "$where ORDER BY _date ASC", - 'addl_from' => $join, -}; - -my $count_sql = "SELECT COUNT(*) FROM cust_bill_event $join $where"; - -my $conf = new FS::Conf; - -my $html_init = ' - Invoice events are the deprecated, old-style actions taken o -n open invoices. See Reports->Billing events->Billing events for current event reports.

'; - -$html_init .= join("\n", map { - ( my $action = $_ ) =~ s/_$//; - include('/elements/progress-init.html', - $_.'form', - [ keys(%search) ], - "../misc/${_}invoice_events.cgi", - { 'message' => "Invoices re-${action}ed" }, #would be nice to show the number of them, but... - $_, #key - ), - qq!! -} qw( print_ email_ fax_ ) ); - -my $menubar = []; - -if ( $curuser->access_right('Resend invoices') ) { - - push @$menubar, 'Re-print these events' => - "javascript:print_process()", - 'Re-email these events' => - "javascript:email_process()", - ; - - push @$menubar, 'Re-fax these events' => - "javascript:fax_process()" - if $conf->exists('hylafax'); - -} - -my $link_cust = sub { - my $cust_bill_event = shift; - $cust_bill_event->cust_main_custnum - ? [ "${p}view/cust_main.cgi?", 'custnum' ] - : ''; -}; - - diff --git a/httemplate/search/cust_bill_event.html b/httemplate/search/cust_bill_event.html deleted file mode 100755 index 87bb3b7b3..000000000 --- a/httemplate/search/cust_bill_event.html +++ /dev/null @@ -1,67 +0,0 @@ -<% include( - '/elements/header.html', - ( $cgi->param('failed') ? 'Failed invoice events' : 'Invoice events' ), - ) -%> - - Invoice events are the deprecated, old-style actions taken - on open invoices. See Reports->Billing events->Billing events for current event reports.

- - - -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Billing event reports'); - - diff --git a/httemplate/search/cust_bill_pkg.cgi b/httemplate/search/cust_bill_pkg.cgi deleted file mode 100644 index 17b4bc240..000000000 --- a/httemplate/search/cust_bill_pkg.cgi +++ /dev/null @@ -1,191 +0,0 @@ -<% include( 'elements/search.html', - 'title' => 'Line items', - 'name' => 'line items', - 'query' => $query, - 'count_query' => $count_query, - 'count_addl' => [ $money_char. '%.2f total', ], - 'header' => [ - '#', - 'Description', - 'Setup charge', - 'Recurring charge', - 'Invoice', - 'Date', - FS::UI::Web::cust_header(), - ], - 'fields' => [ - 'billpkgnum', - sub { $_[0]->pkgnum > 0 - ? $_[0]->get('pkg') - : $_[0]->get('itemdesc') - }, - #strikethrough or "N/A ($amount)" or something these when - # they're not applicable to pkg_tax search - sub { sprintf($money_char.'%.2f', shift->setup ) }, - sub { sprintf($money_char.'%.2f', shift->recur ) }, - 'invnum', - sub { time2str('%b %d %Y', shift->_date ) }, - \&FS::UI::Web::cust_fields, - ], - 'links' => [ - '', - '', - '', - '', - $ilink, - $ilink, - ( map { $_ ne 'Cust. Status' ? $clink : '' } - FS::UI::Web::cust_header() - ), - ], - 'align' => 'rlrrrc'.FS::UI::Web::cust_aligns(), - 'color' => [ - '', - '', - '', - '', - '', - '', - FS::UI::Web::cust_colors(), - ], - 'style' => [ - '', - '', - '', - '', - '', - '', - FS::UI::Web::cust_styles(), - ], - ) -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Financial reports'); - -my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi); - -my $join_cust = " - JOIN cust_bill USING ( invnum ) - LEFT JOIN cust_main USING ( custnum ) -"; - -my $join_pkg = " - LEFT JOIN cust_pkg USING ( pkgnum ) - LEFT JOIN part_pkg USING ( pkgpart ) -"; - -my $where = " WHERE _date >= $beginning AND _date <= $ending "; - -$where .= " AND payby != 'COMP' " - unless $cgi->param('include_comp_cust'); - -if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) { - $where .= " AND agentnum = $1 "; -} - -if ( $cgi->param('classnum') =~ /^(\d+)$/ ) { - if ( $1 == 0 ) { - $where .= " AND classnum IS NULL "; - } else { - $where .= " AND classnum = $1 "; - } -} - -if ( $cgi->param('out') ) { - - $where .= " - AND 0 = ( - SELECT COUNT(*) FROM cust_main_county - WHERE ( cust_main_county.county = cust_main.county - OR ( cust_main_county.county IS NULL AND cust_main.county = '' ) - OR ( cust_main_county.county = '' AND cust_main.county IS NULL) - OR ( cust_main_county.county IS NULL AND cust_main.county IS NULL) - ) - AND ( cust_main_county.state = cust_main.state - OR ( cust_main_county.state IS NULL AND cust_main.state = '' ) - OR ( cust_main_county.state = '' AND cust_main.state IS NULL ) - OR ( cust_main_county.state IS NULL AND cust_main.state IS NULL ) - ) - AND cust_main_county.country = cust_main.country - AND cust_main_county.tax > 0 - ) - "; - -} elsif ( $cgi->param('country' ) ) { - - my $county = dbh->quote( $cgi->param('county') ); - my $state = dbh->quote( $cgi->param('state') ); - my $country = dbh->quote( $cgi->param('country') ); - $where .= " - AND ( county = $county OR $county = '' ) - AND ( state = $state OR $state = '' ) - AND country = $country - "; - $where .= ' AND taxclass = '. dbh->quote( $cgi->param('taxclass') ) - if $cgi->param('taxclass'); - -} - -$where .= ' AND pkgnum != 0' if $cgi->param('nottax'); - -$where .= ' AND pkgnum = 0' if $cgi->param('istax'); - -$where .= " AND tax = 'Y'" if $cgi->param('cust_tax'); - -my $count_query; -if ( $cgi->param('pkg_tax') ) { - - $count_query = - "SELECT COUNT(*), SUM( - ( CASE WHEN part_pkg.setuptax = 'Y' - THEN cust_bill_pkg.setup - ELSE 0 - END - ) - + - ( CASE WHEN part_pkg.recurtax = 'Y' - THEN cust_bill_pkg.recur - ELSE 0 - END - ) - ) - "; - - $where .= " AND ( - ( part_pkg.setuptax = 'Y' AND cust_bill_pkg.setup > 0 ) - OR ( part_pkg.recurtax = 'Y' AND cust_bill_pkg.recur > 0 ) - ) - AND ( tax != 'Y' OR tax IS NULL ) - "; - -} else { - - $count_query = - "SELECT COUNT(*), SUM(cust_bill_pkg.setup + cust_bill_pkg.recur)"; - -} -$count_query .= " FROM cust_bill_pkg $join_cust $join_pkg $where"; - -my $query = { - 'table' => 'cust_bill_pkg', - 'addl_from' => "$join_cust $join_pkg", - 'hashref' => {}, - 'select' => join(', ', - 'cust_bill_pkg.*', - 'cust_bill._date', - 'part_pkg.pkg', - 'cust_main.custnum', - FS::UI::Web::cust_sql_fields(), - ), - 'extra_sql' => $where, -}; - -my $ilink = [ "${p}view/cust_bill.cgi?", 'invnum' ]; -my $clink = [ "${p}view/cust_main.cgi?", 'custnum' ]; - -my $conf = new FS::Conf; -my $money_char = $conf->config('money_char') || '$'; - - diff --git a/httemplate/search/cust_credit.html b/httemplate/search/cust_credit.html deleted file mode 100755 index 2c59297be..000000000 --- a/httemplate/search/cust_credit.html +++ /dev/null @@ -1,104 +0,0 @@ -<% include( 'elements/search.html', - 'title' => $title, - 'name' => 'credits', - 'query' => $sql_query, - 'count_query' => $count_query, - 'count_addl' => [ '$%.2f total credited (gross)', ], - #'redirect' => $link, - 'header' => [ 'Amount', - 'Date', - FS::UI::Web::cust_header(), - 'By', - 'Reason' - ], - 'fields' => [ - #'crednum', - sub { sprintf('$%.2f', shift->amount ) }, - sub { time2str('%b %d %Y', shift->_date ) }, - \&FS::UI::Web::cust_fields, - 'otaker', - 'reason', - ], - #'align' => 'rrrllll', - 'align' => 'rr'.FS::UI::Web::cust_aligns().'ll', - 'links' => [ - '', - '', - ( map { $_ ne 'Cust. Status' ? $clink : '' } - FS::UI::Web::cust_header() - ), - '', - '', - ], - 'color' => [ - '', - '', - FS::UI::Web::cust_colors(), - '', - '', - ], - 'style' => [ - '', - '', - FS::UI::Web::cust_styles(), - '', - '', - ], - ) -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Financial reports'); - -my $title = 'Credit Search Results'; -#my( $count_query, $sql_query ); - -my @search = (); - -if ( $cgi->param('otaker') && $cgi->param('otaker') =~ /^([\w\.\-]+)$/ ) { - push @search, "cust_credit.otaker = '$1'"; -} - -if ( $cgi->param('agentnum') && $cgi->param('agentnum') =~ /^(\d+)$/ ) { - push @search, "agentnum = $1"; - my $agent = qsearchs('agent', { 'agentnum' => $1 } ); - die "unknown agentnum $1" unless $agent; - $title = $agent->agent. " $title"; -} - -my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi); -push @search, "_date >= $beginning ", - "_date <= $ending"; - -push @search, FS::UI::Web::parse_lt_gt($cgi, 'amount' ); - -#here is the agent virtualization -push @search, $FS::CurrentUser::CurrentUser->agentnums_sql; - -my $where = 'WHERE '. join(' AND ', @search); - -my $count_query = 'SELECT COUNT(*), SUM(amount) '. - 'FROM cust_credit LEFT JOIN cust_main USING ( custnum ) '. - $where; - -my $sql_query = { - 'table' => 'cust_credit', - 'select' => join(', ', - 'cust_credit.*', - 'cust_main.custnum as cust_main_custnum', - FS::UI::Web::cust_sql_fields(), - ), - 'hashref' => {}, - 'extra_sql' => $where, - 'addl_from' => 'LEFT JOIN cust_main USING ( custnum )', -}; - - my $clink = sub { - my $cust_bill = shift; - $cust_bill->cust_main_custnum - ? [ "${p}view/cust_main.cgi?", 'custnum' ] - : ''; - }; - - diff --git a/httemplate/search/cust_credit_bill.html b/httemplate/search/cust_credit_bill.html deleted file mode 100644 index 818e603a1..000000000 --- a/httemplate/search/cust_credit_bill.html +++ /dev/null @@ -1,135 +0,0 @@ -<% include( 'elements/search.html', - 'title' => $title, - 'name' => 'net credits', - 'query' => $sql_query, - 'count_query' => $count_query, - 'count_addl' => [ '$%.2f total credited (net)', ], - 'header' => [ 'Net applied', - 'to Invoice', - 'Credit', - 'By', - 'Reason', - FS::UI::Web::cust_header(), - ], - 'fields' => [ - sub { $money_char. sprintf('%.2f', shift->amount ) }, - sub { my $ccb = shift; - '#'.$ccb->invnum. ' '. - time2str('%b %d %Y', $ccb->cust_bill_date ). - " ($money_char". - sprintf('%.2f', $ccb->cust_bill_amount). - ")" - }, - sub { my $ccb = shift; - time2str('%b %d %Y', $ccb->_date ). - " ($money_char". - sprintf('%.2f', $ccb->cust_credit_amount ). - ")" - }, - sub { shift->cust_credit->otaker }, - sub { shift->cust_credit->reason }, - \&FS::UI::Web::cust_fields, - ], - 'align' => 'rrrll'.FS::UI::Web::cust_aligns(), - 'links' => [ - '', - $cust_bill_link, - '', - '', - '', - ( map { $_ ne 'Cust. Status' ? $cust_link : '' } - FS::UI::Web::cust_header() - ), - ], - 'color' => [ - '', - '', - '', - '', - '', - FS::UI::Web::cust_colors(), - ], - 'style' => [ - '', - '', - '', - '', - '', - FS::UI::Web::cust_styles(), - ], - ) -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Financial reports'); - -my $conf = new FS::Conf; -my $money_char = $conf->config('money_char') || '$'; - -my $title = 'Net Credit Search Results'; - -my @search = (); - -if ( $cgi->param('agentnum') && $cgi->param('agentnum') =~ /^(\d+)$/ ) { - push @search, "agentnum = $1"; - my $agent = qsearchs('agent', { 'agentnum' => $1 } ); - die "unknown agentnum $1" unless $agent; - $title = $agent->agent. " $title"; -} - -my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi); -push @search, "cust_bill._date >= $beginning ", - "cust_bill._date <= $ending"; - -#here is the agent virtualization -push @search, $FS::CurrentUser::CurrentUser->agentnums_sql; - -my $where = 'WHERE '. join(' AND ', @search); -# -my $count_query = 'SELECT COUNT(*), SUM(amount) - FROM cust_credit_bill - LEFT JOIN cust_bill USING ( invnum ) - LEFT JOIN cust_main USING ( custnum ) '. - $where; - -my $sql_query = { - 'table' => 'cust_credit_bill', - 'select' => join(', ', - 'cust_credit_bill.*', - 'cust_credit.amount AS cust_credit_amount', - 'cust_bill._date AS cust_bill_date', - 'cust_bill.charged AS cust_bill_charged', - 'cust_credit.custnum AS custnum', - 'cust_main.custnum AS cust_main_custnum', - FS::UI::Web::cust_sql_fields(), - ), - 'hashref' => {}, - 'extra_sql' => $where, - 'addl_from' => 'LEFT JOIN cust_bill USING ( invnum ) - LEFT JOIN cust_credit USING ( crednum ) - LEFT JOIN cust_main ON ( cust_bill.custnum = cust_main.custnum )', -}; - -my $cust_bill_link = sub { - my $cust_credit_bill = shift; - $cust_credit_bill->invnum - ? [ "${p}view/cust_bill.cgi?", 'invnum' ] - : ''; -}; - -#my $cust_credit_link = sub { -# my $cust_credit_bill = shift; -# $cust_credit_bill->crednum -# ? [ "${p}view/cust_credit.cgi?", 'crednum' ] -# : ''; -#}; - -my $cust_link = sub { - my $cust_credit_bill = shift; - $cust_credit_bill->cust_main_custnum - ? [ "${p}view/cust_main.cgi?", 'cust_main_custnum' ] - : ''; -}; - - diff --git a/httemplate/search/cust_event.html b/httemplate/search/cust_event.html deleted file mode 100644 index d55b5c6d2..000000000 --- a/httemplate/search/cust_event.html +++ /dev/null @@ -1,285 +0,0 @@ -<% include( 'elements/search.html', - 'title' => $title, - 'html_init' => $html_init, - 'menubar' => $menubar, - 'name' => 'billing events', - 'query' => $sql_query, - 'count_query' => $count_sql, - 'header' => [ 'Event', - 'Date', - 'Status', - 'Trigger', - #'Inv #', 'Inv Date', 'Cust #', - #'Invoice', - - FS::UI::Web::cust_header(), #'cust_main_custnum', - ], - 'fields' => [ - 'event', - sub { time2str("%b %d %Y %T", $_[0]->_date) }, - $status_sub, - $trigger_sub, - #sub { - # #my $cust_event = shift; - # 'Invoice #'. $_[0]->invnum. - # ' ('. - # time2str("%D", $_[0]->cust_bill_date). - # ')'; - # }, - \&FS::UI::Web::cust_fields, - ], - 'align' => 'lrll'.FS::UI::Web::cust_aligns(), - 'links' => [ - '', - '', - '', - $trigger_link, - #sub { - # my $part_event = shift; - # #XXX - # my $template = $part_event->templatename; - # $template .= '-' if $template; - # [ "${p}view/cust_bill.cgi?$template", 'invnum']; - #}, - - ( map { $_ ne 'Cust. Status' ? $link_cust : '' } - FS::UI::Web::cust_header() - ), - ], - 'color' => [ - '', - '', - '', - '', - #'', - FS::UI::Web::cust_colors(), - ], - 'style' => [ - '', - '', - '', - '', - #'', - FS::UI::Web::cust_styles(), - ], - ) -%> -<%once> - -my $status_sub = sub { - my $cust_event = shift; - - my $status = $cust_event->status; - $status .= ': '.$cust_event->statustext - if $cust_event->statustext; - - my $part_event = $cust_event->part_event; - - if ( $part_event->eventtable eq 'cust_bill' && $part_event->templatename ) { - my $alt_templatename = $part_event->templatename; - my $alt_link = "$alt_templatename-". $cust_event->tablenum; - - my $conf = new FS::Conf; - my $cust_bill = $cust_event->cust_X; - - $status .= qq{ - ( view - | view - typeset - | re-print - }; - - if ( grep { $_ ne 'POST' } $cust_bill->cust_main->invoicing_list ) { - $status .= qq{ - | re-email - }; - } - - if ( $conf->exists('hylafax') && length($cust_bill->cust_main->fax) ) { - $status .= qq{ - | re-fax - } - } - - $status .= ' ) '; - - } - - $status; -}; - -my $trigger_sub = sub { - my $cust_event = shift; - my $eventtable = $cust_event->eventtable; - my $label = FS::part_event->eventtable_labels->{$eventtable}; - #if ( $eventtable eq 'cust_pkg' || $eventtable eq 'cust_bill' ) { - "$label #". $cust_event->tablenum; - #} else { - # $label; - #} -}; - -my $trigger_link = sub { - my $cust_event = shift; - my $eventtable = $cust_event->eventtable; - if ( $eventtable eq 'cust_pkg' ) { - my $custnum = $cust_event->cust_main_custnum; - [ "${p}view/cust_main.cgi?$custnum#cust_pkg", 'tablenum' ]; - } else { - [ "${p}view/$eventtable.cgi?", 'tablenum' ]; - } -}; - - -<%init> - -my $curuser = $FS::CurrentUser::CurrentUser; - -die "access denied" - unless $curuser->access_right('Billing event reports') - or $curuser->access_right('View customer billing events') - && ( $cgi->param('custnum') =~ /^(\d+)$/ - || $cgi->param('invnum') =~ /^(\d+)$/ - || $cgi->param('pkgnum') =~ /^(\d+)$/ - ); - - -my $title = $cgi->param('failed') - ? 'Failed billing events' - : 'Billing events'; - -my @search = (); - -if ( $cgi->param('agentnum') && $cgi->param('agentnum') =~ /^(\d+)$/ ) { - push @search, "cust_main.agentnum = $1"; - #my $agent = qsearchs('agent', { 'agentnum' => $1 } ); - #die "unknown agentnum $1" unless $agent; -} - -my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi); -push @search, "cust_event._date >= $beginning", - "cust_event._date <= $ending"; - -if ( $cgi->param('failed') ) { - push @search, "statustext != ''", - "statustext IS NOT NULL", - "statustext != 'N/A'"; -} - -#if ( $cgi->param('part_event.payby') =~ /^(\w+)$/ ) { -# push @search, "part_event.payby = '$1'"; -#} - -if ( $cgi->param('custnum') =~ /^(\d+)$/ ) { - push @search, "cust_main.custnum = '$1'"; -} -if ( $cgi->param('invnum') =~ /^(\d+)$/ ) { - push @search, "part_event.eventtable = 'cust_bill'", - "tablenum = '$1'"; -} -if ( $cgi->param('pkgnum') =~ /^(\d+)$/ ) { - push @search, "part_event.eventtable = 'cust_pkg'", - "tablenum = '$1'"; -} - -#here is the agent virtualization -push @search, $curuser->agentnums_sql( 'table' => 'cust_main' ); - -my $where = 'WHERE '. join(' AND ', @search ); - -my $join = " - JOIN part_event USING ( eventpart ) - LEFT JOIN cust_bill ON ( eventtable = 'cust_bill' AND tablenum = invnum ) - LEFT JOIN cust_pkg ON ( eventtable = 'cust_pkg' AND tablenum = pkgnum ) - LEFT JOIN cust_main ON ( ( eventtable = 'cust_main' AND tablenum = cust_main.custnum ) - OR ( eventtable = 'cust_bill' AND cust_bill.custnum = cust_main.custnum ) - OR ( eventtable = 'cust_pkg' AND cust_pkg.custnum = cust_main.custnum ) - ) -"; - #'LEFT JOIN cust_main USING ( custnum ) '; - -my $sql_query = { - 'table' => 'cust_event', - 'select' => join(', ', - 'cust_event.*', - 'part_event.*', - #'cust_bill.custnum', - #'cust_bill._date AS cust_bill_date', - 'cust_main.custnum AS cust_main_custnum', - FS::UI::Web::cust_sql_fields(), - ), - 'hashref' => {}, - 'extra_sql' => "$where ORDER BY _date ASC", - 'addl_from' => $join, -}; - -my $count_sql = "SELECT COUNT(*) FROM cust_event $join $where"; - -my $conf = new FS::Conf; - -my $failed = $cgi->param('failed'); - -my $html_init = join("\n", map { - ( my $action = $_ ) =~ s/_$//; - include('/elements/progress-init.html', - $_.'form', - [ 'action', 'beginning', 'ending', 'failed' ], - "../misc/${_}events.cgi", - { 'message' => "Invoices re-${action}ed" }, #would be nice to show the number of them, but... - $_, #key - ), - qq!! -} qw( print_ email_ fax_ ) ). - -''; - -my $menubar = []; - -if ( $curuser->access_right('Resend invoices') ) { - - push @$menubar, 'Re-print these events' => - "javascript:confirm_print_process()", - 'Re-email these events' => - "javascript:confirm_email_process()", - ; - - push @$menubar, 'Re-fax these events' => - "javascript:confirm_fax_process()" - if $conf->exists('hylafax'); - -} - -my $link_cust = sub { - my $cust_event = shift; - $cust_event->cust_main_custnum - ? [ "${p}view/cust_main.cgi?", 'cust_main_custnum' ] - : ''; -}; - - diff --git a/httemplate/search/cust_main-otaker.cgi b/httemplate/search/cust_main-otaker.cgi deleted file mode 100755 index 0c252e44b..000000000 --- a/httemplate/search/cust_main-otaker.cgi +++ /dev/null @@ -1,31 +0,0 @@ -<% include('/elements/header.html', 'Customer Search' ) %> - - - -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); - - diff --git a/httemplate/search/cust_main-zip.html b/httemplate/search/cust_main-zip.html deleted file mode 100644 index 56df924bc..000000000 --- a/httemplate/search/cust_main-zip.html +++ /dev/null @@ -1,99 +0,0 @@ -<% include( 'elements/search.html', - 'title' => 'Zip code Search Results', - 'name' => 'zip codes', - 'query' => $sql_query, - 'count_query' => $count_sql, - 'header' => [ 'Zip code', 'Customers', ], - #'fields' => [ 'zip', 'num_cust', ], - 'links' => [ '', sub { 'somewhere'; } ], - ) -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('List zip codes'); - -# XXX link to customers - -my @where = (); - -# select status - -if ( $cgi->param('status') =~ /^(prospect|uncancel|active|susp|cancel)$/ ) { - my $method = $1.'_sql'; - push @where, FS::cust_main->$method(); -} - -# select agent -# XXX this needs to be virtualized by agent too (like lots of stuff) - -my $agentnum = ''; -if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) { - $agentnum = $1; - push @where, "cust_main.agentnum = $agentnum"; -} -my $where = scalar(@where) ? 'WHERE '. join(' AND ', @where) : ''; - -# bill zip vs ship zip - -sub fieldorempty { - my $field = shift; - "CASE WHEN $field IS NULL THEN '' ELSE $field END"; -} - -sub strip_plus4 { - my $field = shift; - "CASE WHEN $field is NULL - THEN '' - ELSE CASE WHEN $field LIKE '_____-____' - THEN SUBSTRING($field FROM 1 FOR 5) - ELSE $field - END - END"; -} - -my( $zip, $czip); -if ( $cgi->param('column') eq 'ship_zip' ) { - - my $casewhen_noship = - "CASE WHEN ( ship_last IS NULL OR ship_last = '' ) THEN "; - - $czip = "$casewhen_noship zip ELSE ship_zip END"; - - if ( $cgi->param('ignore_plus4') ) { - $zip = $casewhen_noship. strip_plus4('zip'). - " ELSE ". strip_plus4('ship_zip'). ' END'; - - } else { - $zip = $casewhen_noship. fieldorempty('zip'). - " ELSE ". fieldorempty('ship_zip'). ' END'; - } - -} else { - - $czip = 'zip'; - - if ( $cgi->param('ignore_plus4') ) { - $zip = strip_plus4('zip'); - } else { - $zip = fieldorempty('zip'); - } - -} - -# construct the queries and send 'em off - -my $sql_query = - "SELECT $zip AS zipcode, - COUNT(*) AS num_cust - FROM cust_main - $where - GROUP BY zipcode - ORDER BY num_cust DESC - "; - -my $count_sql = "select count(distinct $czip) from cust_main $where"; - -# XXX should link... - - diff --git a/httemplate/search/cust_main.cgi b/httemplate/search/cust_main.cgi deleted file mode 100755 index 1ddafae0b..000000000 --- a/httemplate/search/cust_main.cgi +++ /dev/null @@ -1,727 +0,0 @@ -%die "access denied" -% unless $FS::CurrentUser::CurrentUser->access_right('List customers'); -% -%my $conf = new FS::Conf; -%my $maxrecords = $conf->config('maxsearchrecordsperpage'); -% -%#my $cache; -% -%#my $monsterjoin = <param('offset') || 0; -%$limit .= " OFFSET $offset" if $offset; -% -%my $total = 0; -% -%my(@cust_main, $sortby, $orderby); -%my @select = (); -%my @addl_headers = (); -%my @addl_cols = (); -%if ( $cgi->param('browse') -% || $cgi->param('otaker_on') -% || $cgi->param('agentnum_on') -%) { -% -% my %search = (); -% -% if ( $cgi->param('browse') ) { -% my $query = $cgi->param('browse'); -% if ( $query eq 'custnum' ) { -% $sortby=\*custnum_sort; -% $orderby = "ORDER BY custnum"; -% } elsif ( $query eq 'last' ) { -% $sortby=\*last_sort; -% $orderby = "ORDER BY LOWER(last || ' ' || first)"; -% } elsif ( $query eq 'company' ) { -% $sortby=\*company_sort; -% $orderby = "ORDER BY LOWER(company || ' ' || last || ' ' || first )"; -% } elsif ( $query eq 'tickets' ) { -% $sortby = \*tickets_sort; -% $orderby = "ORDER BY tickets DESC"; -% push @select, FS::TicketSystem->sql_num_customer_tickets. " as tickets"; -% push @addl_headers, 'Tickets'; -% push @addl_cols, 'tickets'; -% } else { -% die "unknown browse field $query"; -% } -% } else { -% $sortby = \*last_sort; #?? -% $orderby = "ORDER BY LOWER(last || ' ' || first)"; #?? -% } -% -% if ( $cgi->param('otaker_on') ) { -% die "access denied" -% unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); -% $cgi->param('otaker') =~ /^(\w{1,32})$/ or errorpage("Illegal otaker"); -% $search{otaker} = $1; -% } elsif ( $cgi->param('agentnum_on') ) { -% $cgi->param('agentnum') =~ /^(\d+)$/ or errorpage("Illegal agentnum"); -% $search{agentnum} = $1; -%# } else { -%# die "unknown query..."; -% } -% -% my @qual = (); -% -% my $ncancelled = ''; -% -% if ( $cgi->param('showcancelledcustomers') eq '0' #see if it was set by me -% || ( $conf->exists('hidecancelledcustomers') -% && ! $cgi->param('showcancelledcustomers') ) -% ) { -% #grep { $_->ncancelled_pkgs || ! $_->all_pkgs } -% push @qual, FS::cust_main->uncancel_sql; -% -% } -% -% push @qual, FS::cust_main->cancel_sql if $cgi->param('cancelled'); -% push @qual, FS::cust_main->prospect_sql if $cgi->param('prospect'); -% push @qual, FS::cust_main->active_sql if $cgi->param('active'); -% push @qual, FS::cust_main->inactive_sql if $cgi->param('inactive'); -% push @qual, FS::cust_main->susp_sql if $cgi->param('suspended'); -% -% #EWWWWWW -% my $qual = join(' AND ', -% map { "$_ = ". dbh->quote($search{$_}) } keys %search ); -% -% my $addl_qual = join(' AND ', @qual); -% -% #here is the agent virtualization -% $addl_qual .= ( $addl_qual ? ' AND ' : '' ). -% $FS::CurrentUser::CurrentUser->agentnums_sql; -% -% if ( $addl_qual ) { -% $qual .= ' AND ' if $qual; -% $qual .= $addl_qual; -% } -% -% $qual = " WHERE $qual" if $qual; -% my $statement = "SELECT COUNT(*) FROM cust_main $qual"; -% my $sth = dbh->prepare($statement) or die dbh->errstr." preparing $statement"; -% $sth->execute or die "Error executing \"$statement\": ". $sth->errstr; -% -% $total = $sth->fetchrow_arrayref->[0]; -% -% if ( $addl_qual ) { -% if ( %search ) { -% $addl_qual = " AND $addl_qual"; -% } else { -% $addl_qual = " WHERE $addl_qual"; -% } -% } -% -% my $select; -% if ( @select ) { -% $select = 'cust_main.*, '. join (', ', @select); -% } else { -% $select = '*'; -% } -% -% @cust_main = qsearch('cust_main', \%search, $select, -% "$addl_qual $orderby $limit" ); -% -%# foreach my $cust_main ( @just_cust_main ) { -%# -%# my @one_cust_main; -%# $FS::Record::DEBUG=1; -%# ( $cache, @one_cust_main ) = jsearch( -%# "$monsterjoin", -%# { 'custnum' => $cust_main->custnum }, -%# '', -%# '', -%# 'cust_main', -%# 'custnum', -%# ); -%# push @cust_main, @one_cust_main; -%# } -% -%} else { -% @cust_main=(); -% $sortby = \*last_sort; -% -% push @cust_main, @{&custnumsearch} -% if $cgi->param('custnum_on') && $cgi->param('custnum_text'); -% push @cust_main, @{&cardsearch} -% if $cgi->param('card_on') && $cgi->param('card'); -% push @cust_main, @{&lastsearch} -% if $cgi->param('last_on') && $cgi->param('last_text'); -% push @cust_main, @{&companysearch} -% if $cgi->param('company_on') && $cgi->param('company_text'); -% push @cust_main, @{&address2search} -% if $cgi->param('address2_on') && $cgi->param('address2_text'); -% push @cust_main, @{&phonesearch} -% if $cgi->param('phone_on') && $cgi->param('phone_text'); -% push @cust_main, @{&referralsearch} -% if $cgi->param('referral_custnum'); -% -% if ( $cgi->param('company_on') && $cgi->param('company_text') ) { -% $sortby = \*company_sort; -% push @cust_main, @{&companysearch}; -% } -% -% if ( $cgi->param('search_cust') ) { -% $sortby = \*company_sort; -% $orderby = "ORDER BY LOWER(company || ' ' || last || ' ' || first )"; -% push @cust_main, smart_search( 'search' => $cgi->param('search_cust') ); -% } -% -% @cust_main = grep { $_->ncancelled_pkgs || ! $_->all_pkgs } @cust_main -% if ! $cgi->param('cancelled') -% && ( -% $cgi->param('showcancelledcustomers') eq '0' #see if it was set by me -% || ( $conf->exists('hidecancelledcustomers') -% && ! $cgi->param('showcancelledcustomers') ) -% ); -% -% my %saw = (); -% @cust_main = grep { !$saw{$_->custnum}++ } @cust_main; -%} -% -%my %all_pkgs; -%if ( $conf->exists('hidecancelledpackages' ) ) { -% %all_pkgs = map { $_->custnum => [ $_->ncancelled_pkgs ] } @cust_main; -%} else { -% %all_pkgs = map { $_->custnum => [ $_->all_pkgs ] } @cust_main; -%} -%#%all_pkgs = (); -% -%if ( scalar(@cust_main) == 1 && ! $cgi->param('referral_custnum') ) { -% if ( $cgi->param('quickpay') eq 'yes' ) { -% print $cgi->redirect(popurl(2). "edit/cust_pay.cgi?quickpay=yes;custnum=". $cust_main[0]->custnum); -% } else { -% print $cgi->redirect(popurl(2). "view/cust_main.cgi?". $cust_main[0]->custnum); -% } -% #exit; -%} elsif ( scalar(@cust_main) == 0 ) { -% - - -% -% errorpage("No matching customers found!"); -%} else { -% - -<% include('/elements/header.html', "Customer Search Results", '' ) %> -% $total ||= scalar(@cust_main); - - - <% $total %> matching customers found - -% my $pager = include( '/elements/pager.html', -% 'offset' => $offset, -% 'num_rows' => scalar(@cust_main), -% 'total' => $total, -% 'maxrecords' => $maxrecords, -% ); -% -% unless ( $cgi->param('cancelled') ) { -% if ( $cgi->param('showcancelledcustomers') eq '0' #see if it was set by me -% || ( $conf->exists('hidecancelledcustomers') -% && ! $cgi->param('showcancelledcustomers') -% ) -% ) { -% $cgi->param('showcancelledcustomers', 1); -% $cgi->param('offset', 0); -% print qq!( show!; -% } else { -% $cgi->param('showcancelledcustomers', 0); -% $cgi->param('offset', 0); -% print qq!( hide!; -% } -% print ' cancelled customers )'; -% } -% -% if ( $cgi->param('referral_custnum') ) { -% $cgi->param('referral_custnum') =~ /^(\d+)$/ -% or errorpage("Illegal referral_custnum"); -% my $referral_custnum = $1; -% my $cust_main = qsearchs('cust_main', { custnum => $referral_custnum } ); -% print '

'. -% qq!!. -% 'referrals of $referral_custnum: ". -% ( $cust_main->company -% || $cust_main->last. ', '. $cust_main->first ). -% ''; -% print "\n",< -% function changed(what) { -% what.form.submit(); -% } -% -%END -% print ' levels deep". -% ''. -% ''; -% } -% -% my @custom_priorities = (); -% if ( $conf->config('ticket_system-custom_priority_field') -% && @{[ $conf->config('ticket_system-custom_priority_field-values') ]} ) { -% @custom_priorities = -% $conf->config('ticket_system-custom_priority_field-values'); -% } -% -% print "

". $pager. include('/elements/table-grid.html'). < -% # -% Status -% (bill) name -% company -%END -% -%if ( defined dbdef->table('cust_main')->column('ship_last') ) { -% print <(service) name -% company -%END -%} -% -%foreach my $addl_header ( @addl_headers ) { -% print ''. "$addl_header"; -%} -% -%print <Packages -% Services -% -%END -% -% my $bgcolor1 = '#eeeeee'; -% my $bgcolor2 = '#ffffff'; -% my $bgcolor; -% -% my(%saw,$cust_main); -% foreach $cust_main ( -% sort $sortby grep(!$saw{$_->custnum}++, @cust_main) -% ) { -% -% if ( $bgcolor eq $bgcolor1 ) { -% $bgcolor = $bgcolor2; -% } else { -% $bgcolor = $bgcolor1; -% } -% -% my($custnum,$last,$first,$company)=( -% $cust_main->custnum, -% $cust_main->getfield('last'), -% $cust_main->getfield('first'), -% $cust_main->company, -% ); -% -% my(@lol_cust_svc); -% my($rowspan)=0;#scalar( @{$all_pkgs{$custnum}} ); -% foreach ( @{$all_pkgs{$custnum}} ) { -% #my(@cust_svc) = qsearch( 'cust_svc', { 'pkgnum' => $_->pkgnum } ); -% my @cust_svc = $_->cust_svc; -% push @lol_cust_svc, \@cust_svc; -% $rowspan += scalar(@cust_svc) || 1; -% } -% -% #my($rowspan) = scalar(@{$all_pkgs{$custnum}}); -% my $view; -% if ( defined $cgi->param('quickpay') && $cgi->param('quickpay') eq 'yes' ) { -% $view = $p. 'edit/cust_pay.cgi?quickpay=yes;custnum='. $custnum; -% } else { -% $view = $p. 'view/cust_main.cgi?'. $custnum; -% } -% my $pcompany = $company -% ? qq!$company! -% : ' '; -% -% my $status = $cust_main->status; -% my $statuscol = $cust_main->statuscolor; - - - ><% $custnum %> - ><% ucfirst($status) %> - ><% "$last, $first" %> - ><% $pcompany %> -% -% if ( defined dbdef->table('cust_main')->column('ship_last') ) { -% my($ship_last,$ship_first,$ship_company)=( -% $cust_main->ship_last || $cust_main->getfield('last'), -% $cust_main->ship_last ? $cust_main->ship_first : $cust_main->first, -% $cust_main->ship_last ? $cust_main->ship_company : $cust_main->company, -% ); -% my $pship_company = $ship_company -% ? qq!$ship_company! -% : ' '; -% - - - ><% "$ship_last, $ship_first" %> - ><% $pship_company %> -% } -% -% foreach my $addl_col ( @addl_cols ) { -% if ( $addl_col eq 'tickets' ) { -% if ( @custom_priorities ) { - - - ALIGN=right> - - -% foreach my $priority ( @custom_priorities, '' ) { -% -% my $num = -% FS::TicketSystem->num_customer_tickets($custnum,$priority); -% my $ahref = ''; -% $ahref= '' -% if $num; -% - - - - - - -% } - - - - - -

- <% $ahref.$num %> -	- <% $ahref %><% $priority \|\| '(none)' %> -
- -% } else { - - -	ALIGN=right> -% } -% -% my $ahref = ''; -% $ahref = '' -% if $cust_main->get($addl_col); -% - - - <% $ahref %><% $cust_main->get($addl_col) %> -% if ( @custom_priorities ) { - - - -	- <% ${ahref} %>Total -

-% } - - - -% } else { - - - ALIGN=right> - <% $cust_main->get($addl_col) %> - -% -% } -% } -% -% my($n1)=''; -% foreach ( @{$all_pkgs{$custnum}} ) { -% my $pkgnum = $_->pkgnum; -%# my $part_pkg = qsearchs( 'part_pkg', { pkgpart => $_->pkgpart } ); -% my $part_pkg = $_->part_pkg; -% -% my $pkg = $part_pkg->pkg; -% my $comment = $part_pkg->comment; -% my $pkgview = "${p}view/cust_main.cgi?$custnum#cust_pkg$pkgnum"; -% my @cust_svc = @{shift @lol_cust_svc}; -% #my(@cust_svc) = qsearch( 'cust_svc', { 'pkgnum' => $_->pkgnum } ); -% my $rowspan = scalar(@cust_svc) || 1; -% -% print $n1, qq!$pkg - $comment!; -% -% my($n2)=''; -% foreach my $cust_svc ( @cust_svc ) { -% my($label, $value, $svcdb) = $cust_svc->label; -% my($svcnum) = $cust_svc->svcnum; -% my($sview) = $p.'view'; -% print $n2, -% qq!!. FS::UI::Web::svc_link($m, $cust_svc->part_svc, $cust_svc) . qq! !. -% qq!!. FS::UI::Web::svc_label_link($m, $cust_svc->part_svc, $cust_svc) . qq! !; -% $n2=""; -% } -% -% unless ( @cust_svc ) { -% print qq! !; -% } -% -% #print qq!\n!; -% $n1=""; -% } -% -% unless ( @{$all_pkgs{$custnum}} ) { -% print qq! !; -% } -% -% print ""; -% } -% -% - - - <% $pager %> - - <% include('/elements/footer.html') %> -% } -% -%#undef $cache; #does this help? -% -%# -% -%sub last_sort { -% lc($a->getfield('last')) cmp lc($b->getfield('last')) -% || lc($a->first) cmp lc($b->first); -%} -% -%sub company_sort { -% return -1 if $a->company && ! $b->company; -% return 1 if ! $a->company && $b->company; -% lc($a->company) cmp lc($b->company) -% || lc($a->getfield('last')) cmp lc($b->getfield('last')) -% || lc($a->first) cmp lc($b->first);; -%} -% -%sub custnum_sort { -% $a->getfield('custnum') <=> $b->getfield('custnum'); -%} -% -%sub tickets_sort { -% $b->getfield('tickets') <=> $a->getfield('tickets'); -%} -% -%sub custnumsearch { -% -% my $custnum = $cgi->param('custnum_text'); -% $custnum =~ s/\D//g; -% $custnum =~ /^(\d{1,23})$/ or errorpage("Illegal customer number"); -% $custnum = $1; -% -% [ qsearchs('cust_main', { 'custnum' => $custnum } ) ]; -%} -% -%sub cardsearch { -% -% my($card)=$cgi->param('card'); -% $card =~ s/\D//g; -% $card =~ /^(\d{13,16})$/ or errorpage("Illegal card number"); -% my($payinfo)=$1; -% -% [ qsearch('cust_main',{'payinfo'=>$payinfo, 'payby'=>'CARD'}), -% qsearch('cust_main',{'payinfo'=>$payinfo, 'payby'=>'DCRD'}) -% ]; -%} -% -%sub referralsearch { -% $cgi->param('referral_custnum') =~ /^(\d+)$/ -% or errorpage("Illegal referral_custnum"); -% my $cust_main = qsearchs('cust_main', { 'custnum' => $1 } ) -% or errorpage("Customer $1 not found"); -% my $depth; -% if ( $cgi->param('referral_depth') ) { -% $cgi->param('referral_depth') =~ /^(\d+)$/ -% or errorpage("Illegal referral_depth"); -% $depth = $1; -% } else { -% $depth = 1; -% } -% [ $cust_main->referral_cust_main($depth) ]; -%} -% -%sub lastsearch { -% my(%last_type); -% my @cust_main; -% foreach ( $cgi->param('last_type') ) { -% $last_type{$_}++; -% } -% -% $cgi->param('last_text') =~ /^([\w \,\.\-\']*)$/ -% or errorpage("Illegal last name"); -% my($last)=$1; -% -% if ( $last_type{'Exact'} || $last_type{'Fuzzy'} ) { -% push @cust_main, qsearch( 'cust_main', -% { 'last' => { 'op' => 'ILIKE', -% 'value' => $last } } ); -% -% push @cust_main, qsearch( 'cust_main', -% { 'ship_last' => { 'op' => 'ILIKE', -% 'value' => $last } } ) -% if defined dbdef->table('cust_main')->column('ship_last'); -% } -% -% if ( $last_type{'Substring'} || $last_type{'All'} ) { -% -% push @cust_main, qsearch( 'cust_main', -% { 'last' => { 'op' => 'ILIKE', -% 'value' => "%$last%" } } ); -% -% push @cust_main, qsearch( 'cust_main', -% { 'ship_last' => { 'op' => 'ILIKE', -% 'value' => "%$last%" } } ) -% if defined dbdef->table('cust_main')->column('ship_last'); -% -% } -% -% if ( $last_type{'Fuzzy'} || $last_type{'All'} ) { -% push @cust_main, FS::cust_main->fuzzy_search( { 'last' => $last } ); -% } -% -% #if ($last_type{'Sound-alike'}) { -% #} -% -% \@cust_main; -%} -% -%sub companysearch { -% -% my(%company_type); -% my @cust_main; -% foreach ( $cgi->param('company_type') ) { -% $company_type{$_}++ -% }; -% -% $cgi->param('company_text') =~ -% /^([\w \!\@\#\$\%\&\-\+\;\:\'\"\,\.\?\/\=]*)$/ -% or errorpage("Illegal company"); -% my $company = $1; -% -% if ( $company_type{'Exact'} || $company_type{'Fuzzy'} ) { -% push @cust_main, qsearch( 'cust_main', -% { 'company' => { 'op' => 'ILIKE', -% 'value' => $company } } ); -% -% push @cust_main, qsearch( 'cust_main', -% { 'ship_company' => { 'op' => 'ILIKE', -% 'value' => $company } } ) -% if defined dbdef->table('cust_main')->column('ship_last'); -% } -% -% if ( $company_type{'Substring'} || $company_type{'All'} ) { -% -% push @cust_main, qsearch( 'cust_main', -% { 'company' => { 'op' => 'ILIKE', -% 'value' => "%$company%" } } ); -% -% push @cust_main, qsearch( 'cust_main', -% { 'ship_company' => { 'op' => 'ILIKE', -% 'value' => "%$company%" } }) -% if defined dbdef->table('cust_main')->column('ship_last'); -% -% } -% -% if ( $company_type{'Fuzzy'} || $company_type{'All'} ) { -% push @cust_main, FS::cust_main->fuzzy_search( { 'company' => $company } ); -% } -% -% if ($company_type{'Sound-alike'}) { -% } -% -% \@cust_main; -%} -% -%sub address2search { -% my @cust_main; -% -% $cgi->param('address2_text') =~ -% /^([\w \!\@\#\$\%\&\-\+\;\:\'\"\,\.\?\/\=]*)$/ -% or errorpage("Illegal address2"); -% my $address2 = $1; -% -% push @cust_main, qsearch( 'cust_main', -% { 'address2' => { 'op' => 'ILIKE', -% 'value' => $address2 } } ); -% push @cust_main, qsearch( 'cust_main', -% { 'ship_address2' => { 'op' => 'ILIKE', -% 'value' => $address2 } } ); -% -% \@cust_main; -%} -% -%sub phonesearch { -% my @cust_main; -% -% my $phone = $cgi->param('phone_text'); -% -% #(no longer really) false laziness with Record::ut_phonen -% #only works with US/CA numbers... -% $phone =~ s/\D//g; -% if ( $phone =~ /^(\d{3})(\d{3})(\d{4})(\d*)$/ ) { -% $phone = "$1-$2-$3"; -% $phone .= " x$4" if $4; -% } elsif ( $phone =~ /^(\d{3})(\d{4})$/ ) { -% $phone = "$1-$2"; -% } elsif ( $phone =~ /^(\d{3,4})$/ ) { -% $phone = $1; -% } else { -% errorpage(gettext('illegal_phone'). ": $phone"); -% } -% -% my @fields = qw(daytime night fax); -% push @fields, qw(ship_daytime ship_night ship_fax) -% if defined dbdef->table('cust_main')->column('ship_last'); -% -% for my $field ( @fields ) { -% push @cust_main, qsearch ( 'cust_main', -% { $field => { 'op' => 'LIKE', -% 'value' => "%$phone%" } } ); -% } -% -% \@cust_main; -%} diff --git a/httemplate/search/cust_main.html b/httemplate/search/cust_main.html deleted file mode 100755 index c050c5bd1..000000000 --- a/httemplate/search/cust_main.html +++ /dev/null @@ -1,172 +0,0 @@ -<% include( 'elements/search.html', - 'title' => 'Customer Search Results', - 'name' => 'customers', - 'query' => $sql_query, - 'count_query' => $count_query, - 'header' => [ FS::UI::Web::cust_header( - $cgi->param('cust_fields') - ), - @extra_headers, - ], - 'fields' => [ - \&FS::UI::Web::cust_fields, - @extra_fields, - ], - 'color' => [ FS::UI::Web::cust_colors(), - map '', @extra_fields - ], - 'style' => [ FS::UI::Web::cust_styles(), - map '', @extra_fields - ], - 'align' => [ FS::UI::Web::cust_aligns(), - map '', @extra_fields - ], - 'links' => [ ( map { $_ ne 'Cust. Status' ? $link : '' } - FS::UI::Web::cust_header( - $cgi->param('cust_fields') - ) - ), - map '', @extra_fields - ], - ) -%> -<%once> - -my $link = [ "${p}view/cust_main.cgi?", 'custnum' ]; - - -<%init> - -die "access denied" - unless ( $FS::CurrentUser::CurrentUser->access_right('List customers') && - $FS::CurrentUser::CurrentUser->access_right('List packages') - ); - -my $dbh = dbh; -my $conf = new FS::Conf; -my $countrydefault = $conf->config('countrydefault'); - -my($query) = $cgi->keywords; - -my @where = (); - -## -# parse agent -## - -if ( $cgi->param('agentnum') =~ /^(\d+)$/ and $1 ) { - push @where, - "agentnum = $1"; -} - -## -# parse cancelled package checkbox -## - -my $pkgwhere = ""; - -$pkgwhere .= "AND (cancel = 0 or cancel is null)" - unless $cgi->param('cancelled_pkgs'); - -my $orderby; - -## -# dates -## - -foreach my $field (qw( signupdate )) { - - my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi, $field); - - next if $beginning == 0 && $ending == 4294967295; - - push @where, - "cust_main.$field IS NOT NULL", - "cust_main.$field >= $beginning", - "cust_main.$field <= $ending"; - - $orderby ||= "ORDER BY cust_main.$field"; - -} - -### -# payby -### - -my @payby = grep /^([A-Z]{4})$/, $cgi->param('payby'); -if ( @payby ) { - push @where, '( '. join(' OR ', map "cust_main.payby = '$_'", @payby). ' )'; -} - -## -# amounts -## - -my $balance_sql = FS::cust_main->balance_sql(); - -push @where, map { s/current_balance/$balance_sql/; $_ } - FS::UI::Web::parse_lt_gt($cgi, 'current_balance'); - -## -# setup queries, subs, etc. for the search -## - -$orderby ||= 'ORDER BY custnum'; - -# here is the agent virtualization -push @where, $FS::CurrentUser::CurrentUser->agentnums_sql; - -my $extra_sql = scalar(@where) ? ' WHERE '. join(' AND ', @where) : ''; - -my $addl_from = 'LEFT JOIN cust_pkg USING ( custnum ) '; - -my $count_query = "SELECT COUNT(*) FROM cust_main $extra_sql"; - -my $select = join(', ', - 'cust_main.custnum', - FS::UI::Web::cust_sql_fields($cgi->param('cust_fields')), - ); - -my (@extra_headers) = (); -my (@extra_fields) = (); - -if ($cgi->param('flattened_pkgs')) { - - if ($dbh->{Driver}->{Name} eq 'Pg') { - - $select .= ", array_to_string(array(select pkg from cust_pkg left join part_pkg using ( pkgpart ) where cust_main.custnum = cust_pkg.custnum $pkgwhere),'|') as magic"; - - }elsif ($dbh->{Driver}->{Name} =~ /^mysql/i) { - $select .= ", GROUP_CONCAT(pkg SEPARATOR '|') as magic"; - $addl_from .= " LEFT JOIN part_pkg using ( pkgpart )"; - }else{ - warn "warning: unknown database type ". $dbh->{Driver}->{Name}. - "omitting packing information from report."; - } - - my $header_query = "SELECT COUNT(cust_pkg.custnum = cust_main.custnum) AS count FROM cust_main $addl_from $extra_sql $pkgwhere group by cust_main.custnum order by count desc limit 1"; - - my $sth = dbh->prepare($header_query) or die dbh->errstr; - $sth->execute() or die $sth->errstr; - my $headerrow = $sth->fetchrow_arrayref; - my $headercount = $headerrow ? $headerrow->[0] : 0; - while($headercount) { - unshift @extra_headers, "Package ". $headercount; - unshift @extra_fields, eval q!sub {my $c = shift; - my @a = split '\|', $c->magic; - my $p = $a[!.--$headercount. q!]; - $p; - };!; - } - -} - -my $sql_query = { - 'table' => 'cust_main', - 'select' => $select, - 'hashref' => {}, - 'extra_sql' => "$extra_sql $orderby", -}; - - - diff --git a/httemplate/search/cust_pay.cgi b/httemplate/search/cust_pay.cgi deleted file mode 100755 index e5465aee8..000000000 --- a/httemplate/search/cust_pay.cgi +++ /dev/null @@ -1,247 +0,0 @@ -<% include( 'elements/search.html', - 'title' => $title, - 'name' => 'payments', - 'query' => $sql_query, - 'count_query' => $count_query, - 'count_addl' => [ '$%.2f total paid', ], - 'header' => [ 'Payment', - 'Amount', - 'Date', - 'By', - FS::UI::Web::cust_header(), - ], - 'fields' => [ - sub { - my $cust_pay = shift; - if ( $cust_pay->payby eq 'CARD' ) { - 'Card #'. $cust_pay->paymask; - } elsif ( $cust_pay->payby eq 'CHEK' ) { - 'E-check acct#'. $cust_pay->payinfo; - } elsif ( $cust_pay->payby eq 'BILL' ) { - 'Check #'. $cust_pay->payinfo; - } elsif ( $cust_pay->payby eq 'PREP' ) { - 'Prepaid card #'. $cust_pay->payinfo; - } elsif ( $cust_pay->payby eq 'CASH' ) { - 'Cash '. $cust_pay->payinfo; - } elsif ( $cust_pay->payby eq 'WEST' ) { - 'Western Union'; #. $cust_pay->payinfo; - } elsif ( $cust_pay->payby eq 'MCRD' ) { - 'Manual credit card'; #. $cust_pay->payinfo; - } else { - $cust_pay->payby. ' '. $cust_pay->payinfo; - } - }, - sub { sprintf('$%.2f', shift->paid ) }, - sub { time2str('%b %d %Y', shift->_date ) }, - sub { my $o = shift->otaker; - $o = 'auto billing' if $o eq 'fs_daily'; - $o = 'customer self-service' if $o eq 'fs_selfservice'; - $o; - }, - \&FS::UI::Web::cust_fields, - ], - #'align' => 'lrrrll', - 'align' => 'rrrc'.FS::UI::Web::cust_aligns(), - 'links' => [ - $link, - $link, - $link, - '', - ( map { $_ ne 'Cust. Status' ? $cust_link : '' } - FS::UI::Web::cust_header() - ), - ], - 'color' => [ - '', - '', - '', - '', - FS::UI::Web::cust_colors(), - ], - 'style' => [ - '', - '', - '', - '', - FS::UI::Web::cust_styles(), - ], - ) -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Financial reports'); - -my $title = 'Payment Search Results'; -my( $count_query, $sql_query ); -if ( $cgi->param('magic') ) { - - my @search = (); - my $orderby; - if ( $cgi->param('magic') eq '_date' ) { - - - if ( $cgi->param('agentnum') && $cgi->param('agentnum') =~ /^(\d+)$/ ) { - push @search, "agentnum = $1"; # $search{'agentnum'} = $1; - my $agent = qsearchs('agent', { 'agentnum' => $1 } ); - die "unknown agentnum $1" unless $agent; - $title = $agent->agent. " $title"; - } - - if ( $cgi->param('payby') ) { - $cgi->param('payby') =~ - /^(CARD|CHEK|BILL|PREP|CASH|WEST|MCRD)(-(VisaMC|Amex|Discover|Maestro))?$/ - or die "illegal payby ". $cgi->param('payby'); - push @search, "cust_pay.payby = '$1'"; - if ( $3 ) { - - my $cardtype = $3; - - my $search; - if ( $cardtype eq 'VisaMC' ) { - #avoid posix regexes for portability - $search = - " ( ( substring(cust_pay.payinfo from 1 for 1) = '4' ". - " AND substring(cust_pay.payinfo from 1 for 4) != '4936' ". - " AND substring(cust_pay.payinfo from 1 for 6) ". - " NOT SIMILAR TO '49030[2-9]' ". - " AND substring(cust_pay.payinfo from 1 for 6) ". - " NOT SIMILAR TO '49033[5-9]' ". - " AND substring(cust_pay.payinfo from 1 for 6) ". - " NOT SIMILAR TO '49110[1-2]' ". - " AND substring(cust_pay.payinfo from 1 for 6) ". - " NOT SIMILAR TO '49117[4-9]' ". - " AND substring(cust_pay.payinfo from 1 for 6) ". - " NOT SIMILAR TO '49118[1-2]' ". - " )". - " OR substring(cust_pay.payinfo from 1 for 2) = '51' ". - " OR substring(cust_pay.payinfo from 1 for 2) = '52' ". - " OR substring(cust_pay.payinfo from 1 for 2) = '53' ". - " OR substring(cust_pay.payinfo from 1 for 2) = '54' ". - " OR substring(cust_pay.payinfo from 1 for 2) = '54' ". - " OR substring(cust_pay.payinfo from 1 for 2) = '55' ". - " OR substring(cust_pay.payinfo from 1 for 2) = '36' ". #Diner's int'l processed as Visa/MC inside US - " ) "; - } elsif ( $cardtype eq 'Amex' ) { - $search = - " ( substring(cust_pay.payinfo from 1 for 2 ) = '34' ". - " OR substring(cust_pay.payinfo from 1 for 2 ) = '37' ". - " ) "; - } elsif ( $cardtype eq 'Discover' ) { - $search = - " ( substring(cust_pay.payinfo from 1 for 4 ) = '6011' ". - " OR substring(cust_pay.payinfo from 1 for 2 ) = '65' ". - " OR substring(cust_pay.payinfo from 1 for 3 ) = '622' ". #China Union Pay processed as Discover outside CN - " ) "; - } elsif ( $cardtype eq 'Maestro' ) { - $search = - " ( substring(cust_pay.payinfo from 1 for 2 ) = '63' ". - " OR substring(cust_pay.payinfo from 1 for 2 ) = '67' ". - " OR substring(cust_pay.payinfo from 1 for 6 ) = '564182' ". - " OR substring(cust_pay.payinfo from 1 for 4 ) = '4936' ". - " OR substring(cust_pay.payinfo from 1 for 6 ) ". - " SIMILAR TO '49030[2-9]' ". - " OR substring(cust_pay.payinfo from 1 for 6 ) ". - " SIMILAR TO '49033[5-9]' ". - " OR substring(cust_pay.payinfo from 1 for 6 ) ". - " SIMILAR TO '49110[1-2]' ". - " OR substring(cust_pay.payinfo from 1 for 6 ) ". - " SIMILAR TO '49117[4-9]' ". - " OR substring(cust_pay.payinfo from 1 for 6 ) ". - " SIMILAR TO '49118[1-2]' ". - " ) "; - } else { - die "unknown card type $cardtype"; - } - - my $masksearch = $search; - $masksearch =~ s/cust_pay\.payinfo/cust_pay.paymask/gi; - - push @search, - "( $search OR ( cust_pay.paymask IS NOT NULL AND $masksearch ) )"; - - } - } - - if ( $cgi->param('payinfo') ) { - $cgi->param('payinfo') =~ /^\s*(\d+)\s*$/ - or die "illegal payinfo ". $cgi->param('payinfo'); - push @search, "cust_pay.payinfo = '$1'"; - } - - my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi); - push @search, "_date >= $beginning ", - "_date <= $ending"; - - push @search, FS::UI::Web::parse_lt_gt($cgi, 'paid' ); - - $orderby = '_date'; - - } elsif ( $cgi->param('magic') eq 'paybatch' ) { - - $cgi->param('paybatch') =~ /^([\w\/\:\-\.]+)$/ - or die "illegal paybatch: ". $cgi->param('paybatch'); - - push @search, "paybatch = '$1'"; - - $orderby = "LOWER(company || ' ' || last || ' ' || first )"; - - } else { - die "unknown search magic: ". $cgi->param('magic'); - } - - #here is the agent virtualization - push @search, $FS::CurrentUser::CurrentUser->agentnums_sql; - - my $search = ' WHERE '. join(' AND ', @search); - - $count_query = "SELECT COUNT(*), SUM(paid) ". - "FROM cust_pay LEFT JOIN cust_main USING ( custnum )". - $search; - - $sql_query = { - 'table' => 'cust_pay', - 'select' => join(', ', - 'cust_pay.*', - 'cust_main.custnum as cust_main_custnum', - FS::UI::Web::cust_sql_fields(), - ), - 'hashref' => {}, - 'extra_sql' => "$search ORDER BY $orderby", - 'addl_from' => 'LEFT JOIN cust_main USING ( custnum )', - }; - -} else { - - #hmm... is this still used? - - $cgi->param('payinfo') =~ /^\s*(\d+)\s*$/ or die "illegal payinfo"; - my $payinfo = $1; - - $cgi->param('payby') =~ /^(\w+)$/ or die "illegal payby"; - my $payby = $1; - - $count_query = "SELECT COUNT(*), SUM(paid) FROM cust_pay". - " WHERE payinfo = '$payinfo' AND payby = '$payby'". - " AND ". $FS::CurrentUser::CurrentUser->agentnums_sql; - - $sql_query = { - 'table' => 'cust_pay', - 'hashref' => { 'payinfo' => $payinfo, - 'payby' => $payby }, - 'extra_sql' => $FS::CurrentUser::CurrentUser->agentnums_sql. - " ORDER BY _date", - }; - -} - -my $link = [ "${p}view/cust_pay.html?paynum=", 'paynum' ]; - -my $cust_link = sub { - my $cust_pay = shift; - $cust_pay->cust_main_custnum - ? [ "${p}view/cust_main.cgi?", 'custnum' ] - : ''; -}; - - diff --git a/httemplate/search/cust_pay_batch.cgi b/httemplate/search/cust_pay_batch.cgi deleted file mode 100755 index 60dca8cba..000000000 --- a/httemplate/search/cust_pay_batch.cgi +++ /dev/null @@ -1,191 +0,0 @@ -<% include('elements/search.html', - 'title' => 'Batch payment details', - 'name' => 'batch details', - 'query' => $sql_query, - 'count_query' => $count_query, - 'html_init' => $pay_batch ? $html_init : '', - 'header' => [ '#', - 'Inv #', - 'Customer', - 'Customer', - 'Card Name', - 'Card', - 'Exp', - 'Amount', - 'Status', - ], - 'fields' => [ sub { - shift->[0]; - }, - sub { - shift->[1]; - }, - sub { - shift->[2]; - }, - sub { - my $cpb = shift; - $cpb->[3] . ', ' . $cpb->[4]; - }, - sub { - shift->[5]; - }, - sub { - my $cardnum = shift->[6]; - 'x'x(length($cardnum)-4). substr($cardnum,(length($cardnum)-4)); - }, - sub { - shift->[7] =~ /^\d{2}(\d{2})[\/\-](\d+)[\/\-]\d+$/; - my( $mon, $year ) = ( $2, $1 ); - $mon = "0$mon" if length($mon) == 1; - "$mon/$year"; - }, - sub { - shift->[8]; - }, - sub { - shift->[9]; - }, - ], - 'align' => 'lllllllrl', - 'links' => [ ['', sub{'#';}], - ["${p}view/cust_bill.cgi?", sub{shift->[1];},], - ["${p}view/cust_main.cgi?", sub{shift->[2];},], - ["${p}view/cust_main.cgi?", sub{shift->[2];},], - ], - ) -%> -<%init> - -my $conf = new FS::Conf; - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Financial reports') - || $FS::CurrentUser::CurrentUser->access_right('Process batches') - || ( $cgi->param('custnum') - && $conf->exists('batch-enable') - #&& $FS::CurrentUser::CurrentUser->access_right('View customer batched payments') - ); - -my( $count_query, $sql_query ); -my $hashref = {}; -my @search = (); -my $orderby = 'paybatchnum'; - -my( $pay_batch, $batchnum ) = ( '', ''); -if ( $cgi->param('batchnum') && $cgi->param('batchnum') =~ /^(\d+)$/ ) { - push @search, "batchnum = $1"; - $pay_batch = qsearchs('pay_batch', { 'batchnum' => $1 } ); - die "Batch $1 not found!" unless $pay_batch; - $batchnum = $pay_batch->batchnum; -} - -if ( $cgi->param('custnum') && $cgi->param('custnum') =~ /^(\d+)$/ ) { - push @search, "custnum = $1"; -} - -if ( $cgi->param('status') && $cgi->param('status') =~ /^(\w)$/ ) { - push @search, "pay_batch.status = '$1'"; -} - -if ( $cgi->param('payby') ) { - $cgi->param('payby') =~ /^(CARD|CHEK)$/ - or die "illegal payby " . $cgi->param('payby'); - - push @search, "cust_pay_batch.payby = '$1'"; -} - -if ( not $cgi->param('dcln') ) { - push @search, "cpb.status IS DISTINCT FROM 'Approved'"; -} - -my ($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi); -unless ($pay_batch){ - push @search, "pay_batch.upload >= $beginning" if ($beginning); - push @search, "pay_batch.upload <= $ending" if ($ending < 4294967295);#2^32-1 - $orderby = "pay_batch.download,paybatchnum"; -} - -push @search, $FS::CurrentUser::CurrentUser->agentnums_sql; -my $search = ' WHERE ' . join(' AND ', @search); - -$count_query = 'SELECT COUNT(*) FROM cust_pay_batch AS cpb ' . - 'LEFT JOIN cust_main USING ( custnum ) ' . - 'LEFT JOIN pay_batch USING ( batchnum )' . - $search; - -#grr -$sql_query = "SELECT paybatchnum,invnum,custnum,cpb.last,cpb.first," . - "cpb.payname,cpb.payinfo,cpb.exp,amount,cpb.status " . - "FROM cust_pay_batch AS cpb " . - 'LEFT JOIN cust_main USING ( custnum ) ' . - 'LEFT JOIN pay_batch USING ( batchnum ) ' . - "$search ORDER BY $orderby"; - -my $html_init = ''; -if ( $pay_batch ) { - my $fixed = $conf->config('batch-fixed_format-'. $pay_batch->payby); - if ( - $pay_batch->status eq 'O' - || ( $pay_batch->status eq 'I' - && $FS::CurrentUser::CurrentUser->access_right('Reprocess batches') - ) - ) { - $html_init .= qq!
!; - } - - if ( - $pay_batch->status eq 'I' - || ( $pay_batch->status eq 'R' - && $FS::CurrentUser::CurrentUser->access_right('Reprocess batches') - ) - ) { - $html_init .= qq!
'; - } - -} - -if ($pay_batch) { - my $sth = dbh->prepare($count_query) or die dbh->errstr. "doing $count_query"; - $sth->execute or die "Error executing \"$count_query\": ". $sth->errstr; - my $cards = $sth->fetchrow_arrayref->[0]; - - my $st = "SELECT SUM(amount) from cust_pay_batch WHERE batchnum=". $batchnum; - $sth = dbh->prepare($st) or die dbh->errstr. "doing $st"; - $sth->execute or die "Error executing \"$st\": ". $sth->errstr; - my $total = $sth->fetchrow_arrayref->[0]; - - $html_init .= "$cards credit card payments batched
\$" . - sprintf("%.2f", $total) ." total in batch
"; -} - - diff --git a/httemplate/search/cust_pkg.cgi b/httemplate/search/cust_pkg.cgi deleted file mode 100755 index 20f1154c0..000000000 --- a/httemplate/search/cust_pkg.cgi +++ /dev/null @@ -1,237 +0,0 @@ -<% include( 'elements/search.html', - 'html_init' => $html_init, - 'title' => 'Package Search Results', - 'name' => 'packages', - 'query' => $sql_query, - 'count_query' => $count_query, - #'redirect' => $link, - 'header' => [ '#', - 'Package', - 'Class', - 'Status', - 'Freq.', - 'Setup', - 'Last bill', - 'Next bill', - 'Adjourn', - 'Susp.', - 'Expire', - 'Cancel', - 'Reason', - FS::UI::Web::cust_header( - $cgi->param('cust_fields') - ), - 'Services', - ], - 'fields' => [ - 'pkgnum', - sub { #my $part_pkg = $part_pkg{shift->pkgpart}; - #$part_pkg->pkg; # ' - '. $part_pkg->comment; - $_[0]->pkg; # ' - '. $_[0]->comment; - }, - 'classname', - sub { ucfirst(shift->status); }, - sub { #shift->part_pkg->freq_pretty; - - #my $part_pkg = $part_pkg{shift->pkgpart}; - #$part_pkg->freq_pretty; - - FS::part_pkg::freq_pretty(shift); - }, - - #sub { time2str('%b %d %Y', shift->setup); }, - #sub { time2str('%b %d %Y', shift->last_bill); }, - #sub { time2str('%b %d %Y', shift->bill); }, - #sub { time2str('%b %d %Y', shift->susp); }, - #sub { time2str('%b %d %Y', shift->expire); }, - #sub { time2str('%b %d %Y', shift->get('cancel')); }, - ( map { time_or_blank($_) } - qw( setup last_bill bill adjourn susp expire cancel ) ), - - sub { my $self = shift; - my $return = ''; - if ($self->getfield('cancel') || - $self->getfield('suspend')) { - my $reason = $self->last_reason;# too inefficient? - $return = $reason->reason if $reason; - - } - $return; - }, - - \&FS::UI::Web::cust_fields, - #sub { ''. - # join('', map { '' } - # shift->labels - # ). - # '

'. $_->[0]. - # ':

'. $_->[1]. '

'; - # }, - sub { - [ map { - [ - { 'data' => $_->[0]. ':', - 'align'=> 'right', - }, - { 'data' => $_->[1], - 'align'=> 'left', - 'link' => $p. 'view/' . - $_->[2]. '.cgi?'. $_->[3], - }, - ]; - } shift->labels - ]; - }, - ], - 'color' => [ - '', - '', - '', - sub { shift->statuscolor; }, - '', - '', - '', - '', - '', - '', - '', - '', - '', - FS::UI::Web::cust_colors(), - '', - ], - 'style' => [ '', '', '', 'b', '', '', '', '', '', '', '', '', '', - FS::UI::Web::cust_styles() ], - 'size' => [ '', '', '', '-1' ], - 'align' => 'rlcclrrrrrrrl'. FS::UI::Web::cust_aligns(). 'r', - 'links' => [ - $link, - $link, - '', - '', - '', - '', - '', - '', - '', - '', - '', - '', - '', - ( map { $_ ne 'Cust. Status' ? $clink : '' } - FS::UI::Web::cust_header( - $cgi->param('cust_fields') - ) - ), - '', - ], - 'extra_choices_callback'=> $extra_choices, - ) -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('List packages'); - -# my %part_pkg = map { $_->pkgpart => $_ } qsearch('part_pkg', {}); - - my %search_hash = (); - - $search_hash{'query'} = $cgi->keywords; - - for my $param (qw(agentnum magic status classnum pkgpart)) { - $search_hash{$param} = $cgi->param($param) - if $cgi->param($param); - } - -### -# parse dates -### - -#false laziness w/report_cust_pkg.html -my %disable = ( - 'all' => {}, - 'one-time charge' => { 'last_bill'=>1, 'bill'=>1, 'adjourn'=>1, 'susp'=>1, 'expire'=>1, 'cancel'=>1, }, - 'active' => { 'susp'=>1, 'cancel'=>1 }, - 'suspended' => { 'cancel' => 1 }, - 'cancelled' => {}, - '' => {}, -); - -foreach my $field (qw( setup last_bill bill adjourn susp expire cancel )) { - - my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi, $field); - - next if $beginning == 0 && $ending == 4294967295 - or $disable{$cgi->param('status')}->{$field}; - - $search_hash{$field} = [ $beginning, $ending ]; - -} - -my $sql_query = FS::cust_pkg->search_sql(\%search_hash); -my $count_query = delete($sql_query->{'count_query'}); - -my $link = sub { - [ "${p}view/cust_main.cgi?".shift->custnum.'#cust_pkg', 'pkgnum' ]; -}; - -my $clink = sub { - my $cust_pkg = shift; - $cust_pkg->cust_main_custnum - ? [ "${p}view/cust_main.cgi?", 'custnum' ] - : ''; -}; - -#if ( scalar(@cust_pkg) == 1 ) { -# print $cgi->redirect("${p}view/cust_main.cgi?". $cust_pkg[0]->custnum. -# "#cust_pkg". $cust_pkg[0]->pkgnum ); - -# my @cust_svc = qsearch( 'cust_svc', { 'pkgnum' => $pkgnum } ); -# my $rowspan = scalar(@cust_svc) || 1; - -# my $n2 = ''; -# foreach my $cust_svc ( @cust_svc ) { -# my($label, $value, $svcdb) = $cust_svc->label; -# my $svcnum = $cust_svc->svcnum; -# my $sview = $p. "view"; -# print $n2,qq!$label!, -# qq!$value!; -# $n2=""; -# } - -sub time_or_blank { - my $column = shift; - return sub { - my $record = shift; - my $value = $record->get($column); #mmm closures - $value ? time2str('%b %d %Y', $value ) : ''; - }; -} - -my $html_init = ''; -for (qw (overlibmws overlibmws_iframe overlibmws_draggable iframecontentmws)) -{ - $html_init .= - qq!!; -} - -my $extra_choices = sub { - my $query = shift; - my $choices = ''; - - my $url = qq!overlib( OLiframeContent('!. popurl(2). - qq!misc/bulk_change_pkg.cgi?$query', 768, 336, !. - qq!'bulk_pkg_change_popup' ), CAPTION, 'Change Packages'!. - qq!, STICKY, AUTOSTATUSCAP, MIDX, 0, MIDY, 0, DRAGGABLE, !. - qq!CLOSECLICK ); return false;!; - - if ($FS::CurrentUser::CurrentUser->access_right('Bulk change customer packages')) { - $choices .= qq!
Change these packages!; - } - - return $choices; -}; - - diff --git a/httemplate/search/cust_svc.html b/httemplate/search/cust_svc.html deleted file mode 100644 index 3beca4d83..000000000 --- a/httemplate/search/cust_svc.html +++ /dev/null @@ -1,138 +0,0 @@ -<% include( 'elements/search.html', - 'title' => 'Service search results', - 'name' => 'services', - 'query' => $sql_query, - 'count_query' => $count_query, - 'redirect' => $link, - 'header' => [ '#', - 'Service', - # package? - FS::UI::Web::cust_header(), - ], - 'fields' => [ 'svcnum', - sub { - #$_[0]->svc. ': '. $_[0]->label; - my($label, $value, $svcdb) = $_[0]->label; - "$label: $value"; - }, - # package? - \&FS::UI::Web::cust_fields, - ], - 'links' => [ $link, - $link, - # package? - ( map { $_ ne 'Cust. Status' ? $link_cust : '' } - FS::UI::Web::cust_header() - ), - ], - 'align' => 'rl'. FS::UI::Web::cust_aligns(), - 'color' => [ - '', - '', - FS::UI::Web::cust_colors(), - ], - 'style' => [ - '', - '', - FS::UI::Web::cust_styles(), - ], - ) -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('List services'); - -my $addl_from = ' LEFT JOIN part_svc USING ( svcpart ) '. - ' LEFT JOIN cust_pkg USING ( pkgnum ) '. - ' LEFT JOIN cust_main USING ( custnum ) '; - -my @extra_sql = (); -my $orderby = 'ORDER BY svcnum'; #has to be ordered by something - #for pagination to work -if ( length( $cgi->param('search_svc') ) ) { - - my $string = $cgi->param('search_svc'); - $string =~ s/(^\s+|\s+$)//; #trim leading & trailing whitespace - - # implement fuzzy searching in subclasses too at some point? - # service searching maybe shouldn't be fuzzy... - - push @extra_sql, - ' ( '. join(' OR ', - map { my $table = $_; - my $search_sql = "FS::$table"->search_sql($string); - " ( svcdb = '$table' - AND 0 < ( SELECT COUNT(*) FROM $table - WHERE $table.svcnum = cust_svc.svcnum - AND $search_sql - ) - ) "; - } - FS::part_svc->svc_tables - ). ' ) '; - -} elsif ( $cgi->param('magic') =~ /^(all|unlinked)$/ ) { - - $cgi->param('svcdb') =~ /^(svc_\w+)$/ or die "unknown svcdb"; - push @extra_sql, "svcdb = '$1'"; - - push @extra_sql, 'pkgnum IS NULL' - if $cgi->param('magic') eq 'unlinked'; - - if ( $cgi->param('sortby') =~ /^(\w+)$/ ) { - my $sortby = $1; - $orderby = "ORDER BY $sortby"; - } - -} elsif ( $cgi->param('svcpart') =~ /^(\d+)$/ ) { - - push @extra_sql, "svcpart = $1"; - -} else { - errorpage("No search term specified"); -} - -#here is the agent virtualization -push @extra_sql, $FS::CurrentUser::CurrentUser->agentnums_sql; - -my $extra_sql = ' WHERE '. join(' AND ', @extra_sql ); - -my $sql_query = { - 'select' => join(', ', - 'cust_svc.*', - 'part_svc.*', - 'cust_main.custnum', - FS::UI::Web::cust_sql_fields(), - ), - 'table' => 'cust_svc', - 'addl_from' => $addl_from, - 'hashref' => {}, - 'extra_sql' => "$extra_sql $orderby", -}; - -my $count_query = "SELECT COUNT(*) FROM cust_svc $addl_from $extra_sql"; - -my $link = sub { - my $cust_svc = shift; - my $url = svc_url( - 'm' => $m, - 'action' => 'view', - #'part_svc' => $cust_svc->part_svc, - 'svcdb' => $cust_svc->svcdb, #we have it from the joined search - #'svc' => $cust_svc, #redundant - 'query' => '', - ); - [ $url, 'svcnum' ]; -}; - -my $link_cust = sub { - my $cust_svc = shift; - if ( $cust_svc->custnum ) { - [ "${p}view/cust_main.cgi?", 'custnum' ]; - } else { - ''; - } -}; - - diff --git a/httemplate/search/cust_tax_exempt_pkg.cgi b/httemplate/search/cust_tax_exempt_pkg.cgi deleted file mode 100644 index 604502d6f..000000000 --- a/httemplate/search/cust_tax_exempt_pkg.cgi +++ /dev/null @@ -1,182 +0,0 @@ -<% include( 'elements/search.html', - 'title' => 'Tax exemptions', - 'name' => 'tax exemptions', - 'query' => $query, - 'count_query' => $count_query, - 'count_addl' => [ $money_char. '%.2f total', ], - 'header' => [ - '#', - 'Month', - 'Amount', - 'Line item', - 'Invoice', - 'Date', - FS::UI::Web::cust_header(), - ], - 'fields' => [ - 'exemptpkgnum', - sub { $_[0]->month. '/'. $_[0]->year; }, - sub { $money_char. $_[0]->amount; }, - - sub { - $_[0]->billpkgnum. ': '. - ( $_[0]->pkgnum > 0 - ? $_[0]->get('pkg') - : $_[0]->get('itemdesc') - ). - ' ('. - ( $_[0]->setup > 0 - ? $money_char. $_[0]->setup. ' setup' - : '' - ). - ( $_[0]->setup > 0 && $_[0]->recur > 0 - ? ' / ' - : '' - ). - ( $_[0]->recur > 0 - ? $money_char. $_[0]->recur. ' recur' - : '' - ). - ')'; - }, - - 'invnum', - sub { time2str('%b %d %Y', shift->_date ) }, - - \&FS::UI::Web::cust_fields, - ], - 'links' => [ - '', - '', - '', - - '', - $ilink, - $ilink, - - ( map { $_ ne 'Cust. Status' ? $clink : '' } - FS::UI::Web::cust_header() - ), - ], - 'align' => 'rrrlrc'.FS::UI::Web::cust_aligns(), # 'rlrrrc', - 'color' => [ - '', - '', - '', - '', - '', - '', - FS::UI::Web::cust_colors(), - ], - 'style' => [ - '', - '', - '', - '', - '', - '', - FS::UI::Web::cust_styles(), - ], - ) -%> -<%once> - -my $join_cust = " - JOIN cust_bill USING ( invnum ) - LEFT JOIN cust_main USING ( custnum ) -"; - -my $join_pkg = " - LEFT JOIN cust_pkg USING ( pkgnum ) - LEFT JOIN part_pkg USING ( pkgpart ) -"; - -my $join = " - JOIN cust_bill_pkg USING ( billpkgnum ) - $join_cust - $join_pkg -"; - - -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('View customer tax exemptions'); - -my @where = (); - -my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi); -if ( $beginning || $ending ) { - push @where, "_date >= $beginning", - "_date <= $ending"; - #"payby != 'COMP'; -} - -if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) { - push @where, "agentnum = $1"; -} - -if ( $cgi->param('custnum') =~ /^(\d+)$/ ) { - push @where, "cust_main.custnum = $1"; -} - -if ( $cgi->param('out') ) { - - push @where, " - 0 = ( - SELECT COUNT(*) FROM cust_main_county AS county_out - WHERE ( county_out.county = cust_main.county - OR ( county_out.county IS NULL AND cust_main.county = '' ) - OR ( county_out.county = '' AND cust_main.county IS NULL) - OR ( county_out.county IS NULL AND cust_main.county IS NULL) - ) - AND ( county_out.state = cust_main.state - OR ( county_out.state IS NULL AND cust_main.state = '' ) - OR ( county_out.state = '' AND cust_main.state IS NULL ) - OR ( county_out.state IS NULL AND cust_main.state IS NULL ) - ) - AND county_out.country = cust_main.country - AND county_out.tax > 0 - ) - "; - -} elsif ( $cgi->param('country' ) ) { - - my $county = dbh->quote( $cgi->param('county') ); - my $state = dbh->quote( $cgi->param('state') ); - my $country = dbh->quote( $cgi->param('country') ); - push @where, "( county = $county OR $county = '' )", - "( state = $state OR $state = '' )", - " country = $country"; - push @where, 'taxclass = '. dbh->quote( $cgi->param('taxclass') ) - if $cgi->param('taxclass'); - -} - -my $where = scalar(@where) ? 'WHERE '.join(' AND ', @where) : ''; - -my $count_query = "SELECT COUNT(*), SUM(amount)". - " FROM cust_tax_exempt_pkg $join $where"; - -my $query = { - 'table' => 'cust_tax_exempt_pkg', - 'addl_from' => $join, - 'hashref' => {}, - 'select' => join(', ', - 'cust_tax_exempt_pkg.*', - 'cust_bill_pkg.*', - 'cust_bill.*', - 'part_pkg.pkg', - 'cust_main.custnum', - FS::UI::Web::cust_sql_fields(), - ), - 'extra_sql' => $where, -}; - -my $ilink = [ "${p}view/cust_bill.cgi?", 'invnum' ]; -my $clink = [ "${p}view/cust_main.cgi?", 'custnum' ]; - -my $conf = new FS::Conf; -my $money_char = $conf->config('money_char') || '$'; - - diff --git a/httemplate/search/elements/search.html b/httemplate/search/elements/search.html deleted file mode 100644 index e1bc02450..000000000 --- a/httemplate/search/elements/search.html +++ /dev/null @@ -1,853 +0,0 @@ -<%doc> - -Example: - - include( 'elements/search.html', - - ### - # required - ### - - 'title' => 'Page title', - - 'name_singular' => 'item', #singular name for the records returned - #OR# # (preferred, will be pluralized automatically) - 'name' => 'items', #plural name for the records returned - # (deprecated, will be singularlized - # simplisticly) - - #literal SQL query string (deprecated?) or qsearch hashref - 'query' => { - 'table' => 'tablename', - #everything else is optional... - 'hashref' => { 'field' => 'value', - 'field' => { 'op' => '<', - 'value' => '54', - }, - }, - 'select' => '*', - 'addl_from' => '', #'LEFT JOIN othertable USING ( key )', - 'extra_sql' => '', #'AND otherstuff', #'WHERE onlystuff', - 'order_by' => 'ORDER BY something', - - }, - # "select * from tablename"; - - #required unless 'query' is an SQL query string (shouldn't be...) - 'count_query' => 'SELECT COUNT(*) FROM tablename', - - ### - # recommended / common - ### - - #listref of column labels, - #recommended unless 'query' is an SQL query string - # (if not specified the database column names will be used) - 'header' => [ '#', - 'Item', - { 'label' => 'Another Item', - - }, - ], - - #listref - each item is a literal column name (or method) or coderef - #if not specified all columns will be shown - 'fields' => [ - 'column', - sub { my $row = shift; $row->column; }, - ], - - #redirect if there's only one item... - # listref of URL base and column name (or method) - # or a coderef that returns the same - 'redirect' => - - ### - # optional - ### - - # some HTML callbacks... - 'menubar' => '', #menubar arrayref - 'html_init' => '', #after the header/menubar and before the pager - 'html_form' => '', #after the pager, right before the results - # (only shown if there are results) - # (use this for any form-opening tag rather than - # html_init, to avoid a nested form) - 'html_foot' => '', #at the bottom - 'html_posttotal' => '', #at the bottom - # (these three can be strings or coderefs) - - 'count_addl' => [], #additional count fields listref of sprintf strings or coderefs - # [ $money_char.'%.2f total paid', ], - - #second (smaller) header line, currently only for HTML - 'header2 => [ '#', - 'Item', - { 'label' => 'Another Item', - - }, - ], - - #listref of column footers - 'footer' => [], - - #disabling things - 'disable_download' => '', # set true to hide the CSV/Excel download links - 'disable_nonefound' => '', # set true to disable the "No matching Xs found" - # message - - #handling "disabled" fields in the records - 'disableable' => 1, # set set to 1 (or column position for "disabled" - # status col) to enable if this table has a "disabled" - # field, to hide disabled records & have - # "show disabled/hide disabled" links - #(can't be used with a literal query) - 'disabled_statuspos' => 3, #optional position (starting from 0) to insert - #a Status column when showing disabled records - #(query needs to be a qsearch hashref and - # header & fields need to be defined) - - #handling agent virtualization - 'agent_virt' => 1, # set true if this search should be agent-virtualized - 'agent_null_right' => 'Access Right', #opt. right to view global records - 'agent_pos' => 3, #optional position (starting from 0) to insert - #an Agent column - #(query needs to be a qsearch hashref and - # header & fields need to be defined) - - # link & display properties for fields - - #listref - each item is the empty string, - # or a listref of link and method name to append, - # or a listref of link and coderef to run and append - # or a coderef that returns such a listref - 'links' => [],` - - #listref - each item is the empty string, - # or a string onClick handler for the corresponding link - # or a coderef that returns string onClick handler - 'link_onclicks' => [], - - #one letter for each column, left/right/center/none - # or pass a listref with full values: [ 'left', 'right', 'center', '' ] - 'align' => 'lrc.', - - #listrefs of ( scalars or coderefs ) - #currently only HTML, maybe eventually Excel too - 'color' => [], - 'size' => [], - 'style' => [], # or , etc. - 'cell_style' => [], #STYLE= attribute of TR, very HTML-specific... - - ); - - -% if ( $type eq 'csv' ) { -% -% #http_header('Content-Type' => 'text/comma-separated-values' ); #IE chokes -% http_header('Content-Type' => 'text/plain' ); -% -% my $csv = new Text::CSV_XS { 'always_quote' => 1, -% 'eol' => "\n", #"\015\012", #"\012" -% }; -% -% $csv->combine(@$header); #or die $csv->status; -% -<% $csv->string %> -% -% -% foreach my $row ( @$rows ) { -% -% if ( $opt{'fields'} ) { -% -% my @line = (); -% -% foreach my $field ( @{$opt{'fields'}} ) { -% if ( ref($field) eq 'CODE' ) { -% push @line, map { -% ref($_) eq 'ARRAY' -% ? '(N/A)' #unimplemented -% : $_; -% } -% &{$field}($row); -% } else { -% push @line, $row->$field(); -% } -% } -% -% $csv->combine(@line); #or die $csv->status; -% -% } else { -% $csv->combine(@$row); #or die $csv->status; -% } -% -% -<% $csv->string %> -% -% -% } -% -% #} elsif ( $type eq 'excel' ) { -% } elsif ( $type =~ /\.xls$/ ) { -% -% #http_header('Content-Type' => 'application/excel' ); #eww -% #http_header('Content-Type' => 'application/msexcel' ); #alas -% #http_header('Content-Type' => 'application/x-msexcel' ); #? -% -% #http://support.microsoft.com/kb/199841 -% http_header('Content-Type' => 'application/vnd.ms-excel' ); -% -% #http://support.microsoft.com/kb/812935 -% #http://support.microsoft.com/kb/323308 -% $HTML::Mason::Commands::r->headers_out->{'Cache-control'} = 'max-age=0'; -% -% my $data = ''; -% my $XLS = new IO::Scalar \$data; -% my $workbook = Spreadsheet::WriteExcel->new($XLS) -% or die "Error opening .xls file: $!"; -% -% my $worksheet = $workbook->add_worksheet(substr($opt{'title'},0,31)); -% -% my($r,$c) = (0,0); -% -% $worksheet->write($r, $c++, $_) foreach @$header; -% -% foreach my $row ( @$rows ) { -% $r++; -% $c = 0; -% -% if ( $opt{'fields'} ) { -% -% #my $links = $opt{'links'} ? [ @{$opt{'links'}} ] : ''; -% #my $aligns = $opt{'align'} ? [ @{$opt{'align'}} ] : ''; -% -% foreach my $field ( @{$opt{'fields'}} ) { -% #my $align = $aligns ? shift @$aligns : ''; -% #$align = " ALIGN=$align" if $align; -% #my $a = ''; -% #if ( $links ) { -% # my $link = shift @$links; -% # $link = &{$link}($row) if ref($link) eq 'CODE'; -% # if ( $link ) { -% # my( $url, $method ) = @{$link}; -% # if ( ref($method) eq 'CODE' ) { -% # $a = $url. &{$method}($row); -% # } else { -% # $a = $url. $row->$method(); -% # } -% # $a = qq(); -% # } -% #} -% if ( ref($field) eq 'CODE' ) { -% foreach my $value ( &{$field}($row) ) { -% if ( ref($value) eq 'ARRAY' ) { -% $worksheet->write($r, $c++, '(N/A)' ); #unimplemented -% } else { -% $worksheet->write($r, $c++, $value ); -% } -% } -% } else { -% $worksheet->write($r, $c++, $row->$field() ); -% } -% } -% -% } else { -% $worksheet->write($r, $c++, $_) foreach @$row; -% } -% -% } -% -% $workbook->close();# or die "Error creating .xls file: $!"; -% -% http_header('Content-Length' => length($data) ); -% -<% $data %> -% -% -% } else { # regular HTML -% -% if ( exists($opt{'redirect'}) && scalar(@$rows) == 1 && $total == 1 -% && $type ne 'html-print' -% ) { -% my $redirect = $opt{'redirect'}; -% $redirect = &{$redirect}($rows->[0]) if ref($redirect) eq 'CODE'; -% my( $url, $method ) = @$redirect; -% redirect( $url. $rows->[0]->$method() ); -% } else { -% if ( $opt{'name_singular'} ) { -% $opt{'name'} = PL($opt{'name_singular'}); -% } -% ( my $xlsname = $opt{'name'} ) =~ s/\W//g; -% if ( $total == 1 ) { -% if ( $opt{'name_singular'} ) { -% $opt{'name'} = $opt{'name_singular'} -% } else { -% #$opt{'name'} =~ s/s$// if $total == 1; -% $opt{'name'} =~ s/((s)e)?s$/$2/ if $total == 1; -% } -% } -% -% if ( $type eq 'html-print' ) { - - <% include( '/elements/header-popup.html', $opt{'title'} ) %> - -% } else { -% -% my @menubar = (); -% if ( $opt{'menubar'} ) { -% @menubar = @{ $opt{'menubar'} }; -% #} else { -% # @menubar = ( 'Main menu' => $p ); -% } - - <% include( '/elements/header.html', $opt{'title'}, - include( '/elements/menubar.html', @menubar ) - ) - %> - - <% defined($opt{'html_init'}) - ? ( ref($opt{'html_init'}) - ? &{$opt{'html_init'}}() - : $opt{'html_init'} - ) - : '' - %> - -% } - -% unless ( $total ) { -% unless ( $opt{'disable_nonefound'} ) { - No matching <% $opt{'name'} %> found.
-% } -% } -% -% if ( $total || $opt{'disableable'} ) { #hmm... and there *are* ones to show?? - - - - - - -% unless ( $opt{'disable_download'} || $type eq 'html-print' ) { - - -% $cgi->param('_type', "html" ); -% } - - - - -% my $h2 = 0; -% foreach my $header ( @{ $opt{header} } ) { -% my $label = ref($header) ? $header->{label} : $header; -% my $rowspan = 1; -% my $style = ''; -% if ( $opt{header2} ) { -% if ( !length($opt{header2}->[$h2]) ) { -% $rowspan = 2; -% splice @{ $opt{header2} }, $h2, 1; -% } else { -% $h2++; -% $style = 'STYLE="border-bottom: none"' -% } -% } - -% } - - -% if ( $opt{header2} ) { - -% foreach my $header ( @{ $opt{header2} } ) { -% my $label = ref($header) ? $header->{label} : $header; - -% } - -% } - -% my $bgcolor1 = '#eeeeee'; -% my $bgcolor2 = '#ffffff'; -% my $bgcolor; -% -% foreach my $row ( @$rows ) { -% -% if ( $bgcolor eq $bgcolor1 ) { -% $bgcolor = $bgcolor2; -% } else { -% $bgcolor = $bgcolor1; -% } - - - -% if ( $opt{'fields'} ) { -% -% my $links = $opt{'links'} ? [ @{$opt{'links'}} ] : ''; -% my $onclicks = $opt{'link_onclicks'} ? [ @{$opt{'link_onclicks'}} ] : []; -% my $aligns = $opt{'align'} ? [ @{$opt{'align'}} ] : ''; -% my $colors = $opt{'color'} ? [ @{$opt{'color'}} ] : []; -% my $sizes = $opt{'size'} ? [ @{$opt{'size'}} ] : []; -% my $styles = $opt{'style'} ? [ @{$opt{'style'}} ] : []; -% my $cstyles = $opt{'cell_style'} ? [ @{$opt{'cell_style'}} ] : []; -% -% foreach my $field ( -% -% map { -% if ( ref($_) eq 'ARRAY' ) { -% -% my $tableref = $_; -% -% '
- -
- - <% $total %> total <% $opt{'name'} %> - -% if ( $confmax && $total > $confmax && $type ne 'html-print' ) { -% $cgi->delete('maxrecords'); -% $cgi->param('_dummy', 1); - -%# ( show - -% foreach my $max ( map { $_ * $confmax } qw( 1 5 10 25 ) ) { - -% } - - per page ) - -% $cgi->param('maxrecords', $maxrecords); -% } - -% if ( defined($opt{'html_posttotal'}) && $type ne 'html-print' ) { - <% ref($opt{'html_posttotal'}) - ? &{$opt{'html_posttotal'}}() - : $opt{'html_posttotal'} - %> -% } -
- -% if ( $opt{'count_addl'} ) { -% my $n=0; -% foreach my $count ( @{$opt{'count_addl'}} ) { -% my $data = $count_arrayref->[++$n]; -% if ( ref($count) ) { - <% &{ $count }( $data ) %> -% } else { - <% sprintf( $count, $data ) %>
-% } -% } -% } -
- - - - Download full results
- -% $cgi->param('_type', "$xlsname.xls" ); - as Excel spreadsheet
- -% $cgi->param('_type', 'csv'); - as CSV file
- -% $cgi->param('_type', 'html-print'); - as printable copy - - <% $opt{'extra_choices_callback'} - ? &{$opt{'extra_choices_callback'}}($cgi->query_string) - : '' - %> - -
- -% my $pager = ''; -% unless ( $type eq 'html_print' ) { - - <% $pager = include( '/elements/pager.html', - 'offset' => $offset, - 'num_rows' => scalar(@$rows), - 'total' => $total, - 'maxrecords' => $maxrecords, - ) - %> - - <% defined($opt{'html_form'}) - ? ( ref($opt{'html_form'}) - ? &{$opt{'html_form'}}() - : $opt{'html_form'} - ) - : '' - %> - -% } - - <% include('/elements/table-grid.html') %> - -
- - > - <% $label %> -
- <% $label %> -
'. -% -% join('', map { -% -% my $rowref = $_; -% -% ''. -% -% join('', map { -% -% my $e = $_; -% -% ''; -% -% } @$rowref ). -% -% ''; -% } @$tableref ). -% -% '
{$_}), -% qw( align bgcolor colspan rowspan -% style valign width ) -% ). -% '>'. -% -% ( $e->{'link'} -% ? '' -% : '' -% ). -% ( $e->{'size'} -% ? '' -% : '' -% ). -% ( $e->{'data_style'} -% ? '<'. uc($e->{'data_style'}). '>' -% : '' -% ). -% $e->{'data'}. -% ( $e->{'data_style'} -% ? '{'data_style'}). '>' -% : '' -% ). -% ( $e->{'size'} ? '' : '' ). -% ( $e->{'link'} ? '' : '' ). -% '
'; -% -% } else { -% $_; -% } -% } -% -% map { -% if ( ref($_) eq 'CODE' ) { -% &{$_}($row); -% } else { -% $row->$_(); -% } -% } -% @{$opt{'fields'}} -% -% ) { -% -% my $class = ( $field =~ /^$method(); -% } -% $a = qq(); -% } -% } -% -% my $font = ''; -% my $color = shift @$colors; -% $color = &{$color}($row) if ref($color) eq 'CODE'; -% my $size = shift @$sizes; -% $size = &{$size}($row) if ref($size) eq 'CODE'; -% if ( $color || $size ) { -% $font = ''; -% } -% -% my($s, $es) = ( '', '' ); -% my $style = shift @$styles; -% $style = &{$style}($row) if ref($style) eq 'CODE'; -% if ( $style ) { -% $s = join( '', map "<$_>", split('', $style) ); -% $es = join( '', map "", split('', $style) ); -% } -% -% my $cstyle = shift @$cstyles; -% $cstyle = &{$cstyle}($row) if ref($cstyle) eq 'CODE'; -% $cstyle = qq(STYLE="$cstyle") -% if $cstyle; - - - -% } -% -% } else { -% -% foreach ( @$row ) { - -% } -% -% } - - - -% } - -% if ( $opt{'footer'} ) { - - - -% foreach my $footer ( @{ $opt{'footer'} } ) { - -% } - - -% } - -
<% $cstyle %>><% $font %><% $a %><% $s %><% $field %><% $es %><% $a ? '' : '' %><% $font ? '' : '' %> <% $_ %>
<% $footer %>
- - <% $pager %> - - - - -% } - -% if ( $type eq 'html-print' ) { - - - -% } else { - - <% defined($opt{'html_foot'}) - ? ( ref($opt{'html_foot'}) - ? &{$opt{'html_foot'}}() - : $opt{'html_foot'} - ) - : '' - %> - - <% include( '/elements/footer.html' ) %> - -% } - -% } -% -% } -<%init> - -my(%opt) = @_; -#warn join(' / ', map { "$_ => $opt{$_}" } keys %opt ). "\n"; - -my $curuser = $FS::CurrentUser::CurrentUser; - -my %align = ( - 'l' => 'left', - 'r' => 'right', - 'c' => 'center', - ' ' => '', - '.' => '', -); -$opt{align} = [ map $align{$_}, split(//, $opt{align}) ], - unless !$opt{align} || ref($opt{align}); - -if ( $opt{'agent_virt'} ) { - - my $agentnums_sql = $curuser->agentnums_sql( - 'null_right' => $opt{'agent_null_right'} - ); - - $opt{'query'}{'extra_sql'} .= - ( $opt{'query'} =~ /WHERE/i ? ' AND ' : ' WHERE ' ). - $agentnums_sql; - $opt{'count_query'} .= - ( $opt{'count_query'} =~ /WHERE/i ? ' AND ' : ' WHERE ' ). - $agentnums_sql; - - if ( $opt{'agent_pos'} || $opt{'agent_pos'} eq '0' - and scalar($curuser->agentnums) > 1 ) { - #false laziness w/statuspos above - my $pos = $opt{'agent_pos'}; - - foreach my $att (qw( align style color size )) { - $opt{$att} ||= [ map '', @{ $opt{'fields'} } ]; - } - - splice @{ $opt{'header'} }, $pos, 0, 'Agent'; - splice @{ $opt{'align'} }, $pos, 0, 'c'; - splice @{ $opt{'style'} }, $pos, 0, ''; - splice @{ $opt{'size'} }, $pos, 0, ''; - splice @{ $opt{'fields'} }, $pos, 0, - sub { $_[0]->agentnum ? $_[0]->agent->agent : '(global)'; }; - splice @{ $opt{'color'} }, $pos, 0, ''; - splice @{ $opt{'links'} }, $pos, 0, '' #[ 'agent link?', 'agentnum' ] - if $opt{'links'}; - splice @{ $opt{'link_onclicks'} }, $pos, 0, '' - if $opt{'link_onclicks'}; - - } - -} - -if ( $opt{'disableable'} ) { - - unless ( $cgi->param('showdisabled') ) { #modify searches - - $opt{'query'}{'hashref'}{'disabled'} = ''; - $opt{'query'}{'extra_sql'} =~ s/^\s*WHERE/ AND/i; - - $opt{'count_query'} .= - ( $opt{'count_query'} =~ /WHERE/i ? ' AND ' : ' WHERE ' ). - "( disabled = '' OR disabled IS NULL )"; - - } elsif ( $opt{'disabled_statuspos'} - || $opt{'disabled_statuspos'} eq '0' ) { #add status column - - my $pos = $opt{'disabled_statuspos'}; - - foreach my $att (qw( align style color size )) { - $opt{$att} ||= [ map '', @{ $opt{'fields'} } ]; - } - - splice @{ $opt{'header'} }, $pos, 0, 'Status'; - splice @{ $opt{'align'} }, $pos, 0, 'c'; - splice @{ $opt{'style'} }, $pos, 0, 'b'; - splice @{ $opt{'size'} }, $pos, 0, ''; - splice @{ $opt{'fields'} }, $pos, 0, - sub { shift->disabled ? 'DISABLED' : 'Active'; }; - splice @{ $opt{'color'} }, $pos, 0, - sub { shift->disabled ? 'FF0000' : '00CC00'; }; - splice @{ $opt{'links'} }, $pos, 0, '' - if $opt{'links'}; - splice @{ $opt{'link_onlicks'} }, $pos, 0, '' - if $opt{'link_onlicks'}; - } - - #add show/hide disabled links - my $items = $opt{'name'} || PL($opt{'name_singular'}); - if ( $cgi->param('showdisabled') ) { - $cgi->param('showdisabled', 0); - $opt{'html_posttotal'} .= - '( hide disabled $items )!; - $cgi->param('showdisabled', 1); - } else { - $cgi->param('showdisabled', 1); - $opt{'html_posttotal'} .= - '( show disabled $items )!; - $cgi->param('showdisabled', 0); - } - -} - -my $type = $cgi->param('_type') =~ /^(csv|\w*\.xls|html(-print)?)$/ - ? $1 : 'html'; - -my $limit = ''; -my($confmax, $maxrecords, $total, $offset, $count_arrayref); - -unless ( $type =~ /^(csv|\w*\.xls)$/ ) { - - unless (exists($opt{count_query}) && length($opt{count_query})) { - ( $opt{count_query} = $opt{query} ) =~ - s/^\s*SELECT\s*(.*?)\s+FROM\s/SELECT COUNT(*) FROM /i; #silly vim:/ - } - - if ( $opt{disableable} && ! $cgi->param('showdisabled') ) { - $opt{count_query} .= - ( ( $opt{count_query} =~ /WHERE/i ) ? ' AND ' : ' WHERE ' ). - "( disabled = '' OR disabled IS NULL )"; - } - - unless ( $type eq 'html-print' ) { - - #setup some pagination things if we're in html mode - - my $conf = new FS::Conf; - $confmax = $conf->config('maxsearchrecordsperpage'); - if ( $cgi->param('maxrecords') =~ /^(\d+)$/ ) { - $maxrecords = $1; - } else { - $maxrecords ||= $confmax; - } - - $limit = $maxrecords ? "LIMIT $maxrecords" : ''; - - $offset = $cgi->param('offset') =~ /^(\d+)$/ ? $1 : 0; - $limit .= " OFFSET $offset" if $offset; - - } - - my $count_sth = dbh->prepare($opt{'count_query'}) - or die "Error preparing $opt{'count_query'}: ". dbh->errstr; - $count_sth->execute - or die "Error executing $opt{'count_query'}: ". $count_sth->errstr; - $count_arrayref = $count_sth->fetchrow_arrayref; - $total = $count_arrayref->[0]; - -} - -# run the query - -my $header = [ map { ref($_) ? $_->{'label'} : $_ } @{$opt{header}} ]; -my $rows; -if ( ref($opt{query}) ) { - - if ( $opt{disableable} && ! $cgi->param('showdisabled') ) { - #%search = ( 'disabled' => '' ); - $opt{'query'}->{'hashref'}->{'disabled'} = ''; - $opt{'query'}->{'extra_sql'} =~ s/^\s*WHERE/ AND/i; - } - - #eval "use FS::$opt{'query'};"; - $rows = [ qsearch({ - 'select' => $opt{'query'}->{'select'}, - 'table' => $opt{'query'}->{'table'}, - 'addl_from' => (exists($opt{'query'}->{'addl_from'}) ? $opt{'query'}->{'addl_from'} : ''), - 'hashref' => $opt{'query'}->{'hashref'} || {}, - 'extra_sql' => $opt{'query'}->{'extra_sql'}, - 'order_by' => $opt{'query'}->{'order_by'}. " $limit", - }) ]; -} else { - my $sth = dbh->prepare("$opt{'query'} $limit") - or die "Error preparing $opt{'query'}: ". dbh->errstr; - $sth->execute - or die "Error executing $opt{'query'}: ". $sth->errstr; - - #can get # of rows without fetching them all? - $rows = $sth->fetchall_arrayref; - - $header ||= $sth->{NAME}; -} - - diff --git a/httemplate/search/inventory_item.html b/httemplate/search/inventory_item.html deleted file mode 100644 index cd37e267b..000000000 --- a/httemplate/search/inventory_item.html +++ /dev/null @@ -1,125 +0,0 @@ -<% include( 'elements/search.html', - 'title' => $title, - - #less lame to use Lingua:: something to pluralize - 'name' => $inventory_class->classname. 's', - - 'query' => { - 'table' => 'inventory_item', - 'hashref' => { 'classnum' => $classnum }, - 'select' => join(', ', - 'inventory_item.*', - 'cust_main.custnum', - FS::UI::Web::cust_sql_fields(), - ), - 'extra_sql' => $extra_sql, - 'addl_from' => $addl_from, - }, - - 'count_query' => $count_query, - - 'header' => [ - '#', - $inventory_class->classname, - 'Service', - FS::UI::Web::cust_header(), - ], - - 'fields' => [ - 'itemnum', - 'item', - #'svcnum', #XXX proper full service customer link ala svc_acct - # "unallocated" ? "available" ? - sub { - #this could be way more efficient with a mixin - # like cust_main_Mixin that let us all all the methods - # on data we already have... - my $inventory_item = shift; - my $cust_svc = $inventory_item->cust_svc; - if ( $cust_svc ) { - my($label, $value) = $cust_svc->label; - "$label: $value"; - } else { - '(available)'; - } - }, - - \&FS::UI::Web::cust_fields, - - ], - 'align' => 'rll'.FS::UI::Web::cust_aligns(), - 'links' => [ - '', - '', - $link, - ( map { $_ ne 'Cust. Status' ? $link_cust : '' } - FS::UI::Web::cust_header() - ), - ], - 'color' => [ - '', - '', - '', - FS::UI::Web::cust_colors(), - ], - 'style' => [ - '', - '', - '', - FS::UI::Web::cust_styles(), - ], - - ) -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); - -my $classnum = $cgi->param('classnum'); -$classnum =~ /^(\d+)$/ or errorpage("illegal classnum $classnum"); -$classnum = $1; - -my $inventory_class = qsearchs( { - 'table' => 'inventory_class', - 'hashref' => { 'classnum' => $classnum }, -} ); - -my $title = $inventory_class->classname. ' Inventory'; - -#little false laziness with SQL fragments in inventory_class.pm -my $extra_sql = ''; -if ( $cgi->param('avail') ) { - $extra_sql = 'AND ( svcnum IS NULL OR svcnum = 0 )'; - $title .= ' - Available'; -} elsif ( $cgi->param('used') ) { - $extra_sql = 'AND svcnum IS NOT NULL AND svcnum > 0'; - $title .= ' - In use'; -} - -my $count_query = - "SELECT COUNT(*) FROM inventory_item WHERE classnum = $classnum $extra_sql"; - -my $link = sub { - my $inventory_item = shift; - if ( $inventory_item->svcnum ) { - [ "${p}view/svc_acct.cgi?", 'svcnum' ]; - } else { - ''; - } -}; -my $link_cust = sub { - my $inventory_item = shift; - if ( $inventory_item->custnum ) { - [ "${p}view/cust_main.cgi?", 'custnum' ]; - } else { - ''; - } -}; - -my $addl_from = ' LEFT JOIN cust_svc USING ( svcnum ) '. - ' LEFT JOIN part_svc USING ( svcpart ) '. - ' LEFT JOIN cust_pkg USING ( pkgnum ) '. - ' LEFT JOIN cust_main USING ( custnum ) '; - - diff --git a/httemplate/search/pay_batch.cgi b/httemplate/search/pay_batch.cgi deleted file mode 100755 index cb2171799..000000000 --- a/httemplate/search/pay_batch.cgi +++ /dev/null @@ -1,130 +0,0 @@ -<% include( 'elements/search.html', - 'title' => 'Payment Batches', - 'name_singular' => 'batch', - 'query' => { 'table' => 'pay_batch', - 'hashref' => $hashref, - 'extra_sql' => "$extra_sql ORDER BY batchnum DESC", - }, - 'count_query' => "$count_query $extra_sql", - 'header' => [ 'Batch', - 'Type', - 'First Download', - 'Last Upload', - 'Item Count', - 'Amount', - 'Status', - ], - 'align' => 'rcllrrc', - 'fields' => [ 'batchnum', - sub { - FS::payby->shortname(shift->payby); - }, - sub { - my $self = shift; - my $_date = $self->download; - if ( $_date ) { - time2str("%a %b %e %T %Y", $_date); - } elsif ( $self->status eq 'O' ) { - 'Download batch'; - } else { - ''; - } - }, - sub { - my $self = shift; - my $_date = $self->upload; - if ( $_date ) { - time2str("%a %b %e %T %Y", $_date); - } elsif ( $self->status eq 'I' ) { - 'Upload results'; - } else { - ''; - } - }, - sub { - my $st = "SELECT COUNT(*) from cust_pay_batch WHERE batchnum=" . shift->batchnum; - my $sth = dbh->prepare($st) - or die dbh->errstr. "doing $st"; - $sth->execute - or die "Error executing \"$st\": ". $sth->errstr; - $sth->fetchrow_arrayref->[0]; - }, - sub { - my $st = "SELECT SUM(amount) from cust_pay_batch WHERE batchnum=" . shift->batchnum; - my $sth = dbh->prepare($st) - or die dbh->errstr. "doing $st"; - $sth->execute - or die "Error executing \"$st\": ". $sth->errstr; - $sth->fetchrow_arrayref->[0]; - }, - sub { - $statusmap{shift->status}; - }, - ], - 'links' => [ - $link, - '', - sub { shift->status eq 'O' ? $link : '' }, - sub { shift->status eq 'I' ? $link : '' }, - ], - 'size' => [ - '', - '', - sub { shift->status eq 'O' ? "+1" : '' }, - sub { shift->status eq 'I' ? "+1" : '' }, - ], - 'style' => [ - '', - '', - sub { shift->status eq 'O' ? "b" : '' }, - sub { shift->status eq 'I' ? "b" : '' }, - ], - ) - -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Financial reports') - || $FS::CurrentUser::CurrentUser->access_right('Process batches'); - -my %statusmap = ('I'=>'In Transit', 'O'=>'Open', 'R'=>'Resolved'); -my $hashref = {}; -my $count_query = 'SELECT COUNT(*) FROM pay_batch'; - -my($begin, $end) = ( '', '' ); - -my @where; -if ( $cgi->param('beginning') - && $cgi->param('beginning') =~ /^([ 0-9\-\/]{0,10})$/ ) { - $begin = str2time($1); - push @where, "download >= $begin"; -} -if ( $cgi->param('ending') - && $cgi->param('ending') =~ /^([ 0-9\-\/]{0,10})$/ ) { - $end = str2time($1) + 86399; - push @where, "download < $end"; -} - -my @status; -if ( $cgi->param('open') ) { - push @status, "O"; -} - -if ( $cgi->param('intransit') ) { - push @status, "I"; -} - -if ( $cgi->param('resolved') ) { - push @status, "R"; -} - -push @where, - scalar(@status) ? q!(status='! . join(q!' OR status='!, @status) . q!')! - : q!status='X'!; # kludgy, X is unused at present - -my $extra_sql = scalar(@where) ? 'WHERE ' . join(' AND ', @where) : ''; - -my $link = [ "${p}search/cust_pay_batch.cgi?batchnum=", 'batchnum' ]; - - diff --git a/httemplate/search/pay_batch.html b/httemplate/search/pay_batch.html deleted file mode 100644 index 5907169d8..000000000 --- a/httemplate/search/pay_batch.html +++ /dev/null @@ -1,33 +0,0 @@ -<% include('/elements/header.html', 'Batch criteria' ) %> - -
- - - - <% include( '/elements/tr-input-beginning_ending.html' ) %> - - - - - - - - - - - - -
Show open batches
Show in-transit batches
Show resolved batches
- -
- - -
- -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Financial reports'); - - diff --git a/httemplate/search/prepay_credit.html b/httemplate/search/prepay_credit.html deleted file mode 100644 index 96391fcbd..000000000 --- a/httemplate/search/prepay_credit.html +++ /dev/null @@ -1,67 +0,0 @@ -<% include( 'elements/search.html', - 'title' => 'Unused Prepaid Cards'. - ($agent ? ' for '. $agent->agent : ''), - 'menubar' => [ - 'Generate cards' => $p.'edit/prepay_credit.cgi', - ], - 'name' => 'prepaid cards', - 'query' => { 'table' => 'prepay_credit', - 'hashref' => $hashref, - }, - 'count_query' => $count_query, - #'redirect' => $link, - 'header' => [ '#', qw(Amount Time Upload Download Total Agent) ], - 'fields' => [ - 'identifier', - sub { sprintf('$%.2f', shift->amount ) }, - sub { my $c = shift; - $c->seconds ? duration_exact($c->seconds) : '' - }, - sub { my $c = shift; - $c->upbytes - ? FS::UI::bytecount::bytecount_unexact($c->upbytes) - : '' - }, - sub { my $c = shift; - $c->downbytes - ? FS::UI::bytecount::bytecount_unexact($c->downbytes) - : '' - }, - sub { my $c = shift; - $c->totalbytes - ? FS::UI::bytecount::bytecount_unexact($c->totalbytes) - : '' - }, - sub { my $agent = shift->agent; - $agent ? $agent->agent : ''; - }, - ], - 'links' => [ - '', - '', - '', - '', - '', - '', - sub { my $agent = shift->agent; - $agent ? [ "${p}view/agent.cgi?", 'agentnum' ] : ''; - }, - ], - ) -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); - -my $agent = ''; -my $hashref = {}; -if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) { -$hashref->{agentnum} = $1; -$agent = qsearchs('agent', { 'agentnum' => $1 } ); -} - -my $count_query = 'SELECT COUNT(*) FROM prepay_credit'; -$count_query .= ' WHERE agentnum = '. $agent->agentnum if $agent; - - diff --git a/httemplate/search/queue.html b/httemplate/search/queue.html deleted file mode 100644 index 125a6f7f6..000000000 --- a/httemplate/search/queue.html +++ /dev/null @@ -1,138 +0,0 @@ -<% include( 'elements/search.html', - 'title' => 'Job Queue', - 'name' => 'jobs', - 'html_form' => qq!
!, - 'query' => { 'table' => 'queue', - 'hashref' => $hashref, - 'extra_sql' => 'ORDER BY jobnum', - }, - 'count_query' => $count_query, - 'header' => [ '#', - 'Job', - 'Args', - 'Date', - 'Status', - 'Account', # unless $hashref->{'svcnum'} - '', # checkbox column - ], - 'fields' => [ - 'jobnum', - 'job', - sub { - my $queue = shift; - if ( $dangerous - || $queue->job !~ /^FS::part_export::/ - || !$noactions - ) - { - encode_entities( join(' ', $queue->args) ); - } else { - ''; - } - }, - sub { - time2str( "%a %b %e %T %Y", shift->_date ); - }, - sub { - my $queue = shift; - my $jobnum = $queue->jobnum; - my $status = $queue->status; - $status .= ': '. $queue->statustext - if $queue->statustext; - my @queue_depend = $queue->queue_depend; - $status .= ' (waiting for '. - join(', ', map { $_->depend_jobnum } - @queue_depend - ). - ')' - if @queue_depend; - my $changable = $dangerous - || ( ! $noactions - && $status =~ /^failed/ - || $status =~ /^locked/ - ); - if ( $changable ) { - $status .= - qq! ( retry |!. - qq! remove )!; - } - $status; - }, - sub { - my $queue = shift; - # return '' if $hashref->{'svcnum'} - my $cust_svc = $queue->cust_svc; - my $account; - if ( $cust_svc ) { - my $table = $cust_svc->part_svc->svcdb; - my $label = ( $cust_svc->label )[1]; - qq!$label!; - } else { - ''; - } - }, - sub { - my $queue = shift; - my $jobnum = $queue->jobnum; - my $status = $queue->status; - my $changable = $dangerous - || ( ! $noactions - && $status eq 'failed' - || $status eq 'locked' - ); - if ( $changable ) { - $areboxes = 1; - qq!!; - } else { - ''; - } - }, - ], - #'links' => [ - # '', - # '', - # '', - # '', - # '', - # '', #$acct_link, - # '', - # ], - 'html_foot' => sub { - if ( $areboxes ) { - '
'. - ''. - '
'. - '
'. - ''; - } else { - ''; - } - }, - ) - -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Job queue'); - -my $hashref = {}; - -my $conf = new FS::Conf; -my $dangerous = $conf->exists('queue_dangerous_controls'); - -my $noactions = 0; - -my $count_query = 'SELECT COUNT(*) FROM queue'; # + $hashref - -my $areboxes = 0; - - diff --git a/httemplate/search/reg_code.html b/httemplate/search/reg_code.html deleted file mode 100644 index f65b00d05..000000000 --- a/httemplate/search/reg_code.html +++ /dev/null @@ -1,40 +0,0 @@ -<% include( 'elements/search.html', - 'title' => 'Unused Registration Codes for '. - $agent->agent, - 'name' => 'registration codes', - 'query' => { 'table' => 'reg_code', - 'hashref' => { 'agentnum' => $agentnum, }, - }, - 'count_query' => $count_query, - #'redirect' => $link, - 'header' => [ qw(Code Packages) ], - 'fields' => [ - 'code', - sub { - map { - qq!'. - $_->pkg. ' - '. $_->comment. - '
' - } $_[0]->part_pkg - }, - ], - 'links' => [ - '', - #$plink, - '', - ], - ) -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); - -my $agentnum = $cgi->param('agentnum'); -$agentnum =~ /^(\d+)$/ or errorpage("illegal agentnum $agentnum"); -$agentnum = $1; -my $agent = qsearchs('agent', { 'agentnum' => $agentnum } ); - -my $count_query = "SELECT COUNT(*) FROM reg_code WHERE agentnum = $agentnum"; - - diff --git a/httemplate/search/report_cdr.html b/httemplate/search/report_cdr.html deleted file mode 100644 index 06f0b1aae..000000000 --- a/httemplate/search/report_cdr.html +++ /dev/null @@ -1,44 +0,0 @@ -<% include('/elements/header.html', 'Call Detail Record Search' ) %> - - - - - - - - - - <% include ( '/elements/tr-input-beginning_ending.html' ) %> - - - - - - - - - - - -
Status: - -
Source #: - -
Destination #: - -
- -
- - -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('List rating data'); - - diff --git a/httemplate/search/report_cust_bill.html b/httemplate/search/report_cust_bill.html deleted file mode 100644 index 892f5c4d9..000000000 --- a/httemplate/search/report_cust_bill.html +++ /dev/null @@ -1,34 +0,0 @@ -<% include('/elements/header.html', 'Invoice report criteria' ) %> - - - - - - <% include( '/elements/tr-select-agent.html', - 'curr_value' => scalar( $cgi->param('agentnum') ), - 'label' => 'Invoices for agent: ', - ) - %> - <% include( '/elements/tr-input-beginning_ending.html' ) %> - - - - - - - - -
Show only open invoices
Show only the single most recent invoice per-customer
- -
- - -
- -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('List invoices'); - - diff --git a/httemplate/search/report_cust_credit.html b/httemplate/search/report_cust_credit.html deleted file mode 100644 index be02e9fbd..000000000 --- a/httemplate/search/report_cust_credit.html +++ /dev/null @@ -1,47 +0,0 @@ -<% include('/elements/header.html', 'Credit report' ) %> - -
- - - - - <% include( '/elements/tr-select-otaker.html', - 'label' => 'Credits by employee: ', - 'otakers' => \@otakers, - ) - %> - - <% include( '/elements/tr-select-agent.html', - 'curr_value' => scalar( $cgi->param('agentnum') ), - 'label' => 'for agent: ', - ) - %> - - <% include( '/elements/tr-input-beginning_ending.html' ) %> - - <% include( '/elements/tr-input-lessthan_greaterthan.html', - 'label' => 'Amount', - 'field' => 'amount', - ) - %> - -
- -
- - -
- -<% include('/elements/footer.html') %> - -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Financial reports'); - -my $sth = dbh->prepare("SELECT DISTINCT otaker FROM cust_credit") - or die dbh->errstr; -$sth->execute or die $sth->errstr; -my @otakers = map { $_->[0] } @{$sth->fetchall_arrayref}; - - diff --git a/httemplate/search/report_cust_event.html b/httemplate/search/report_cust_event.html deleted file mode 100644 index c1f9edb2b..000000000 --- a/httemplate/search/report_cust_event.html +++ /dev/null @@ -1,65 +0,0 @@ -<% include( - '/elements/header.html', - ( $cgi->param('failed') ? 'Failed billing events' : 'Billing events' ), - ) -%> - -
- - - - <% include( '/elements/tr-select-agent.html' ) %> - - - <% include( '/elements/tr-input-beginning_ending.html' ) %> - - -
-
-
- -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Billing event reports'); - - diff --git a/httemplate/search/report_cust_main-zip.html b/httemplate/search/report_cust_main-zip.html deleted file mode 100644 index 19b7ecc91..000000000 --- a/httemplate/search/report_cust_main-zip.html +++ /dev/null @@ -1,52 +0,0 @@ -<% include('/elements/header.html', 'Zip code report') %> - -
- - - - - - - - - - - - - - - - - - - <% include( '/elements/tr-select-agent.html', - 'curr_value' => scalar( $cgi->param('agentnum') ), - 'label' => 'For agent: ', - ) - %> - -
Billing or service zip - -
Ignore +4 for US zip codes
Show customers with status: - -
-
-
- -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('List zip codes'); - - diff --git a/httemplate/search/report_cust_main.html b/httemplate/search/report_cust_main.html deleted file mode 100755 index 758c26923..000000000 --- a/httemplate/search/report_cust_main.html +++ /dev/null @@ -1,82 +0,0 @@ -<% include('/elements/header.html', 'Customer Report' ) %> - -
- - - - - - - - <% include( '/elements/tr-select-agent.html', - ($cgi->param('agentnum') || ''), - ) - %> - -% foreach my $field (qw( signupdate )) { - - - - - - -% } - - <% include( '/elements/tr-select-payby.html', - 'payby_type' => 'cust', - 'multiple' => 1, - 'curr_value' => { map { $_ => 1 } FS::payby->cust_payby }, - ) - %> - - <% include( '/elements/tr-input-lessthan_greaterthan.html', - label => 'Current balance', - field => 'current_balance', - ) - %> - - - - - - - - - - <% include( '/elements/tr-select-cust-fields.html' ) %> - - - - - -
Search options
<% $label{$field} %> - - <% include( '/elements/tr-input-beginning_ending.html', - prefix => $field, - layout => 'horiz', - ) - %> -
-
Include cancelled packages
Display options
Add package columns
- -
- - -
- -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless ( $FS::CurrentUser::CurrentUser->access_right('List customers') && - $FS::CurrentUser::CurrentUser->access_right('List packages') - );; - - -<%once> - -my %label = ( - 'signupdate' => 'Signup date', -); - - diff --git a/httemplate/search/report_cust_pay.html b/httemplate/search/report_cust_pay.html deleted file mode 100644 index d7cb0aec9..000000000 --- a/httemplate/search/report_cust_pay.html +++ /dev/null @@ -1,78 +0,0 @@ -<% include('/elements/header.html', 'Payment report' ) %> - -
- - - - - - - - - - - - - - - - - <% include( '/elements/tr-select-agent.html', - 'curr_value' => scalar($cgi->param('agentnum')), - 'label' => 'for agent: ', - ) - %> - - <% include( '/elements/tr-input-beginning_ending.html' ) %> - - <% include( '/elements/tr-input-lessthan_greaterthan.html', - 'label' => 'Amount', - 'field' => 'paid', - ) - %> - -
Payments of type: - -
Check #: - -
- -
- - -
- -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Financial reports'); - - diff --git a/httemplate/search/report_cust_pay_batch.html b/httemplate/search/report_cust_pay_batch.html deleted file mode 100644 index 0cd656c49..000000000 --- a/httemplate/search/report_cust_pay_batch.html +++ /dev/null @@ -1,43 +0,0 @@ -<% include('/elements/header.html', 'Batch payment report' ) %> - -
- - - - - - - - - <% include( '/elements/tr-select-agent.html', - 'curr_value' => scalar( $cgi->param('agentnum') ), - 'label' => 'For agent: ', - ) - %> - - <% include( '/elements/tr-input-beginning_ending.html' ) %> - - - - - -
Payments of type: - -
Include approved items
- -
- - -
- -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Financial reports'); - - diff --git a/httemplate/search/report_cust_pkg.html b/httemplate/search/report_cust_pkg.html deleted file mode 100755 index d210446b4..000000000 --- a/httemplate/search/report_cust_pkg.html +++ /dev/null @@ -1,148 +0,0 @@ -<% include('/elements/header.html', 'Package Report' ) %> - -
- - - - - - - - - <% include( '/elements/tr-select-agent.html', - 'curr_value' => scalar( $cgi->param('agentnum') ), - ) - %> - - <% include( '/elements/tr-select-cust_pkg-status.html', - 'onchange' => 'status_changed(this);', - ) - %> - - - - <% include( '/elements/tr-select-pkg_class.html', - 'pre_options' => [ '0' => 'all' ], - 'empty_label' => '(empty class)', - ) - %> - -% foreach my $field (qw( setup last_bill bill adjourn susp expire cancel )) { - - - - - - -% } - - <% include( '/elements/tr-selectmultiple-part_pkg.html' ) %> - - - - - - - - - <% include( '/elements/tr-select-cust-fields.html' ) %> - -
- Search options -
<% $label{$field} %> - - <% include( '/elements/tr-input-beginning_ending.html', - prefix => $field, - layout => 'horiz', - ) - %> -
-

Display options
- -
- - -
- -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('List packages'); - - -<%once> - -my %label = ( - 'setup' => 'Setup', - 'last_bill' => 'Last bill', - 'bill' => 'Next bill', - 'adjourn' => 'Adjourns', - 'susp' => 'Suspended', - 'expire' => 'Expires', - 'cancel' => 'Cancelled', -); - -#false laziness w/cust_pkg.cgi -my %disable = ( - 'all' => {}, - 'one-time charge' => { 'last_bill'=>1, 'bill'=>1, 'adjourn'=>1, 'susp'=>1, 'expire'=>1, 'cancel'=>1, }, - 'active' => { 'susp'=>1, 'cancel'=>1 }, - 'suspended' => { 'cancel' => 1 }, - 'cancelled' => {}, - '' => {}, -); - -#hmm? -my %checkbox = ( - 'setup' => 0, - 'last_bill' => 0, - 'bill' => 0, - 'susp' => 1, - 'expire' => 1, - 'cancel' => 1, -); - - diff --git a/httemplate/search/report_prepaid_income.cgi b/httemplate/search/report_prepaid_income.cgi deleted file mode 100644 index 27dbcbf9f..000000000 --- a/httemplate/search/report_prepaid_income.cgi +++ /dev/null @@ -1,87 +0,0 @@ -<% include("/elements/header.html", 'Prepaid Income (Unearned Revenue) Report') %> - -<% table() %> - - Actual Unearned Revenue - Legacy Unearned Revenue - - - $<% $total %> - - <% $now == $time ? "\$$total_legacy" : 'N/A'%> - - - - -
-Actual unearned revenue is the amount of unearned revenue Freeside has -actually invoiced for packages with longer-than monthly terms. -

-Legacy unearned revenue is the amount of unearned revenue represented by -customer packages. This number may be larger than actual unearned -revenue if you have imported longer-than monthly customer packages from -a previous billing system. - - -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Financial reports'); - -#doesn't yet deal with daily/weekly packages - -#needs to be re-written in sql for efficiency - -my $time = time; - -my $now = $cgi->param('date') && str2time($cgi->param('date')) || $time; -$now =~ /^(\d+)$/ or die "unparsable date?"; -$now = $1; - -my( $total, $total_legacy ) = ( 0, 0 ); - -my @cust_bill_pkg = - grep { $_->cust_pkg && $_->cust_pkg->part_pkg->freq !~ /^([01]|\d+[dw])$/ } - qsearch( 'cust_bill_pkg', { - 'recur' => { op=>'!=', value=>0 }, - 'edate' => { op=>'>', value=>$now }, - }, ); - -my @cust_pkg = - grep { $_->part_pkg->recur != 0 - && $_->part_pkg->freq !~ /^([01]|\d+[dw])$/ - } - qsearch ( 'cust_pkg', { - 'bill' => { op=>'>', value=>$now } - } ); - -foreach my $cust_bill_pkg ( @cust_bill_pkg) { - my $period = $cust_bill_pkg->edate - $cust_bill_pkg->sdate; - - my $elapsed = $now - $cust_bill_pkg->sdate; - $elapsed = 0 if $elapsed < 0; - - my $remaining = 1 - $elapsed/$period; - - my $unearned = $remaining * $cust_bill_pkg->recur; - $total += $unearned; - -} - -foreach my $cust_pkg ( @cust_pkg ) { - my $period = $cust_pkg->bill - $cust_pkg->last_bill; - - my $elapsed = $now - $cust_pkg->last_bill; - $elapsed = 0 if $elapsed < 0; - - my $remaining = 1 - $elapsed/$period; - - my $unearned = $remaining * $cust_pkg->part_pkg->recur; #!! only works for flat/legacy - $total_legacy += $unearned; - -} - -$total = sprintf('%.2f', $total); -$total_legacy = sprintf('%.2f', $total_legacy); - - diff --git a/httemplate/search/report_prepaid_income.html b/httemplate/search/report_prepaid_income.html deleted file mode 100644 index 81adb64ad..000000000 --- a/httemplate/search/report_prepaid_income.html +++ /dev/null @@ -1,43 +0,0 @@ -<% include('/elements/header.html', 'Prepaid Income (Unearned Revenue) Report', - '', - '', - ' - - - - ' -) %> - -
- - - - - - - - - -
Prepaid income (unearned revenue) as of - - -
- m/d/y
- - - - -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Financial reports'); - - diff --git a/httemplate/search/report_receivables.cgi b/httemplate/search/report_receivables.cgi deleted file mode 100755 index 06aea193a..000000000 --- a/httemplate/search/report_receivables.cgi +++ /dev/null @@ -1,187 +0,0 @@ -<% include( 'elements/search.html', - 'title' => 'Accounts Receivable Aging Summary', - 'name' => 'customers', - 'query' => $sql_query, - 'count_query' => $count_sql, - 'header' => [ - FS::UI::Web::cust_header(), - '0-30', - '30-60', - '60-90', - '90+', - 'Total', - ], - 'footer' => [ - 'Total', - ( map '', - ( 1 .. - scalar(FS::UI::Web::cust_header()-1) - ) - ), - sprintf( $money_char.'%.2f', - $row->{'balance_0_30'} ), - sprintf( $money_char.'%.2f', - $row->{'balance_30_60'} ), - sprintf( $money_char.'%.2f', - $row->{'balance_60_90'} ), - sprintf( $money_char.'%.2f', - $row->{'balance_90_0'} ), - sprintf( ''. $money_char.'%.2f'. '', - $row->{'balance_0_0'} ), - ], - 'fields' => [ - \&FS::UI::Web::cust_fields, - format_balance('0_30'), - format_balance('30_60'), - format_balance('60_90'), - format_balance('90_0'), - format_balance('0_0'), - ], - 'links' => [ - ( map { $_ ne 'Cust. Status' ? $clink : '' } - FS::UI::Web::cust_header() - ), - '', - '', - '', - '', - '', - ], - #'align' => 'rlccrrrrr', - 'align' => FS::UI::Web::cust_aligns(). 'rrrrr', - #'size' => [ '', '', '-1', '-1', '', '', '', '', '', ], - #'style' => [ '', '', 'b', 'b', '', '', '', '', 'b', ], - 'size' => [ ( map '', FS::UI::Web::cust_header() ), - #'-1', '', '', '', '', '', ], - '', '', '', '', '', ], - 'style' => [ FS::UI::Web::cust_styles(), - #'b', '', '', '', '', 'b', ], - '', '', '', '', 'b', ], - 'color' => [ - FS::UI::Web::cust_colors(), - '', - '', - '', - '', - '', - ], - - ) -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Financial reports'); - -my @ranges = ( - [ 0, 30 ], - [ 30, 60 ], - [ 60, 90 ], - [ 90, 0 ], - [ 0, 0 ], -); - -my $owed_cols = join(',', map balance( @$_ ), @ranges ); - -my $select_count_pkgs = FS::cust_main->select_count_pkgs_sql; - -my $active_sql = FS::cust_pkg->active_sql; -my $inactive_sql = FS::cust_pkg->inactive_sql; -my $suspended_sql = FS::cust_pkg->suspended_sql; -my $cancelled_sql = FS::cust_pkg->cancelled_sql; - -my $packages_cols = <param('all_customers') ) { - - my $days = 0; - if ( $cgi->param('days') =~ /^\s*(\d+)\s*$/ ) { - $days = $1; - } - - push @where, balance($days, 0, 'no_as'=>1). " > 0"; - -} - -if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) { - my $agentnum = $1; - push @where, "agentnum = $agentnum"; -} - -#here is the agent virtualization -push @where, $FS::CurrentUser::CurrentUser->agentnums_sql; - -my $where = join(' AND ', @where); -$where = "WHERE $where" if $where; - -my $count_sql = "select count(*) from cust_main $where"; - -my $sql_query = { - 'table' => 'cust_main', - 'hashref' => {}, - 'select' => "*, $owed_cols, $packages_cols", - 'extra_sql' => $where, - 'order_by' => "order by coalesce(lower(company), ''), lower(last)", -}; - -my $join = 'LEFT JOIN cust_main USING ( custnum )'; - -my $total_sql = "SELECT ". - join(',', map balance( @$_, total=>1, join=>$join, where=>\@where ), @ranges); - -my $total_sth = dbh->prepare($total_sql) or die dbh->errstr; -$total_sth->execute or die "error executing $total_sql: ". $total_sth->errstr; -my $row = $total_sth->fetchrow_hashref(); - -my $clink = [ "${p}view/cust_main.cgi?", 'custnum' ]; - - -<%once> - -my $conf = new FS::Conf; - -my $money_char = $conf->config('money_char') || '$'; - -#Example: -# -# my $balance = balance( -# $start, $end, -# 'no_as' => 1, #set to true when using in a WHERE clause (supress AS clause) -# #or 0 / omit when using in a SELECT clause as a column -# # ("AS balance_$start_$end") -# #options for totals -# 'total' => 1, #set to true to remove all customer comparison clauses -# 'join' => $join, #JOIN clause -# 'where' => \@where, #WHERE clause hashref (elements "AND"ed together) -# ) - -sub balance { - my($start, $end, %opt) = @_; - - my $as = $opt{'no_as'} ? '' : " AS balance_${start}_$end"; - - #handle start and end ranges (86400 = 24h * 60m * 60s) - my $str2time = str2time_sql; - $start = $start ? "( $str2time now() ) - ".($start * 86400). ' )' : ''; - $end = $end ? "( $str2time now() ) - ".($end * 86400). ' )' : ''; - - $opt{'unapplied_date'} = 1; - - FS::cust_main->balance_date_sql( $start, $end, %opt ). $as; - -} - -sub format_balance { #closures help alot - my $range = shift; - sub { sprintf( $money_char.'%.2f', shift->get("balance_$range") ) }; -} - - diff --git a/httemplate/search/report_receivables.html b/httemplate/search/report_receivables.html deleted file mode 100755 index 8040e57e6..000000000 --- a/httemplate/search/report_receivables.html +++ /dev/null @@ -1,35 +0,0 @@ -<% include('/elements/header.html', 'Accounts Receivable Aging Summary' ) %> - - - - - - - - - - <% include( '/elements/tr-select-agent.html' ) %> - - - - - - -
- Search options -
Customers - All customers (even those without an outstanding balance)
- Customers with a balance over days old -
- -
- - -<% include('/elements/footer.html') %> - -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Financial reports'); - - diff --git a/httemplate/search/report_rt_transaction.html b/httemplate/search/report_rt_transaction.html deleted file mode 100644 index 89629e843..000000000 --- a/httemplate/search/report_rt_transaction.html +++ /dev/null @@ -1,22 +0,0 @@ -<% include('/elements/header.html', 'Time worked report criteria' ) %> - -
- - - - <% include ( '/elements/tr-input-beginning_ending.html' ) %> - - <% include ( '/elements/tr-select-otaker.html' ) %> - -
- -
- - -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('List rating data'); - - diff --git a/httemplate/search/report_svc_acct.html b/httemplate/search/report_svc_acct.html deleted file mode 100755 index f5a0ff903..000000000 --- a/httemplate/search/report_svc_acct.html +++ /dev/null @@ -1,91 +0,0 @@ -<% include('/elements/header.html', 'Account Report' ) %> - - - - - - - - - - <% include( '/elements/tr-select-agent.html', - ($cgi->param('agentnum') || ''), - ) - %> - - -% foreach my $field (qw( last_login last_logout )) { -% my $invert = $field."_invert"; - - - - - - -% } - - <% include( '/elements/tr-selectmultiple-part_pkg.html' ) %> - - - - - <% include( '/elements/tr-select-cust-fields.html' ) %> - -
Search options
- - - - - -
"> - <% $label{$field} %> - - - Invert -
- - - <% include( '/elements/tr-input-beginning_ending.html', - prefix => $field, - layout => 'horiz', - ) - %> -
-
Display options
- -
- - -
- -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('List packages'); - - -<%once> - -my %label = ( - 'last_login' => 'Last login', - 'last_logout' => 'Last logout', -); - - diff --git a/httemplate/search/report_tax.cgi b/httemplate/search/report_tax.cgi deleted file mode 100755 index b029ec074..000000000 --- a/httemplate/search/report_tax.cgi +++ /dev/null @@ -1,582 +0,0 @@ -<% include("/elements/header.html", "$agentname Sales Tax Report - ". - ( $beginning - ? time2str('%h %o %Y ', $beginning ) - : '' - ). - 'through '. - ( $ending == 4294967295 - ? 'now' - : time2str('%h %o %Y', $ending ) - ) - ) -%> - -<% include('/elements/table-grid.html') %> - - - - Sales - - Rate - - Tax owed -% unless ( $cgi->param('show_taxclasses') ) { - - Tax invoiced -% } - - - - Total - - Non-taxable
(tax-exempt customer) - - Non-taxable
(tax-exempt package) - - Non-taxable
(monthly exemption) - - Taxable - -% my $bgcolor1 = '#eeeeee'; -% my $bgcolor2 = '#ffffff'; -% my $bgcolor; -% -% foreach my $region ( @regions ) { -% -% if ( $bgcolor eq $bgcolor1 ) { -% $bgcolor = $bgcolor2; -% } else { -% $bgcolor = $bgcolor1; -% } -% -% my $link = ''; -% if ( $region->{'label'} ne 'Total' ) { -% if ( $region->{'label'} eq $out ) { -% $link = ';out=1'; -% } else { -% $link = ';'. $region->{'url_param'}; -% } -% } -% -% -% -% -% - - - - <% $region->{'label'} %> - - <% $money_char %><% sprintf('%.2f', $region->{'total'} ) %> - - - - - <% $money_char %><% sprintf('%.2f', $region->{'exempt_cust'} ) %> - - - - - <% $money_char %><% sprintf('%.2f', $region->{'exempt_pkg'} ) %> - - - - - <% $money_char %><% sprintf('%.2f', $region->{'exempt_monthly'} ) %> - - = - - <% $money_char %><% sprintf('%.2f', $region->{'taxable'} ) %> - - <% $region->{'label'} eq 'Total' ? '' : ' X ' %> - <% $region->{'rate'} %> - <% $region->{'label'} eq 'Total' ? '' : ' = ' %> - - <% $money_char %><% sprintf('%.2f', $region->{'owed'} ) %> - -% unless ( $cgi->param('show_taxclasses') ) { - - - <% $money_char %><% sprintf('%.2f', $region->{'tax'} ) %> - -% } - - -% } - - - -% if ( $cgi->param('show_taxclasses') ) { - - -
- <% include('/elements/table-grid.html') %> - - - Tax invoiced - -% #some false laziness w/above -% $bgcolor1 = '#eeeeee'; -% $bgcolor2 = '#ffffff'; -% foreach my $region ( @base_regions ) { -% -% if ( $bgcolor eq $bgcolor1 ) { -% $bgcolor = $bgcolor2; -% } else { -% $bgcolor = $bgcolor1; -% } -% -% my $link = ''; -% #if ( $region->{'label'} ne 'Total' ) { -% if ( $region->{'label'} eq $out ) { -% $link = ';out=1'; -% } else { -% $link = ';'. $region->{'url_param'}; -% } -% #} -% - - - - <% $region->{'label'} %> - - <% $money_char %><% sprintf('%.2f', $region->{'tax'} ) %> - - -% } -% -% if ( $bgcolor eq $bgcolor1 ) { -% $bgcolor = $bgcolor2; -% } else { -% $bgcolor = $bgcolor1; -% } -% - - - - Total - - <% $money_char %><% sprintf('%.2f', $tax ) %> - - - - -% } - - - - -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Financial reports'); - -my $conf = new FS::Conf; -my $money_char = $conf->config('money_char') || '$'; - -my $user = getotaker; - -my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi); - -my $join_cust = " - JOIN cust_bill USING ( invnum ) - LEFT JOIN cust_main USING ( custnum ) -"; -my $from_join_cust = " - FROM cust_bill_pkg - $join_cust -"; -my $join_pkg = " - LEFT JOIN cust_pkg USING ( pkgnum ) - LEFT JOIN part_pkg USING ( pkgpart ) -"; - -my $where = "WHERE _date >= $beginning AND _date <= $ending "; -my @base_param = qw( county county state state country ); -if ( $conf->exists('tax-ship_address') ) { - - $where .= " - AND ( ( ( ship_last IS NULL OR ship_last = '' ) - AND ( county = ? OR ? = '' ) - AND ( state = ? OR ? = '' ) - AND country = ? - ) - OR ( ship_last IS NOT NULL AND ship_last != '' - AND ( ship_county = ? OR ? = '' ) - AND ( ship_state = ? OR ? = '' ) - AND ship_country = ? - ) - ) - "; - # AND payby != 'COMP' - - push @base_param, @base_param; - -} else { - - $where .= " - AND ( county = ? OR ? = '' ) - AND ( state = ? OR ? = '' ) - AND country = ? - "; - # AND payby != 'COMP' - -} - -my $agentname = ''; -if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) { - my $agent = qsearchs('agent', { 'agentnum' => $1 } ); - die "agent not found" unless $agent; - $agentname = $agent->agent; - $where .= ' AND cust_main.agentnum = '. $agent->agentnum; -} - -my $gotcust = " - WHERE 0 < ( SELECT COUNT(*) FROM cust_main -"; -if ( $conf->exists('tax-ship_address') ) { - - $gotcust .= " - WHERE - - ( cust_main_county.country = cust_main.country - OR cust_main_county.country = cust_main.ship_country - ) - - AND - - ( - - ( ( ship_last IS NULL OR ship_last = '' ) - AND ( cust_main_county.country = cust_main.country ) - AND ( cust_main_county.state = cust_main.state - OR cust_main_county.state = '' - OR cust_main_county.state IS NULL ) - AND ( cust_main_county.county = cust_main.county - OR cust_main_county.county = '' - OR cust_main_county.county IS NULL ) - ) - - OR - - ( ship_last IS NOT NULL AND ship_last != '' - AND ( cust_main_county.country = cust_main.ship_country ) - AND ( cust_main_county.state = cust_main.ship_state - OR cust_main_county.state = '' - OR cust_main_county.state IS NULL ) - AND ( cust_main_county.county = cust_main.ship_county - OR cust_main_county.county = '' - OR cust_main_county.county IS NULL ) - ) - - ) - - LIMIT 1 - ) - "; - -} else { - - $gotcust .= " - WHERE ( cust_main.county = cust_main_county.county - OR cust_main_county.county = '' - OR cust_main_county.county IS NULL ) - AND ( cust_main.state = cust_main_county.state - OR cust_main_county.state = '' - OR cust_main_county.state IS NULL ) - AND ( cust_main.country = cust_main_county.country ) - LIMIT 1 - ) - "; - -} - -my($total, $tot_taxable, $owed, $tax) = ( 0, 0, 0, 0, 0 ); -my( $exempt_cust, $exempt_pkg, $exempt_monthly ) = ( 0, 0 ); -my $out = 'Out of taxable region(s)'; -my %regions = (); -foreach my $r (qsearch('cust_main_county', {}, '', $gotcust) ) { - #warn $r->county. ' '. $r->state. ' '. $r->country. "\n"; - - my $label = getlabel($r); - $regions{$label}->{'label'} = $label; - $regions{$label}->{'url_param'} = join(';', map "$_=".$r->$_(), qw( county state country ) ); - - my @param = @base_param; - my $mywhere = $where; - - if ( $r->taxclass ) { - - $mywhere .= " AND taxclass = ? "; - push @param, 'taxclass'; - $regions{$label}->{'url_param'} .= ';taxclass='. $r->taxclass - if $cgi->param('show_taxclasses'); - - } else { - - my $same_query = 'SELECT taxclass FROM cust_main_county '. - ' WHERE taxnum != ? AND country = ?'; - my @same_param = ( 'taxnum', 'country' ); - foreach my $opt_field (qw( state county )) { - if ( $r->$opt_field() ) { - $same_query .= " AND $opt_field = ?"; - push @same_param, $opt_field; - } else { - $same_query .= " AND $opt_field IS NULL"; - } - } - - my @taxclasses = list_sql( $r, \@same_param, $same_query ); - - if ( scalar(@taxclasses) ) { - $mywhere .= ' AND '. join(' AND ', map ' taxclass != ? ', @taxclasses ); - push @param, @taxclasses; - } - - } - - my $fromwhere = $from_join_cust. $join_pkg. $mywhere. " AND payby != 'COMP' "; - -# my $label = getlabel($r); -# $regions{$label}->{'label'} = $label; - - my $nottax = 'pkgnum != 0'; - - ## calculate total for this region - - my $t = scalar_sql($r, \@param, - "SELECT SUM(cust_bill_pkg.setup+cust_bill_pkg.recur) $fromwhere AND $nottax" - ); - $total += $t; - $regions{$label}->{'total'} += $t; - - ## calculate customer-exemption for this region - -## my $taxable = $t; - -# my($taxable, $x_cust) = (0, 0); -# foreach my $e ( grep { $r->get($_.'tax') !~ /^Y/i } -# qw( cust_bill_pkg.setup cust_bill_pkg.recur ) ) { -# $taxable += scalar_sql($r, \@param, -# "SELECT SUM($e) $fromwhere AND $nottax AND ( tax != 'Y' OR tax IS NULL )" -# ); -# -# $x_cust += scalar_sql($r, \@param, -# "SELECT SUM($e) $fromwhere AND $nottax AND tax = 'Y'" -# ); -# } - - my $x_cust = scalar_sql($r, \@param, - "SELECT SUM(cust_bill_pkg.setup+cust_bill_pkg.recur) - $fromwhere AND $nottax AND tax = 'Y' " - ); - - $exempt_cust += $x_cust; - $regions{$label}->{'exempt_cust'} += $x_cust; - - ## calculate package-exemption for this region - - my $x_pkg = scalar_sql($r, \@param, - "SELECT SUM( - ( CASE WHEN part_pkg.setuptax = 'Y' - THEN cust_bill_pkg.setup - ELSE 0 - END - ) - + - ( CASE WHEN part_pkg.recurtax = 'Y' - THEN cust_bill_pkg.recur - ELSE 0 - END - ) - ) - $fromwhere - AND $nottax - AND ( - ( part_pkg.setuptax = 'Y' AND cust_bill_pkg.setup > 0 ) - OR ( part_pkg.recurtax = 'Y' AND cust_bill_pkg.recur > 0 ) - ) - AND ( tax != 'Y' OR tax IS NULL ) - " - ); - $exempt_pkg += $x_pkg; - $regions{$label}->{'exempt_pkg'} += $x_pkg; - - ## calculate monthly exemption (texas tax) for this region - - # count up all the cust_tax_exempt_pkg records associated with - # the actual line items. - - my $x_monthly = scalar_sql($r, \@param, - "SELECT SUM(amount) - FROM cust_tax_exempt_pkg - JOIN cust_bill_pkg USING ( billpkgnum ) - $join_cust $join_pkg - $mywhere" - ); -# if ( $x_monthly ) { -# #warn $r->taxnum(). ": $x_monthly\n"; -# $taxable -= $x_monthly; -# } - - $exempt_monthly += $x_monthly; - $regions{$label}->{'exempt_monthly'} += $x_monthly; - - my $taxable = $t - $x_cust - $x_pkg - $x_monthly; - - $tot_taxable += $taxable; - $regions{$label}->{'taxable'} += $taxable; - - $owed += $taxable * ($r->tax/100); - $regions{$label}->{'owed'} += $taxable * ($r->tax/100); - - if ( defined($regions{$label}->{'rate'}) - && $regions{$label}->{'rate'} != $r->tax.'%' ) { - $regions{$label}->{'rate'} = 'variable'; - } else { - $regions{$label}->{'rate'} = $r->tax.'%'; - } - -} - -my $taxwhere = "$from_join_cust $where AND payby != 'COMP' "; -my @taxparam = @base_param; -my %base_regions = (); -#foreach my $label ( keys %regions ) { -foreach my $r ( - qsearch( 'cust_main_county', - {}, - "DISTINCT - country, - state, - county, - CASE WHEN taxname IS NULL THEN '' ELSE taxname END AS taxname,". - - #a little bit unsure of this part... test? - #ah, it looks like it winds up being irrelevant as ->{'tax'} - # from $regions is not displayed when show_taxclasses is on - ( $cgi->param('show_taxclasses') - ? " CASE WHEN taxclass IS NULL THEN '' ELSE taxclass END " - : " '' " - )." AS taxclass" - , - $gotcust - ) -) { - - #warn join('-', map { $r->$_() } qw( country state county taxname ) )."\n"; - - my $label = getlabel($r); - - #my $fromwhere = $join_pkg. $where. " AND payby != 'COMP' "; - #my @param = @base_param; - - #match itemdesc if necessary! - my $named_tax = - $r->taxname - ? 'AND itemdesc = '. dbh->quote($r->taxname) - : "AND ( itemdesc IS NULL OR itemdesc = '' OR itemdesc = 'Tax' )"; - - my $sql = "SELECT SUM(cust_bill_pkg.setup+cust_bill_pkg.recur) ". - " $taxwhere AND pkgnum = 0 $named_tax"; - - my $x = scalar_sql($r, \@taxparam, $sql ); - $tax += $x; - $regions{$label}->{'tax'} += $x; - - if ( $cgi->param('show_taxclasses') ) { - my $base_label = getlabel($r, 'no_taxclass'=>1 ); - $base_regions{$base_label}->{'label'} = $base_label; - $base_regions{$base_label}->{'url_param'} = - join(';', map "$_=".$r->$_(), qw( county state country ) ); - $base_regions{$base_label}->{'tax'} += $x; - } - -} - -#ordering -my @regions = - map $regions{$_}, - sort { ( ($a eq $out) cmp ($b eq $out) ) || ($b cmp $a) } - keys %regions; - -my @base_regions = - map $base_regions{$_}, - sort { ( ($a eq $out) cmp ($b eq $out) ) || ($b cmp $a) } - keys %base_regions; - -push @regions, { - 'label' => 'Total', - 'url_param' => '', - 'total' => $total, - 'exempt_cust' => $exempt_cust, - 'exempt_pkg' => $exempt_pkg, - 'exempt_monthly' => $exempt_monthly, - 'taxable' => $tot_taxable, - 'rate' => '', - 'owed' => $owed, - 'tax' => $tax, -}; - -#-- - -sub getlabel { - my $r = shift; - my %opt = @_; - - my $label; - if ( - $r->tax == 0 - && ! scalar( qsearch('cust_main_county', { 'state' => $r->state, - 'county' => $r->county, - 'country' => $r->country, - 'tax' => { op=>'>', value=>0 }, - } - ) - ) - - ) { - #kludge to avoid "will not stay shared" warning - my $out = 'Out of taxable region(s)'; - $label = $out; - } elsif ( $r->taxname ) { - $label = $r->taxname; -# $regions{$label}->{'taxname'} = $label; -# push @{$regions{$label}->{$_}}, $r->$_() foreach qw( county state country ); - } else { - $label = $r->country; - $label = $r->state.", $label" if $r->state; - $label = $r->county." county, $label" if $r->county; - $label = "$label (". $r->taxclass. ")" - if $r->taxclass - && $cgi->param('show_taxclasses') - && ! $opt{'no_taxclass'}; - #$label = $r->taxname. " ($label)" if $r->taxname; - } - return $label; -} - -#false laziness w/FS::Report::Table::Monthly (sub should probably be moved up -#to FS::Report or FS::Record or who the fuck knows where) -sub scalar_sql { - my( $r, $param, $sql ) = @_; - #warn "$sql\n"; - my $sth = dbh->prepare($sql) or die dbh->errstr; - $sth->execute( map $r->$_(), @$param ) - or die "Unexpected error executing statement $sql: ". $sth->errstr; - $sth->fetchrow_arrayref->[0] || 0; -} - -sub list_sql { - my( $r, $param, $sql ) = @_; - #warn "$sql\n"; - my $sth = dbh->prepare($sql) or die dbh->errstr; - $sth->execute( map $r->$_(), @$param ) - or die "Unexpected error executing statement $sql: ". $sth->errstr; - map $_->[0], @{ $sth->fetchall_arrayref }; -} - -my $dateagentlink = "begin=$beginning;end=$ending"; -$dateagentlink .= ';agentnum='. $cgi->param('agentnum') - if length($agentname); -my $baselink = $p. "search/cust_bill_pkg.cgi?$dateagentlink"; -my $exemptlink = $p. "search/cust_tax_exempt_pkg.cgi?$dateagentlink"; - - diff --git a/httemplate/search/report_tax.html b/httemplate/search/report_tax.html deleted file mode 100755 index 35b290c19..000000000 --- a/httemplate/search/report_tax.html +++ /dev/null @@ -1,42 +0,0 @@ -<% include('/elements/header.html', 'Tax Report' ) %> - -
- - - - <% include( '/elements/tr-select-agent.html' ) %> - - <% include( '/elements/tr-input-beginning_ending.html' ) %> -% my $conf = new FS::Conf; -% if ( $conf->exists('enable_taxclasses') ) { -% - - - - - -% } -% my @pkg_class = qsearch('pkg_class', {}); -% if ( @pkg_class ) { -% - - - - - -% } - - -
Show tax classes
Show package classes
- -
- -
- -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Financial reports'); - - diff --git a/httemplate/search/rt_transaction.html b/httemplate/search/rt_transaction.html deleted file mode 100644 index 651f2896d..000000000 --- a/httemplate/search/rt_transaction.html +++ /dev/null @@ -1,96 +0,0 @@ -<% include('elements/search.html', - 'title' => 'Time worked', - 'name_singular' => 'transaction', - 'query' => $query, - 'count_query' => $count_query, - 'count_addl' => [ $format_seconds_sub, ], - 'header' => [ 'Ticket #', - 'Ticket', - 'Date', - 'Time', - ], - 'fields' => [ 'ticketid', - sub { encode_entities(shift->get('subject')) }, - 'created', - sub { my $seconds = shift->get('transaction_time'); - &{ $format_seconds_sub }( $seconds ); - }, - ], - 'links' => [ - $link, - $link, - '', - '', - ], - ) -%> -<%once> - -my $format_seconds_sub = sub { - my $seconds = shift; - (($seconds < 0) ? '-' : '') . concise(duration($seconds)); -}; - - -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('List rating data'); - -#some amount of false laziness w/timeworked.html... - -my $transactiontime = " - CASE transactions.type when 'Set' - THEN (to_number(newvalue,'999999')-to_number(oldvalue, '999999')) * 60 - ELSE timetaken*60 - END -"; - -my $join = 'JOIN Tickets ON Transactions.ObjectId = Tickets.Id '. - 'JOIN Users ON Transactions.Creator = Users.Id '; - -my $where = " - WHERE objecttype='RT::Ticket' - AND ( ( Transactions.Type = 'Set' - AND Transactions.Field = 'TimeWorked' - AND Transactions.NewValue != Transactions.OldValue ) - OR ( ( Transactions.Type='Create' OR Transactions.Type='Comment' OR Transactions.Type='Correspond' ) - AND Transactions.TimeTaken > 0 - ) - ) -"; -#AND transaction_time != 0 -#AND $wheretimeleft - -my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi); -# TIMESTAMP is Pg-specific... ? -if ( $beginning > 0 ) { - $beginning = "TIMESTAMP '". time2str('%Y-%m-%d %X', $beginning). "'"; - $where .= " AND Transactions.Created >= $beginning "; -} -if ( $ending < 4294967295 ) { - $ending = "TIMESTAMP '". time2str('%Y-%m-%d %X', $ending). "'"; - $where .= " AND Transactions.Created <= $ending "; -} - -if ( $cgi->param('otaker') && $cgi->param('otaker') =~ /^([\w\.\-]+)$/ ) { - $where .= " AND Users.name = '$1' "; -} - -my $query = { - 'select' => "Transactions.*, Tickets.Id AS ticketid, Tickets.Subject, Users.name as otaker, $transactiontime AS transaction_time", - #'table' => 'Transactions', - 'table' => 'transactions', - 'addl_from' => $join. - 'LEFT JOIN acct_rt_transaction '. - ' ON Transactions.Id = acct_rt_transaction.transaction_id', - 'extra_sql' => $where, - 'order by' => 'ORDER BY Created', -}; - -my $count_query = - "SELECT COUNT(*), SUM($transactiontime) FROM Transactions $join $where"; - -my $link = [ "${p}rt/Ticket/Display.html?id=", sub { shift->get('id'); } ]; - - diff --git a/httemplate/search/sql.html b/httemplate/search/sql.html deleted file mode 100644 index df9b8cddb..000000000 --- a/httemplate/search/sql.html +++ /dev/null @@ -1,13 +0,0 @@ -<% include( 'elements/search.html', - 'title' => 'Query Results', - 'name' => 'rows', - 'query' => 'SELECT '. ( $cgi->param('sql') - || errorpage('Empty query') ), - ) -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Raw SQL'); - - diff --git a/httemplate/search/sqlradius.cgi b/httemplate/search/sqlradius.cgi deleted file mode 100644 index 24b17d3b3..000000000 --- a/httemplate/search/sqlradius.cgi +++ /dev/null @@ -1,305 +0,0 @@ -<% include( '/elements/header.html', 'RADIUS Sessions') %> - -% ### -% # and finally, display the thing -% ### -% -% foreach my $part_export ( -% #grep $_->can('usage_sessions'), qsearch( 'part_export' ) -% qsearch( 'part_export', { 'exporttype' => 'sqlradius' } ), -% qsearch( 'part_export', { 'exporttype' => 'sqlradius_withdomain' } ) -% ) { -% %user2svc_acct = (); -% -% my $efields = tie my %efields, 'Tie::IxHash', %fields; -% delete $efields{'framedipaddress'} if $part_export->option('hide_ip'); -% if ( $part_export->option('hide_data') ) { -% delete $efields{$_} foreach qw(acctinputoctets acctoutputoctets); -% } -% if ( $part_export->option('show_called_station') ) { -% $efields->Splice(1, 0, -% 'calledstationid' => { -% 'name' => 'Destination', -% 'attrib' => 'Called-Station-ID', -% 'fmt' => -% sub { length($_[0]) ? shift : ' '; }, -% 'align' => 'left', -% }, -% ); -% } -% -% - - <% $part_export->exporttype %> to <% $part_export->machine %>
- <% include( '/elements/table-grid.html' ) %> -% my $bgcolor1 = '#eeeeee'; -% my $bgcolor2 = '#ffffff'; -% my $bgcolor; - - -% foreach my $field ( keys %efields ) { - - - <% $efields{$field}->{name} %>
- <% $efields{$field}->{attrib} %> - - -% } - - -% foreach my $session ( -% @{ $part_export->usage_sessions( -% $beginning, $ending, $cgi_svc_acct, $ip, $prefix, ) } -% ) { -% if ( $bgcolor eq $bgcolor1 ) { -% $bgcolor = $bgcolor2; -% } else { -% $bgcolor = $bgcolor1; -% } - - -% foreach my $field ( keys %efields ) { -% my $html = &{ $efields{$field}->{fmt} }( $session->{$field}, -% $session, -% $part_export, -% ); -% my $class = ( $html =~ / - <% $html %> - -% } - - -% } - -
-

- -% } - -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('List rating data'); - -### -# parse cgi params -### - -#sort of false laziness w/cust_pay.cgi -my $beginning = ''; -my $ending = ''; -if ( $cgi->param('beginning') - && $cgi->param('beginning') =~ /^([ 0-9\-\/\:\w]{0,54})$/ ) { - $beginning = str2time($1); -} -if ( $cgi->param('ending') - && $cgi->param('ending') =~ /^([ 0-9\-\/\:\w]{0,54})$/ ) { - $ending = str2time($1); # + 86399; -} -if ( $cgi->param('begin') && $cgi->param('begin') =~ /^(\d+)$/ ) { - $beginning = $1; -} -if ( $cgi->param('end') && $cgi->param('end') =~ /^(\d+)$/ ) { - $ending = $1; -} - -my $cgi_svc_acct = ''; -if ( $cgi->param('svcnum') =~ /^(\d+)$/ ) { - $cgi_svc_acct = qsearchs( 'svc_acct', { 'svcnum' => $1 } ); -} elsif ( $cgi->param('username') =~ /^([^@]+)\@([^@]+)$/ ) { - my %search = { 'username' => $1 }; - my $svc_domain = qsearchs('svc_domain', { 'domain' => $2 } ); - if ( $svc_domain ) { - $search{'domsvc'} = $svc_domain->svcnum; - } else { - delete $search{'username'}; - } - $cgi_svc_acct = qsearchs( 'svc_acct', \%search ) - if keys %search; -} elsif ( $cgi->param('username') =~ /^(.+)$/ ) { - $cgi_svc_acct = qsearchs( 'svc_acct', { 'username' => $1 } ); -} - -my $ip = ''; -if ( $cgi->param('ip') =~ /^((\d+\.){3}\d+)$/ ) { - $ip = $1; -} - -my $prefix = $cgi->param('prefix'); -$prefix =~ s/\D//g; -if ( $prefix =~ /^(\d+)$/ ) { - $prefix = $1; - $prefix = "011$prefix" unless $prefix =~ /^1/; -} else { - $prefix = ''; -} - -### -# field formatting subroutines -### - -my %user2svc_acct = (); -my $user_format = sub { - my ( $user, $session, $part_export ) = @_; - - my $svc_acct = ''; - if ( exists $user2svc_acct{$user} ) { - $svc_acct = $user2svc_acct{$user}; - } else { - my %search = (); - if ( $part_export->exporttype eq 'sqlradius_withdomain' ) { - my $domain; - if ( $user =~ /^([^@]+)\@([^@]+)$/ ) { - $search{'username'} = $1; - $domain = $2; - } else { - $search{'username'} = $user; - $domain = $session->{'realm'}; - } - my $svc_domain = qsearchs('svc_domain', { 'domain' => $domain } ); - if ( $svc_domain ) { - $search{'domsvc'} = $svc_domain->svcnum; - } else { - delete $search{'username'}; - } - } elsif ( $part_export->exporttype eq 'sqlradius' ) { - $search{'username'} = $user; - } else { - die 'unknown export type '. $part_export->exporttype. - " for $part_export\n"; - } - if ( keys %search ) { - my @svc_acct = - grep { qsearchs( 'export_svc', { - 'exportnum' => $part_export->exportnum, - 'svcpart' => $_->cust_svc->svcpart, - } ) - } qsearch( 'svc_acct', \%search ); - if ( @svc_acct ) { - warn 'multiple svc_acct records for user $user found; '. - 'using first arbitrarily' - if scalar(@svc_acct) > 1; - $user2svc_acct{$user} = $svc_acct = shift @svc_acct; - } - } - } - - if ( $svc_acct ) { - my $svcnum = $svc_acct->svcnum; - qq($user); - } else { - "$user"; - } - -}; - -my $customer_format = sub { - my( $unused, $session ) = @_; - return ' ' unless exists $user2svc_acct{$session->{'username'}}; - my $svc_acct = $user2svc_acct{$session->{'username'}}; - my $cust_pkg = $svc_acct->cust_svc->cust_pkg; - return ' ' unless $cust_pkg; - my $cust_main = $cust_pkg->cust_main; - - qq!'. - $cust_pkg->cust_main->name. ''; -}; - -my $time_format = sub { - my $time = shift; - return ' ' if $time == 0; - my $pretty = time2str('%T%P %a %b %o %Y', $time ); - $pretty =~ s/ (\d)(st|dn|rd|th)/$1$2/; - $pretty; -}; - -my $duration_format = sub { - my $seconds = shift; - my $hour = int($seconds/3600); - my $min = int( ($seconds%3600) / 60 ); - my $sec = $seconds%60; - ''. - '
'. - ( $hour ? "$hourh" : ' ' ). - ' '. - ( ( $hour || $min ) ? "$minm" : ' ' ). - ' '. - "$secs". - '
'; -}; - -my $octets_format = sub { - my $octets = shift; - my $megs = $octets / 1048576; - sprintf('%.3f megs', $megs); - #my $gigs = $octets / 1073741824 - #sprintf('%.3f gigabytes', $gigs); -}; - -### -# the fields -### - -tie my %fields, 'Tie::IxHash', - 'username' => { - name => 'User', - attrib => 'UserName', - fmt => $user_format, - align => 'left', - }, - 'realm' => { - name => 'Realm', - attrib => 'Realm', - align => 'left', - }, - 'dummy' => { - name => 'Customer', - attrib => '', - fmt => $customer_format, - align => 'left', - }, - 'framedipaddress' => { - name => 'IP Address', - attrib => 'Framed-IP-Address', - fmt => sub { my $ip = shift; - length($ip) ? $ip : ' '; - }, - align => 'right', - }, - 'acctstarttime' => { - name => 'Start time', - attrib => 'Acct-Start-Time', - fmt => $time_format, - align => 'left', - }, - 'acctstoptime' => { - name => 'End time', - attrib => 'Acct-Stop-Time', - fmt => $time_format, - align => 'left', - }, - 'acctsessiontime' => { - name => 'Duration', - attrib => 'Acct-Session-Time', - fmt => $duration_format, - align => 'right', - }, - 'acctinputoctets' => { - name => 'Upload', # (from user)', - attrib => 'Acct-Input-Octets', - fmt => $octets_format, - align => 'right', - }, - 'acctoutputoctets' => { - name => 'Download', # (to user)', - attrib => 'Acct-Output-Octets', - fmt => $octets_format, - align => 'right', - }, -; -$fields{$_}->{fmt} ||= sub { length($_[0]) ? shift : ' '; } - foreach keys %fields; - - diff --git a/httemplate/search/sqlradius.html b/httemplate/search/sqlradius.html deleted file mode 100644 index 660a54f3c..000000000 --- a/httemplate/search/sqlradius.html +++ /dev/null @@ -1,59 +0,0 @@ -<% include( '/elements/header.html', 'Search RADIUS sessions' ) %> - -
-% #include( '/elements/table.html' ) - -<% ntable('#cccccc') %> - - Username: - - - - - (leave blank to show all users) - -% my @part_export = qsearch( 'part_export', { 'exporttype' => 'sqlradius' } ); -% push @part_export, -% qsearch( 'part_export', { 'exporttype' => 'sqlradius_withdomain' } ); -% -% if ( grep { ! $_->option('hide_ip') } @part_export ) { - - - IP address: - - - - - (leave blank to show all IPs) - -% } -% if ( grep { $_->option('show_called_station') } @part_export ) { - - - Destination prefix: - - - - - (country code or country code and prefix) - - - - (leave blank to show all destinations) - -% } - - -<% include( '/elements/tr-input-beginning_ending.html', 'input_time'=>1 ) %> - - -
-
- -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('List rating data'); - - diff --git a/httemplate/search/svc_acct.cgi b/httemplate/search/svc_acct.cgi deleted file mode 100755 index c2b3d8fa0..000000000 --- a/httemplate/search/svc_acct.cgi +++ /dev/null @@ -1,289 +0,0 @@ -<% include( 'elements/search.html', - 'title' => 'Account Search Results', - 'name' => 'accounts', - 'query' => $sql_query, - 'count_query' => $count_query, - 'redirect' => $link, - 'header' => \@header, - 'fields' => \@fields, - 'links' => \@links, - 'align' => $align, - 'color' => \@color, - 'style' => \@style, - ) -%> -<%once> - -#false laziness w/ClientAPI/MyAccount.pm -sub format_time { - my $support = shift; - (($support < 0) ? '-' : '' ). int(abs($support)/3600)."h".sprintf("%02d",(abs($support)%3600)/60)."m"; -} - -sub timelast { - my( $svc_acct, $last, $permonth ) = @_; - - my $sql = " - SELECT SUM(support) FROM acct_rt_transaction - LEFT JOIN Transactions - ON Transactions.Id = acct_rt_transaction.transaction_id - WHERE svcnum = ? - AND Transactions.Created >= ? - "; - - my $sth = dbh->prepare($sql) or die dbh->errstr; - $sth->execute( $svc_acct->svcnum, - time2str('%Y-%m-%d %X', time - $last*86400 ) - ) - or die $sth->errstr; - - my $seconds = $sth->fetchrow_arrayref->[0]; - - my $return = (($seconds < 0) ? '-' : '') . concise(duration($seconds)); - - $return .= sprintf(' (%.2fx)', $seconds / $permonth ) if $permonth; - - $return; - -} - - -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('List services'); - -my $link = [ "${p}view/svc_acct.cgi?", 'svcnum' ]; -my $link_cust = sub { - my $svc_acct = shift; - if ( $svc_acct->custnum ) { - [ "${p}view/cust_main.cgi?", 'custnum' ]; - } else { - ''; - } -}; - -my @extra_sql = (); - -my @header = ( '#', 'Service', 'Account', 'UID', 'Last Login' ); -my @fields = ( 'svcnum', 'svc', 'email', 'uid', 'last_login_text' ); -my @links = ( $link, $link, $link, $link, $link ); -my $align = 'rlllr'; -my @color = ( '', '', '', '', '' ); -my @style = ( '', '', '', '', '' ); - -if ( $cgi->param('domain') ) { - my $svc_domain = - qsearchs('svc_domain', { 'domain' => $cgi->param('domain') } ); - unless ( $svc_domain ) { - #it would be nice if this looked more like the other "not found" - #errors, but this will do for now. - errorpage("Domain ". $cgi->param('domain'). " not found at all"); - } else { - push @extra_sql, 'domsvc = '. $svc_domain->svcnum; - } -} - -my $timepermonth = ''; - -my $orderby = 'ORDER BY svcnum'; -if ( $cgi->param('magic') =~ /^(all|unlinked)$/ ) { - - push @extra_sql, 'pkgnum IS NULL' - if $cgi->param('magic') eq 'unlinked'; - - my $sortby = ''; - if ( $cgi->param('sortby') =~ /^(\w+)$/ ) { - $sortby = $1; - $sortby = "LOWER($sortby)" - if $sortby eq 'username'; - push @extra_sql, "$sortby IS NOT NULL" - if $sortby eq 'uid' || $sortby eq 'seconds' || $sortby eq 'last_login'; - $orderby = "ORDER BY $sortby"; - } - - if ( $sortby eq 'seconds' ) { - #push @header, 'Time remaining'; - push @header, 'Time'; - push @fields, sub { my $svc_acct = shift; format_time($svc_acct->seconds) }; - push @links, ''; - $align .= 'r'; - push @color, ''; - push @style, ''; - - my $conf = new FS::Conf; - if ( $conf->exists('svc_acct-display_paid_time_remaining') ) { - push @header, 'Paid time', 'Last 30', 'Last 60', 'Last 90'; - push @fields, - sub { - my $svc_acct = shift; - my $seconds = $svc_acct->seconds; - my $cust_pkg = $svc_acct->cust_svc->cust_pkg; - my $part_pkg = $cust_pkg->part_pkg; - #my $timepermonth = $part_pkg->option('seconds'); - $timepermonth = $part_pkg->option('seconds'); - $timepermonth = $timepermonth / $part_pkg->freq - if $part_pkg->freq =~ /^\d+$/ && $part_pkg->freq != 0; - return format_time($seconds) unless $timepermonth; - #my $recur = $part_pkg->calc_recur($cust_pkg); - my $recur = $part_pkg->base_recur($cust_pkg); - my $balance = $cust_pkg->cust_main->balance; - my $months_unpaid = $balance / $recur; - my $time_unpaid = $months_unpaid * $timepermonth; - format_time($seconds-$time_unpaid). - sprintf(' (%.2fx monthly)', ( $seconds-$time_unpaid ) / $timepermonth ); - }, - sub { timelast( shift, 30, $timepermonth ); }, - sub { timelast( shift, 60, $timepermonth ); }, - sub { timelast( shift, 90, $timepermonth ); }, - ; - push @links, '', '', '', ''; - $align .= 'rrrr'; - push @color, '', '', '', ''; - push @style, '', '', '', ''; - } - - } - -} elsif ( $cgi->param('magic') =~ /^nologin$/ ) { - - if ( $cgi->param('sortby') =~ /^(\w+)$/ ) { - my $sortby = $1; - $sortby = "LOWER($sortby)" - if $sortby eq 'username'; - push @extra_sql, "last_login IS NULL"; - $orderby = "ORDER BY $sortby"; - } - -} elsif ( $cgi->param('magic') =~ /^advanced$/ ) { - $orderby = ""; - - if ( $cgi->param('agentnum') =~ /^(\d+)$/ and $1 ) { - push @extra_sql, "agentnum = $1"; - } - - my $pkgpart = join (' OR cust_pkg.pkgpart=', - grep {$_} map { /^(\d+)$/; } ($cgi->param('pkgpart'))); - push @extra_sql, '(cust_pkg.pkgpart=' . $pkgpart . ')' if $pkgpart; - - foreach my $field (qw( last_login last_logout )) { - - my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi, $field); - - next if $beginning == 0 && $ending == 4294967295; - - if ($cgi->param($field."_invert")) { - push @extra_sql, - "(svc_acct.$field IS NULL OR ". - "svc_acct.$field < $beginning AND ". - "svc_acct.$field > $ending)"; - } else { - push @extra_sql, - "svc_acct.$field IS NOT NULL", - "svc_acct.$field >= $beginning", - "svc_acct.$field <= $ending"; - } - - $orderby ||= "ORDER BY svc_acct.$field" . - ($cgi->param($field."_invert") ? ' DESC' : ''); - - } - - $orderby ||= "ORDER BY svcnum"; - -} elsif ( $cgi->param('popnum') =~ /^(\d+)$/ ) { - push @extra_sql, "popnum = $1"; - $orderby = "ORDER BY LOWER(username)"; -} elsif ( $cgi->param('svcpart') =~ /^(\d+)$/ ) { - push @extra_sql, "svcpart = $1"; - $orderby = "ORDER BY uid"; - #$orderby = "ORDER BY svcnum"; -} else { - $orderby = "ORDER BY uid"; - - my @username_sql; - - my %username_type; - foreach ( $cgi->param('username_type') ) { - $username_type{$_}++; - } - - $cgi->param('username') =~ /^([\w\-\.\&]+)$/; #untaint username_text - my $username = $1; - - push @username_sql, "username ILIKE '$username'" - if $username_type{'Exact'} - || $username_type{'Fuzzy'}; - - push @username_sql, "username ILIKE '\%$username\%'" - if $username_type{'Substring'} - || $username_type{'All'}; - - if ( $username_type{'Fuzzy'} || $username_type{'All'} ) { - &FS::svc_acct::check_and_rebuild_fuzzyfiles; - my $all_username = &FS::svc_acct::all_username; - - my %username; - if ( $username_type{'Fuzzy'} || $username_type{'All'} ) { - foreach ( amatch($username, [ qw(i) ], @$all_username) ) { - $username{$_}++; - } - } - - #if ($username_type{'Sound-alike'}) { - #} - - push @username_sql, "username = '$_'" - foreach (keys %username); - - } - - push @extra_sql, '( '. join( ' OR ', @username_sql). ' )'; - -} - -push @header, FS::UI::Web::cust_header($cgi->param('cust_fields')); -push @fields, \&FS::UI::Web::cust_fields, -push @links, map { $_ ne 'Cust. Status' ? $link_cust : '' } - FS::UI::Web::cust_header($cgi->param('cust_fields')); -$align .= FS::UI::Web::cust_aligns(); -push @color, FS::UI::Web::cust_colors(); -push @style, FS::UI::Web::cust_styles(); - -my $addl_from = ' LEFT JOIN cust_svc USING ( svcnum ) '. - ' LEFT JOIN part_svc USING ( svcpart ) '. - ' LEFT JOIN cust_pkg USING ( pkgnum ) '. - ' LEFT JOIN cust_main USING ( custnum ) '; - -#here is the agent virtualization -push @extra_sql, $FS::CurrentUser::CurrentUser->agentnums_sql( - 'null_right' => 'View/link unlinked services' - ); - -my $extra_sql = - scalar(@extra_sql) - ? ' WHERE '. join(' AND ', @extra_sql ) - : ''; - -my $count_query = "SELECT COUNT(*) FROM svc_acct $addl_from $extra_sql"; -#if ( keys %svc_acct ) { -# $count_query .= ' WHERE '. -# join(' AND ', map "$_ = ". dbh->quote($svc_acct{$_}), -# keys %svc_acct -# ); -#} - -my $sql_query = { - 'table' => 'svc_acct', - 'hashref' => {}, # \%svc_acct, - 'select' => join(', ', - 'svc_acct.*', - 'part_svc.svc', - 'cust_main.custnum', - FS::UI::Web::cust_sql_fields(), - ), - 'extra_sql' => "$extra_sql $orderby", - 'addl_from' => $addl_from, -}; - - diff --git a/httemplate/search/svc_broadband.cgi b/httemplate/search/svc_broadband.cgi deleted file mode 100755 index 2cb0c1eb3..000000000 --- a/httemplate/search/svc_broadband.cgi +++ /dev/null @@ -1,123 +0,0 @@ -<% include( 'elements/search.html', - 'title' => 'Broadband Search Results', - 'name' => 'broadband services', - 'query' => $sql_query, - 'count_query' => $count_query, - 'redirect' => [ popurl(2). "view/svc_broadband.cgi?", 'svcnum' ], - 'header' => [ '#', - 'Service', - 'Router', - 'IP Address', - FS::UI::Web::cust_header(), - ], - 'fields' => [ 'svcnum', - 'svc', - sub { $routerbyblock{shift->blocknum}->routername; }, - 'ip_addr', - \&FS::UI::Web::cust_fields, - ], - 'links' => [ $link, - $link, - $link_router, - $link, - ( map { $_ ne 'Cust. Status' ? $link_cust : '' } - FS::UI::Web::cust_header() - ), - ], - 'align' => 'rllr'. FS::UI::Web::cust_aligns(), - 'color' => [ - '', - '', - '', - '', - FS::UI::Web::cust_colors(), - ], - 'style' => [ - '', - '', - '', - '', - FS::UI::Web::cust_styles(), - ], - ) -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('List services'); - -my $conf = new FS::Conf; - -my $orderby = 'ORDER BY svcnum'; -my %svc_broadband = (); -my @extra_sql = (); -if ( $cgi->param('magic') =~ /^(all|unlinked)$/ ) { - - push @extra_sql, 'pkgnum IS NULL' - if $cgi->param('magic') eq 'unlinked'; - - if ( $cgi->param('sortby') =~ /^(\w+)$/ ) { - my $sortby = $1; - $orderby = "ORDER BY $sortby"; - } - -} elsif ( $cgi->param('svcpart') =~ /^(\d+)$/ ) { - push @extra_sql, "svcpart = $1"; -} elsif ( $cgi->param('ip_addr') =~ /^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/ ) { - push @extra_sql, "ip_addr = '$1'"; -} - -my $addl_from = ' LEFT JOIN cust_svc USING ( svcnum ) '. - ' LEFT JOIN part_svc USING ( svcpart ) '. - ' LEFT JOIN cust_pkg USING ( pkgnum ) '. - ' LEFT JOIN cust_main USING ( custnum ) '; - -push @extra_sql, $FS::CurrentUser::CurrentUser->agentnums_sql( - 'null_right' => 'View/link unlinked services' - ); - -my $extra_sql = ''; -if ( @extra_sql ) { - $extra_sql = ( keys(%svc_broadband) ? ' AND ' : ' WHERE ' ). - join(' AND ', @extra_sql ); -} - -my $count_query = "SELECT COUNT(*) FROM svc_broadband $addl_from "; -#if ( keys %svc_broadband ) { -# $count_query .= ' WHERE '. -# join(' AND ', map "$_ = ". dbh->quote($svc_broadband{$_}), -# keys %svc_broadband -# ); -#} -$count_query .= $extra_sql; - -my $sql_query = { - 'table' => 'svc_broadband', - 'hashref' => {}, #\%svc_broadband, - 'select' => join(', ', - 'svc_broadband.*', - 'part_svc.svc', - 'cust_main.custnum', - FS::UI::Web::cust_sql_fields(), - ), - 'extra_sql' => $extra_sql, - 'addl_from' => $addl_from, -}; - -my %routerbyblock = (); -foreach my $router (qsearch('router', {})) { - foreach ($router->addr_block) { - $routerbyblock{$_->blocknum} = $router; - } -} - -my $link = [ $p.'view/svc_broadband.cgi', 'svcnum' ]; - -#XXX get the router link working -my $link_router = sub { my $routernum = $routerbyblock{shift->blocknum}->routernum; - [ $p.'view/router.cgi?'.$routernum, 'routernum' ]; - }; - -my $link_cust = [ $p.'view/cust_main.cgi', 'custnum' ]; - - diff --git a/httemplate/search/svc_domain.cgi b/httemplate/search/svc_domain.cgi deleted file mode 100755 index 08ffdba5e..000000000 --- a/httemplate/search/svc_domain.cgi +++ /dev/null @@ -1,112 +0,0 @@ -<% include( 'elements/search.html', - 'title' => "Domain Search Results", - 'name' => 'domains', - 'query' => $sql_query, - 'count_query' => $count_query, - 'redirect' => $link, - 'header' => [ '#', - 'Service', - 'Domain', - FS::UI::Web::cust_header(), - ], - 'fields' => [ 'svcnum', - 'svc', - 'domain', - \&FS::UI::Web::cust_fields, - ], - 'links' => [ $link, - $link, - $link, - ( map { $_ ne 'Cust. Status' ? $link_cust : '' } - FS::UI::Web::cust_header() - ), - ], - 'align' => 'rll'. FS::UI::Web::cust_aligns(), - 'color' => [ - '', - '', - '', - FS::UI::Web::cust_colors(), - ], - 'style' => [ - '', - '', - '', - FS::UI::Web::cust_styles(), - ], - ) -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('List services'); - -my $conf = new FS::Conf; - -my $orderby = 'ORDER BY svcnum'; -my %svc_domain = (); -my @extra_sql = (); -if ( $cgi->param('magic') =~ /^(all|unlinked)$/ ) { - - push @extra_sql, 'pkgnum IS NULL' - if $cgi->param('magic') eq 'unlinked'; - - if ( $cgi->param('sortby') =~ /^(\w+)$/ ) { - my $sortby = $1; - $orderby = "ORDER BY $sortby"; - } - -} elsif ( $cgi->param('svcpart') =~ /^(\d+)$/ ) { - push @extra_sql, "svcpart = $1"; -} else { - $cgi->param('domain') =~ /^([\w\-\.]+)$/; - $svc_domain{'domain'} = $1; -} - -my $addl_from = ' LEFT JOIN cust_svc USING ( svcnum ) '. - ' LEFT JOIN part_svc USING ( svcpart ) '. - ' LEFT JOIN cust_pkg USING ( pkgnum ) '. - ' LEFT JOIN cust_main USING ( custnum ) '; - -#here is the agent virtualization -push @extra_sql, $FS::CurrentUser::CurrentUser->agentnums_sql( - 'null_right' => 'View/link unlinked services' - ); - -my $extra_sql = ''; -if ( @extra_sql ) { - $extra_sql = ( keys(%svc_domain) ? ' AND ' : ' WHERE ' ). - join(' AND ', @extra_sql ); -} - -my $count_query = "SELECT COUNT(*) FROM svc_domain $addl_from "; -if ( keys %svc_domain ) { - $count_query .= ' WHERE '. - join(' AND ', map "$_ = ". dbh->quote($svc_domain{$_}), - keys %svc_domain - ); -} -$count_query .= $extra_sql; - -my $sql_query = { - 'table' => 'svc_domain', - 'hashref' => \%svc_domain, - 'select' => join(', ', - 'svc_domain.*', - 'part_svc.svc', - 'cust_main.custnum', - FS::UI::Web::cust_sql_fields(), - ), - 'extra_sql' => "$extra_sql $orderby", - 'addl_from' => $addl_from, -}; - -my $link = [ "${p}view/svc_domain.cgi?", 'svcnum' ]; - -#smaller false laziness w/svc_*.cgi here -my $link_cust = sub { - my $svc_x = shift; - $svc_x->custnum ? [ "${p}view/cust_main.cgi?", 'custnum' ] : ''; -}; - - diff --git a/httemplate/search/svc_external.cgi b/httemplate/search/svc_external.cgi deleted file mode 100755 index 2710d75bc..000000000 --- a/httemplate/search/svc_external.cgi +++ /dev/null @@ -1,153 +0,0 @@ -%die "access denied" -% unless $FS::CurrentUser::CurrentUser->access_right('List services'); -% -%my $conf = new FS::Conf; -% -%my @svc_external = (); -%my @h_svc_external = (); -%my $sortby=\*svcnum_sort; -%if ( $cgi->param('magic') =~ /^(all|unlinked)$/ ) { -% -% @svc_external=qsearch('svc_external',{}); -% -% if ( $cgi->param('magic') eq 'unlinked' ) { -% @svc_external = grep { qsearchs('cust_svc', { -% 'svcnum' => $_->svcnum, -% 'pkgnum' => '', -% } -% ) -% } -% @svc_external; -% } -% -% if ( $cgi->param('sortby') =~ /^(\w+)$/ ) { -% my $sortby = $1; -% if ( $sortby eq 'id' ) { -% $sortby = \*id_sort; -% } -% } -% -%} elsif ( $cgi->param('svcpart') =~ /^(\d+)$/ ) { -% -% @svc_external = -% qsearch( 'svc_external', {}, '', -% " WHERE $1 = ( SELECT svcpart FROM cust_svc ". -% " WHERE cust_svc.svcnum = svc_external.svcnum ) " -% ); -% -%} elsif ( $cgi->param('title') =~ /^(.*)$/ ) { -% $sortby=\*id_sort; -% @svc_external=qsearch('svc_external',{ title => $1 }); -% if( $cgi->param('history') == 1 ) { -% @h_svc_external=qsearch('h_svc_external',{ title => $1 }); -% } -%} elsif ( $cgi->param('id') =~ /^([\w\-\.]+)$/ ) { -% my $id = $1; -% @svc_external = qsearchs('svc_external',{'id'=>$id}); -%} -% -%if ( scalar(@svc_external) == 1 ) { -% -% -<% $cgi->redirect(popurl(2). "view/svc_external.cgi?". $svc_external[0]->svcnum) %> -% -% -%} elsif ( scalar(@svc_external) == 0 ) { -% -% -<% include('/elements/header.html', 'External Search Results' ) %> - - No matching external services found -% } else { -% -% -<% include('/elements/header.html', 'External Search Results', '') %> - - <% scalar(@svc_external) %> matching external services found - - - - - - -% -% foreach my $svc_external ( -% sort $sortby (@svc_external) -% ) { -% my($svcnum, $id, $title)=( -% $svc_external->svcnum, -% $svc_external->id, -% $svc_external->title, -% ); -% -% my $rowspan = 1; -% -% print < -% -% -% -%END -% -% #print @rows; -% print ""; -% -% } -% if( scalar(@h_svc_external) > 0 ) { -% print < -%
Service # <% FS::Msgcat::_gettext('svc_external-id') || 'External ID' %> <% FS::Msgcat::_gettext('svc_external-title') || 'Title' %>
$svcnum $id $title
-% -% -% -% -% -% -%HTML -% -% foreach my $h_svc ( @h_svc_external ) { -% my($svcnum, $id, $title, $user, $date)=( -% $h_svc->svcnum, -% $h_svc->id, -% $h_svc->title, -% $h_svc->history_user, -% $h_svc->history_date, -% ); -% my $rowspan = 1; -% my ($h_cust_svc) = qsearchs( 'h_cust_svc', { -% svcnum => $svcnum, -% }); -% my $cust_pkg = qsearchs( 'cust_pkg', { -% pkgnum => $h_cust_svc->pkgnum, -% }); -% my $custnum = $cust_pkg->custnum; -% -% print < -% -% -% -% -% -%END -% } -% } -% -% print < -% -% -%END -% -%} -% -%sub svcnum_sort { -% $a->getfield('svcnum') <=> $b->getfield('svcnum'); -%} -% -%sub id_sort { -% $a->getfield('id') <=> $b->getfield('id'); -%} -% -% - diff --git a/httemplate/search/svc_forward.cgi b/httemplate/search/svc_forward.cgi deleted file mode 100755 index 2bcd0c8c8..000000000 --- a/httemplate/search/svc_forward.cgi +++ /dev/null @@ -1,146 +0,0 @@ -<% include( 'elements/search.html', - 'title' => "Mail forward Search Results", - 'name' => 'mail forwards', - 'query' => $sql_query, - 'count_query' => $count_query, - 'redirect' => $link, - 'header' => [ '#', - 'Service', - 'Mail to', - 'Forwards to', - FS::UI::Web::cust_header(), - ], - 'fields' => [ 'svcnum', - 'svc', - $format_src, - $format_dst, - \&FS::UI::Web::cust_fields, - ], - 'links' => [ $link, - $link, - $link_src, - $link_dst, - ( map { $_ ne 'Cust. Status' ? $link_cust : '' } - FS::UI::Web::cust_header() - ), - ], - 'align' => 'rlll'. FS::UI::Web::cust_aligns(), - 'color' => [ - '', - '', - '', - '', - FS::UI::Web::cust_colors(), - ], - 'style' => [ - '', - '', - '', - '', - FS::UI::Web::cust_styles(), - ], - ) -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('List services'); - -my $conf = new FS::Conf; - -my $orderby = 'ORDER BY svcnum'; -my @extra_sql = (); -if ( $cgi->param('magic') =~ /^(all|unlinked)$/ ) { - - push @extra_sql, 'pkgnum IS NULL' - if $cgi->param('magic') eq 'unlinked'; - - if ( $cgi->param('sortby') =~ /^(\w+)$/ ) { - my $sortby = $1; - $orderby = "ORDER BY $sortby"; - } - -} elsif ( $cgi->param('svcpart') =~ /^(\d+)$/ ) { - push @extra_sql, "svcpart = $1"; -} - -my $addl_from = ' LEFT JOIN cust_svc USING ( svcnum ) '. - ' LEFT JOIN part_svc USING ( svcpart ) '. - ' LEFT JOIN cust_pkg USING ( pkgnum ) '. - ' LEFT JOIN cust_main USING ( custnum ) '; - -#here is the agent virtualization -push @extra_sql, $FS::CurrentUser::CurrentUser->agentnums_sql( - 'null_right' => 'View/link unlinked services' - ); - -my $extra_sql = - scalar(@extra_sql) - ? ' WHERE '. join(' AND ', @extra_sql ) - : ''; - -my $count_query = "SELECT COUNT(*) FROM svc_forward $addl_from $extra_sql"; -my $sql_query = { - 'table' => 'svc_forward', - 'hashref' => {}, - 'select' => join(', ', - 'svc_forward.*', - 'part_svc.svc', - 'cust_main.custnum', - FS::UI::Web::cust_sql_fields(), - ), - 'extra_sql' => "$extra_sql $orderby", - 'addl_from' => $addl_from, -}; - -# -# -# - -my $link = [ "${p}view/svc_forward.cgi?", 'svcnum' ]; - -my $format_src = sub { - my $svc_forward = shift; - if ( $svc_forward->srcsvc_acct ) { - $svc_forward->srcsvc_acct->email; - } else { - my $src = $svc_forward->src; - $src = "(anything)$src" if $src =~ /^@/; - $src; - } -}; - -my $link_src = sub { - my $svc_forward = shift; - if ( $svc_forward->srcsvc_acct ) { - [ "${p}view/svc_acct.cgi?", 'srcsvc' ]; - } else { - ''; - } -}; - -my $format_dst = sub { - my $svc_forward = shift; - if ( $svc_forward->dstsvc_acct ) { - $svc_forward->dstsvc_acct->email; - } else { - $svc_forward->dst; - } -}; - -my $link_dst = sub { - my $svc_forward = shift; - if ( $svc_forward->dstsvc_acct ) { - [ "${p}view/svc_acct.cgi?", 'dstsvc' ]; - } else { - ''; - } -}; - -#smaller false laziness w/svc_*.cgi here -my $link_cust = sub { - my $svc_x = shift; - $svc_x->custnum ? [ "${p}view/cust_main.cgi?", 'custnum' ] : ''; -}; - - diff --git a/httemplate/search/svc_phone.cgi b/httemplate/search/svc_phone.cgi deleted file mode 100644 index 49340c6c3..000000000 --- a/httemplate/search/svc_phone.cgi +++ /dev/null @@ -1,117 +0,0 @@ -<% include( 'elements/search.html', - 'title' => "Phone number search results", - 'name' => 'phone numbers', - 'query' => $sql_query, - 'count_query' => $count_query, - 'redirect' => $link, - 'header' => [ '#', - 'Service', - 'Country code', - 'Phone number', - FS::UI::Web::cust_header(), - ], - 'fields' => [ 'svcnum', - 'svc', - 'countrycode', - 'phonenum', - \&FS::UI::Web::cust_fields, - ], - 'links' => [ $link, - $link, - $link, - $link, - ( map { $_ ne 'Cust. Status' ? $link_cust : '' } - FS::UI::Web::cust_header() - ), - ], - 'align' => 'rlrr'. FS::UI::Web::cust_aligns(), - 'color' => [ - '', - '', - '', - '', - FS::UI::Web::cust_colors(), - ], - 'style' => [ - '', - '', - '', - '', - FS::UI::Web::cust_styles(), - ], - ) -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('List services'); - -my $conf = new FS::Conf; - -my $orderby = 'ORDER BY svcnum'; -my %svc_phone = (); -my @extra_sql = (); -if ( $cgi->param('magic') =~ /^(all|unlinked)$/ ) { - - push @extra_sql, 'pkgnum IS NULL' - if $cgi->param('magic') eq 'unlinked'; - - if ( $cgi->param('sortby') =~ /^(\w+)$/ ) { - my $sortby = $1; - $orderby = "ORDER BY $sortby"; - } - -} elsif ( $cgi->param('svcpart') =~ /^(\d+)$/ ) { - push @extra_sql, "svcpart = $1"; -} else { - $cgi->param('phonenum') =~ /^([\d\- ]+)$/; - ( $svc_phone{'phonenum'} = $1 ) =~ s/\D//g; -} - -my $addl_from = ' LEFT JOIN cust_svc USING ( svcnum ) '. - ' LEFT JOIN part_svc USING ( svcpart ) '. - ' LEFT JOIN cust_pkg USING ( pkgnum ) '. - ' LEFT JOIN cust_main USING ( custnum ) '; - -#here is the agent virtualization -push @extra_sql, $FS::CurrentUser::CurrentUser->agentnums_sql( - 'null_right' => 'View/link unlinked services' - ); - -my $extra_sql = ''; -if ( @extra_sql ) { - $extra_sql = ( keys(%svc_phone) ? ' AND ' : ' WHERE ' ). - join(' AND ', @extra_sql ); -} - -my $count_query = "SELECT COUNT(*) FROM svc_phone $addl_from "; -if ( keys %svc_phone ) { - $count_query .= ' WHERE '. - join(' AND ', map "$_ = ". dbh->quote($svc_phone{$_}), - keys %svc_phone - ); -} -$count_query .= $extra_sql; - -my $sql_query = { - 'table' => 'svc_phone', - 'hashref' => \%svc_phone, - 'select' => join(', ', - 'svc_phone.*', - 'part_svc.svc', - 'cust_main.custnum', - FS::UI::Web::cust_sql_fields(), - ), - 'extra_sql' => "$extra_sql $orderby", - 'addl_from' => $addl_from, -}; - -my $link = [ "${p}view/svc_phone.cgi?", 'svcnum' ]; - -#smaller false laziness w/svc_*.cgi here -my $link_cust = sub { - my $svc_x = shift; - $svc_x->custnum ? [ "${p}view/cust_main.cgi?", 'custnum' ] : ''; -}; - - diff --git a/httemplate/search/svc_www.cgi b/httemplate/search/svc_www.cgi deleted file mode 100755 index 2e3c4615b..000000000 --- a/httemplate/search/svc_www.cgi +++ /dev/null @@ -1,113 +0,0 @@ -<% include( 'elements/search.html', - 'title' => 'Virtual Host Search Results', - 'name' => 'virtual hosts', - 'query' => $sql_query, - 'count_query' => $count_query, - 'redirect' => $link, - 'header' => [ '#', - 'Service', - 'Zone', - 'User', - FS::UI::Web::cust_header(), - ], - 'fields' => [ 'svcnum', - 'svc', - sub { $_[0]->domain_record->zone }, - sub { - my $svc_www = shift; - my $svc_acct = $svc_www->svc_acct; - $svc_acct - ? $svc_acct->email - : ''; - }, - \&FS::UI::Web::cust_fields, - ], - 'links' => [ $link, - $link, - '', - $ulink, - ( map { $_ ne 'Cust. Status' ? $link_cust : '' } - FS::UI::Web::cust_header() - ), - ], - 'align' => 'rlll'. FS::UI::Web::cust_aligns(), - 'color' => [ - '', - '', - '', - '', - FS::UI::Web::cust_colors(), - ], - 'style' => [ - '', - '', - '', - '', - FS::UI::Web::cust_styles(), - ], - ) -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('List services'); - -#my $conf = new FS::Conf; - -my $orderby = 'ORDER BY svcnum'; -my @extra_sql = (); -if ( $cgi->param('magic') =~ /^(all|unlinked)$/ ) { - - push @extra_sql, 'pkgnum IS NULL' - if $cgi->param('magic') eq 'unlinked'; - - if ( $cgi->param('sortby') =~ /^(\w+)$/ ) { - my $sortby = $1; - $orderby = "ORDER BY $sortby"; - } - -} elsif ( $cgi->param('svcpart') =~ /^(\d+)$/ ) { - push @extra_sql, "svcpart = $1"; -} - -my $addl_from = ' LEFT JOIN cust_svc USING ( svcnum ) '. - ' LEFT JOIN part_svc USING ( svcpart ) '. - ' LEFT JOIN cust_pkg USING ( pkgnum ) '. - ' LEFT JOIN cust_main USING ( custnum ) '; - -#here is the agent virtualization -push @extra_sql, $FS::CurrentUser::CurrentUser->agentnums_sql( - 'null_right' => 'View/link unlinked services' - ); - -my $extra_sql = - scalar(@extra_sql) - ? ' WHERE '. join(' AND ', @extra_sql ) - : ''; - - -my $count_query = "SELECT COUNT(*) FROM svc_www $addl_from $extra_sql"; -my $sql_query = { - 'table' => 'svc_www', - 'hashref' => {}, - 'select' => join(', ', - 'svc_www.*', - 'part_svc.svc', - 'cust_main.custnum', - FS::UI::Web::cust_sql_fields(), - ), - 'extra_sql' => "$extra_sql $orderby", - 'addl_from' => $addl_from, -}; - -my $link = [ "${p}view/svc_www.cgi?", 'svcnum', ]; -#my $dlink = [ "${p}view/svc_www.cgi?", 'svcnum', ]; -my $ulink = [ "${p}view/svc_acct.cgi?", 'usersvc', ]; - -#smaller false laziness w/svc_*.cgi here -my $link_cust = sub { - my $svc_x = shift; - $svc_x->custnum ? [ "${p}view/cust_main.cgi?", 'custnum' ] : ''; -}; - - diff --git a/httemplate/search/timeworked.html b/httemplate/search/timeworked.html deleted file mode 100644 index b72dd0ea9..000000000 --- a/httemplate/search/timeworked.html +++ /dev/null @@ -1,117 +0,0 @@ -<% include( 'elements/search.html', - 'title' => 'Time Worked', - 'name' => 'time', - 'html_form' => qq!!, - 'query' => $query, - 'count_query' => $count_query, - 'header' => [ '#', - 'Ticket', - 'Date', - 'Time', - '', # checkbox column - ], - 'fields' => [ sub { shift->[0] }, - sub { encode_entities(shift->[1]) }, - sub { shift->[2] }, - sub { my $seconds = shift->[3]; - (($seconds < 0) ? '-' : '') . - concise(duration($seconds)); - }, - sub { - my $row = shift; - my $seconds = $row->[3]; - my $id = $row->[4]; - qq!!. - qq!!; - }, - ], - 'links' => [ - $link, - $link, - '', - '', - '', - ], - 'html_foot' => sub { - '
'. - ''. - '

'. - ''; - }, - ) - -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Time queue'); - -my @groupby = (); - -my $transactiontime = " - CASE Transactions.Type WHEN 'Set' - THEN (TO_NUMBER(NewValue,'999999')-TO_NUMBER(OldValue, '999999')) * 60 - ELSE TimeTaken*60 - END -"; - -push @groupby, qw( transactions.type newvalue oldvalue timetaken ); - -my $appliedtimeclause = "COALESCE (SUM(acct_rt_transaction.seconds), 0)"; - -my $appliedtimeselect = " - COALESCE( - ( SELECT SUM(seconds) FROM acct_rt_transaction - WHERE transaction_id = Transactions.id - ), - 0 - ) -"; - -push @groupby, "Transactions.id"; - -my $wheretimeleft = "$transactiontime != $appliedtimeselect"; - -push @groupby, "Tickets.id"; -push @groupby, "Tickets.Subject"; -push @groupby, "Transactions.Created"; - -my $groupby = join(',', @groupby); - -my $where = " - WHERE ObjectType='RT::Ticket' - AND ( ( Transactions.Type='Set' AND Field='TimeWorked' ) - OR Transactions.Type='Create' - OR Transactions.Type='Comment' - OR Transactions.Type='Correspond' - ) - AND $wheretimeleft -"; - #AND $wheretimeleft - -my $query = " - SELECT Tickets.id, Tickets.Subject, - TO_CHAR(Transactions.Created, 'Dy Mon DD HH24:MI:SS YYYY'), - $transactiontime-$appliedtimeclause, - Transactions.id - FROM Transactions - JOIN Tickets ON Transactions.ObjectId = Tickets.id - LEFT JOIN acct_rt_transaction - ON Transactions.id = acct_rt_transaction.transaction_id - $where - GROUP BY $groupby - ORDER BY Transactions.Created -"; - -my $count_query = "SELECT COUNT(*) FROM Transactions $where"; - -my $link = [ "${p}rt/Ticket/Display.html?id=", sub { shift->[0]; } ]; - - diff --git a/httemplate/view/cust_bill-logo.cgi b/httemplate/view/cust_bill-logo.cgi deleted file mode 100755 index 9c1c1d71d..000000000 --- a/httemplate/view/cust_bill-logo.cgi +++ /dev/null @@ -1,21 +0,0 @@ -<% $conf->config_binary("logo$templatename.png") %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('View invoices') - or $FS::CurrentUser::CurrentUser->access_right('Configuration'); - -my $conf = new FS::Conf; - -my($query) = $cgi->keywords; -$query =~ /^([^\.\/]*)$/; -my $templatename = $1; -if ( $templatename && $conf->exists("logo_$templatename.png") ) { - $templatename = "_$templatename"; -} else { - $templatename = ''; -} - -http_header('Content-Type' => 'image/png' ); - - diff --git a/httemplate/view/cust_bill-pdf.cgi b/httemplate/view/cust_bill-pdf.cgi deleted file mode 100755 index f09e1b74d..000000000 --- a/httemplate/view/cust_bill-pdf.cgi +++ /dev/null @@ -1,28 +0,0 @@ -<% $pdf %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('View invoices'); - -#untaint invnum -my($query) = $cgi->keywords; -$query =~ /^((.+)-)?(\d+)(.pdf)?$/; -my $templatename = $2; -my $invnum = $3; - -my $cust_bill = qsearchs({ - 'select' => 'cust_bill.*', - 'table' => 'cust_bill', - 'addl_from' => 'LEFT JOIN cust_main USING ( custnum )', - 'hashref' => { 'invnum' => $invnum }, - 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, -}); -die "Invoice #$invnum not found!" unless $cust_bill; - -my $pdf = $cust_bill->print_pdf( '', $templatename); - -http_header('Content-Type' => 'application/pdf' ); -http_header('Content-Length' => length($pdf) ); -http_header('Cache-control' => 'max-age=60' ); - - diff --git a/httemplate/view/cust_bill-ps.cgi b/httemplate/view/cust_bill-ps.cgi deleted file mode 100755 index 5313dbf02..000000000 --- a/httemplate/view/cust_bill-ps.cgi +++ /dev/null @@ -1,24 +0,0 @@ -<% $cust_bill->print_ps( '', $templatename) %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('View invoices'); - -#untaint invnum -my($query) = $cgi->keywords; -$query =~ /^((.+)-)?(\d+)$/; -my $templatename = $2; -my $invnum = $3; - -my $cust_bill = qsearchs({ - 'select' => 'cust_bill.*', - 'table' => 'cust_bill', - 'addl_from' => 'LEFT JOIN cust_main USING ( custnum )', - 'hashref' => { 'invnum' => $invnum }, - 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, -}); -die "Invoice #$invnum not found!" unless $cust_bill; - -http_header('Content-Type' => 'application/postscript' ); - - diff --git a/httemplate/view/cust_bill.cgi b/httemplate/view/cust_bill.cgi deleted file mode 100755 index 951725531..000000000 --- a/httemplate/view/cust_bill.cgi +++ /dev/null @@ -1,119 +0,0 @@ -<% include("/elements/header.html",'Invoice View', menubar( - "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", -)) %> - - -% if ( $cust_bill->owed > 0 -% && ( $payby{'BILL'} || $payby{'CASH'} || $payby{'WEST'} || $payby{'MCRD'} ) -% ) -% { -% my $s = 0; - - Post -% if ( $payby{'BILL'} ) { - - - <% $s++ ? ' | ' : '' %> - check -% } -% if ( $payby{'CASH'} ) { - - - <% $s++ ? ' | ' : '' %> - cash -% } -% if ( $payby{'WEST'} ) { - - - <% $s++ ? ' | ' : '' %> - Western Union -% } -% if ( $payby{'MCRD'} ) { - - - <% $s++ ? ' | ' : '' %> - manual credit card -% } - - - payment against this invoice
-% } - - -Re-print this invoice -% if ( grep { $_ ne 'POST' } $cust_bill->cust_main->invoicing_list ) { - - | Re-email - this invoice -% } -% if ( $conf->exists('hylafax') && length($cust_bill->cust_main->fax) ) { - - | Re-fax - this invoice -% } - - -

-% if ( $conf->exists('invoice_latex') ) { - - View typeset invoice -

-% } - -% my $br = 0; -% if ( $cust_bill->num_cust_event ) { $br++; -( View invoice events ) -% } - -% if ( $cust_bill->num_cust_bill_event ) { $br++; -( View deprecated, old-style invoice events ) -% } - -<% $br ? '

' : '' %> - -% if ( $conf->exists('invoice_html') ) { - - <% join('', $cust_bill->print_html('', $templatename) ) %> -% } else { - -
<% join('', $cust_bill->print_text('', $templatename) ) %>
-% } - -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('View invoices'); - -#untaint invnum -my($query) = $cgi->keywords; -$query =~ /^((.+)-)?(\d+)$/; -my $templatename = $2; -my $invnum = $3; - -my $conf = new FS::Conf; - -my @payby = grep /\w/, $conf->config('payby'); -#@payby = (qw( CARD DCRD CHEK DCHK LECB BILL CASH WEST COMP )) -@payby = (qw( CARD DCRD CHEK DCHK LECB BILL CASH COMP )) - unless @payby; -my %payby = map { $_=>1 } @payby; - -my $cust_bill = qsearchs({ - 'select' => 'cust_bill.*', - 'table' => 'cust_bill', - 'addl_from' => 'LEFT JOIN cust_main USING ( custnum )', - 'hashref' => { 'invnum' => $invnum }, - 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, -}); -die "Invoice #$invnum not found!" unless $cust_bill; - -my $custnum = $cust_bill->custnum; - -#my $printed = $cust_bill->printed; - -my $link = $templatename ? "$templatename-$invnum" : $invnum; - - - - diff --git a/httemplate/view/cust_main.cgi b/httemplate/view/cust_main.cgi deleted file mode 100755 index 4ca777d6a..000000000 --- a/httemplate/view/cust_main.cgi +++ /dev/null @@ -1,187 +0,0 @@ -<% include("/elements/header.html","Customer View: ". $cust_main->name ) %> - -% if ( $curuser->access_right('Edit customer') ) { - Edit this customer | -% } - - - - - - - - -% if ( $curuser->access_right('Cancel customer') -% && $cust_main->ncancelled_pkgs -% ) { - - <% cust_cancel_link($cust_main) %> | - -% } - -% if ( $conf->exists('deletecustomers') -% && $curuser->access_right('Delete customer') -% ) { - Delete this customer | -% } - -% unless ( $conf->exists('disable_customer_referrals') ) { - Refer a new customer | - View this customer's referrals -% } - -

- -% if ( $curuser->access_right('Billing event reports') -% || $curuser->access_right('View customer billing events') -% ) { - - View billing events for this customer -

- -% } - -%my $signupurl = $conf->config('signupurl'); -%if ( $signupurl ) { - This customer's signup URL: <% $signupurl %>?ref=<% $custnum %>

-% } - - - -
Freeside ID Service # Title Date
$custnum $svcnum $title $date
Service #
(click to view forward) Mail to
(click to view account) Forwards to
(click to view account)
- - - - -
- <% include('cust_main/contacts.html', $cust_main ) %> - - <% include('cust_main/misc.html', $cust_main ) %> -% if ( $conf->config('payby-default') ne 'HIDE' ) { - -
- <% include('cust_main/billing.html', $cust_main ) %> -% } - -
-% -%if ( $cust_main->comments =~ /[^\s\n\r]/ ) { -% - -
-Comments -<% ntable("#cccccc") %><% ntable("#cccccc",2) %> - - -
<% encode_entities($cust_main->comments) %>
- - - -% } -

-% my $notecount = scalar($cust_main->notes()); -% if ( ! $conf->exists('cust_main-disable_notes') || $notecount) { - -Notes
-% if ( $curuser->access_right('Add customer note') && -% ! $conf->exists('cust_main-disable_notes') -% ) { - - Add customer note - -% } - -
- -% if ($notecount) { - - - <div><br>[iframe not supported]<br><br></div> - - -% }else{ # make firefox happy wrt POSTDATA - - - <div><br>[iframe not supported]<br><br></div> - - -% } - -% } - - -% if ( $conf->config('ticket_system') ) { - -

- <% include('cust_main/tickets.html', $cust_main ) %> -% } - - -

- -% #XXX enable me# if ( $curuser->access_right('View customer packages') { -<% include('cust_main/packages.html', $cust_main ) %> -% #} - -% if ( $conf->config('payby-default') ne 'HIDE' ) { - <% include('cust_main/payment_history.html', $cust_main ) %> -% } - - -<% include('/elements/footer.html') %> -<%init> - -my $curuser = $FS::CurrentUser::CurrentUser; - -die "access denied" - unless $curuser->access_right('View customer'); - -my $conf = new FS::Conf; - -die "No customer specified (bad URL)!" unless $cgi->keywords; -my($query) = $cgi->keywords; # needs parens with my, ->keywords returns array -$query =~ /^(\d+)$/; -my $custnum = $1; -my $cust_main = qsearchs( { - 'table' => 'cust_main', - 'hashref' => { 'custnum' => $custnum }, - 'extra_sql' => ' AND '. $curuser->agentnums_sql, -}); -die "Customer not found!" unless $cust_main; - - -<%once> - - -sub cust_cancel_link { cust_popup_link( 'misc/cancel_cust.html', - 'Cancel this customer', - 'Confirm Cancellation', - '#ff0000', - @_, - ); -} - -#false laziness w/view/cust_main/packages.html - -sub cust_popup_link { - my($action, $label, $actionlabel, $color, $cust_main) = @_; - $action .= '?'. $cust_main->custnum; - popup_link($action, $label, $actionlabel, $color); -} - -sub popup_link { - my($action, $label, $actionlabel, $color) = @_; - $color ||= '#333399'; - qq!$label!; - -# CLOSETEXT, '', -#WIDTH, 576, HEIGHT, 128, TEXTSIZE, 3, -#BGCOLOR, '#ff0000', CGCOLOR, '#ff0000' -} - - diff --git a/httemplate/view/cust_main/billing.html b/httemplate/view/cust_main/billing.html deleted file mode 100644 index fa3863b13..000000000 --- a/httemplate/view/cust_main/billing.html +++ /dev/null @@ -1,214 +0,0 @@ -Billing information -%# If we can't see the unencrypted card, then bill now is an exercise in -%# frustration (without some sort of job queue magic to send it to a secure -%# machine, anyway) -%if ( $FS::CurrentUser::CurrentUser->access_right('Bill customer now') -% && ! $cust_main->is_encrypted($cust_main->payinfo) -% ) { - (Bill now) -% } - -<% ntable("#cccccc") %><% ntable("#cccccc",2) %> - -%( my $balance = $cust_main->balance ) -% =~ s/^(\-?)(.*)$/$1<\/FONT>$money_char$2/; - - - Balance due - <% $balance %> - - - - Billing type - -% if ( $cust_main->payby eq 'CARD' || $cust_main->payby eq 'DCRD' ) { - - - Credit card <% $cust_main->payby eq 'CARD' ? '(automatic)' : '(on-demand)' %> - - - - Card number - <% $cust_main->paymask %> - -% -%#false laziness w/elements/select-month_year.html & edit/cust_main/billing.html -%my( $mon, $year ); -%my $date = $cust_main->paydate || '12-2037'; -%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 { -% warn "unrecognized expiration date format: $date"; -% ( $mon, $year ) = ( '', '' ); -%} -% - - - Expiration - <% "$mon/$year" %> - -% if ( $cust_main->paystart_month ) { - - - Start date - <% $cust_main->paystart_month. '/'. $cust_main->paystart_year %> - -% } elsif ( $cust_main->payissue ) { - - - Issue # - <% $cust_main->payissue %> - -% } - - - - Name on card - <% $cust_main->payname %> - -% } elsif ( $cust_main->payby eq 'CHEK' || $cust_main->payby eq 'DCHK') { -% my( $account, $aba ) = split('@', $cust_main->payinfo ); -% - - - Electronic check <% $cust_main->payby eq 'CHEK' ? '(automatic)' : '(on-demand)' %> - - - - ABA/Routing code - <% $aba %> - - - Account number - <% 'x'x(length($account)-2). substr($account,(length($account)-2)) %> - - - Account type - <% $cust_main->paytype %> - - - Bank name - <% $cust_main->payname %> - -% if ( $conf->exists('show_bankstate') ) { - - <% $paystate_label %> - <% $cust_main->paystate || '   ' %> - -% } -% } elsif ( $cust_main->payby eq 'LECB' ) { -% $cust_main->payinfo =~ /^(\d{3})(\d{3})(\d{4})$/; -% my $payinfo = "$1-$2-$3"; -% - - - Phone bill billing - - - - Phone number - <% $payinfo %> - -% } elsif ( $cust_main->payby eq 'BILL' ) { - - - Billing - - -% if ( $cust_main->payinfo ) { - - - P.O. - <% $cust_main->payinfo %> - -% } - - - - Attention - <% $cust_main->payname %> - -% } elsif ( $cust_main->payby eq 'COMP' ) { - - - Complimentary - - - - Authorized by - <% $cust_main->payinfo %> - -% -%#false laziness w/above etc. -%my( $mon, $year ); -%my $date = $cust_main->paydate || '12-2037'; -%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 { -% warn "unrecognized expiration date format: $date"; -% ( $mon, $year ) = ( '', '' ); -%} -% - - - Expiration - <% "$mon/$year" %> - -% } - - - - Tax exempt - <% $cust_main->tax ? 'yes' : 'no' %> - - - Postal invoices - - <% ( grep { $_ eq 'POST' } @invoicing_list ) ? 'yes' : 'no' %> - - - - FAX invoices - - <% ( grep { $_ eq 'FAX' } @invoicing_list ) ? 'yes' : 'no' %> - - - - Email invoices - - <% join(', ', grep { $_ !~ /^(POST|FAX)$/ } @invoicing_list ) || 'no' %> - - - - Invoice terms - - <% $cust_main->invoice_terms || 'Default ('. ( $conf->config('invoice_default_terms') || 'Payable upon receipt' ). ')' %> - - - -% if ( $conf->exists('voip-cust_cdr_spools') ) { - - Spool CDRs - <% $cust_main->spool_cdr ? 'yes' : 'no' %> - -% } - - -<%once> - -my $paystate_label = FS::Msgcat::_gettext('paystate'); -$paystate_label = 'Bank state' if $paystate_label =~/^paystate$/; - - -<%init> - -my( $cust_main ) = @_; -my @invoicing_list = $cust_main->invoicing_list; -my $conf = new FS::Conf; -my $money_char = $conf->config('money_char') || '$'; - - diff --git a/httemplate/view/cust_main/contacts.html b/httemplate/view/cust_main/contacts.html deleted file mode 100644 index e88c02ea5..000000000 --- a/httemplate/view/cust_main/contacts.html +++ /dev/null @@ -1,122 +0,0 @@ -% my %which = ( -% '' => 'Billing', -% 'ship_' => 'Service', -% ); -% foreach my $which ( '', 'ship_' ) { -% my $pre = $cust_main->get("${which}last") ? $which : ''; - -<% $which{$which} %> address -<% ntable("#cccccc") %><% ntable("#cccccc",2) %> - - Contact name - - <% $cust_main->get("${pre}last"). ', '. $cust_main->get("${pre}first") %> - -% if ( $which eq '' && $conf->exists('show_ss') ) { - SS# - <% $cust_main->masked('ss') || ' ' %> -% } - - - Company - <% $cust_main->get("${pre}company") %> - - - Address - <% $cust_main->get("${pre}address1") %> - - -% if ( $cust_main->get("${pre}address2") ) { -% my $address2_label = -% ( $conf->exists('cust_main-require_address2') -% && ! ( $pre xor $cust_main->has_ship_address ) -% ) -% ? 'Unit #' -% : ' '; - - - <% $address2_label %> - <% $cust_main->get("${pre}address2") %> - - -% } - - - City - <% $cust_main->get("${pre}city") %> -% if ( $cust_main->get("${pre}county") ) { - County - <% $cust_main->get("${pre}county") %> -% } - State - <% state_label( $cust_main->get("${pre}state"), $cust_main->get("${pre}country") ) %> - Zip - <% $cust_main->get("${pre}zip") %> - - - Country - <% code2country( $cust_main->get("${pre}country") ) %> - - - <% $daytime_label %> - - <% include('/elements/phonenumber.html', - $cust_main->get("${pre}daytime"), - 'callable'=>1 - ) - %> - - - - <% $night_label %> - - <% include('/elements/phonenumber.html', - $cust_main->get("${pre}night"), - 'callable'=>1 - ) - %> - - - - Fax - - <% $cust_main->get("${pre}fax") || ' ' %> - - -% if ( $which eq '' && $conf->exists('show_stateid') ) { - - <% $stateid_label %> - <% $cust_main->masked('stateid') || ' ' %> - <% $stateid_state_label %> - <% $cust_main->stateid_state || ' ' %> - -% } - -% if ( $which ne 'ship_' ) { -
-% } -% } - -<%once> - -my $daytime_label = FS::Msgcat::_gettext('daytime') =~ /^(daytime)?$/ - ? 'Day Phone' - : FS::Msgcat::_gettext('daytime'); -my $night_label = FS::Msgcat::_gettext('night') =~ /^(night)?$/ - ? 'Night Phone' - : FS::Msgcat::_gettext('night'); -my $stateid_label = FS::Msgcat::_gettext('stateid') =~ /^(stateid)?$/ - ? 'Driver’s License' - : FS::Msgcat::_gettext('stateid'); -my $stateid_state_label = FS::Msgcat::_gettext('stateid_state') =~ /^(stateid_state)?$/ - ? 'Driver’s License State' - : FS::Msgcat::_gettext('stateid_state'); - - -<%init> - -my( $cust_main ) = @_; -my $conf = new FS::Conf; - - - diff --git a/httemplate/view/cust_main/misc.html b/httemplate/view/cust_main/misc.html deleted file mode 100644 index 9528db243..000000000 --- a/httemplate/view/cust_main/misc.html +++ /dev/null @@ -1,112 +0,0 @@ -% -% my( $cust_main ) = @_; -% my $conf = new FS::Conf; -% my $date_format = ($conf->config('date_format') || "%m/%d/%Y"); -% - - -<% ntable("#cccccc") %><% &ntable("#cccccc",2) %> - - - Customer number - <% $cust_main->custnum %> - - - - Status - <% ucfirst($cust_main->status) %> - -% -% my @agents = qsearch( 'agent', {} ); -% my $agent; -% unless ( scalar(@agents) == 1 ) { -% $agent = qsearchs('agent',{ 'agentnum' => $cust_main->agentnum } ); -% - - - - Agent - <% $agent->agentnum %>: <% $agent->agent %> - -% -% } else { -% $agent = $agents[0]; -% } -% -% if ( $cust_main->agent_custid ) { -% - - - - Agent customer ref# - <% $cust_main->agent_custid %> - -% -% } -% -% unless ( FS::part_referral->num_part_referral == 1 ) { -% my $referral = qsearchs('part_referral', { -% 'refnum' => $cust_main->refnum -% } ); -% - - - - Advertising source - <% $referral->refnum %>: <% $referral->referral%> - -% } - - - - Referring Customer - -% -% my $referring_cust_main = ''; -% if ( $cust_main->referral_custnum -% && ( $referring_cust_main = -% qsearchs('cust_main', { custnum => $cust_main->referral_custnum } ) -% ) -% ) { -% - - -<%$cust_main->referral_custnum %>: -<% - ( $referring_cust_main->company - ? $referring_cust_main->company. ' ('. - $referring_cust_main->last. ', '. $referring_cust_main->first. - ')' - : $referring_cust_main->last. ', '. $referring_cust_main->first - ) -%> -% } - - - - - - - Order taker - <% $cust_main->otaker %> - - - - Signup Date - <% $cust_main->signupdate ? time2str($date_format, $cust_main->signupdate) : '' %> - - -% if ( $conf->exists('cust_main-enable_birthdate') ) { -% my $dt = DateTime->from_epoch(epoch => $cust_main->birthdate, -% time_zone=>'floating', -% ); - - - Date of Birth - <% $cust_main->birthdate ne '' ? $dt->strftime($date_format) : '' %> - - -% } - - - diff --git a/httemplate/view/cust_main/notes.html b/httemplate/view/cust_main/notes.html deleted file mode 100755 index f2d116930..000000000 --- a/httemplate/view/cust_main/notes.html +++ /dev/null @@ -1,93 +0,0 @@ -% -% my $conf = new FS::Conf; -% my $curuser = $FS::CurrentUser::CurrentUser; -% -% $cgi->param('custnum') =~ /^(\d+)$/ -% or die "No customer specified (bad URL)!"; -% my $custnum = $1; -% -% my $cust_main = qsearchs('cust_main', {'custnum' => $custnum} ); -% die "Custimer not found!" unless $cust_main; -% - - - -% my (@notes) = $cust_main->notes(); -% if ( scalar(@notes) ) { - - - - - - - - -% my $bgcolor1 = '#eeeeee'; -% my $bgcolor2 = '#ffffff'; -% my $bgcolor = ''; -% -% foreach my $note (@notes) { -% -% if ( $bgcolor eq $bgcolor1 ) { -% $bgcolor = $bgcolor2; -% } else { -% $bgcolor = $bgcolor1; -% } -% -% my $pop = popurl(3); -% my $notenum = $note->notenum; -% my $clickjs = qq!onclick="overlib( OLiframeContent('${pop}edit/! . -% qq!cust_main_note.cgi?custnum=$custnum&! . -% qq!notenum=$notenum', 616, ! . -% qq!386, 'cust_main_note_popup' ), CAPTION, 'Edit customer ! . -% qq!note', STICKY, AUTOSTATUSCAP, MIDX, 0, MIDY, 0, ! . -% qq!CLOSECLICK, FRAME, top); return false;"!; -% -% my ($el, $eel); -% if ($curuser->access_right('Edit customer note') ) { -% $el = qq!!; -% $eel = qq!!; -% }else{ -% $el = $eel = ''; -% } - - - <% note_datestr($note,$conf,$bgcolor, $el, $eel) %> - - - - -% } #end display notes - -
- <% $el %> <%$note->otaker%> <% $eel %> - - <%$note->comments%> -
- -% } -% -%#subroutines -% -%sub note_datestr { -% my($note, $conf, $bgcolor, $el, $eel) = @_ or return ''; -% my $format=qq{$el%b$eel}. -% qq{$el %o,$eel}. -% qq{$el %Y $eel}; -% $format .= qq{$el %l$eel}. -% qq{$el:$eel}. -% qq{$el%M$eel}. -% qq{$el %P $eel} -% if $conf->exists('cust_main_note-display_times'); -% ( my $strip = time2str($format, $note->_date) ) =~ s/ (\d)/$1/g; -% $strip; -% } -% - diff --git a/httemplate/view/cust_main/packages.html b/httemplate/view/cust_main/packages.html deleted file mode 100755 index 891fa3009..000000000 --- a/httemplate/view/cust_main/packages.html +++ /dev/null @@ -1,629 +0,0 @@ -Packages
- -% my $s = 0; -% if ( $curuser->access_right('Order customer package') ) { - <% $s++ ? ' | ' : '' %> - <% order_pkg_link($cust_main) %> -% } - -% if ( $curuser->access_right('One-time charge') -% && $conf->config('payby-default') ne 'HIDE' -% ) { -% - <% $s++ ? ' | ' : '' %> - <% popup_link('edit/quick-charge.html?custnum='. $cust_main->custnum, 'One-time charge', 'One-time charge', '#333399', 545) %> -% } -% if ( $curuser->access_right('Bulk change customer packages') ) { - <% $s++ ? ' | ' : '' %> - Bulk order and cancel packages (preserves services) -% } - - -

-% if ( @$packages ) { - -Current packages -% } -% if ( $cust_main->num_cancelled_pkgs ) { -% if ( $cgi->param('showcancelledpackages') eq '0' #see if it was set by me -% || ( $conf->exists('hidecancelledpackages') -% && ! $cgi->param('showcancelledpackages') -% ) -% ) -% { -% $cgi->param('showcancelledpackages', 1); -% - - ( show -% } else { -% $cgi->param('showcancelledpackages', 0); -% - - ( hide -% } - - cancelled packages ) -% } -% if ( @$packages ) { - - -<% include('/elements/table-grid.html') %> -% my $bgcolor1 = '#eeeeee'; -% my $bgcolor2 = '#ffffff'; -% my $bgcolor = ''; - - - Package - Status - Services - - -%foreach my $cust_pkg (@$packages) { -% -% my $part_pkg = $cust_pkg->part_pkg; -% -% if ( $bgcolor eq $bgcolor1 ) { -% $bgcolor = $bgcolor2; -% } else { -% $bgcolor = $bgcolor1; -% } - - - - - - - - <% $cust_pkg->pkgnum %>: - <% $part_pkg->pkg %> - <% $part_pkg->comment %> -
- - -% unless ( $cust_pkg->get('cancel') ) { -% my $br = 0; -% if ( $curuser->access_right('Change customer package') ) { $br=1; - - ( <%pkg_change_link($cust_pkg)%> ) -% } -% if ( $curuser->access_right('Edit customer package dates') ) { $br=1; - - ( <%pkg_dates_link($cust_pkg)%> ) -% } -% if ( $curuser->access_right('Customize customer package') ) { $br=1; - - ( <%pkg_customize_link($cust_pkg,$cust_main->custnum)%> ) -% } - <% $br ? '
' : '' %> -% } - -% if ( $cust_pkg->num_cust_event -% && ( $curuser->access_right('Billing event reports') -% || $curuser->access_right('View customer billing events') -% ) -% ) { - ( <%pkg_event_link($cust_pkg)%> ) -% } - - - - - - - -% -% sub myfreq { -% my $part_pkg = shift; -% my $freq = $part_pkg->freq_pretty; -% $freq =~ s/ / /g; -% $freq; -% } -% -% #this should use cust_pkg->status and cust_pkg->statuscolor eventually -% #my $colspan = $conf->exists('cust_pkg-display_times') ? 8 : 4; -% #my $width = $conf->exists('cust_pkg-display_times') ? '38%' : '56%'; -% -% #false laziness w/edit/REAL_cust_pkg.cgi -% my( $billed_or_prepaid, $last_bill_or_renewed, $next_bill_or_prepaid_until ); -% unless ( $part_pkg->is_prepaid ) { -% $billed_or_prepaid = 'billed'; -% $last_bill_or_renewed = 'Last bill'; -% $next_bill_or_prepaid_until = 'Next bill'; -% } else { -% $billed_or_prepaid = 'prepaid'; -% $last_bill_or_renewed = 'Renewed'; -% $next_bill_or_prepaid_until = 'Prepaid until'; -% } -% -% -% if ( $cust_pkg->get('cancel') ) { #status: cancelled - - <% pkg_status_row($cust_pkg, 'Cancelled', 'cancel', 'color'=>'FF0000' ) %> - - <% pkg_status_row_colspan( - ( $cust_pkg->last_reason ? $cust_pkg->last_reason->reason : '' ), '', - 'align' => 'right', 'color' => 'ff0000', 'size' => '-2', - ) - %> - -% unless ( $cust_pkg->get('setup') ) { - - <% pkg_status_row_colspan('Never billed') %> - -% } else { - - <% pkg_status_row( $cust_pkg, 'Setup', 'setup' ) %> - <% pkg_status_row_changed( $cust_pkg ) %> - <% pkg_status_row_if( $cust_pkg, $last_bill_or_renewed, 'last_bill' ) %> - <% pkg_status_row_if( $cust_pkg, 'Suspended', 'susp' ) %> - -% } -% -% } else { -% -% if ( $cust_pkg->get('susp') ) { #status: suspended - - <% pkg_status_row( $cust_pkg, 'Suspended', 'susp', 'color'=>'FF9900' ) %> - - <% pkg_status_row_colspan( - ( $cust_pkg->last_reason ? $cust_pkg->last_reason->reason : '' ), '', - 'align' => 'right', 'color' => 'FF9900', 'size' => '-2', - ) - %> - -% unless ( $cust_pkg->get('setup') ) { - <% pkg_status_row_colspan('Never billed') %> -% } else { - <% pkg_status_row($cust_pkg, 'Setup', 'setup' ) %> -% } - - <% pkg_status_row_changed( $cust_pkg ) %> - <% pkg_status_row_if( $cust_pkg, $last_bill_or_renewed, 'last_bill' ) %> -% # pkg_status_row($cust_pkg, 'Next bill', 'bill') - <% pkg_status_row_if( $cust_pkg, 'Expires', 'expire' ) %> - - - - - -% } else { #status: active -% -% unless ( $cust_pkg->get('setup') ) { #not setup -% -% unless ( $part_pkg->freq ) { - - <% pkg_status_row_colspan('Not yet billed (one-time charge)') %> - - - - - -% } else { - - <% pkg_status_row_colspan("Not yet billed ($billed_or_prepaid ". myfreq($part_pkg). ')' ) %> - -% } -% -% } else { #setup -% -% unless ( $part_pkg->freq ) { - - <% pkg_status_row_colspan('One-time charge') %> - - <% pkg_status_row($cust_pkg, 'Billed', 'setup') %> - -% } else { -% -% if (scalar($cust_pkg->overlimit)) { - - <% pkg_status_row_colspan( - 'Overlimit', - $billed_or_prepaid. ' '. myfreq($part_pkg), - 'color' => 'FFD000', - ) - %> - -% } else { - <% pkg_status_row_colspan( - 'Active', - $billed_or_prepaid. ' '. myfreq($part_pkg), - 'color' => '00CC00', - ) - %> -% } - - <% pkg_status_row($cust_pkg, 'Setup', 'setup') %> - -% } -% -% } - - <% pkg_status_row_changed( $cust_pkg ) %> - <% pkg_status_row_if( $cust_pkg, $last_bill_or_renewed, 'last_bill' ) %> - <% pkg_status_row_if( $cust_pkg, $next_bill_or_prepaid_until, 'bill' ) %> - <% pkg_status_row_if( $cust_pkg, 'Will suspend on', 'adjourn' ) %> - <% pkg_status_row_if( $cust_pkg, 'Expires', 'expire' ) %> - -% if ( $part_pkg->freq ) { - - - - -% } -% -% } -% } - -
> - -% if ( $curuser->access_right('Unsuspend customer package') ) { - ( <% pkg_unsuspend_link($cust_pkg) %> ) -% } -% if ( $curuser->access_right('Cancel customer package immediately') ) { - ( <% pkg_cancel_link($cust_pkg) %> ) -% } - -
> - -% if ( $curuser->access_right('Cancel customer package immediately') ) { - ( <% pkg_cancel_link($cust_pkg) %> ) -% } - -
> - -% if ( $curuser->access_right('Suspend customer package') ) { - ( <% pkg_suspend_link($cust_pkg) %> ) -% } -% if ( $curuser->access_right('Suspend customer package later') ) { - ( <% pkg_adjourn_link($cust_pkg) %> ) -% } -% if ( $curuser->access_right('Cancel customer package immediately') ) { - ( <% pkg_cancel_link($cust_pkg) %> ) -% } -% if ( $curuser->access_right('Cancel customer package later') ) { - ( <% pkg_expire_link($cust_pkg) %> ) -% } - - -
- - - - - -% #foreach my $svcpart (sort {$a->{svcpart} <=> $b->{svcpart}} @{$pkg->{svcparts}}) { -% foreach my $part_svc ( $cust_pkg->part_svc ) { - -% #foreach my $service (@{$svcpart->{services}}) { -% foreach my $cust_svc ( @{ $part_svc->cust_pkg_svc } ) { - - - - - - - - - - - - - - - - -% } - -% if ( ! $cust_pkg->get('cancel') -% && $curuser->access_right('Provision customer service') -% && $part_svc->num_avail -% ) { - - - - - -% } - -% } - -
<% FS::UI::Web::svc_link($m, $part_svc, $cust_svc) %> <% FS::UI::Web::svc_label_link($m, $part_svc, $cust_svc) %> <% FS::UI::Web::svc_export_links($m, $part_svc, $cust_svc) %>
- - <% $cust_svc->overlimit ? "Overlimit: ". time2str('%b %o %Y' . ($conf->exists('cust_pkg-display_times') ? ' %l:%M %P' : ''), $cust_svc->overlimit) : '' %> -
- -% if ( $curuser->access_right('Recharge customer service') -% && $part_svc->svcdb eq 'svc_acct' -% && ( $cust_svc->svc_x->seconds ne '' -% || $cust_svc->svc_x->upbytes ne '' -% || $cust_svc->svc_x->downbytes ne '' -% || $cust_svc->svc_x->totalbytes ne '' -% ) -% ) { - ( <%svc_recharge_link($cust_svc)%> ) -% } - - -% if ( $curuser->access_right('Unprovision customer service') ) { - ( <%svc_unprovision_link($cust_svc)%> ) -% } -
- <% svc_provision_link($cust_pkg, $part_svc, $conf, $curuser) %> -
- -% } #end display packages -% - - - -% } else { - -
-% } -% if ( $cgi->param('fragment') =~ /^cust_pkg(\d+)$/ ) { - -% } -<%init> - -my( $cust_main ) = @_; -my $conf = new FS::Conf; - -my $curuser = $FS::CurrentUser::CurrentUser; - -my $packages = get_packages($cust_main, $conf); - -my $colspan = $conf->exists('cust_pkg-display_times') ? 8 : 4; -my $width = $conf->exists('cust_pkg-display_times') ? '38%' : '56%'; - -sub pkg_status_row { - my( $cust_pkg, $title, $field, %opt ) = @_; - - my $color = $opt{'color'}; - - my $html = qq(); - $html .= qq() if length($color); - $html .= qq($title ); - $html .= qq() if length($color); - $html .= qq(); - $html .= pkg_datestr($cust_pkg, $field, $conf).''; - - $html; -} - -sub pkg_status_row_if { - my( $cust_pkg, $title, $field, %opt ) = @_; - $cust_pkg->get($field) ? pkg_status_row(@_) : ''; -} - -sub pkg_status_row_changed { - my($cust_pkg) = @_; - return '' unless $cust_pkg->change_date; - my $html = pkg_status_row( $cust_pkg, 'Package changed', 'change_date' ); - my $old = $cust_pkg->old_cust_pkg; - if ( $old ) { - my $part_pkg = $old->part_pkg; - my $label = 'Changed from '. $cust_pkg->change_pkgnum. ': '. - $part_pkg->pkg. ' - '. $part_pkg->comment; - $html .= pkg_status_row_colspan( $label, '', size=>'-1', align=>'right' ); - } - $html; -} - -sub pkg_status_row_colspan { - my($title, $addl, %opt) = @_; - - my $align = $opt{'align'} ? 'ALIGN="'. $opt{'align'}.'"' : ''; - my $color = $opt{'color'} ? 'COLOR="#'.$opt{'color'}.'"' : ''; - my $size = $opt{'size'} ? 'SIZE="'. $opt{'size'}. '"' : ''; - - my $html = qq(); - $html .= qq() if length($color) || $size; - $html .= qq() if $color && !$size; - $html .= $title; - $html .= qq() if $color && !$size; - $html .= qq() if length($color) || $size; - $html .= ", $addl" if length($addl); - $html .= qq(); - - $html; - -} - - -<%once> - -#subroutines - -sub get_packages { - my $cust_main = shift or return undef; - my $conf = shift; - - my @packages = (); - my $method; - if ( $cgi->param('showcancelledpackages') eq '0' #see if it was set by me - || ( $conf->exists('hidecancelledpackages') - && ! $cgi->param('showcancelledpackages') ) - ) - { - $method = 'ncancelled_pkgs'; - } else { - $method = 'all_pkgs'; - } - - [ $cust_main->$method() ]; -} - -sub svc_provision_link { - my ($cust_pkg, $part_svc, $conf, $curuser) = @_; - ( my $svc_nbsp = $part_svc->svc ) =~ s/\s+/ /g; - my $num_avail = $part_svc->num_avail; - my $pkgnum_svcpart = "pkgnum=". $cust_pkg->pkgnum. ';'. - "svcpart=". $part_svc->svcpart; - my $url; - if ( $part_svc->svcdb eq 'svc_external' #could be generalized - && $conf->exists('svc_external-skip_manual') - ) { - $url = "${p}edit/process/". $part_svc->svcdb. ".cgi?$pkgnum_svcpart"; - } else { - $url = svc_url( - 'm' => $m, - 'action' => 'edit', - 'part_svc' => $part_svc, - 'query' => $pkgnum_svcpart, - ); - #$url = "${p}edit/$svcpart->{svcdb}.cgi?$pkgnum_svcpart"; - } - - my $link = qq!!. - "Provision $svc_nbsp ($num_avail)"; - if ( $conf->exists('legacy_link') - && $curuser->access_right('View/link unlinked services') - ) - { - $link .= '
'. - qq!!. - "Link to legacy $svc_nbsp ($num_avail)"; - } - $link; -} - -sub svc_unprovision_link { - my $cust_svc = shift or return ''; - qq!Unprovision!; -} - -sub pkg_datestr { - my($cust_pkg, $field, $conf) = @_ or return ''; - return ' ' unless $cust_pkg->get($field); - my $format = '%b'. - ' %o,'. - ' %Y'; - #$format .= ' %l:%M:%S%P %z' - $format .= ' %l'. - ':'. - '%M'. - ' %P' - if $conf->exists('cust_pkg-display_times'); - my $strip = time2str($format, $cust_pkg->get($field) ); - $strip =~ s/ (\d)/$1/g; - $strip; -} - -sub pkg_change_link { pkg_popup_link('misc/change_pkg.cgi?dummy=value', - 'Change package', - 'Change', - '', - @_ - ); - } - -sub pkg_suspend_link { pkg_popup_link( 'misc/cancel_pkg.html?method=suspend', - 'Suspend now', - 'Suspend', - '#FF9900', - @_ - ); - } - -sub pkg_adjourn_link { pkg_popup_link( 'misc/cancel_pkg.html?method=adjourn', - 'Suspend later', - 'Adjourn', - '#CC6600', - @_ - ); - } - -sub pkg_unsuspend_link { pkg_link('misc/unsusp_pkg', 'Unsuspend', @_ ); } -sub pkg_expire_link { pkg_link('misc/expire_pkg', 'Cancel later', @_ ); } -sub pkg_dates_link { pkg_link('edit/REAL_cust_pkg', 'Edit dates', @_ ); } - -sub pkg_cancel_link { pkg_popup_link( 'misc/cancel_pkg.html?method=cancel', - 'Cancel now', - 'Cancel', - '#ff0000', - @_ - ); - } - -sub pkg_expire_link { pkg_popup_link( 'misc/cancel_pkg.html?method=expire', - 'Cancel later', - 'Expire', #"Cancel package $num later" - '#CC0000', - @_ - ); - } - -sub svc_recharge_link { svc_popup_link( 'misc/recharge_svc.html', - 'Recharge', - 'Recharge', - '#333399', - @_ - ); - } - -sub order_pkg_link { cust_popup_link( 'misc/order_pkg.html', - 'Order new package', - 'Order new package', - '#333399', - @_ - ); - } - -sub pkg_event_link { - my($cust_pkg) = @_; - qq!!. - 'View package events'. - ''; -} - -sub pkg_link { - my($action, $label, $cust_pkg) = @_; - return '' unless $cust_pkg; - qq!$label!; -} - -sub pkg_popup_link { - my($action, $label, $actionlabel, $color, $cust_pkg) = @_; - $action .= '&pkgnum='. $cust_pkg->pkgnum; - $actionlabel .= ' package '. $cust_pkg->pkgnum; - popup_link($action, $label, $actionlabel, $color, 768); -} - -sub svc_popup_link { - my($action, $label, $actionlabel, $color, $cust_svc) = @_; - $action .= '?svcnum='. $cust_svc->svcnum; - $actionlabel .= ' service '. $cust_svc->svcnum; - popup_link($action, $label, $actionlabel, $color); -} - -sub cust_popup_link { - my($action, $label, $actionlabel, $color, $cust_main) = @_; - $action .= '?'. $cust_main->custnum; - popup_link($action, $label, $actionlabel, $color); -} - -sub popup_link { - my($action, $label, $actionlabel, $color, $width) = @_; - $color ||= '#333399'; - $width ||= 540; - qq!$label!; -} - -sub pkg_customize_link { - my $cust_pkg = shift or return ''; - my $custnum = $cust_pkg->custnum; - qq!Customize!; -} - - diff --git a/httemplate/view/cust_main/payment_history.html b/httemplate/view/cust_main/payment_history.html deleted file mode 100644 index 44a888533..000000000 --- a/httemplate/view/cust_main/payment_history.html +++ /dev/null @@ -1,630 +0,0 @@ -

Payment History
- -% my $s = 0; -% if ( $payby{'BILL'} && $curuser->access_right('Post payment') ) { - <% $s++ ? ' | ' : '' %> - Enter check payment -% } - -% if ( $payby{'CASH'} && $curuser->access_right('Post payment') ) { - <% $s++ ? ' | ' : '' %> - Enter cash payment -% } - -% if ( $payby{'WEST'} && $curuser->access_right('Post payment') ) { - <% $s++ ? ' | ' : '' %> - Enter Western Union payment -% } - -% if ( ( $payby{'CARD'} || $payby{'DCRD'} ) -% && $curuser->access_right('Process payment') -% && ! $cust_main->is_encrypted($cust_main->payinfo) -% ) { - <% $s++ ? ' | ' : '' %> - Process credit card payment -% } - -% if ( ( $payby{'CHEK'} || $payby{'DCHK'} ) -% && $curuser->access_right('Process payment') -% && ! $cust_main->is_encrypted($cust_main->payinfo) -% ) { - <% $s++ ? ' | ' : '' %> - Process electronic check (ACH) payment -% } - -% if ( $payby{'MCRD'} && $curuser->access_right('Post payment') ) { - <% $s++ ? ' | ' : '' %> - Post manual (offline) credit card payment -% } - -
- -% if ( $curuser->access_right('Post credit') ) { - Enter credit -
-% } - -% if ( $curuser->access_right('View customer tax exemptions') ) { - View tax exemptions -
-% } - -% if ( $conf->exists('batch-enable') -% && $curuser->access_right('View customer batched payments') -% ) { - View batched payments: -% foreach my $status (qw( Queued In-transit Complete All )) { - <% $status %> - <% $status ne 'All' ? '|' : '' %> -% } -
-% } - -%#get payment history -%my @history = (); -% -%#invoices -%foreach my $cust_bill ($cust_main->cust_bill) { -% my $pre = ( $cust_bill->owed > 0 ) -% ? 'Open ' -% : ''; -% my $post = ( $cust_bill->owed > 0 ) ? '' : ''; -% my $invnum = $cust_bill->invnum; -% my $link = $curuser->access_right('View invoices') -% ? qq!! -% : ''; -% my $events = ''; -% if ( $cust_bill->num_cust_event -% && ( $curuser->access_right('Billing event reports') -% || $curuser->access_right('View customer billing events') -% ) -% ) { -% $events = -% qq!
( View invoice events )'; -% } -% push @history, { -% 'date' => $cust_bill->_date, -% 'desc' => $link. $pre. -% "Invoice #$invnum (Balance \$". $cust_bill->owed. ')'. -% $post. ( $link ? '' : '' ). $events, -% 'charge' => $cust_bill->charged, -% }; -%} -% -%#payments (some false laziness w/credits) -%foreach my $cust_pay ($cust_main->cust_pay) { -% -% my $payby = $cust_pay->payby; -% -% my $payinfo; -% if ( $payby eq 'CARD' ) { -% $payinfo = $cust_pay->paymask; -% } elsif ( $payby eq 'CHEK' && $cust_pay->payinfo =~ /^(\d+)\@(\d+)$/ ) { -% $payinfo = "ABA $2, Acct# $1"; -% } else { -% $payinfo = $cust_pay->payinfo; -% } -% my @cust_bill_pay = $cust_pay->cust_bill_pay; -% my @cust_pay_refund = $cust_pay->cust_pay_refund; -% -% my $target = "$payby$payinfo"; -% $payby =~ s/^BILL$/Check #/ if $payinfo; -% $payby =~ s/^CHEK$/Electronic check /; -% $payby =~ s/^PREP$/Prepaid card /; -% $payby =~ s/^CARD$/Credit card #/; -% $payby =~ s/^COMP$/Complimentary by /; -% $payby =~ s/^CASH$/Cash/; -% $payby =~ s/^WEST$/Western Union/; -% $payby =~ s/^MCRD$/Manual credit card/; -% $payby =~ s/^BILL$//; -% my $info = $payby ? "($payby$payinfo)" : ''; -% -% my( $pre, $post, $desc, $apply, $ext ) = ( '', '', '', '', '' ); -% if ( scalar(@cust_bill_pay) == 0 -% && scalar(@cust_pay_refund) == 0 ) { -% #completely unapplied -% $pre = 'Unapplied '; -% $post = ''; -% if ( $curuser->access_right('Apply payment') ) { -% $apply = qq! (apply)!; -% } -% } elsif ( scalar(@cust_bill_pay) == 1 -% && scalar(@cust_pay_refund) == 0 -% && $cust_pay->unapplied == 0 ) { -% #applied to one invoice, the usual situation -% $desc = ' applied to Invoice #'. $cust_bill_pay[0]->invnum; -% } elsif ( scalar(@cust_bill_pay) == 0 -% && scalar(@cust_pay_refund) == 1 -% && $cust_pay->unapplied == 0 ) { -% #applied to one refund -% $desc = ' refunded on '. time2str("%D", $cust_pay_refund[0]->_date); -% } else { -% #complicated -% $desc = '
'; -% foreach my $app ( sort { $a->_date <=> $b->_date } -% ( @cust_bill_pay, @cust_pay_refund ) ) { -% if ( $app->isa('FS::cust_bill_pay') ) { -% $desc .= '  '. -% '$'. $app->amount. -% ' applied to Invoice #'. $app->invnum. -% '
'; -% #' on '. time2str("%D", $cust_bill_pay->_date). -% } elsif ( $app->isa('FS::cust_pay_refund') ) { -% $desc .= '  '. -% '$'. $app->amount. -% ' refunded on '. time2str("%D", $app->_date). -% '
'; -% } else { -% die "$app is not a FS::cust_bill_pay or FS::cust_pay_refund"; -% } -% } -% if ( $cust_pay->unapplied > 0 ) { -% $desc .= '  '. -% '$'. -% $cust_pay->unapplied. ' unapplied'; -% if ( $curuser->access_right('Apply payment') ) { -% $desc .= qq! (apply)!; -% } -% $desc .= '
'; -% } -% } -% -% my $view = qq! (view receipt)!; -% -% my $refund = ''; -% my $refund_days = $conf->config('card_refund-days') || 120; -% if ( $cust_pay->closed !~ /^Y/i -% && $cust_pay->payby =~ /^(CARD|CHEK)$/ -% && time-$cust_pay->_date < $refund_days*86400 -% && $cust_pay->unrefunded > 0 -% && $curuser->access_right('Refund payment') -% ) { -% $refund = qq! (refund)!; -% } -% -% my $void = ''; -% if ( $cust_pay->closed !~ /^Y/i -% && ( ( $cust_pay->payby eq 'CARD' -% && $curuser->access_right('Credit card void') -% ) -% || ( $cust_pay->payby eq 'CHEK' -% && $curuser->access_right('Echeck void') -% ) -% || ( $cust_pay->payby !~ /^(CARD|CHEK)$/ -% && $curuser->access_right('Regular void') -% ) -% ) -% ) -% { -% $void = qq! (void)!; -% } -% -% my $delete = ''; -% if ( $cust_pay->closed !~ /^Y/i -% && $conf->exists('deletepayments') -% && $curuser->access_right('Delete payment') -% ) -% { -% $delete = qq! (delete)!; -% } -% -% my $unapply = ''; -% if ( $cust_pay->closed !~ /^Y/i -% && scalar(@cust_bill_pay) -% && $curuser->access_right('Unapply payment') -% ) -% { -% $unapply = qq! (unapply)!; -% } -% -% my $otaker = $cust_pay->otaker; -% $otaker = 'auto billing' if $otaker eq 'fs_daily'; -% $otaker = 'customer self-service' if $otaker eq 'fs_selfservice'; -% -% push @history, { -% 'date' => $cust_pay->_date, -% 'desc' => $pre. "Payment$post by $otaker $info$desc". -% "$view$apply$refund$void$delete$unapply", -% 'payment' => $cust_pay->paid, -% 'target' => $target, -% }; -%} -% -%#voided payments -%foreach my $cust_pay_void ($cust_main->cust_pay_void) { -% -% my $payby = $cust_pay_void->payby; -% my $payinfo = $payby eq 'CARD' -% ? $cust_pay_void->paymask -% : $cust_pay_void->payinfo; -% -% $payby =~ s/^BILL$/Check #/ if $payinfo; -% $payby =~ s/^CHEK$/Electronic check /; -% $payby =~ s/^BILL$//; -% $payby =~ s/^(CARD|COMP)$/$1 /; -% my $info = $payby ? " ($payby$payinfo)" : ''; -% -% my $unvoid = ''; -% if ( $cust_pay_void->closed !~ /^Y/i -% && $curuser->access_right('Unvoid') -% ) -% { -% $unvoid = qq! (unvoid)!; -% } -% -% push @history, { -% 'date' => $cust_pay_void->_date, -% 'desc' => "~~Payment $info~~ voided ". -% time2str("%D", $cust_pay_void->void_date). -% " by ". $cust_pay_void->otaker. ''. $unvoid, -% 'void_payment' => $cust_pay_void->paid, -% }; -% -%} -% -%#credits (some false laziness w/payments) -%foreach my $cust_credit ($cust_main->cust_credit) { -% -% my @cust_credit_bill = $cust_credit->cust_credit_bill; -% my @cust_credit_refund = $cust_credit->cust_credit_refund; -% -% my( $pre, $post, $desc, $apply, $ext ) = ( '', '', '', '', '' ); -% if ( scalar(@cust_credit_bill) == 0 -% && scalar(@cust_credit_refund) == 0 ) { -% #completely unapplied -% $pre = 'Unapplied '; -% $post = ''; -% if ( $curuser->access_right('Apply credit') ) { -% $apply = qq! (apply)!; -% } -% } elsif ( scalar(@cust_credit_bill) == 1 -% && scalar(@cust_credit_refund) == 0 -% && $cust_credit->credited == 0 ) { -% #applied to one invoice, the usual situation -% $desc = ' applied to Invoice #'. $cust_credit_bill[0]->invnum; -% } elsif ( scalar(@cust_credit_bill) == 0 -% && scalar(@cust_credit_refund) == 1 -% && $cust_credit->credited == 0 ) { -% #applied to one refund -% $desc = ' refunded on '. time2str("%D", $cust_credit_refund[0]->_date); -% } else { -% #complicated -% $desc = '
'; -% foreach my $app ( sort { $a->_date <=> $b->_date } -% ( @cust_credit_bill, @cust_credit_refund ) ) { -% if ( $app->isa('FS::cust_credit_bill') ) { -% $desc .= '  '. -% '$'. $app->amount. -% ' applied to Invoice #'. $app->invnum. -% '
'; -% #' on '. time2str("%D", $app->_date). -% } elsif ( $app->isa('FS::cust_credit_refund') ) { -% $desc .= '  '. -% '$'. $app->amount. -% ' refunded on '. time2str("%D", $app->_date). -% '
'; -% } else { -% die "$app is not a FS::cust_credit_bill or a FS::cust_credit_refund"; -% } -% } -% if ( $cust_credit->credited > 0 ) { -% $desc .= '  $'. -% $cust_credit->credited. ' unapplied'; -% if ( $curuser->access_right('Apply credit') ) { -% $desc .= qq! (apply)!; -% } -% $desc .= '
'; -% } -% } -%# -% my $delete = ''; -% if ( $cust_credit->closed !~ /^Y/i -% -% #s'pose deleting a credit isn't bad like deleting a payment -% # and this needs to be generally available until we have credit voiding.. -% #&& $conf->exists('deletecredits') -% -% && $curuser->access_right('Delete credit') -% ) -% { -% $delete = qq! (!. -% qq!delete)!; -% } -% -% my $unapply = ''; -% if ( $cust_credit->closed !~ /^Y/i -% && scalar(@cust_credit_bill) -% && $curuser->access_right('Unapply credit') -% ) -% { -% $unapply = qq! (!. -% qq!unapply)!; -% } -% -% push @history, { -% 'date' => $cust_credit->_date, -% 'desc' => $pre. "Credit$post by ". $cust_credit->otaker. -% ( $cust_credit->reason -% ? ' ('. $cust_credit->reason. ')' -% : '' -% ). -% "$desc$apply$delete$unapply", -% 'credit' => $cust_credit->amount, -% }; -% -%} -% -%#refunds -%foreach my $cust_refund ($cust_main->cust_refund) { -% -% my $payby = $cust_refund->payby; -% my $payinfo = $payby eq 'CARD' -% ? $cust_refund->paymask -% : $cust_refund->payinfo; -% -% $payby =~ s/^BILL$/Check #/ if $payinfo; -% $payby =~ s/^CHEK$/Electronic check /; -% $payby =~ s/^(CARD|COMP)$/$1 /; -% -% my $delete = ''; -% if ( $cust_refund->closed !~ /^Y/i -% && $conf->exists('deleterefunds') -% && $curuser->access_right('Delete refund') -% ) -% { -% $delete = qq! (delete)!; -% } -% -% push @history, { -% 'date' => $cust_refund->_date, -% 'desc' => "Refund ($payby$payinfo) by ". $cust_refund->otaker. "
". -% $delete, -% 'refund' => $cust_refund->refund, -% }; -% -%} -% -% - - -<% include("/elements/table-grid.html") %> -% my $bgcolor1 = '#eeeeee'; -% my $bgcolor2 = '#ffffff'; -% my $bgcolor = ''; -% - - - - Date - Description - Charge - Payment - In-house
Credit - Refund - Balance - -% -%#display payment history -% -%sub balance_forward_row { -% my( $b, $date ) = @_; -% my $conf = new FS::Conf; -% my $money_char = $conf->config('money_char') || '$'; -% ( my $balance_forward = $money_char. $b ) =~ s/^\$\-/- \$/; - - - - <% time2str("%D",$date) %> - - - - Starting balance on <% time2str("%D",$date) %> - (show prior history) - - - - - - - <% $balance_forward %> - - -%} -% -%my $balance = 0; -%my %target = (); -%my $money_char = $conf->config('money_char') || '$'; -% -%my $years = $conf->config('payment_history-years') || 2; -%my $older_than = time - $years * 31556736; #60*60*24*365.24 -%my $hidden = 0; -%my $seen = 0; -%my $old_history = 0; -%my $lastdate = 0; -% -%foreach my $item ( sort { $a->{'date'} <=> $b->{'date'} } @history ) { -% -% $lastdate = $item->{'date'}; -% -% my $display; -% if ( $item->{'date'} < $older_than ) { -% $display = ' STYLE="display:none" '; -% $hidden = 1; -% } else { -% -% $display = ''; -% -% if ( $hidden && ! $seen++ ) { -% balance_forward_row($balance, $item->{'date'}); -% } -% -% } -% -% if ( $bgcolor eq $bgcolor1 ) { -% $bgcolor = $bgcolor2; -% } else { -% $bgcolor = $bgcolor1; -% } -% -% my $charge = exists($item->{'charge'}) -% ? sprintf("$money_char\%.2f", $item->{'charge'}) -% : ''; -% -% my $payment = exists($item->{'payment'}) -% ? sprintf("- $money_char\%.2f", $item->{'payment'}) -% : ''; -% -% $payment ||= sprintf( "~~- $money_char\%.2f~~", -% $item->{'void_payment'} -% ) -% if exists($item->{'void_payment'}); -% -% my $credit = exists($item->{'credit'}) -% ? sprintf("- $money_char\%.2f", $item->{'credit'}) -% : ''; -% -% my $refund = exists($item->{'refund'}) -% ? sprintf("$money_char\%.2f", $item->{'refund'}) -% : ''; -% -% my $target = exists($item->{'target'}) ? $item->{'target'} : ''; -% -% $balance += $item->{'charge'} if exists $item->{'charge'}; -% $balance -= $item->{'payment'} if exists $item->{'payment'}; -% $balance -= $item->{'credit'} if exists $item->{'credit'}; -% $balance += $item->{'refund'} if exists $item->{'refund'}; -% $balance = sprintf("%.2f", $balance); -% $balance =~ s/^\-0\.00$/0.00/; #yay ieee fp -% ( my $showbalance = $money_char. $balance ) =~ s/^\$\-/- \$/; -% -% - - - > - -% unless ( !$target || $target{$target}++ ) { - - -% } - - <% time2str("%D",$item->{'date'}) %> -% if ( $target && $target{$target} == 1 ) { - - -% } - - - - - <% $item->{'desc'} %> - - - <% $charge %> - - - <% $payment %> - - - <% $credit %> - - - <% $refund %> - - - <% $showbalance %> - - -% } - -%if ( scalar(@history) && $hidden && ! $seen++ ) { -% balance_forward_row($balance, $lastdate); -%} - - - - - -<%init> - -my( $cust_main ) = @_; -my $custnum = $cust_main->custnum; - -my $conf = new FS::Conf; - -my $curuser = $FS::CurrentUser::CurrentUser; - -my @payby = grep /\w/, $conf->config('payby'); -#@payby = (qw( CARD DCRD CHEK DCHK LECB BILL CASH WEST COMP )) -@payby = (qw( CARD DCRD CHEK DCHK LECB BILL CASH COMP )) - unless @payby; -my %payby = map { $_=>1 } @payby; - -my %status = ( - 'Queued' => 'O', #Open - 'In-transit' => 'I', - 'Complete' => 'R', #Resolved - 'All' => '', -); - - diff --git a/httemplate/view/cust_main/tickets.html b/httemplate/view/cust_main/tickets.html deleted file mode 100644 index b5d581d50..000000000 --- a/httemplate/view/cust_main/tickets.html +++ /dev/null @@ -1,84 +0,0 @@ -Tickets -
- -(View <% $openlabel %> tickets for this customer) -(View resolved tickets for this customer) -
-(Create new ticket for this customer) - -<% include("/elements/table-grid.html") %> -% my $bgcolor1 = '#eeeeee'; -% my $bgcolor2 = '#ffffff'; -% my $bgcolor = ''; - - - # - Subject - Status - Queue - Owner - Priority - - -% foreach my $ticket ( @tickets ) { -% my $href = FS::TicketSystem->href_ticket($ticket->{id}); -% if ( $bgcolor eq $bgcolor1 ) { -% $bgcolor = $bgcolor2; -% } else { -% $bgcolor = $bgcolor1; -% } - - - - - ><% $ticket->{id} %> - - - - ><% $ticket->{subject} %> - - - - <% $ticket->{status} %> - - - - <% $ticket->{queue} %> - - - - <% $ticket->{owner} %> - - - - <% $ticket->{content} - ? $ticket->{content}.' ('.$ticket->{priority}.')' - : $ticket->{priority} - %> - - - - -% } - - - -<%init> - -my( $cust_main ) = @_; -my( @tickets ) = $cust_main->tickets; - -my $open_link = FS::TicketSystem->href_customer_tickets($cust_main->custnum); -my $openlabel = join('/', FS::TicketSystem->statuses ); - -my $res_link = FS::TicketSystem->href_customer_tickets( - $cust_main->custnum, - { 'statuses' => [ 'resolved' ] } - ); - -my $new_link = FS::TicketSystem->href_new_ticket( - $cust_main, - join(', ', $cust_main->invoicing_list_emailonly ) - ); - - diff --git a/httemplate/view/cust_pay.html b/httemplate/view/cust_pay.html deleted file mode 100644 index 4037d3525..000000000 --- a/httemplate/view/cust_pay.html +++ /dev/null @@ -1,133 +0,0 @@ -% if ( $link eq 'popup' ) { - - <% include('/elements/header-popup.html', "Payment Receipt" ) %> - - Print
- -% } elsif ( $link eq 'print' ) { - - <% include('/elements/header-popup.html', "Payment Receipt" ) %> - -% #it would be nice if the menubar could be hidden for print, but better to -% # have it available than not, otherwise the user winds up at a dead end - <% menubar( - "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", - ) - %> -

- -% } else { - - <% include('/elements/header.html', "Payment Receipt", menubar( - "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", - 'Print receipt' => $pr_link, - )) - %> - -% } - -% unless ($link eq 'popup' ) { - <% include('/elements/small_custview.html', - $custnum, - scalar($conf->config('countrydefault')), - 1, #no balance - ) - %> -

-% } - -<% ntable("#cccccc", 2) %> - - - Payment# - <% $cust_pay->paynum %> - - - - Date - <% time2str"%a %b %o, %Y %r", $cust_pay->_date %> - - - - Amount - <% $money_char. $cust_pay->paid %> - - - - Payment method - <% $cust_pay->payby_name %> #<% $cust_pay->paymask %> - - -% if ( $cust_pay->payby =~ /^(CARD|CHEK|LECB)$/ && $cust_pay->paybatch ) { - - - Processor - <% $cust_pay->processor %> - - - - Authorization# - <% $cust_pay->authorization %> - - -% if ( $cust_pay->order_number ) { - - Order# - <% $cust_pay->order_number %> - -% } - -% } - - - -% if ( $link eq 'print' ) { - - - -% } - -% if ( $link =~ /^(popup|print)$/ ) { - - -% } else { - <% include('/elements/footer.html') %> -% } - -<%init> - -my $curuser = $FS::CurrentUser::CurrentUser; - -die "access denied" - unless $curuser->access_right('View customer payments'); - -$cgi->param('paynum') =~ /^(\d+)$/ or die "no paynum"; -my $paynum = $1; - -my $link = ''; -if ( $cgi->param('link') =~ /^(\w+)$/ ) { - $link = $1; -} - -my $cust_pay = qsearchs({ - 'select' => 'cust_pay.*', - 'table' => 'cust_pay', - 'addl_from' => 'LEFT JOIN cust_main USING ( custnum )', - 'hashref' => { 'paynum' => $paynum }, - 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, -}); -die "Payment #$paynum not found!" unless $cust_pay; - -my $pr_link = "${p}view/cust_pay.html?link=print;paynum=$paynum"; - -my $custnum = $cust_pay->custnum; - -my $conf = new FS::Conf; - -my $money_char = $conf->config('money_char') || '$'; - -tie my %payby, 'Tie::IxHash', FS::payby->payby2longname; - - diff --git a/httemplate/view/elements/svc_Common.html b/httemplate/view/elements/svc_Common.html deleted file mode 100644 index 0500248b1..000000000 --- a/httemplate/view/elements/svc_Common.html +++ /dev/null @@ -1,136 +0,0 @@ -% # options example... -% # -% # 'table' => 'svc_something' -% # -% # 'labels' => { -% # 'column' => 'Label', -% # }, -% # -% # listref - each item is a literal column name (or method) or (notyet) coderef -% # if not specified all columns (except for the primary key) will be viewable -% # 'fields' => [ -% # ] -% # -% # # defaults to "edit/$table.cgi?", will have svcnum appended -% # 'edit_url' => -% -% -% if ( $custnum ) { - - - <% include("/elements/header.html","View $label: $value") %> - - <% include( '/elements/small_custview.html', $custnum, '', 1, - "${p}view/cust_main.cgi") %> -
-% } else { - - - - - <% include("/elements/header.html","View $label: $value", menubar( - "Cancel this (unaudited) $label" => - "javascript:areyousure(\'${p}misc/cancel-unaudited.cgi?$svcnum\')" - )) %> -% } - - -Service #<% $svcnum %> -% my $url = $opt{'edit_url'} || $p. 'edit/'. $opt{'table'}. '.cgi?'; -| Edit this <% $label %> -
- -<% ntable("#cccccc") %><% ntable("#cccccc",2) %> -% foreach my $f ( @$fields ) { -% -% my( $field, $type); -% if ( ref($f) ) { -% $field = $f->{'field'}, -% $type = $f->{'type'} || 'text', -% } else { -% $field = $f; -% $type = 'text'; -% } -% - - - - - <% ( $opt{labels} && exists $opt{labels}->{$field} ) - ? $opt{labels}->{$field} - : $field - %> - -% -% #eventually more options for - - -% #print qq!
Send account information!; -% -% if ( $pkgnum ) { -% @part_svc = grep { $_->svcdb eq 'svc_acct' -% && $_->svcpart != $part_svc->svcpart } -% $cust_pkg->available_part_svc; -% } else { -% @part_svc = qsearch('part_svc', { -% svcdb => 'svc_acct', -% disabled => '', -% svcpart => { op=>'!=', value=>$part_svc->svcpart }, -% } ); -% } -% -% } - -Service #<% $svcnum %> -| Edit this service - -% if ( @part_svc ) { - -| - - -% } - - -<% &ntable("#cccccc") %><% &ntable("#cccccc",2) %> - - - Service - <% $part_svc->svc %> - - - Username - <% $svc_acct->username %> - - - Domain - <% $domain %> - - - - Password - -% my $password = $svc_acct->_password; -% if ( $password =~ /^\*\w+\* (.*)$/ ) { -% $password = $1; -% - - (login disabled) -% } -% if ( $conf->exists('showpasswords') ) { - -
<% encode_entities($password) %>
-% } else { - - (hidden) -% } - - - - -% $password = ''; -% if ( $conf->exists('security_phrase') ) { -% my $sec_phrase = $svc_acct->sec_phrase; -% - - - Security phrase - <% $svc_acct->sec_phrase %> - -% } -% if ( $svc_acct->popnum ) { -% my $svc_acct_pop = qsearchs('svc_acct_pop',{'popnum'=>$svc_acct->popnum}); -% - - - Access number - <% $svc_acct_pop->text %> - -% } -% if ($svc_acct->uid ne '') { - - - UID - <% $svc_acct->uid %> - -% } -% if ($svc_acct->gid ne '') { - - - GID - <% $svc_acct->gid %> - -% } -% if ($svc_acct->finger ne '') { - - - GECOS - <% $svc_acct->finger %> - -% } -% if ($svc_acct->dir ne '') { - - - Home directory - <% $svc_acct->dir %> - -% } -% if ($svc_acct->shell ne '') { - - - Shell - <% $svc_acct->shell %> - -% } -% if ($svc_acct->quota ne '') { - - - Quota - <% $svc_acct->quota %> - -% } -% if ($svc_acct->slipip) { - - - IP address - - <% ( $svc_acct->slipip eq "0.0.0.0" || $svc_acct->slipip eq '0e0' ) - ? "(Dynamic)" - : $svc_acct->slipip - %> - - -% } -% my %ulabel = ( seconds => 'Time', -% upbytes => 'Upload bytes', -% downbytes => 'Download bytes', -% totalbytes => 'Total bytes', -% ); -% foreach my $uf ( keys %ulabel ) { -% my $tf = $uf . "_threshold"; -% if ( $svc_acct->$uf ne '' ) { -% my $v = $uf eq 'seconds' -% ? (($svc_acct->$uf < 0 ? '-' : ''). duration_exact($svc_acct->$uf) ) -% : FS::UI::bytecount::display_bytecount($svc_acct->$uf); - - <% $ulabel{$uf} %> remaining - <% $v %> - - -% } -% } -% foreach my $attribute ( grep /^radius_/, $svc_acct->fields ) { -% $attribute =~ /^radius_(.*)$/; -% my $pattribute = $FS::raddb::attrib{$1}; -% - - - Radius (reply) <% $pattribute %> - <% $svc_acct->getfield($attribute) %> - -% } -% foreach my $attribute ( grep /^rc_/, $svc_acct->fields ) { -% $attribute =~ /^rc_(.*)$/; -% my $pattribute = $FS::raddb::attrib{$1}; -% - - - Radius (check) <% $pattribute %> - <% $svc_acct->getfield($attribute) %> - -% } - - - - RADIUS groups - <% join('
', $svc_acct->radius_groups) %> - -% -%# Can this be abstracted further? Maybe a library function like -%# widget('HTML', 'view', $svc_acct) ? It would definitely make UI -%# style management easier. -% -% foreach (sort { $a cmp $b } $svc_acct->virtual_fields) { - - <% $svc_acct->pvf($_)->widget('HTML', 'view', $svc_acct->getfield($_)) %> -% } - - - - -

- -% if ( @svc_www ) { - Hosting - <% &ntable("#cccccc") %><% &ntable("#cccccc",2) %> -% foreach my $svc_www (@svc_www) { -% my($label, $value) = $svc_www->cust_svc->label; -% my $link = $p. 'view/svc_www.cgi?'. $svc_www->svcnum; - - - <% "$label: $value" %> - - -% } - -

-% } - -<% join("
", $conf->config('svc_acct-notes') ) %> -

- -<% joblisting({'svcnum'=>$svcnum}, 1) %> - -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('View customer services'); - -my $conf = new FS::Conf; - -my $addl_from = ' LEFT JOIN cust_svc USING ( svcnum ) '. - ' LEFT JOIN cust_pkg USING ( pkgnum ) '. - ' LEFT JOIN cust_main USING ( custnum ) '; - -my($query) = $cgi->keywords; -$query =~ /^(\d+)$/; -my $svcnum = $1; -my $svc_acct = qsearchs({ - 'select' => 'svc_acct.*', - 'table' => 'svc_acct', - 'addl_from' => $addl_from, - 'hashref' => { 'svcnum' => $svcnum }, - 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, -}); -die "Unknown svcnum" unless $svc_acct; - -#false laziness w/all svc_*.cgi -my $cust_svc = qsearchs( 'cust_svc' , { 'svcnum' => $svcnum } ); -my $pkgnum = $cust_svc->getfield('pkgnum'); -my($cust_pkg, $custnum); -if ($pkgnum) { - $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } ); - $custnum = $cust_pkg->custnum; -} else { - $cust_pkg = ''; - $custnum = ''; -} -#eofalse - -my $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } ); -die "Unknown svcpart" unless $part_svc; -my $svc = $part_svc->svc; - -die 'Empty domsvc for svc_acct.svcnum '. $svc_acct->svcnum - unless $svc_acct->domsvc; -my $svc_domain = qsearchs('svc_domain', { 'svcnum' => $svc_acct->domsvc } ); -die 'Unknown domain (domsvc '. $svc_acct->domsvc. - ' for svc_acct.svcnum '. $svc_acct->svcnum. ')' - unless $svc_domain; -my $domain = $svc_domain->domain; - -my @svc_www = qsearch({ - 'select' => 'svc_www.*', - 'table' => 'svc_www', - 'addl_from' => $addl_from, - 'hashref' => { 'usersvc' => $svcnum }, - #XXX shit outta luck if you somehow got them linked across agents - # maybe we should show but not link to them? kinda makes sense... - # (maybe a specific ACL for this situation???) - 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql( - 'null_right' => 'View/link unlinked services' - ), -}); - - diff --git a/httemplate/view/svc_broadband.cgi b/httemplate/view/svc_broadband.cgi deleted file mode 100644 index e614fe418..000000000 --- a/httemplate/view/svc_broadband.cgi +++ /dev/null @@ -1,211 +0,0 @@ -<%include("/elements/header.html",'Broadband Service View', menubar( - ( ( $custnum ) - ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", - ) - : ( "Cancel this (unaudited) website" => - "${p}misc/cancel-unaudited.cgi?$svcnum" ) - ) -)) -%> - -Edit this information -
-<%ntable("#cccccc")%> - - - <%ntable("#cccccc",2)%> - - Service number - <%$svcnum%> - - - Description - <%$description%> - - - Router - <%$routernum%>: <%$routername%> - - - Download Speed - <%$speed_down%> - - - Upload Speed - <%$speed_up%> - - - IP Address - <%$ip_addr%> - - - IP Netmask - <%$ip_netmask%> - - - IP Gateway - <%$ip_gateway%> - - - MAC Address - <%$mac_addr%> - - - Latitude - <%$latitude%> - - - Longitude - <%$longitude%> - - - Altitude - <%$altitude%> - - - VLAN Profile - <%$vlan_profile%> - - - Authentication Key - <%$auth_key%> - - -% -%foreach (sort { $a cmp $b } $svc_broadband->virtual_fields) { -% print $svc_broadband->pvf($_)->widget('HTML', 'view', -% $svc_broadband->getfield($_)), "\n"; -%} -% -% - - - - - - -
-<%ntable("#cccccc", 2)%> -% -% my $sb_router = qsearchs('router', { svcnum => $svcnum }); -% if ($sb_router) { -% - - Router associated: <%$sb_router->routername%> - - (details) - -
-% my @sb_addr_block; -% if (@sb_addr_block = $sb_router->addr_block) { -% - - Address space - - (edit) - -
-% print ntable("#cccccc", 1); -% foreach (@sb_addr_block) { - - - <%$_->ip_gateway%>/<%$_->ip_netmask%> - -% } - - -% } else { - - No address space allocated. -% } - -
-% -% } else { -% - - -
- -Add router named - - -
-% -%} -% - - -
-<%joblisting({'svcnum'=>$svcnum}, 1)%> - -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('View customer services'); - -my($query) = $cgi->keywords; -$query =~ /^(\d+)$/; -my $svcnum = $1; -my $svc_broadband = qsearchs({ - 'select' => 'svc_broadband.*', - 'table' => 'svc_broadband', - 'addl_from' => ' LEFT JOIN cust_svc USING ( svcnum ) '. - ' LEFT JOIN cust_pkg USING ( pkgnum ) '. - ' LEFT JOIN cust_main USING ( custnum ) ', - 'hashref' => { 'svcnum' => $svcnum }, - 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, -}) or die "svc_broadband: Unknown svcnum $svcnum"; - -#false laziness w/all svc_*.cgi -my $cust_svc = qsearchs( 'cust_svc', { 'svcnum' => $svcnum } ); -my $pkgnum = $cust_svc->getfield('pkgnum'); -my($cust_pkg, $custnum); -if ($pkgnum) { - $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } ); - $custnum = $cust_pkg->custnum; -} else { - $cust_pkg = ''; - $custnum = ''; -} -#eofalse - -my $addr_block = $svc_broadband->addr_block; -my $router = $addr_block->router; - -if (not $router) { die "Could not lookup router for svc_broadband (svcnum $svcnum)" }; - -my ( - $routername, - $routernum, - $speed_down, - $speed_up, - $ip_addr, - $ip_gateway, - $ip_netmask, - $mac_addr, - $latitude, - $longitude, - $altitude, - $vlan_profile, - $auth_key, - $description, - ) = ( - $router->getfield('routername'), - $router->getfield('routernum'), - $svc_broadband->getfield('speed_down'), - $svc_broadband->getfield('speed_up'), - $svc_broadband->getfield('ip_addr'), - $addr_block->ip_gateway, - $addr_block->NetAddr->mask, - $svc_broadband->mac_addr, - $svc_broadband->latitude, - $svc_broadband->longitude, - $svc_broadband->altitude, - $svc_broadband->vlan_profile, - $svc_broadband->auth_key, - $svc_broadband->description, - ); - - diff --git a/httemplate/view/svc_domain.cgi b/httemplate/view/svc_domain.cgi deleted file mode 100755 index d6565db34..000000000 --- a/httemplate/view/svc_domain.cgi +++ /dev/null @@ -1,160 +0,0 @@ -<% include("/elements/header.html",'Domain View', menubar( - ( ( $pkgnum || $custnum ) - ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", - ) - : ( "Delete this (unaudited) domain" => - "javascript:areyousure('${p}misc/cancel-unaudited.cgi?$svcnum', 'Delete $domain and all records?' )" ) - ) -)) %> - -Service #<% $svcnum %> -
Service: <% $part_svc->svc %> -
Domain name: <% $domain %> -% if ( $FS::CurrentUser::CurrentUser->access_right('Edit domain catchall') ) { -
Catch all email (change): -% } else { -
Catch all email: -% } - -<% $email ? "$email" : "(none)" %> -

View whois information. -

- - -% my @records; if ( @records = $svc_domain->domain_record ) { - - <% include('/elements/table-grid.html') %> - -% my $bgcolor1 = '#eeeeee'; -% my $bgcolor2 = '#ffffff'; -% my $bgcolor = $bgcolor2; - - - Zone - Type - Data - - -% foreach my $domain_record ( @records ) { -% my $type = $domain_record->rectype eq '_mstr' -% ? "(slave)" -% : $domain_record->recaf. ' '. $domain_record->rectype; - - - - <% $domain_record->reczone %> - <% $type %> - <% $domain_record->recdata %> - -% unless ( $domain_record->rectype eq 'SOA' -% || ! $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice') -% ) { -% ( my $recdata = $domain_record->recdata ) =~ s/"/\\'\\'/g; - (delete) -% } - - - - -% if ( $bgcolor eq $bgcolor1 ) { -% $bgcolor = $bgcolor2; -% } else { -% $bgcolor = $bgcolor1; -% } - -% } - - -% } - -% if ( $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice') ) { -
-
- - - IN - - - -
- -

- or -

- -
- -% if ( @records ) { - Delete all records and -% } - Slave from nameserver IP - - - - - - -
- -% } - -

- -<% joblisting({'svcnum'=>$svcnum}, 1) %> - -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('View customer services'); - -my($query) = $cgi->keywords; -$query =~ /^(\d+)$/; -my $svcnum = $1; -my $svc_domain = qsearchs({ - 'select' => 'svc_domain.*', - 'table' => 'svc_domain', - 'addl_from' => ' LEFT JOIN cust_svc USING ( svcnum ) '. - ' LEFT JOIN cust_pkg USING ( pkgnum ) '. - ' LEFT JOIN cust_main USING ( custnum ) ', - 'hashref' => {'svcnum'=>$svcnum}, - 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, -}); -die "Unknown svcnum" unless $svc_domain; - -my $cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum}); -my $pkgnum = $cust_svc->getfield('pkgnum'); -my($cust_pkg, $custnum); -if ($pkgnum) { - $cust_pkg=qsearchs('cust_pkg',{'pkgnum'=>$pkgnum}); - $custnum=$cust_pkg->getfield('custnum'); -} else { - $cust_pkg = ''; - $custnum = ''; -} - -my $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } ); -die "Unknown svcpart" unless $part_svc; - -my $email = ''; -if ($svc_domain->catchall) { - my $svc_acct = qsearchs('svc_acct',{'svcnum'=> $svc_domain->catchall } ); - die "Unknown svcpart" unless $svc_acct; - $email = $svc_acct->email; -} - -my $domain = $svc_domain->domain; - - diff --git a/httemplate/view/svc_external.cgi b/httemplate/view/svc_external.cgi deleted file mode 100644 index 553d2362a..000000000 --- a/httemplate/view/svc_external.cgi +++ /dev/null @@ -1,62 +0,0 @@ -<% include("/elements/header.html",'External Service View', menubar( - ( ( $custnum ) - ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", - ) - : ( "Cancel this (unaudited) external service" => - "${p}misc/cancel-unaudited.cgi?$svcnum" ) - ), -)) %> - -Edit this information
-<% ntable("#cccccc") %><% ntable("#cccccc",2) %> - -Service number - <% $svcnum %> -<% FS::Msgcat::_gettext('svc_external-id') || 'External ID' %> - <% $conf->config('svc_external-display_type') eq 'artera_turbo' ? sprintf('%010d', $svc_external->id) : $svc_external->id %> -<% FS::Msgcat::_gettext('svc_external-title') || 'Title' %> - <% $svc_external->title %> -% foreach (sort { $a cmp $b } $svc_external->virtual_fields) { - - <% $svc_external->pvf($_)->widget('HTML', 'view', $svc_external->getfield($_)) %> -% } - - - -
<% joblisting({'svcnum'=>$svcnum}, 1) %> - -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('View customer services'); - -my($query) = $cgi->keywords; -$query =~ /^(\d+)$/; -my $svcnum = $1; -my $svc_external = qsearchs({ - 'select' => 'svc_external.*', - 'table' => 'svc_external', - 'addl_from' => ' LEFT JOIN cust_svc USING ( svcnum ) '. - ' LEFT JOIN cust_pkg USING ( pkgnum ) '. - ' LEFT JOIN cust_main USING ( custnum ) ', - 'hashref' => { 'svcnum' => $svcnum }, - 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, -}) or die "svc_external: Unknown svcnum $svcnum"; - -my $conf = new FS::Conf; - -#false laziness w/all svc_*.cgi -my $cust_svc = qsearchs( 'cust_svc', { 'svcnum' => $svcnum } ); -my $pkgnum = $cust_svc->getfield('pkgnum'); -my($cust_pkg, $custnum); -if ($pkgnum) { - $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } ); - $custnum = $cust_pkg->custnum; -} else { - $cust_pkg = ''; - $custnum = ''; -} -#eofalse - - diff --git a/httemplate/view/svc_forward.cgi b/httemplate/view/svc_forward.cgi deleted file mode 100755 index 745147761..000000000 --- a/httemplate/view/svc_forward.cgi +++ /dev/null @@ -1,92 +0,0 @@ -% die "access denied" -% unless $FS::CurrentUser::CurrentUser->access_right('View customer services'); -% -%my $conf = new FS::Conf; -% -%my($query) = $cgi->keywords; -%$query =~ /^(\d+)$/; -%my $svcnum = $1; -%my $svc_forward = qsearchs({ -% 'select' => 'svc_forward.*', -% 'table' => 'svc_forward', -% 'addl_from' => ' LEFT JOIN cust_svc USING ( svcnum ) '. -% ' LEFT JOIN cust_pkg USING ( pkgnum ) '. -% ' LEFT JOIN cust_main USING ( custnum ) ', -% 'hashref' => {'svcnum'=>$svcnum}, -% 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, -%}); -%die "Unknown svcnum" unless $svc_forward; -% -%my $cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum}); -%my $pkgnum = $cust_svc->getfield('pkgnum'); -%my($cust_pkg, $custnum); -%if ($pkgnum) { -% $cust_pkg=qsearchs('cust_pkg',{'pkgnum'=>$pkgnum}); -% $custnum=$cust_pkg->getfield('custnum'); -%} else { -% $cust_pkg = ''; -% $custnum = ''; -%} -% -%my $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } ) -% or die "Unkonwn svcpart"; -% -%print header('Mail Forward View', menubar( -% ( ( $pkgnum || $custnum ) -% ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", -% ) -% : ( "Cancel this (unaudited) mail forward" => -% "${p}misc/cancel-unaudited.cgi?$svcnum" ) -% ) -%)); -% -%my($srcsvc,$dstsvc,$dst) = ( -% $svc_forward->srcsvc, -% $svc_forward->dstsvc, -% $svc_forward->dst, -%); -%my $src = $svc_forward->dbdef_table->column('src') ? $svc_forward->src : ''; -% -%my $svc = $part_svc->svc; -% -%my $source; -%if ($srcsvc) { -% my $svc_acct = qsearchs('svc_acct',{'svcnum'=>$srcsvc}) -% or die "Corrupted database: no svc_acct.svcnum matching srcsvc $srcsvc"; -% $source = $svc_acct->email; -%} else { -% $source = $src; -%} -% -%my $destination; -%if ($dstsvc) { -% my $svc_acct = qsearchs('svc_acct',{'svcnum'=>$dstsvc}) -% or die "Corrupted database: no svc_acct.svcnum matching dstsvc $dstsvc"; -% $destination = $svc_acct->email; -%} else { -% $destination = $dst; -%} -% -%print qq!Edit this information!. -% ntable("#cccccc",2). -% 'Service number'. -% qq!$svcnum!. -% 'Service'. -% qq!$svc!. -% qq!Email to!. -% qq!$source!. -% qq!Forwards to !. -% qq!$destination!; -% -%foreach (sort { $a cmp $b } $svc_forward->virtual_fields) { -% print $svc_forward->pvf($_)->widget('HTML', 'view', $svc_forward->getfield($_)), -% "\n"; -%} -% -%print qq! !. -% '
'. joblisting({'svcnum'=>$svcnum}, 1). -% '' -%; -% -% - diff --git a/httemplate/view/svc_phone.cgi b/httemplate/view/svc_phone.cgi deleted file mode 100644 index 732f3cd79..000000000 --- a/httemplate/view/svc_phone.cgi +++ /dev/null @@ -1,10 +0,0 @@ -<% include('elements/svc_Common.html', - 'table' => 'svc_phone', - 'fields' => [qw( countrycode phonenum )], #pin - 'labels' => { - 'countrycode' => 'Country code', - 'phonenum' => 'Phone number', - 'pin' => 'PIN', - }, - ) -%> diff --git a/httemplate/view/svc_www.cgi b/httemplate/view/svc_www.cgi deleted file mode 100644 index d6d458ca5..000000000 --- a/httemplate/view/svc_www.cgi +++ /dev/null @@ -1,88 +0,0 @@ -% die "access denied" -% unless $FS::CurrentUser::CurrentUser->access_right('View customer services'); -% -%my($query) = $cgi->keywords; -%$query =~ /^(\d+)$/; -%my $svcnum = $1; -%my $svc_www = qsearchs({ -% 'select' => 'svc_www.*', -% 'table' => 'svc_www', -% 'addl_from' => ' LEFT JOIN cust_svc USING ( svcnum ) '. -% ' LEFT JOIN cust_pkg USING ( pkgnum ) '. -% ' LEFT JOIN cust_main USING ( custnum ) ', -% 'hashref' => { 'svcnum' => $svcnum }, -% 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, -%}) or die "svc_www: Unknown svcnum $svcnum"; -% -%#false laziness w/all svc_*.cgi -%my $cust_svc = qsearchs( 'cust_svc', { 'svcnum' => $svcnum } ); -%my $pkgnum = $cust_svc->getfield('pkgnum'); -%my($cust_pkg, $custnum); -%if ($pkgnum) { -% $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } ); -% $custnum = $cust_pkg->custnum; -%} else { -% $cust_pkg = ''; -% $custnum = ''; -%} -%#eofalse -% -%my $part_svc=qsearchs('part_svc',{'svcpart'=>$cust_svc->svcpart}) -% or die "svc_www: Unknown svcpart" . $cust_svc->svcpart; - -%my $usersvc = $svc_www->usersvc; -%my $svc_acct = ''; -%my $email = ''; -%if ( $usersvc ) { -% $svc_acct = qsearchs('svc_acct', { 'svcnum' => $usersvc } ) -% or die "svc_www: Unknown usersvc $usersvc"; -% $email = $svc_acct->email; -%} -% -%my $domain_record = qsearchs('domain_record', { 'recnum' => $svc_www->recnum } ) -% or die "svc_www: Unknown recnum ". $svc_www->recnum; -% -%my $www = $domain_record->zone; - -<% include("/elements/header.html", "Website View", menubar( - ( ( $custnum ) - ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", - ) - : ( "Cancel this (unaudited) website" => - "${p}misc/cancel-unaudited.cgi?$svcnum" ) - ), - )) -%> - -%print qq!Edit this information
!. -% ntable("#cccccc"). ''. ntable("#cccccc",2). -% qq!Service number!. -% qq!$svcnum!. -% qq!Website name!. -% qq!$www !; -%if ( $part_svc->part_svc_column('usersvc')->columnflag ne 'F' -% || $part_svc->part_svc_column('usersvc')->columnvalue !~ /^\s*$/) { -% print qq!Account!. -% qq!!; -% -% if ( $usersvc ) { -% print qq!$email!; -% } else { -% print '(none)'; -% } -% -% print ''; -%} - <% qq!Config lines! %> - <% qq!
!.$cgi->escapeHTML(join("\n",$svc_www->config))."
" %> -% -%foreach (sort { $a cmp $b } $svc_www->virtual_fields) { -% print $svc_www->pvf($_)->widget('HTML', 'view', $svc_www->getfield($_)), -% "\n"; -%} -% -% -%print ''. -% '
'. joblisting({'svcnum'=>$svcnum}, 1); - -<% include('/elements/footer.html') %> -- cgit v1.2.1

${r}Card number
${r}Expiration	'. -% -% include('/elements/select-month_year.html', -% 'prefix' => 'exp', -% 'selected_date' => -% ( $payby =~ /^(CARD\|DCRD)$/ ? $cust_main->paydate : '' ), -% ). -% -% '
CVV2 !. -% -% qq!(help)!. -% qq!	'. -% -% -% qq!
Start date	'. -% -% include('/elements/select-month_year.html', -% 'prefix' => 'paystart', -% 'disabled' => $disabled, -% 'empty_option' => 1, -% 'start_year' => 2000, -% 'end_year' => (localtime())[5] + 1900, -% 'selected_date' => ( -% ( $payby =~ /^(CARD\|DCRD)$/ -% && cardtype($payinfo) =~ /^(Switch\|Solo)$/ ) -% ? $cust_main->paystart_month. '-'. -% $cust_main->paystart_year -% : '' -% ) -% ). -% -% qq! or Issue number !. -% '
${r}Exact name on card
Charge future payments to this card automatically

${r}Account number		Type
${r}ABA/Routing number	!. -% qq!(help)!. -% qq!
${r}Bank name
$paystate_label	!. -% include('select-state.html', -% 'empty' => '(choose)', -% 'state' => $cust_main->paystate, -% 'country' => $cust_main->country, -% 'prefix' => 'pay', -% ). "
Charge future payments to this electronic check automatically

only for agent(s)	'. &select_agentnum(@_). '
with template	-% -%
email From:	-% -%

Format ("default" or "billco"):	'. -% ''. -% ''. -% '
FTP server:	'. -% '
FTP username:	'. -% ''. -% '
FTP password:	'. -% ''. -% '
FTP directory:	'. -% '

Format:	'. -% ''. -% '
For destination:	'. -% ''. -% '
if balance (this invoice and previous) over	'. -% "$money_char ". -% ''. -% '
Individual per-agent spools?	{'spoolagent_spools'} ? 'CHECKED' : '' ). -% '>'. -% '

<%$dbtable%>

Administration

Freeside Documentation

Installation and upgrades

Configuration and setup

Developer

Importing legacy data

fs_passwd

Schema reference

Session monitor

Installation

Usage

Callbacks

Dropping expired users

Signup server

Unattended SSH

$error_message

FontFormats Localization

- -% my $n = 0; -% foreach my $type (@types) { -% if ( $type eq '' ) { - - no type - -% } elsif ( $type eq 'binary' ) { - - Filename "> - -% } elsif ( $type eq 'textarea' ) { - - " rows=18 cols=88 wrap="off"><% join("\n", $conf->config($key, $agentnum)) %> - -% } elsif ( $type eq 'checkbox' ) { - - " type="checkbox" value="1" - <% $conf->exists($key, $agentnum) ? 'CHECKED' : '' %> > - -% } elsif ( $type eq 'text' ) { - - " type="text" value="<% $conf->exists($key, $agentnum) ? $conf->config($key, $agentnum) : '' %>"> - -% } elsif ( $type eq 'select' \|\| $type eq 'selectmultiple' ) { - - - -% } elsif ( $type eq 'select-sub' ) { - - - -% } elsif ( $type eq 'editlist' ) { -% - - - ()"> - - <% itable() %>
- -% if ( $part->{type} eq 'text' ) { - - "> - -% } elsif ( $part->{type} eq 'immutable' ) { - - <% $part->{value} %> - " value="<% $part->{value} %>"> - -% } elsif ( $part->{type} eq 'select' ) { - - - -% } else { - - unknown type <% $part->type %> - -% } - -	>	(this.form)">

${r}Approved by
${r}Expiration	'. -% -% include('/elements/select-month_year.html', -% 'prefix' => 'exp', -% 'selected_date' => -% ( $payby eq 'COMP' ? $cust_main->paydate : '' ), -% ). -% -% '

Value: -$ -	and/or - - -
	and/or - - upload -
	and/or - - download -
	and/or - - total transfer -

Amount:	- $ -
Description:	- -
	Optional additional description:
	- " rownum="<% $row %>" onkeyup = "possiblyAddRow;" > -

- - Find what: -	- -	- -
- Match - case - - - Match - whole word - -

- - Find what: -	- -	- -
- - Replace with: -	- -	- -
- Match - case - - Match - whole word -

${r}Phone number

${r}Amount

${r}Amount

${r}Amount