view release on metacpan or  search on metacpan

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

package petmarket::api::orderservice;


# Copyright (c) 2003 by Vsevolod (Simon) Ilyushchenko. All rights reserved.
# This program is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.

#This is server side for the Macromedia's Petmarket example.
#See http://www.simonf.com/flap for more information.

use warnings;
use strict;

use petmarket::api::dbConn;
use vars qw/@ISA/;
@ISA=("petmarket::api::dbConn");

sub methodTable
{
    return {
        "placeOrder" => {
            "description" => "Empties the cart", 
            "access" => "remote", 
        },
    };
    
}

sub placeOrder
{
    my ($self, $userid, $cartid) = @_;

    $self->dbh->do("DELETE FROM cart_details WHERE cartid='$cartid'");
}

1;