--- astcc-users-orig.cgi	2005-03-07 23:51:32.546544233 +0800
+++ astcc-users.cgi	2005-03-15 09:43:32.532158223 +0800
@@ -84,7 +84,7 @@
 		$body .= "<table>";
 		$body .= "<tr bgcolor=ffffff><tdcolspan=4><i>" . $status . "</i></td></tr>\n";
 		if ($cardinfo->{'number'}) {
-			$body .= "<tr bgcolor=ccccff><td>Caller*ID</td><td>Called Number</td><td>Trunk</td><td>Disposition</td><td>Billable Seconds</td><td>Billed Cost</td></tr>\n";
+			$body .= "<tr bgcolor=ccccff><td>Start Time</td><td>Caller*ID</td><td>Called Number</td><td>Trunk</td><td>Disposition</td><td>Billable Seconds</td><td>Billed Cost</td></tr>\n";
 			my $sth = $dbh->prepare("SELECT * FROM cdrs WHERE cardnum=" . $dbh->quote($cardinfo->{'number'}));
 			my $res;
 			my $count;
@@ -99,7 +99,7 @@
 				} else {
 					$color = "#ffffcc";
 				}
-				$body .= "<tr bgcolor=$color><td>$callerid</td><td>$res->{callednum}</td><td>$res->{trunk}</td>" .
+				$body .= "<tr bgcolor=$color><td>$res->{callstart}</td><td>$callerid</td><td>$res->{callednum}</td><td>$res->{trunk}</td>" .
 					"<td>$res->{disposition}</td><td>$res->{billseconds}</td><td>$res->{billcost}</td></tr>";
 			}
 		}
@@ -126,7 +126,7 @@
 $msg = "<i>Database unavailable -- please check configuration</i>" unless $dbh;
 
 print "<title>Asterisk&trade; Calling Card Info Sheet</title>\n";
-print "<body><table align=center width=800>\n";
+print "<body><table align=center width=100%>\n";
 print "   <tr><td><img src=\"/_astcc/astcc.png\"></td><td align=center><font face=verdana,helvetica size=5>Asterisk&trade; Calling Card Info Sheet</font>" .
 		"<br><font face=verdana,helvetica color=#444444>$msg</font></td></tr>";
 print "   <tr><td height=350 valign=top>$menu</td><td valign=top width=90% align=center><font face=verdana,helvetica>$body</font></td></tr>";

Caller*ID	Called Number	Trunk	Disposition	Billable Seconds	Billed Cost
Start Time	Caller*ID	Called Number	Trunk	Disposition	Billable Seconds	Billed Cost
$callerid	$res->{callednum}	$res->{trunk}
$res->{callstart}	$callerid	$res->{callednum}	$res->{trunk}	$res->{disposition}	$res->{billseconds}	$res->{billcost}