################################################################################ sub printAccountInfo { my ($q, $seller) = @_; my $edit = 1 if $seller; print qq~
 $SITE (Merchant Registration)
Account Information
Email * :
Password * :
HBCU :
Name * :
Phone * :
Address* :
City * :
State * :
Zip Code * :
 


~; } ################################################################################ sub printAddItemPicture { my ($q) = @_; print qq~ Add a Picture
Picture :
Caption :
~; } ################################################################################ sub printBrowseCategories { my ($q) = @_; print qq~ ~; foreach my $category ( @{ &getCategories() } ) { print qq~ ~; } print qq~
 Browse Categories
$category->{name} ($category->{item_count})

~; } ################################################################################ sub printCategories { my ($q, @categories) = @_; foreach my $cat ( @{ getCategories() } ) { print "\n"; } } ################################################################################ sub printEmailExists { my ($q) = @_; print qq~
 $SITE (Merchant Registration)
Our records show that you are already a registered $SITE member. Please login above to access your account.

~; } ################################################################################ sub printFeaturedItems { my ($q, $items) = @_; return unless scalar(@$items) > 0; print qq~
 Featured Items
~; &printGridItems($q, $items); print qq~
More Items-->

~; } ################################################################################ sub printFeaturedStores { my ($q, $stores) = @_; return unless scalar(@$stores) > 0; print qq~
 Featured Sellers
~; &printListSellers($q, $stores); print qq~

~; } ################################################################################ sub printFooter { my ($q) = @_; print "\n"; print $FOOTER; } ################################################################################ sub printGridItems { my ($q, $items) = @_; foreach my $row ( @$items ) { print qq~ ~; foreach my $item ( @{ $row->{columns} } ) { print qq~ ~; } print qq~

$item->{title}
Price: $item->{price}

~; } } ################################################################################ sub printHbcus { my ($q, $hbcu) = @_; foreach my $hbcu ( @{ &getHbcus() } ) { if ($hbcu eq $hbcu->{hbcu_name}) { print "\n"; } else { print "\n"; } } } ################################################################################ sub printHeader { my ($q) = @_; print $HEADER; print qq~ ~; printLoginSignup($q) unless &isAuthorized(); print qq~ ~; if ($item->{policy}) { print qq~ ~; } ################################################################################ sub printSearchResults { my ($q, $searchResults) = @_; print qq~
~; if (&isAuthorized) { printQuickLinks($q); } else { printWelcomeGuest($q); } printBrowseCategories($q); print qq~ ~; } ################################################################################ sub printHowItWorks { my ($q) = @_; print qq~
 $SITE (How It Works)
Create Your Account Fill out our online registration form to create your account in just minutes. No credit card or account information is required.
Manage Your Account Add product information on items you are offering to your account. View reports of how your products are doing on the $SITE. Set up email notifications in connection with your products.

Signup now and start listing your products today!

~; } ################################################################################ sub printItemCategories { my ($q, $item) = @_; foreach my $cat (split(/:/, $item->{categories})) { my $category = &getCategory($cat); print "$category->{name}
"; } } ################################################################################ sub printItemInformation { my ($q, $item) = @_; my $edit = 1 if $q->param('edit'); print qq~
 $SITE (Item Information)

HBCU :
Title * :
Categories * :
Price * : {shipping_included} == 1) { print " checked"; } print qq~ >Shipping Included?
Description * :
    {more_than_one} == 1) { print " checked"; } print qq~ >Do you have more than one?
 

~; printSellItemLinks($q, 'itemInformation'); } ################################################################################ sub printItemPaymentMethods { my ($q, $item) = @_; print "  " if $item->{visa}; print "  " if $item->{mastercard}; print "  " if $item->{amex}; print "  " if $item->{discover}; print "  " if $item->{paypal}; print "

\n"; print "Personal Check

" if $item->{checks}; print "Money Order / Cashier's Check

" if $item->{money_order}; print "Other / See Payment Instructions

