From b60afb3800213aa1c6a4aed9d4bb995c628c6011 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 11 Apr 2008 09:20:50 +0000
Subject: taqua cdrs!

---
 httemplate/misc/cdr-import.html | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'httemplate/misc/cdr-import.html')

diff --git a/httemplate/misc/cdr-import.html b/httemplate/misc/cdr-import.html
index a71b25b67..b46607869 100644
--- a/httemplate/misc/cdr-import.html
+++ b/httemplate/misc/cdr-import.html
@@ -3,8 +3,8 @@
 Import a CSV file containing Call Detail Records (CDRs).<BR><BR>
 CDR Format:
 <SELECT NAME="format">
-% foreach $format ( keys %formats ) {
-    <OPTION VALUE="<% $format %>"><% $format{$format} %></OPTION>
+% foreach my $format ( keys %formats ) {
+    <OPTION VALUE="<% $format %>"><% $formats{$format} %></OPTION>
 % }
 </SELECT>
 <BR><BR>
@@ -21,6 +21,6 @@ Filename: <INPUT TYPE="file" NAME="csvfile"><BR><BR>
 die "access denied"
   unless $FS::CurrentUser::CurrentUser->access_right('Import');
 
-tie my %formats, FS::cdr->import_formats;
+tie my %formats, 'Tie::IxHash', FS::cdr->import_formats;
 
 </%init>
-- 
cgit v1.2.1