Changeset 3c9012b for perlglue.xs


Ignore:
Timestamp:
Oct 29, 2006, 6:36:56 PM (14 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, barnowl_perlaim, debian, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
e7ac2b6
Parents:
421c8ef7
Message:
Adding some support for distinguishing personals/private with messages generated from perl
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perlglue.xs

    rdb8b00b r3c9012b  
    135135                        } else if(!strcmp(key, "direction")) {
    136136                                owl_message_set_direction(m, owl_message_parse_direction(val));
     137                        } else if(!strcmp(key, "isprivate")) {
     138                                SV * v = hv_iterval(hash, ent);
     139                                if(SvTRUE(v)) {
     140                                        owl_message_set_isprivate(m);
     141                                }
    137142                        } else {
    138143                                owl_message_set_attribute(m, key, val);
    139144                        }
    140145                }
    141                 owl_message_set_isprivate(m);
    142146                if(owl_message_is_type_admin(m)) {
    143147                        if(!owl_message_get_attribute_value(m, "adminheader"))
Note: See TracChangeset for help on using the changeset viewer.