" if $item->{other}; } ################################################################################ sub printItemPictures { my ($q, $item) = @_; my $odd = 1; print qq~ Current Item Pictures ~; if ( scalar(@{ $item->{pictures} }) ) { foreach my $picture ( @{ $item->{pictures} } ) { if ($odd) { $odd = 0; print "\n"; } else { $odd = 1; print "\n"; } print qq~ ~; } } else { print qq~ ~; } print qq~
[delete] $picture->{caption}
Currently, there are no pictures for this item
~; } ################################################################################ sub printItemReturnPolicy { my ($q, $item) = @_; if ($item->{accepted}) { print qq~ Returns Accepted
Items must be returned within: $item->{grace}
Refunds will be dispensed in the form of: $item->{type}
Return Policy: $item->{policy} ~; } } else { print qq~ Returns not accepted ~; } } ################################################################################ sub printItemReview { my ($q, $item) = @_; print qq~
 $SITE (Item Review)

$item->{title}
Rating: 1 2 3 4 5
Title: *
Pros:
Cons:
Comment: *
This is your opportunity to tell your fellow $SITE members what you thought and why!

Write a review and tell us what you thought was good and what wasn't so good about this item.

Fields marked with a * are required.
 



~; } ################################################################################ sub printItemReviews { my ($q, $item) = @_; print $q->header(); printHeader($q); print qq~
 $SITE (Item Reviews)

$item->{title}

View Larger
Seller : {seller}>$item->{seller_name}
Category : ~; printItemCategories($q, $item); print qq~
HBCU : $item->{hbcu}
Price : $item->{price}
Item Views : $item->{hits}

~; if ($item->{totalReviews}) { for (my $i = 0; $i < $item->{averageReview}; $i++) { print "\n"; } print "
\n"; } else { print "No Ratings
\n"; } print "Average User Rating
\n"; if ($item->{totalReviews}) { print "{id}&showReviews=1\">Read $item->{totalReviews} Reviews
\n"; } print "{id}\">Write a Review
\n"; print qq~
 
Product Description
$item->{description}
 
User Reviews
~; foreach my $review ( @{ $item->{reviews} } ) { print qq~ ~; } print qq~
Rating: ~; for (my $i = 0; $i < $review->{rating}; $i++) { print "\n"; } print qq~ $review->{title}, $review->{date_created}
Reviewer: $review->{registry_data}->{name}
~; if ($review->{useful} || $review->{not_useful}) { print "$review->{useful} out of ", ($review->{not_useful} + $review->{useful}), " found this review helpful!
\n"; } print qq~
Pros: $review->{pros}
Cons: $review->{cons}

$review->{comments}

Was this review helpful to you? Yes    No
 
 

~; printFooter($q); } ################################################################################ sub printItemReviewThankYou { my ($q, $item) = @_; print qq~
 $SITE (Item Review)

Thank you for submitting your review for the $item->{title}!

Click here to return to the item page.


~; } ################################################################################ sub printLargeItem { my ($q, $item) = @_; print qq~
 $SITE (Enlarged Image)


~; } ################################################################################ sub printListItems { my ($q, $items) = @_; foreach my $item ( @$items ) { print qq~

~; if ($item->{totalReviews}) { for (my $i = 0; $i < $item->{averageReviews}; $i++) { print "\n"; } print "
\n"; print "{id}&showReviews=1\">Read $item->{totalReviews} Reviews\n"; } else { print "{id}\">Write a Review\n"; } print qq~ 		$item->{title}
$item->{description}
$item->{price} - {seller}\">$item->{seller_name}
~; if (&isAuthorized()) { unless (isSavedItem($item->{id}, $q->cookie('ID'))) { print " {id}\">Save to My Items\n"; } } print qq~
~; } } ################################################################################ sub printListSellers { my ($q, $sellers) = @_; my $bgcolor = '#ffffff'; foreach my $seller ( @$sellers ) { print qq~
$seller->{name} ~; if ($seller->{totalReviews}) { print " (\n"; for (my $i = 0; $i < $seller->{averageReviews}; $i++) { print "\n"; } print ")
\n"; print "{id}&showReviews=1\">Read $seller->{totalReviews} Reviews\n"; } print qq~
$seller->{description}
~; $bgcolor = ($bgcolor eq '#ffffff') ? '#ffffee' : '#ffffff'; } } ################################################################################ sub printLogIn { my ($q) = @_; print $q->header(); printHeader($q); print qq~
 $SITE (Access Denied)

