use HTML::Entities;
use Date::Format;
use Date::Parse;
+use Tie::IxHash;
use FS::UID qw(cgisuidsetup dbh);
use FS::Record qw(qsearch qsearchs fields);
use FS::part_svc;
use FS::pkg_svc;
use FS::cust_pkg;
use FS::cust_svc;
+use FS::part_bill_event;
use FS::CGI qw(header menubar popurl table itable ntable);
sub Script_OnStart {
$$ref =~ s/<\/BODY>[\s\n]*<\/HTML>[\s\n]*$//i
or warn "can't remove";
- $$ref .= '<PRE>'. encode_entities(dbh->sprintProfile()). '</PRE>';
+ $$ref .= '<PRE>'. ("\n"x96). encode_entities(dbh->sprintProfile()). '</PRE>';
$$ref .= '</BODY></HTML>';