My script does not have that towards the end of it. How would I go about adding this funtion?? I've included the code from my command_add_oneclick_event.pl file.
sub command_add_oneclick_event {
&checkPermissions("","ADD_EVENT");
my ($properties,$name,$error);
my ($db) = new DBFile($events_db);
my ($id);
foreach (keys %in) {
if ((/^FIELD_(.*)/) && ($in{$_} ne "")) {
$properties->{$1} = $in{$_};
}
}
$error=0;
foreach (keys %{$db->{'properties'}}) {
if ($db->{'properties'}->{$_}->{'required'} && ($properties->{$_} eq "")) {
$name = $db->{'properties'}->{$_}->{'name'} | | $_;
&addUserMessage(&getMessage("FIELD_IS_REQUIRED",$name));
$error=1;
}
}
if ($error) {
$Template::record = $properties;
&ERROR(&getMessage("EVENT_NOT_ADDED_FIELDS_MISSING"));
}
unless ($Config->get("allow_html")) {
foreach (keys %{$properties}) {
$properties->{$_} = &HTML::filter($properties->{$_});
}
}
$properties->{'author_id'} = $User->{'username'};
$properties->{'author_name'} = $User->{'name'};
$properties->{'time_added'} = time;
if ($User->hasPermission("","APPROVE") | | $User->hasPermission($calendar,"APPROVE_OWN_EVENTS")) {
$properties->{'approved'} = 1;
}
else {
&addUserMessage(&getMessage("EVENT_SAVED_PENDING_APPROVAL"));
}
if ($id = $db->addRecord($properties)) {
&addUserMessage(&getMessage("EVENT_ADDED"));
$properties->{'id'} = $id;
$Template::event = $properties;
}
else {
&ERROR($db->getErrorMessage());
}
my ($db) = new DBFile($schedule_db);
my ($event_id) = $id;
my ($schedule);
foreach (sort keys %in) {
if (/^SCHEDULE_(.*)/) {
$schedule->{$1} = $in{$_};
}
}
$db->deleteRecords( {'event_id'=>$event_id} );
if (&Event::scheduleEvent($db, $schedule, $event_id)) {
&addUserMessage(&getMessage("SCHEDULE_SAVED"));
}
else {
&addUserMessage(&getMessage("ERROR_WHILE_SAVING_SCHEDULE"));
&addUserMessage(&Event::getErrorMessage());
$Template::schedule = $schedule;
&showSameScreen();
}
}
1;
------------------
-Paul Reisinger