You must be logged in to access this part of the marketplace. Please log in above. If you don't have an $SITE account, please signup above and join the community!


~; printFooter($q); } ################################################################################ sub printLoginSignup { my ($q) = @_; print qq~
Email: Password: Forgot Password?
Get Help...
~; } ################################################################################ sub printMarketplaceNews { my ($q) = @_; print qq~
 Marketplace News
The HBCU Connect Marketplace is unveiled!
You've been asking for it, anxiously anticipating it. Well it is here! We are happy to unveil for you the HBCU Connect Marketplace. What is our vision for the Marketplace? We envision the HBCU Connect Marketplace as a place where you can find a nd acquire the latest and hottest HBCU Gear fresh from the hottest suppliers all over the country! Got Ideas? Send Feedback!.

~; } ################################################################################ sub printMerchantLinks { my ($q) = @_; print qq~
 Quick Links
Merchant Overview
How It Works
Pricing
Requirements
Signup Now!

~; } ################################################################################ sub printMerchantOverview { my ($q) = @_; print qq~
 $SITE (Merchant Overview)
Promote Your Products Thousands of people visit HBCUConnect each day, and many are looking for the products you are selling.
It's Free!!! Unlike other online shopping web sites such as Yahoo and Ebay, HBCU Marketplace currently costs nothing! No credit card numbers are required and no cost-per-click fees. The HBCU Marketplace is FREE!!!
It's Easy With the HBCU Marketplace, you easily manage and monitor your product information through our simple web interface.

Signup now and start listing your products today!

~; } ################################################################################ sub printMyItemsForSale { my ($q, $params) = @_; print qq~ My Items for Sale
~; if (scalar( @{$params->{items_for_sale_records}} ) > 0) { print qq~ ~; foreach my $item ( @{ $params->{items_for_sale_records} } ) { if ($item->{__even__}) { print "\n"; } else { print "\n"; } print qq~ ~; } print qq~ ~; } else { print qq~ ~; } print qq~
  Item # Title # of Views # Sold Status
$item->{id} $item->{title} $item->{hits} $item->{num_sold} $item->{status}
  With Selected: $params->{items_for_sale_start_record} - $params->{items_for_sale_end_record} of $params->{items_for_sale_total_records} Records | ~; if ($params->{items_for_sale_previous_page}) { print "{items_for_sale_previous_page}&items_for_sale_order_by=$params->{items_for_sale_order_by}\">Previous Page\n"; } else { print "Previous Page\n"; } print qq~ | ~; if ($params->{items_for_sale_next_page}) { print "{items_for_sale_next_page}&items_for_sale_order_by=$params->{items_for_sale_order_by}\">Next Page\n"; } else { print "Next Page\n"; } print qq~
