USP_CLONESITE_PAYMENT

Handles the Payment Part-specific steps for cloning a CMS site.

Parameters

Parameter Parameter Type Mode Description
@SourceClientSitesID int IN
@TargetClientSitesID int IN
@CurrentUserID int IN
@CopyBatchGuid uniqueidentifier IN

Definition

Copy


CREATE procedure dbo.USP_CLONESITE_PAYMENT
(
@SourceClientSitesID int,
@TargetClientSitesID int,
@CurrentUserID int,
@CopyBatchGuid uniqueidentifier
)
as


    declare @IDs xml
    set @IDs = 
    (
        select SCP.EmailTemplateID as ID
        from dbo.ShoppingCartPart SCP
        inner join dbo.SiteContent SC on SC.CopySourceID = SCP.SiteContentID
        where SC.CopyBatchGUID = @CopyBatchGuid
        FOR XML RAW, ELEMENTS
    )        
    exec spCloneSite_EmailTemplate @TargetClientSitesID,@CurrentUserID,@CopyBatchGUID,@IDs

    insert into dbo.ShoppingCartPart (SiteContentID, AllowCreditCard, AllowDirectDebit, AllowPledge, MerchantAccountID, Active, ExpirationDays, ShowPaymentFormImmediately, EmailTemplateID)
    select
    SC.ID,
    AllowCreditCard,
    AllowDirectDebit,
    AllowPledge,
    MerchantAccountID,
    Active,
    ExpirationDays,
    ShowPaymentFormImmediately,
    ET.ID
    from dbo.ShoppingCartPart SCP
    inner join dbo.EmailTemplate ET on ET.CopySourceID = SCP.EmailTemplateID and ET.CopyBatchGUID = @CopyBatchGuid
    inner join dbo.SiteContent SC on SC.CopySourceID = SCP.SiteContentID and SC.CopyBatchGUID = @CopyBatchGuid


    --Update XML Data

    declare @Data xml
    set @Data = 
    (
        select P.SiteContentID, SCP.ID as Value
        from dbo.UFN_GETXMLPROPERTYFORSITECOPY(@CopyBatchGuid,112, 'ShoppingCartPartID') P
        inner join dbo.ShoppingCartPart SCP on SCP.SiteContentID = P.SiteContentID
        FOR XML RAW, ELEMENTS
    )    
    exec USP_UPDATEXMLPROPERTYFORSITECOPY 'ShoppingCartPartID', @Data    

    set @Data = 
    (
        select P.SiteContentID, SI.ID as Value
        from dbo.UFN_GETXMLPROPERTYFORSITECOPY(@CopyBatchGuid,112, 'FinderImgUrl') P
        inner join dbo.SiteImages SI on SI.CopySourceID = P.Value
        where SI.CopyBatchGuid = @CopyBatchGuid
        FOR XML RAW, ELEMENTS
    )    
    exec USP_UPDATEXMLPROPERTYFORSITECOPY 'FinderImgUrl', @Data