| Job Number | $rec{'Job_Number'} | Date Received | $rec{'Date'} | Customer | $rec{'customer'} |
| Job Code | $rec{'job_code'} | QTY | $rec{'qty'} | Delivery Date | $rec{'delivery_date'} |
| approval: | $rec{'approval'} | approval date: | $rec{'approval_date'} | ||
| stat prepress: | $rec{'stat_prepress'} | stat bindery: | $rec{'stat_bindery'} | ||
| stat stripping: | $rec{'stat_stripping'} | stat out source: | $rec{'stat_out_source'} | ||
| stat press: | $rec{'stat_press'} | stat shipping: | $rec{'stat_shipping'} |
|; } sub html_record_3 { # -------------------------------------------------------- # How a record will be displayed. This is used primarily in # returning search results and how it is formatted. The record to # be displayed will be in the %rec hash. my (%rec) = @_; # Load any defaults to put in the VALUE field. ($db_auto_generate and print &build_html_record_3(%rec) and return); my $font_color = 'Font face="Verdana, Arial, Helvetica" Size=2 Color=#003399'; my $font = 'Font face="Verdana, Arial, Helvetica" Size=2'; print qq|
| Job Number | $rec{'Job_Number'} | $rec{'Date'} | $rec{'job_code'} | Invoiced ? | $rec{'invoice'} |
|; } ########################################################## ## Home Page ## ########################################################## sub html_home { # -------------------------------------------------------- # The database manager home page. &html_print_headers; print qq|
 |
 |
|
 |
 |
|
 |
 |
|
 |
 |
|
 |
 |
<$font>!; print qq!| Home !; print qq!| Add ! if ($per_add); print qq!| View ! if ($per_view); print qq!| Stat Report ! if ($per_stat); print qq!| Open Job Report ! if ($per_jobs); print qq!| Delete ! if ($per_del); print qq!| Modify ! if ($per_mod); print qq!| List All ! if ($per_view); print qq!| Admin ! if ($per_admin); print qq!| Log Off |!; print qq!
!; # Print the Footer -- note: a link (doesn't have to be the graphic) is required unless you purchase # a license. See: http://gossamer-threads.com/scripts/register/ for more info. print qq!| <$font>Database Powered by Gossamer Threads Inc. |  |
Search Options:
Match Any
Match Case
Whole Words
Reg. Expression
Keyword Search (will match against all fields)
Max. Returned Hits
Sort By:
Sort Order:
Search Tips:
- use '*' to match everything in a field)
- put a '>' or '<' at the beginning to to do range searches.
~;
}
##########################################################
## Adding ##
##########################################################
sub html_add_form {
# --------------------------------------------------------
# The add form page where the user fills out all the details
# on the new record he would like to add. You should use
# &html_record_form to print out the form as it makes
# updating much easier. Feel free to edit &get_defaults
# to change the default values.
#
$rec{'Date'} = &get_date();
&html_print_headers;
print qq|
Job Number |
<$font>
$rec{'Job_Number'} | Date Received | $rec{'Date'} |
| Customer | $rec{'customer'} | Customer P.O. | $rec{'customer_po'} |
| Address | $rec{'address'} | ||
| Contact | $rec{'contact'} | Sales Rep | $rec{'sales_rep'} |
| Phone Number | $rec{'phone'} | Commission | $rec{'commission'} |
| Fax Number | $rec{'fax'} | ||
| $rec{'e_mail'} | Delivery Date | $rec{'delivery_date'} | |
| Job Code | $rec{'job_code'} | Book Type | $rec{'book_type'} |
| QTY | $rec{'qty'} | Paper Stock | $rec{'stock'} |
| Ink Color | $rec{'ink_colors'} | Stock Width | $rec{'stock_width'} |
| Prints | $rec{'prints'} | Flat Size | $rec{'flat_size'} |
| # of Pages | $rec{'number_of_pages'} | Finish Size | $rec{'finish_size'} |
| Self Cover? | $rec{'self_cover'} | # of Sections | $rec{'print_sections'} |
| fold online: | $rec{'fold_online'} | perf online: | $rec{'perf_online'} |
| remoist glue: | $rec{'remoist_glue'} | glue inline | $rec{'glue_inline'} |
| prepress: | $rec{'prepress'} | proof type: | $rec{'proof_type'} |
| press: | $rec{'press'} | press date: | $rec{'press_date'} |
| stock order date: | $rec{'stock_order_date'} | stock due date: | $rec{'stock_due_date'} |
| vendor: | $rec{'vendor'} | po number: | $rec{'po_number'} |
| bindery: | $rec{'bindery'} | ||
|
Out Source |
$rec{'out_source'} | OS due too: | $rec{'out_source_due_too'} |
|
OS what:
|
$rec{'out_source_what'} | OS due back: | $rec{'out_source_due_back'} |
|
OS to who:
|
$rec{'out_source_who'} | out source cost: | $rec{'out_source_cost'} |
|
notes:
|
$rec{'out_source_notes'} | ||
| our truck: | $rec{'our_truck'} | qty shipped: | $rec{'qty_shipped'} |
| ship to: | other shipping: | $rec{'other_shipping'} | |
| comments: | |||
|; &html_footer; print qq|