You currently have no items for sale.
~; } ################################################################################ sub printMyPurchasedItems { my ($q, $params) = @_; print qq~ My Purchased Items ~; } else { print qq~ You currently have no purchased items. ~; } print qq~
~; if (scalar(@{$params->{purchased_items_records}}) > 0) { print qq~ ~; foreach my $item ( @{ $params->{purchased_items_records} } ) { if ($item->{__even__}) { print "\n"; } else { print "\n" } print qq~ ~; } print qq~
Item # Title Qty Total Price Date Seller
$item->{id} $item->{title} $item->{quantity} $item->{total} $item->{date_created} $item->{seller_name}
  $params->{purchased_items_start_record} - $params->{purchased_items_end_record} of $params->{purchased_items_total_records} Records | ~; if ($params->{purchased_items_previous_page}) { print "{purchased_items_previous_page}&purchased_items_order_by=$params->{purchased_items_order_by}\">Previous Page\n"; } else { print "Previous Page\n"; } print qq~ | ~; if ($params->{purchased_items_next_page}) { print "{purchased_items_next_page}&purchased_items_order_by=$params->{purchased_items_order_by}\">Next Page\n"; } else { print "Next Page\n"; } print qq~
~; } ################################################################################ sub printMySavedItems { my ($q, $params) = @_; print qq~ My Saved Items
~; if (scalar( @{$params->{saved_items_records}} ) > 0) { print qq~ ~; foreach my $item ( @{ $params->{saved_items_records} } ) { if ($item->{__even__}) { print "\n"; } else { print "\n"; } print qq~ ~; } print qq~ ~; } else { print qq~ ~; } print qq~
  Picture Title Price Seller
$item->{title} $item->{price} $item->{seller_name}
  With Selected: $params->{saved_items_start_record} - $params->{saved_items_end_record} of $params->{saved_items_total_records} Records | ~; if ($params->{saved_items_previous_page}) { print "{saved_items_previous_page}&saved_items_order_by=$params->{saved_items_order_by}\">Previous Page\n"; } else { print "Previous Page"; } print qq~ | ~; if ($params->{saved_items_next_page}) { print "{saved_items_next_page}&saved_items_order_by=$params->{saved_items_order_by}\">Next Page\n"; } else { print "Next Page\n"; } print qq~
You currently have no saved items.
~; } ################################################################################ sub printMySavedSearches { my ($q, $params) = @_; print qq~ My Saved Searches
~; if (scalar(@{$params->{saved_searches_records}}) > 0) { print qq~ ~; foreach my $search ( @{ $params->{saved_searches_records} } ) { if ($search->{__even__}) { print "\n"; } else { print "\n"; } print qq~ ~; } print qq~ ~; } else { print qq~ ~; } print qq~
  Name of Search
$search->{name}
  With Selected: $params->{saved_searches_start_record} - $params->{saved_searches_end_record} of $params->{saved_searches_total_records} Records | ~; if ($params->{saved_searches_previous_page}) { print "{saved_searches_previous_page}&saved_searches_order_by=$params->{saved_searches_order_by}\">Previous Page\n"; } else { print "Previous Page\n"; } print qq~ | ~; if ($params->{saved_searches_next_page}) { print "{saved_searches_next_page}&saved_searches_order_by=$params->{saved_searches_order_by}\">Next Page\n"; } else { print "Next Page\n"; } print qq~
You currently have no saved searches.
~; } ################################################################################ sub printMySummary { my ($q, $params) = @_; print qq~ ~; if (&getSeller(registry_id => $q->cookie('ID'))) { print qq~ ~; } print qq~
 $SITE (My Summary)
 
~; printMyItemsForSale($q, $params); print qq~
 
~; printMySavedItems($q, $params); print qq~
 
~; printMySavedSearches($q, $params); print qq~
 
~; printMyPurchasedItems($q, $params); print qq~
 

~; } ################################################################################ sub printPaymentInfo { my ($q, $seller) = @_; print qq~ Payment Information
Preview/Purchase Link:
Select the payment methods you will accept:
{visa}; print qq~ >Visa {paypal}; print qq~ >PayPal
{mastercard}; print qq~ >MasterCard {checks}; print qq~ >Personal Check
{amex}; print qq~ >American Express {money_order}; print qq~ >Money Order/Cashier's Check
{discover}; print qq~ >Discover Card {other}; print qq~ >Other / See Payment Instructions
Enter some clear instructions to assist the buyer with payment and shipping:
~; } ################################################################################ sub printPaymentInformation { my ($q, $item) = @_; my $edit = 1 if $q->param('edit'); print qq~
 HBCU Marketplace (Payment Information)

