# Copyright 1999-2003, Fred Steinberg, Brown Bear Software

package Javascript;
use strict;
use CGI;

my $_scriptStart = "\n<SCRIPT LANGUAGE=\"JavaScript\"><!-- \n";
my $_scriptEnd   = "\n// --></SCRIPT>\n";
# my $_winFocus    = "\nif (navigator.appName.search (/^microsoft/i) == -1) {" .
#                    "\n    win.focus()" .
#                    "\n}";
my $_winFocus = "win.focus()";


sub SetLocation {
    my $code .= <<END_SCRIPT;
    <SCRIPT LANGUAGE="JavaScript">
    <!-- hide code
        function SetLocation (window, url) {
            window.location=url;
        }
       // end code hiding -->
    </SCRIPT>
END_SCRIPT

    $code;
}

# A plain, old informational message popup. The script that gets called can
# do some interesting things, however.
sub PopupWindow {
    my $class = shift;
    my $op = shift;
    my $url = $op->makeURL ({Op           => 'PopupWindow',
                             Date         => undef,
                             CalendarName => undef});

    my $code = << "    END_OF_JAVASCRIPT";     # since end tag is indented
        $_scriptStart
        function PopupWindow (calName, date, id, source, width, height) {
            if (width < 100) {
               width = Math.round (screen.width * width / 100);
            }
            if (height < 100) {
               height = Math.round (screen.height * height / 100);
            }
            win = window.open ("$url" +
                               "&CalendarName=" + calName +
                               "&Date=" + escape (date) +
                               "&ID=" + id +
                               "&Source=" + source,
                               "PopupWindow" + calName + id,
                               "scrollbars,resizable," +
                               "width=" + width + "," +
                               "height=" + height)
            $_winFocus
       }
        $_scriptEnd
    END_OF_JAVASCRIPT

    $code;
}

# Popup to select which included cals to display.
sub EventFilter {
    my $class = shift;
    my $op = shift;
    my $url = $op->makeURL ({Op => 'EventFilter',
                             IncludeOnly => $op->getParams ('IncludeOnly')});

    my $code = << "    END_OF_JAVASCRIPT";
        $_scriptStart
        function EventFilter () {
            win = window.open ("$url", "EventFilter",
                               "scrollbars,resizable,width=300,height=300")
            $_winFocus
        }
        $_scriptEnd
    END_OF_JAVASCRIPT

    $code;
}


# Popup to display all existing calendars and allow selecting one.
sub SelectCalendar {
    my $class = shift;
    my $op = shift;
    my $language = $op->I18N->getLanguage;
    my $url = $op->makeURL ({Op           => 'SelectCalendar',
                             IsPopup      => 1,
                             Language     => $language});
    my $code;

    $code = << "    END_OF_JAVASCRIPT";     # since end tag is indented
        $_scriptStart
        function SelectCalendar () {
            win = window.open ("$url", "SelectWindow",
                               "scrollbars,resizable,width=250,height=300")
            $_winFocus
        }
        $_scriptEnd
    END_OF_JAVASCRIPT

    $code;
}

# Popup to display Search Form
sub SearchCalendar {
    my $class = shift;
    my $op = shift;
    my $language = $op->I18N->getLanguage;
    my $url = $op->makeURL ({Op           => 'SearchForm',
                             IsPopup      => 1,
                             Language     => $language});
    my $code;

    $code = << "    END_OF_JAVASCRIPT";     # since end tag is indented
        $_scriptStart
        function SearchCalendar () {
            win = window.open ("$url", "SearchWindow",
                               "scrollbars,resizable,width=350,height=550")
            $_winFocus
        }
        $_scriptEnd
    END_OF_JAVASCRIPT

    $code;
}

# Popup to display Text Filter Form
sub TextFilter {
    my $class = shift;
    my $op = shift;
    my $language = $op->I18N->getLanguage;
    my $url = $op->makeURL ({Op           => 'TextFilter',
                             Language     => $language});
    my $code;

    $code = << "    END_OF_JAVASCRIPT";     # since end tag is indented
        $_scriptStart
        function TextFilter () {
            win = window.open ("$url", "TextFilterWindow",
                               "scrollbars,resizable,width=350,height=500")
            $_winFocus
        }
        $_scriptEnd
    END_OF_JAVASCRIPT

    $code;
}


# Popup Color Palette
sub ColorPalette {
    my $class = shift;
    my $op = shift;
    my $url = $op->makeURL ({Op => 'ColorPalette'});
    my $code;
    $code = << "    END_OF_JAVASCRIPT";
        $_scriptStart
        function ColorWindow () {
            win = window.open ("$url", "Colors",
                               "scrollbars,resizable,width=600,height=550")
            $_winFocus
        }
        $_scriptEnd
    END_OF_JAVASCRIPT

    $code;
}

# Fn to display URL in Popup window
sub MakePopupFunction {
    my ($class, $url, $title, $width, $height) = @_;
    my $code;

    if ($url =~ /\?/) {
        $url .= '&IsPopup=1';
    } else {
        $url .= '?IsPopup=1';
    }

    $code = << "    END_OF_JAVASCRIPT";     # since end tag is indented
        $_scriptStart
        var ${title}PopupWindow;
        function ${title}Popup () {
            ${title}PopupWindow = window.open ("$url", "$title",
                           "scrollbars,resizable,width=$width,height=$height")
            ${title}PopupWindow.focus();
        }
        $_scriptEnd
    END_OF_JAVASCRIPT

    $code;
}

1;