static Pointer DatePageToCalendarDatePtr (
DialoG d
)
{
CalendarDatePtr cdp;
UIEnum day;
DatePagePtr dpp;
UIEnum month;
UIEnum year;
cdp = NULL;
dpp = (DatePagePtr) GetObjectExtra (d);
if (dpp == NULL) return NULL;
cdp = CalendarDateNew ();
if (cdp != NULL) {
if (GetEnumPopup (dpp->month, months_alist, &month)) {
cdp->month = (Int4) month;
} else {
cdp->month = -1;
}
if (GetEnumPopup (dpp->day, days_alist, &day)) {
cdp->day = (Int4) day;
} else {
cdp->day = -1;
}
if (GetEnumPopup (dpp->year, years_alist, &year)) {
cdp->year = (Int4) year;
} else {
cdp->year = -1;
}
/*
if (cdp->month == -1 || cdp->day == -1 || cdp->year == -1) {
cdp = CalendarDateFree (cdp);
}
*/
}
return (Pointer) cdp;
}
static void ChangeReason (
PopuP p
)
{
IntBadgPtr ibp;
SscBadgPtr sbp;
UIEnum val;
sbp = (SscBadgPtr) GetObjectExtra (p);
if (sbp == NULL) return;
ibp = GetBadgInfo (sbp, sbp->currItem);
if (ibp == NULL) return;
if (GetEnumPopup (sbp->reason, reason_alist, &val)) {
ibp->reason = (Int4) val;
}
UpdateDocument (sbp->badglog, sbp->currItem, sbp->currItem);
Update ();
CheckExtendTable (sbp);
}