~; printPaymentInfo($q, $item); print qq~
 
~; printReturnInfo($q, $item); print qq~
 



~; printSellItemLinks($q, 'paymentInformation'); } ################################################################################ sub printPicturesCaptions { my ($q, $item) = @_; my $edit = 1 if $q->param('edit'); print qq~
 HBCU Marketplace (Pictures & Captions)

~; printItemPictures($q, $item); print qq~
 
~; printAddItemPicture($q); print qq~
 

~; printSellItemLinks($q, 'picturesCaptions'); } ################################################################################ sub printPricing { my ($q) = @_; print qq~
 $SITE (Pricing)
It's FREE!!! The HBCU Marketplace is absolutely free!

Signup now and start listing your products today!

~; } ################################################################################ sub printPurchaseConfirmation { my ($q, $id) = @_; print qq~
 $SITE (Purchase Item)

Thank you for using the HBCU Connect Marketplace! Information regarding your purchase has been sent to the seller. Remember, all inquiries with regard to items you have purchased should be directed to the seller.

We encourage you to click here to view a printable receipt of this transaction.

~; } ################################################################################ sub printPurchaseItem { my ($q, $item) = @_; print qq~
 $SITE (Purchase Item)

Item Information ~; if ($item->{more_than_one}) { print qq~ ~; } print qq~
Item ID : $item->{id}
Seller : $item->{seller_name}
Title : $item->{title}
Category : ~; printItemCategories($q, $item); print qq~
Price : $item->{price} ~; if ($item->{shipping_included}) { print "(Shipping Included)\n"; } else { print "(Shipping Not Included)\n"; } print qq~
Quantity :    
Total Price : $item->{total}
 
Confirmation Information
~; if ($item->{payment_url}) { print qq~ It's Simple! Clicking the "Buy Now" button will take you to the vendor's payment page to complete the transaction. We will also keep track of your attempt to buy this item for your records and also for the seller's fullfillment records. ~; } else { print qq~ It's Simple! Clicking the "Buy Now" button will track your desire to purchase this item and also notify the seller such that the seller can make payment and shipping arrangements with you personally. ~; } print qq~

Buyers and sellers will be able to submit positive or negative feedback after the transaction.
 
 

~; } ################################################################################ sub printPurchaseReceipt { my ($q, $purchase) = @_; print qq~ $SITE
 $SITE (Receipt of Purchase)

Item Information
Seller : $purchase->{seller}->{name}
Item ID : $purchase->{item}->{id}
Title : $purchase->{title}
Category : ~; printItemCategories($q, $purchase->{item}); print qq~
Price : $purchase->{price} ~; if ($purchase->{item}->{shipping_included}) { print "(Shipping Included)\n"; } else { print "(Shipping Not Included)\n"; } print qq~
Quantity : $purchase->{quantity}
Total Price : $purchase->{total} ~; if ($purchase->{item}->{shipping_included}) { print "(Shipping Included)\n"; } else { print "(Shipping Not Included)\n"; } print qq~
 
Confirmation Information
You have agreed to a contract -- You have entered into a legally binding contract to purchase the item from the seller. You are responsible for reading the full item listing, including the seller's instructions and accepted payment methods. Seller assumes all responsibility for listing this item.
 
Click here to close this window
 

~; } ################################################################################ sub printRequirements { my ($q) = @_; print qq~
 $SITE (Requirements)
HBCUConnect Account All you need to list products in the HBCU Marketplace is an HBCUConnect account. The HBCU Marketplace is absolutely free!
Shipping You must be able to sell and ship products anywhere in the United States of America.
Terms of Use You must agree to and abide by the HBCU Connect Terms of Use policy. To view the policy, click here.

Signup now and start listing your products today!

