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>
Filename: <INPUT TYPE="file" NAME="csvfile"><BR><BR>
+<INPUT TYPE="hidden" NAME="cdrbatch" VALUE="<% $cdrbatch %>"%>
+
<INPUT TYPE="submit" VALUE="Upload">
</FORM>
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;
+
+my $cdrbatch = time2str('webimport-%Y/%m/%d-%T'. "-$$-". rand() * 2**32, time);
</%init>