Import of revision 19971210+
[mspang/plceo1.git] / novelty.pl
1 #
2 # Date                  Name                            Modification
3 # ----          ----                ------------
4 # 94/11/20              Alex Brodsky            Split off from main ceo file
5 # 95/10/14      Nikita Borisov      Added MousePads (aren't they cool? :)
6 # 96/01/24      Nikita Borisov      Added FASS tickets (hack hack hack)
7 # 96/01/29              Nikita Borisov          Removed FASS tickets option
8 #
9
10
11 sub noveltymenu
12 {
13     $menu=<<EOM;
14
15 Choose an option:
16   (S)ell something
17   (M)ain menu
18
19 (S,M): 
20 EOM
21
22     @opts = ('ssellnovmenu','mmainmenu');
23     $choice = &domenu($menu,@opts);
24     return $choice;
25 }
26
27 sub sellnovmenu
28 {
29     $menu=<<EOM;
30
31 What to sell?
32   (P)ens
33   (S)hirts
34   (B)uttons
35   (N)ovelty menu
36   m(O)use Pads
37   (M)ain menu
38
39 (P,S,B,N,O,M): 
40 EOM
41
42     @opts = ('pdosellpens','sdosellshirts','bdosellbuttons',
43                          'odosellmpads', # 'fdosellfass',
44             'nnoveltymenu','mmainmenu');
45     $choice = &domenu($menu,@opts);
46     return $choice;
47 }
48
49 sub dosellpens
50 {
51     &dosellsomething("pens","pens");
52 }
53
54 sub dosellshirts
55 {
56     &dosellsomething("shirts","shirts");
57 }
58
59 sub dosellbuttons
60 {
61     &dosellsomething("buttons","buttons");
62 }
63
64 sub dosellmpads
65 {
66     &dosellsomething("mousepads","mousepads");
67 }
68
69 sub dosellfass
70 {
71         &dosellsomething("FASS Tickets", "fass");
72 }
73
74 sub dosellsomething
75 {
76     local($item,$code,$quant,$cost,$comm);
77     $item = shift;
78     $code = shift;
79     &Editscreen(<<EOT) unless $code eq "fass";
80 Please fill in the following information for selling $item.
81
82 Quantity  : 
83 Total cost: \$
84 Comments  : 
85 EOT
86     &Editscreen(<<EOT) if $code eq "fass";
87 Please fill in the following information for selling $item.
88
89 Quantity  : 
90 Total cost: \$
91 Sold to   : 
92 EOT
93     &VI;
94     ($quant, $cost, $comm) = split(/\n/,&Filterscreen);
95     $quant =~ s/\D//g;
96     $cost =~ s/[^\d\.]//g;
97     $cost =~ s/\./,/g;
98     $cost =~ s/,/\./;
99     $cost =~ s/,//g;
100     $comm =~ s/[^ -~]//g;
101     $comm =~ s/;/:/g;
102     if ($quant == 0)
103     {
104         print "\n${beep}No quantity entered - aborting.\n";
105         return;
106     }
107     chop($date = `date`);
108     open(NOV,">>$NOVELTYLOG") || do
109     {
110         print "\n${beep}Unable to open novelty log - aborting.\n";
111         return;
112     };
113     print NOV "$date;$code;$quant;$cost;$comm\n";
114     close(NOV);
115
116     &UpdateCashlog($cost,"$quant $item sold");
117     &Backup($NOVELTYLOG);
118 }
119
120 1;