~; } ################################################################################ sub printReturnInfo { my ($q, $seller) = @_; print qq~ Return Policy
{accepted}; print qq~ >Returns Accepted
Items must be returned within:
Refunds will be dispensed in the form of:
Refund Policy
~; } ################################################################################ sub printReviewConfirm { my ($q, $item) = @_; my $edit = 1 if $q->param('edit'); print qq~
 HBCU Marketplace (Review & Confirm)

~; if ($item->{store}) { print qq~ ~; } print qq~
Item Information
Seller : $item->{seller_name}
HBCU : $item->{hbcu}
Title : $item->{title}
Categories : ~; printItemCategories($q, $item); print qq~
Price : $item->{price}
Description : $item->{description}
 
Pictures & Captions
~; my $odd = 1; foreach my $picture ( @{ $item->{pictures} } ) { if ($odd) { $odd = 0; print "\n"; } else { $odd = 1; print "\n"; } print qq~ ~; } print qq~
$picture->{caption}
 
Payment Methods
~; printItemPaymentMethods($q, $item); print qq~
Return Policy
~; printItemReturnPolicy($q, $item); print qq~
 
Payment Instructions
$item->{instructions}
 

~; printSellItemLinks($q, 'reviewConfirm'); } ################################################################################ sub printQuickLinks { my ($q) = @_; print qq~
 Member Quick Links
Marketplace Home
Sell Item
Advanced Search
My Summary
My Store

~; } ################################################################################ sub printQuickSearch { my ($q) = @_; print qq~
 Quick Item Search (Advanced Search)

~; } ################################################################################ sub printSearchDisplayOptions { my ($q, $searchResults) = @_; print qq~
 Display Options
Grid View
List View
 
{view};document.form.order_by.value='asc';document.form.submit();return false;\">Price: low to high
{view};document.form.order_by.value='desc';document.form.submit();return false;\">Price: high to low

~; } ################################################################################ sub printSearchForm { my ($q) = @_; print qq~
 $SITE (Search Items)

~; if (&isAuthorized()) { print qq~ ~; } print qq~
Keyword(s) :
Search Title and Description
HBCU :
Category :
Min Price :
Max Price :
Specific Seller :
 
  Add this search to my Favorite Searches
 

~; } ################################################################################ sub printSearchInfoDisplay { my ($q, $searchResults) = @_; print qq~
Displaying $searchResults->{start_num} - $searchResults->{end_num} of about $searchResults->{total_num} Items | ~; if ($searchResults->{previous_page}) { print "{previous_page};document.form.submit();return false;\"><--Previous Page\n"; } else { print "<--Previous Page\n"; } print qq~ | ~; if ($searchResults->{next_page}) { print "{next_page};document.form.submit();return false;\">Next Page-->\n"; } else { print "Next Page-->\n"; } print qq~
~; if ($searchResults->{total_num}) { print qq~ ~; } else { print qq~ ~; } print qq~
 $SITE (Search Results)

~; printSearchInfoDisplay($q, $searchResults); print qq~ ~; printSearchInfoDisplay($q, $searchResults); print qq~

~; if ($searchResults->{view}) { printGridItems($q, $searchResults->{records}); } else { printListItems($q, $searchResults->{records}); } print qq~

No matching items were found. Please try your search again.

~; printSearchDisplayOptions($q, $searchResults); } ################################################################################ sub printSellItemLinks { my ($q, $page) = @_; print qq~ ~; if ($page eq 'itemInformation') { print qq~ ~; } else { print qq~ ~; } if ($page eq 'picturesCaptions') { print qq~ ~; } else { print qq~ ~; } if ($page eq 'paymentInformation') { print qq~ ~; } else { print qq~ ~; } if ($page eq 'reviewConfirm') { print qq~ ~; } else { print qq~ ~; } print qq~
 Sell Item Steps
Item Information
  Item Information
Pictures & Captions
  Pictures & Captions
Payment Information
  Payment Information
Review & Confirm
  Review & Confirm

