You can now choose to delete just a single event, or all of its recurrences.

This commit is contained in:
JT Smith 2002-08-04 04:03:19 +00:00
parent 1c87cd146d
commit 892f5b4483
3 changed files with 16 additions and 13 deletions

View file

@ -17,12 +17,11 @@ QnD INSTALL INSTRUCTIONS:
LWP
Tie::IxHash
DBI
Mysql (or some other DB driver)
Mysql
Digest::MD5
Net::LDAP
Tie::CPHash
Date::Calc
HTML::CalendarMonthSimple
Image::Magick
HTML::Parser

View file

@ -20,7 +20,12 @@ update international set message='Year(s)' where internationalId=703 and languag
insert into international values (704,'WebGUI',1,'Second(s)');
insert into international values (705,'WebGUI',1,'Minute(s)');
insert into international values (706,'WebGUI',1,'Hours(s)');
delete from international where namespace='EventsCalendar' and internationalId=10;
delete from international where namespace='EventsCalendar' and internationalId=11;
insert into international values (75,'EventsCalendar',1,'Which do you wish to do?');
insert into international values (76,'EventsCalendar',1,'Delete only this event.');
insert into international values (77,'EventsCalendar',1,'Delete this event <b>and</b> all of its recurring events.');
insert into international values (78,'EventsCalendar',1,'Don\'t delete anything, I made a mistake.');

View file

@ -132,16 +132,15 @@ sub www_deleteEvent {
my ($output);
if (WebGUI::Privilege::canEditPage()) {
$output = '<h1>'.WebGUI::International::get(42).'</h1>';
$output .= WebGUI::International::get(10,$namespace);
if ($session{form}{rid} > 0) {
$output .= ' '.WebGUI::International::get(11,$namespace);
}
$output .= '?<p><div align="center"><a href="'.
WebGUI::URL::page('func=deleteEventConfirm&wid='.$session{form}{wid}.
'&eid='.$session{form}{eid}.'&rid='.$session{form}{rid}).'">'.
WebGUI::International::get(44).'</a> &nbsp; <a href="'.
WebGUI::URL::page('func=edit&wid='.$session{form}{wid}).'">'.
WebGUI::International::get(45).'</a></div>';
$output .= WebGUI::International::get(75,$namespace).'<p><blockquote>';
$output .= '<a href="'.WebGUI::URL::page('func=deleteEventConfirm&wid='.$session{form}{wid}.'&eid='
.$session{form}{eid}).'">'.WebGUI::International::get(76,$namespace).'</a><p>';
$output .= '<a href="'.WebGUI::URL::page('func=deleteEventConfirm&wid='.$session{form}{wid}.'&eid='
.$session{form}{eid}.'&rid='.$session{form}{rid}).'">'
.WebGUI::International::get(77,$namespace).'</a><p>';
$output .= '<a href="'.WebGUI::URL::page('func=edit&wid='.$session{form}{wid}).'">'
.WebGUI::International::get(78,$namespace).'</a>';
$output .= '</blockquote>';
return $output;
} else {
return WebGUI::Privilege::insufficient();