~beaky/wacs/trunk

« back to all changes in this revision

Viewing changes to modules/wacsdnl.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:
3
3
#       NB: These are the "dodgy" routines that should be re-written as soon
4
4
#           as possible related to download identification.
5
5
#
6
 
#    (C) Copyright 2006,2007,2008,2009,2012,2013 B King
 
6
#    (C) Copyright 2006,2007,2008,2009,2012,2013,2023 B King
7
7
#    This file is part of WACS.
8
8
#
9
9
#    WACS is free software; you can redistribute it and/or modify
219
219
        my( $notes )=@_;
220
220
 
221
221
        # standard note passing from the download dnotes field
 
222
        if( $notes eq "Catflag: A" )
 
223
        {
 
224
                $id_catinfo .= "lesbian fff ";
 
225
                $id_catflag = "A";
 
226
        }
222
227
        if( $notes eq "Catflag: B" )
223
228
        {
224
229
                $id_catflag = "B";
225
230
        }
 
231
        if( $notes eq "Catflag: D" )
 
232
        {
 
233
                $id_catinfo .= "fetish ";
 
234
                $id_catflag = "D";
 
235
        }
226
236
        if( $notes eq "Catflag: F" )
227
237
        {
228
238
                $id_catinfo .= "fuck ";