~; } ################################################################################ sub printSeller { my ($q, $seller) = @_; my $edit = 1 if $seller; print qq~
 $SITE (Seller Information)
Store Information
Store Name * :
Categories * :
Website Url :
Privacy Policy Url :
Description * :
 
~; printPaymentInfo($q, $seller); print qq~
 
~; printReturnInfo($q, $seller); print qq~
 


~; } ################################################################################ sub printSellerCategories { my ($q, $seller) = @_; foreach my $cat (split(/:/, $seller->{categories})) { my $category = &getCategory($cat); print "$category->{name}
"; } } ################################################################################ sub printSellerItemCategories { my ($q, $seller) = @_; print qq~
 Seller Items by Categories
~; foreach my $category ( @{ &getSellerItemCategories($seller->{id}) } ) { print qq~   $category->{name} ($category->{item_count})
~; } print qq~

~; } ################################################################################ sub printSendEmail { my ($q, $item, $confirm) = @_; print qq~
 HBCU Marketplace (Email a Friend)
~; if ($confirm) { print qq~ You message was successfully sent!


~; } else { print qq~
To*

:
Subject*

:
Message*

:
 
~; } print qq~

~; } ################################################################################ sub printViewItem { my ($q, $item) = @_; print qq~
 $SITE (View Item)

~; if (&isAdmin()) { if ($item->{featured}) { print " {id}\">Remove From Featured Items\n"; } else { print " {id}\">Add to Featured Items\n"; } print "   \n"; } unless (isSavedItem($item->{id}, $q->cookie('ID'))) { print " {id}\">Save to My Items\n"; } print qq~      Send to a Friend

$item->{title}

View Larger
Seller : {seller}\">$item->{seller_name}
Category : ~; printItemCategories($q, $item); print qq~
HBCU : $item->{hbcu}
Price : $item->{price}
Item Views : $item->{hits}

~; if ($item->{totalReviews}) { for (my $i = 0; $i < $item->{averageReview}; $i++) { print "\n"; } print "
\n"; } else { print "No Ratings
\n"; } print "Average User Rating
\n"; if ($item->{totalReviews}) { print "{id}&showReviews=1\">Read $item->{totalReviews} Reviews
\n"; } print "{id}\">Write a Review
\n"; print qq~
 
Product Description
$item->{description}
 
Payment Methods
~; printItemPaymentMethods($q, $item); print qq~
 
Payment Instructions
$item->{instructions}
 
Return Policy
~; printItemReturnPolicy($q, $item); print qq~
 
 

~; } ################################################################################ sub printViewSeller { my ($q, $seller) = @_; print qq~
 $SITE (View Seller)

~; if (&isAdmin()) { if ($seller->{featured}) { print " {id}\">Remove From Featured Sellers\n"; } else { print " {id}\">Add to Featured Sellers\n"; } } print qq~
$seller->{name} ~; if ($seller->{picture}) { print qq~ ~; } print qq~

~; if ($seller->{website_url}) { print qq~ ~; } print qq~
Seller : $seller->{name}
HBCU : $seller->{hbcu}
Category : ~; printSellerCategories($q, $seller); print qq~
Seller's Website : {website_url}\">$seller->{website_url}
~; if ($seller->{totalReviews}) { for (my $i = 0; $i < $seller->{averageReview}; $i++) { print "\n"; } print "
\n"; } else { print "No Ratings
\n"; } print "Average User Rating
\n"; if ($seller->{totalReviews}) { print "{id}&showReviews=1\">Read $seller->{totalReviews} Reviews
\n"; } print qq~
 
Seller Description
$seller->{description}
 
Most Popular Items
~; &printGridItems($q, &getSellerPopularItems($seller->{id})); print qq~
 

~; printSellerItemCategories($q, $seller); } ################################################################################ sub printWelcomeGuest { my ($q) = @_; print qq~
 Welcome, Guest
Marketplace Home
Advanced Search
Create Your HBCU Store

~; } 1;