oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed some next action bugs.

Browse source
This commit is contained in:
JT Smith 2002-11-25 23:00:19 +00:00
parent d9c2c3bcf7
commit 6f2a5d3afa
1 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lib/WebGUI/Wobject/EventsCalendar.pm
View file

@ -284,7 +284,7 @@ sub www_editSave {
defaultMonth=>$session{form}{defaultMonth},
paginateAfter=>$session{form}{paginateAfter}
});
if ($session{form}{proceed}) {
if ($session{form}{proceed} eq "addEvent") {
$session{form}{eid} = "new";
return $_[0]->www_editEvent;
} else {
@ -337,7 +337,14 @@ sub www_editEvent {
-extras=>'onBlur="this.form.until.value=this.form.endDate.value;"'
);
$f->raw($special);
$f->yesNo("proceed",WebGUI::International::get(21,$namespace));
if ($session{form}{eid} eq "new") {
$f->whatNext(
-options=>{
addEvent=>WebGUI::International::get(91,$namespace),
backToPage=>WebGUI::International::get(745)
}
);
}
$f->submit;
$output .= $f->print;
return $output;
@ -390,7 +397,7 @@ sub www_editEventSave {
description=".quote($session{form}{description}).", startDate='".setToEpoch($session{form}{startDate})."',
endDate='".setToEpoch($session{form}{endDate})."' where EventsCalendar_eventId=$session{form}{eid}");
}
if ($session{form}{proceed}) {
if ($session{form}{proceed} eq "addEvent") {
$session{form}{eid} = "new";
return $_[0]->www_editEvent;
} else {