1
/* Copyright (C) 2000-2003 Thomas Bopp, Thorsten Hampel, Ludger Merkens
1
/* Copyright (C) 2000-2006 Thomas Bopp, Thorsten Hampel, Ludger Merkens
3
3
* This program is free software; you can redistribute it and/or modify
4
4
* it under the terms of the GNU General Public License as published by
52
52
0, EVENT_ATTRIBUTES_CHANGE, 0, CONTROL_ATTR_USER,"");
54
54
init_class_attribute(DATE_START_TIME, CMD_TYPE_INT, "start time of date",
55
0, EVENT_ATTRIBUTES_CHANGE, 0, CONTROL_ATTR_USER,"");
55
0, EVENT_ATTRIBUTES_CHANGE, 0, CONTROL_ATTR_USER, 0);
56
56
init_class_attribute(DATE_END_TIME, CMD_TYPE_INT, "end time of date",
57
0, EVENT_ATTRIBUTES_CHANGE, 0, CONTROL_ATTR_USER,"");
57
0, EVENT_ATTRIBUTES_CHANGE, 0, CONTROL_ATTR_USER, 0);
59
59
init_class_attribute(DATE_START_DATE, CMD_TYPE_INT, "start date of date",
60
0, EVENT_ATTRIBUTES_CHANGE, 0, CONTROL_ATTR_USER,"");
60
0, EVENT_ATTRIBUTES_CHANGE, 0, CONTROL_ATTR_USER, 0);
62
62
init_class_attribute(DATE_END_DATE, CMD_TYPE_INT, "end date of date",
63
0, EVENT_ATTRIBUTES_CHANGE, 0, CONTROL_ATTR_USER,"");
63
0, EVENT_ATTRIBUTES_CHANGE, 0, CONTROL_ATTR_USER, 0);
65
65
init_class_attribute(DATE_INTERVALL, CMD_TYPE_STRING,
66
66
"intervall of date (day, week, month, year)",
101
101
object execute(mapping vars)
104
104
try_event(EVENT_EXECUTE, CALLER, obj);
105
if ( vars->transient ) {
106
if ( mappingp(vars->attributes) )
107
vars->attributes[OBJ_TEMP] = 1;
109
vars->attributes = ([ OBJ_TEMP : 1 ]);
105
112
obj = ::object_create(vars["name"], CLASS_NAME_DATE, 0,
106
113
vars["attributes"],
107
114
vars["attributesAcquired"],