AMF-Perl

 view release on metacpan or  search on metacpan

doc/examples/petmarket/petmarket.sql  view on Meta::CPAN

--
-- Table structure for table 'category_details'
--

CREATE TABLE category_details (
  catid varchar(10) NOT NULL default '',
  name varchar(80) NOT NULL default '',
  image varchar(255) default NULL,
  descn varchar(255) default NULL,
  locale varchar(10) NOT NULL default ''
) TYPE=MyISAM;

--
-- Dumping data for table 'category_details'
--


INSERT INTO category_details VALUES ('BIRDS','Birds','birds_icon.gif','','en-US');
INSERT INTO category_details VALUES ('REPTILES','Reptiles','reptiles_icon.gif','','en-US');
INSERT INTO category_details VALUES ('DOGS','Dogs','dogs_icon.gif','','en-US');

doc/examples/petmarket/petmarket.sql  view on Meta::CPAN

INSERT INTO item VALUES ('EST-24','K9-RT-02');

--
-- Table structure for table 'item_details'
--

CREATE TABLE item_details (
  itemid varchar(10) NOT NULL default '',
  listprice decimal(10,2) NOT NULL default '0.00',
  unitcost decimal(10,2) NOT NULL default '0.00',
  locale varchar(10) NOT NULL default '',
  image varchar(255) NOT NULL default '',
  descn varchar(255) NOT NULL default '',
  attr1 varchar(80) default NULL,
  attr2 varchar(80) default NULL,
  attr3 varchar(80) default NULL,
  attr4 varchar(80) default NULL,
  attr5 varchar(80) default NULL
) TYPE=MyISAM;

--

doc/examples/petmarket/petmarket.sql  view on Meta::CPAN

INSERT INTO product VALUES ('FI-SW-02','FISH');
INSERT INTO product VALUES ('FI-FW-01','FISH');
INSERT INTO product VALUES ('K9-CW-01','DOGS');

--
-- Table structure for table 'product_details'
--

CREATE TABLE product_details (
  productid varchar(10) NOT NULL default '',
  locale varchar(10) NOT NULL default '',
  name varchar(80) NOT NULL default '',
  image varchar(255) default NULL,
  descn varchar(255) default NULL
) TYPE=MyISAM;

--
-- Dumping data for table 'product_details'
--

doc/examples/petmarket/petmarket/api/stringresourcesservice.pm  view on Meta::CPAN

        "getAffiliateStrings" => {
            "description" => "Returns affiliate strings",
            "access" => "remote", 
        },	
    };
    
}

sub getAppStrings 
{
    my ($self, $locale) = @_;

    unless (%bundle) 
    {
        my %strings; 

        $strings{"HOME_MODE_TITLE_str"}="Home";
        $strings{"BROWSE_MODE_TITLE_str"}="Browse";
        $strings{"CHECKOUT_MODE_TITLE_str"}="Checkout";
        $strings{"WELCOME_PREFIX_HD_str"}="Welcome to ";
        $strings{"WELCOME_BODY_str"}="Welcome to your online source for pets and pet supplies. Whether you're looking for information or ready to buy, we've created a fun and easy shopping experience. The site is tailored to your interests, so as you...