~beaky/wacs/trunk

« back to all changes in this revision

Viewing changes to modules/wacsstd.pm

  • Committer: beaky
  • Date: 2023-10-24 18:29:30 UTC
  • Revision ID: svn-v4:4196e993-711f-0410-950c-c89e1d26c723:trunk:3025
Updates to make A=All Girl, D=BDSM set types work better.

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
1
#
2
2
#    WacsStd.PM - standard building blocks for Wacs Web Apps
3
3
#
4
 
#    (C) Copyright 2007,2008,2009,2010,2011,2012,2015,2021 B King
 
4
#    (C) Copyright 2007,2008,2009,2010,2011,2012,2015,2021,2023 B King
5
5
#    This file is part of WACS.
6
6
#
7
7
#    WACS is free software; you can redistribute it and/or modify
1543
1543
        {
1544
1544
                $haspussy++;
1545
1545
        }
 
1546
        if( $rcexisting =~ /triangle/ )
 
1547
        {
 
1548
                $haspussy++;
 
1549
        }
1546
1550
 
1547
1551
        # state decision
1548
1552
        if( $haspussy > 0 )
1558
1562
                $rcmodel=~ s/brazilian//g;
1559
1563
                $rcmodel=~ s/trimmed//g;
1560
1564
                $rcmodel=~ s/hairy//g;
 
1565
                $rcmodel=~ s/triangle//g;
1561
1566
        }
1562
1567
        # return possibly modified version of model attributes
1563
1568
        return( $rcmodel );