blob: 41fc4c105fc9bc248f462fdb3d243b4cab5afa73 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
<% include("/elements/header.html", 'Upload business card' ) %>
% if ( $error ) {
<FONT SIZE="+1" COLOR="#ff0000">Error: <% $error %></FONT>
<BR><BR>
% } else {
<FORM ACTION="prospect_main.html" METHOD="POST">
<INPUT TYPE="hidden" NAME="session" VALUE="<% $session %>">
<TABLE>
% my $num = 0;
% foreach my $line ( @lines ) {
<TR>
<TD>
<INPUT TYPE="hidden" NAME="val<%$num%>" VALUE="<% $line |h %>">
<SELECT NAME="sel<%$num%>">
<OPTION VALUE="">
<OPTION VALUE="name">Name
<OPTION VALUE="contactnum0_title">Title
<OPTION VALUE="company">Company
<OPTION VALUE="contactnum0_emailaddress">Email
<OPTION VALUE="address1">Address (1)
<OPTION VALUE="address2">Address (2)
<OPTION VALUE="city_state_zip">City, State, Zip
% my @phone_types = qsearch({table=>'phone_type',order_by=>'weight'});
% foreach my $phone_type ( @phone_types ) {
% next if $phone_type->typename eq 'Home';
<OPTION VALUE="contactnum0_phonetypenum<% $phone_type->phonetypenum %>"><% $phone_type->typename |h %> phone
% }
<OPTION VALUE="contactnum0_comment">Comment
</SELECT>
</TD>
<TD><% $line %></TD>
% unless ( $num++) {
<TD ROWSPAN="9999"><IMG SRC="<%$p%>view/image.cgi?type=png;prefname=bizcard<%$session%>" WIDTH=604 HEIGHT=328></IMG></TD>
% }
</TR>
% }
</TABLE>
<BR>
<INPUT TYPE="submit" VALUE="Create prospect">
% }
<% include('/elements/footer.html') %>
<%init>
my $fh = $cgi->upload('card');
my $error = '';
my @lines = ();
my $session = '';
if ( defined $fh ) {
local $/;
my $logo_data = <$fh>;
$session = int(rand(4294967296)); #XXX
my $pref = new FS::access_user_pref({
'usernum' => $FS::CurrentUser::CurrentUser->usernum,
'prefname' => "bizcard$session",
'prefvalue' => encode_base64($logo_data),
'expiration' => time + 3600, #1h? 1m?
});
my $pref_error = $pref->insert;
if ( $pref_error ) {
die "FATAL: couldn't set preview cookie: $pref_error\n";
}
@lines = eval { ocr_image($logo_data); };
$error = $@ if $error;
} else {
$error = 'No file uploaded';
}
</%init>
|
