no warnings;
BEGIN {
delete $INC {"Eludia/Presentation/Skins/Generic.pm"};
our $lrt_bar = '<!-- L' . ('o' x 8500) . "ong comment -->\n";
our $replacement = {
error => 'JS',
redirect => 'JS',
};
}
sub options {
return {};
}
sub _icon_path {
-r $r -> document_root . "/i/_skins/Classic/$_[0].gif" ?
"$_REQUEST{__static_url}/$_[0].gif?$_REQUEST{__static_salt}" :
"/i/buttons/$_[0].gif"
}
sub register_hotkey {
my ($_SKIN, $hashref) = @_;
$hashref -> {label} =~ s{\&(.)}{<u>$1</u>} or return undef;
my $c = $1;
if ($c eq '<') {
return 37;
}
elsif ($c eq '>') {
return 39;
}
elsif (lc $c eq 'æ') {
return 186;
}
elsif (lc $c eq 'ý') {
return 222;
}
else {
$c =~ y{ÉÖÓÊÅÍÃØÙÇÕÚÔÛÂÀÏÐÎËÄÆÝß×ÑÌÈÒÜÁÞéöóêåíãøùçõúôûâàïðîëäæýÿ÷ñìèòüáþ}{qwertyuiop[]asdfghjkl;'zxcvbnm,.qwertyuiop[]asdfghjkl;'zxcvbnm,.};
return (ord ($c) - 32);
}
}
sub draw_gantt_bars {
my ($_SKIN, $options) = @_;
my $top = 5;
my $html = '';
$options -> {plan} -> {color} ||= 'blue';
$options -> {fact} -> {color} ||= 'red';
foreach my $key ('plan', 'fact') {
my $bar = $options -> {$key};
my @pf = split /-/, $bar -> {from};
my $dpf = $pf [2] / 30;
my @pt = split /-/, $bar -> {to};
my $dpt = $pf [2] / 30;
$html .= <<EOH;
<td style="
border:solid black 1px;
height:7px;
z-index:0;
position:absolute;
top: expression(this.previousSibling.offsetTop + $top);
left: expression(getElementById('gantt_$pf[0]_$pf[1]').offsetLeft + $dpf * getElementById('gantt_$pf[0]_$pf[1]').offsetWidth);
width:expression(getElementById('gantt_$pt[0]_$pt[1]').offsetLeft + $dpt * getElementById('gantt_$pt[0]_$pt[1]').offsetWidth - getElementById('gantt_$pf[0]_$pf[1]').offsetLeft - $dpf * getElementById('gantt_$pf[0]_$pf[1]').offsetWidth);
background-color:$bar->{color}
" title="$bar->{title}"><img src='/0.gif' width=1 height=1></td>
EOH
$top = 6;
}
return $html;
}
sub static_path {
my ($package, $file) = @_;
my $path = __FILE__;
$path =~ s{\.pm}{/$file};
return $path;
};
sub draw_hr {
my ($_SKIN, $options) = @_;
return <<EOH;
<table border=0 cellspacing=0 cellpadding=0 width="100%">
<tr><td class=$$options{class}><img src="/i/0.gif" width=1 height=$$options{height}></td></tr>
</table>
EOH
}
sub draw_calendar {
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime (time);
$year += 1900;
$_REQUEST {__clock_separator} ||= ':';
return <<EOH;
<nobr>$i18n->{today}: $mday $i18n->{months}->[$mon] $year <span id="clock_hours"></span><span id="clock_separator" style="width:5px"></span><span id="clock_minutes"></span></nobr>
EOH
}
sub draw_auth_toolbar {
my ($_SKIN, $options) = @_;
my $calendar = draw_calendar ();
my $subset_selector = '';
if (@{$_SKIN -> {subset} -> {items}} > 1) {
$subset_selector = q[<td class=bgr1>];
$subset_selector .= dump_hiddens (
[sid => $_REQUEST{sid}],
[select => $_REQUEST{select}],
[__last_query_string => $_REQUEST{__last_last_query_string}],
[__last_scrollable_table_row => $_REQUEST{__last_scrollable_table_row}],
);
$subset_selector .= q[<select name=__subset onChange="submit()">];
foreach my $item (@{$_SKIN -> {subset} -> {items}}) {
$subset_selector .= "<option value='$$item{name}'";
$subset_selector .= ' selected' if $item -> {name} eq $_SKIN -> {subset} -> {name};
$subset_selector .= ">$$item{label}</option>";
}
$subset_selector .= '</select></td>';
}
return <<EOH;
<table cellSpacing=0 cellPadding=0 border=0 width=100%>
<tr><td class=bgr1><img height=1 src="/i/0.gif" width=1 height=1 border=0></td></tr>
<tr><td class=bgr6><img height=1 src="/i/0.gif" width=1 height=1 border=0></td></tr>
</table>
<table cellSpacing=0 cellPadding=0 border=0 width=100%>
<form name=_subset_form>
<tr>
<td class=bgr1><nobr> </nobr></td>
<td class=bgr1><img height=22 src="/i/0.gif" width=4 border=0></td>
<td class=bgr1><nobr><A class=lnk2>$$options{user_label}</a> </nobr></td>
<td class=bgr1><img height=22 src="/i/0.gif" width=4 border=0></td>
<td class=bgr1><A class=lnk2>$calendar</A></td>
<td class=bgr1><img height=22 src="/i/0.gif" width=4 border=0></td>
<td class=bgr1 nowrap width="100%"></td>
@{[ $_REQUEST {__help_url} ? <<EOHELP : '' ]}
<td class=bgr1><img height=22 src="/i/0.gif" width=4 border=0></td>
<td class=bgr1><nobr><A TABINDEX=-1 id="help" class=lnk2 href="$_REQUEST{__help_url}" target="_blank">[$$i18n{F1}]</A> </nobr></td>
EOHELP
$subset_selector
<td class=bgr1><img height=22 src="/i/0.gif" width=4 border=0></td>
<td class=bgr1><img height=1 src="/i/0.gif" width=7 border=0></td>
</tr>
</form>
</table>
$$options{top_banner}
EOH
}
sub draw_window_title {
my ($_SKIN, $options) = @_;
return ''
if $_REQUEST {select};
return <<EOH
<table cellspacing=0 cellpadding=0 width="100%"><tr><td class='header15'><img src="/i/0.gif" width=1 height=20 align=absmiddle> $$options{label}</table>
EOH
}
sub _draw_bottom {
my ($_SKIN, $options) = @_;
unless ($options -> {menu}) {
return <<EOH;
<table cellspacing=0 cellpadding=0 width="100%">
<tr>
<td class=bgr6><img height=1 src="/i/0.gif" width=1 border=0></td>
</tr>
</table>
EOH
}
my $items = $options -> {menu};
my ($tr1, $tr2, $tr3) = ('', '');
$tr3 .= qq{<td></td>};
$tr2 .= qq{<td></td>};
$tr1 .= qq{<td class='bgr6' width=100%><img src="/i/0.gif" border=0 hspace=0 vspace=0 width=1 height=1></td>};
my $class = $items -> [0] -> {is_active} ? 'bgr0' : 'bgr6';
$tr1 .= qq{<td class='$class'><img src="/i/0.gif" border=0 hspace=0 vspace=0 width=1 height=1></td>};
$tr3 .= qq{<td rowspan=2 valign=top><img src="$_REQUEST{__static_url}/tab_l_${$$items[0]}{is_active}.gif?$_REQUEST{__static_salt}" border=0 hspace=0 vspace=0 width=6 height=17></td>};
for (my $i = 0; $i < 0 + @$items; $i++) {
my $item = $items -> [$i];
my $active = $item -> {is_active};
my $class = $active ? 'bgr0' : 'bgr6';
$tr1 .= qq{<td class='$class'><img src="/i/0.gif" border=0 hspace=0 vspace=0 width=1 height=1></td>};
$tr2 .= qq{<td class="tabs-$active"><a id="$item" href="$$item{href}" class="main-menu"><nobr> $$item{label} </nobr></a></td>};
$tr3 .= qq{<td background="$_REQUEST{__static_url}/tab_b_$active.gif?$_REQUEST{__static_salt}"><img src="/i/0.gif" border=0 hspace=0 vspace=0 width=1 height=2></td>};
if ($i < -1 + @$items) {
my $aa = $active . ($items -> [$i + 1] -> {is_active});
my $class = $aa ne '00' ? 'bgr0' : 'bgr6';
$tr1 .= qq{<td class='$class'><img src="/i/0.gif" border=0 hspace=0 vspace=0 width=1 height=1></td>};
$tr3 .= qq{<td rowspan=2><img src="$_REQUEST{__static_url}/tab_$aa.gif?$_REQUEST{__static_salt}" border=0 hspace=0 vspace=0 width=8 height=17></td>};
}
else {
my $class = $active ? 'bgr0' : 'bgr6';
$tr1 .= qq{<td class='$class'><img src="/i/0.gif" border=0 hspace=0 vspace=0 width=1 height=1></td>};
$tr3 .= qq{<td rowspan=2 valign=top><img src="$_REQUEST{__static_url}/tab_r_${$$items[-1]}{is_active}.gif?$_REQUEST{__static_salt}" border=0 hspace=0 vspace=0 width=6 height=17></td>};
}
}
$tr3 .= qq{<td rowspan=2 valign=top><img src="/i/0.gif" border=0 hspace=0 vspace=0 width=1 height=1></td>};
$tr1 .= qq{<td class='bgr6' width=30><img src="/i/0.gif" border=0 hspace=0 vspace=0 width=1 height=1></td>};
return <<EOH;
<table border=0 cellspacing=0 cellpadding=0 width=100%>
<tr>$tr3
<tr>$tr2
<tr>$tr1
<table>
EOH
}
sub _draw_input_datetime {
my ($_SKIN, $options) = @_;
$options -> {id} ||= '' . $options;
$options -> {onClose} ||= 'null';
$options -> {onKeyDown} ||= 'null';
$options -> {onKeyPress} ||= 'if (window.event.keyCode != 27) is_dirty=true';
my $attributes = dump_attributes ($options -> {attributes});
my $shows_time = $options -> {no_time} ? 'false' : 'true';
my $html = <<EOH;
<nobr>
<input
type="text"
name="$$options{name}"
$size
$attributes
autocomplete="off"
onFocus="scrollable_table_is_blocked = true; this.select()"
onBlur="scrollable_table_is_blocked = false; "
onKeyPress="$$options{onKeyPress}"
onKeyDown="$$options{onKeyDown}"
>
<button id="calendar_trigger_$$options{id}" class="form-active-ellipsis">...</button>
EOH
unless ($options -> {no_clear_button} || $options -> {no_read_only}) {
$html .= qq{ <button class="txt7" onClick="document.getElementById ('$options->{attributes}->{id}').value=''">X</button>};
}
$html .= <<EOH;
</nobr>
<script type="text/javascript">
EOH
if ($i18n -> {_calendar_lang} eq 'en') {
$html .= <<EOJS;
Calendar._DN = new Array ("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday");
Calendar._SDN = new Array ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun");
Calendar._MN = new Array ("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December");
Calendar._SMN = new Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
Calendar._TT = {};
Calendar._TT["INFO"] = "About the calendar";
Calendar._TT["PREV_YEAR"] = "Prev. year (hold for menu)";
Calendar._TT["PREV_MONTH"] = "Prev. month (hold for menu)";
Calendar._TT["GO_TODAY"] = "Go Today";
Calendar._TT["NEXT_MONTH"] = "Next month (hold for menu)";
Calendar._TT["NEXT_YEAR"] = "Next year (hold for menu)";
Calendar._TT["SEL_DATE"] = "Select date";
Calendar._TT["DRAG_TO_MOVE"] = "Drag to move";
Calendar._TT["PART_TODAY"] = " (today)";
Calendar._TT["MON_FIRST"] = "Display Monday first";
Calendar._TT["SUN_FIRST"] = "Display Sunday first";
Calendar._TT["CLOSE"] = "Close";
Calendar._TT["TODAY"] = "Today";
Calendar._TT["TIME_PART"] = "(Shift-)Click or drag to change value";
Calendar._TT["DEF_DATE_FORMAT"] = "%Y-%m-%d";
Calendar._TT["TT_DATE_FORMAT"] = "%a, %b %e";
Calendar._TT["WK"] = "wk";
EOJS
}
elsif ($i18n -> {_calendar_lang} eq 'fr') {
$html .= <<EOJS;
Calendar._DN = new Array ("Dimanche", "Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi", "Dimanche");
Calendar._MN = new Array ("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre");
Calendar._TT = {};
Calendar._TT["TOGGLE"] = "Changer le premier jour de la semaine";
Calendar._TT["PREV_YEAR"] = "Année préc. (maintenir pour menu)";
Calendar._TT["PREV_MONTH"] = "Mois préc. (maintenir pour menu)";
Calendar._TT["GO_TODAY"] = "Atteindre date du jour";
Calendar._TT["NEXT_MONTH"] = "Mois suiv. (maintenir pour menu)";
Calendar._TT["NEXT_YEAR"] = "Année suiv. (maintenir pour menu)";
Calendar._TT["SEL_DATE"] = "Choisir une date";
Calendar._TT["DRAG_TO_MOVE"] = "Déplacer";
Calendar._TT["PART_TODAY"] = " (Aujourd'hui)";
Calendar._TT["MON_FIRST"] = "Commencer par lundi";
Calendar._TT["SUN_FIRST"] = "Commencer par dimanche";
Calendar._TT["CLOSE"] = "Fermer";
Calendar._TT["TODAY"] = "Aujourd'hui";
Calendar._TT["DEF_DATE_FORMAT"] = "y-mm-dd";
Calendar._TT["TT_DATE_FORMAT"] = "D, M d";
Calendar._TT["WK"] = "wk";
EOJS
}
else {
$html .= <<EOJS;
Calendar._DN = new Array ("Âîñêðåñåíüå", "Ïîíåäåëüíèê", "Âòîðíèê", "Ñðåäà", "×åòâåðã", "Ïÿòíèöà", "Ñóááîòà", "Âîñêðåñåíüå");
Calendar._MN = new Array ("ßíâàðü", "Ôåâðàëü", "Ìàðò", "Àïðåëü", "Ìàé", "Èþíü", "Èþëü", "Àâãóñò", "Ñåíòÿáðü", "Îêòÿáðü", "Íîÿáðü", "Äåêàáðü");
Calendar._TT = {};
Calendar._TT["TOGGLE"] = "Ñìåíèòü äåíü íà÷àëà íåäåëè (ÏÍ/ÂÑ)";
Calendar._TT["PREV_YEAR"] = "Ïðåä. ãîä (óäåðæèâàòü äëÿ ìåíþ)";
Calendar._TT["PREV_MONTH"] = "Ïðåä. ìåñÿö (óäåðæèâàòü äëÿ ìåíþ)";
Calendar._TT["GO_TODAY"] = "Íà ñåãîäíÿ";
Calendar._TT["NEXT_MONTH"] = "Ñëåä. ìåñÿö (óäåðæèâàòü äëÿ ìåíþ)";
Calendar._TT["NEXT_YEAR"] = "Ñëåä. ãîä (óäåðæèâàòü äëÿ ìåíþ)";
Calendar._TT["SEL_DATE"] = "Âûáðàòü äàòó";
Calendar._TT["DRAG_TO_MOVE"] = "Ïåðåòàùèòü";
Calendar._TT["PART_TODAY"] = " (ñåãîäíÿ)";
Calendar._TT["MON_FIRST"] = "Ïîêàçàòü ïîíåäåëüíèê ïåðâûì";
Calendar._TT["SUN_FIRST"] = "Ïîêàçàòü âîñêðåñåíüå ïåðâûì";
Calendar._TT["CLOSE"] = "Çàêðûòü";
Calendar._TT["TODAY"] = "Ñåãîäíÿ";
Calendar._TT["DEF_DATE_FORMAT"] = "y-mm-dd";
Calendar._TT["TT_DATE_FORMAT"] = "D, M d";
Calendar._TT["WK"] = "íåä";
EOJS
}
$html .= <<EOH;
Calendar.setup(
{
inputField : "input$$options{name}",
ifFormat : "$$options{format}",
showsTime : $shows_time,
button : "calendar_trigger_$$options{id}",
onClose : $$options{onClose}
}
);
</script>
EOH
return $html;
}
sub draw_form {
my ($_SKIN, $options) = @_;
if ($_REQUEST {__only_field}) {
return '';
}
my $html = $options -> {hr};
$html .= _draw_bottom (@_);
$html .= $options -> {path};
$options -> {target} = '_self' if ($_REQUEST {select});
$html .= <<EOH;
<table cellspacing=1 width="100%">
<form
name="$$options{name}"
method="$$options{method}"
enctype="$$options{enctype}"
action="$_REQUEST{__uri}$_REQUEST{__script_name}"
target="$$options{target}"
>
EOH
$html .= dump_hiddens (
map {
[$_ -> {name} => $_ -> {value}]
} @{$options -> {keep_params}}
);
foreach my $row (@{$options -> {rows}}) {
my $tr_id = $row -> [0] -> {tr_id};
$html .= qq{<tr id="$tr_id">};
foreach (@$row) { $html .= $_ -> {html} };
$html .= qq{</tr>};
}
$html .= '</form></table>';
$html .= $options -> {bottom_toolbar};
return $html;
}
sub draw_path {
my ($_SKIN, $options, $list) = @_;
my $path = <<EOH;
<table cellspacing=0 cellpadding=0 width="100%" border=0>
<tr>
<td class=bgr8>
<table cellspacing=0 cellpadding=0 width="100%" border=0>
<tr height=18>
<td class=bgr0 $$options{nowrap}>
EOH
if ($conf -> {core_show_icons} || $_REQUEST {__core_show_icons}) {
$path .= qq{<img src="$_REQUEST{__static_url}/folder.gif?$_REQUEST{__static_salt}" border=0 hspace=3 vspace=1 align=absmiddle> };
}
for (my $i = 0; $i < @$list; $i ++) {
if ($i > 0) {
$path .= ' / ';
if ($options -> {multiline}) {
$path .= '<br>';
for (my $j = 0; $j < $i + 2; $j++) { $path .= ' ' }
}
}
my $item = $list -> [$i];
$path .= qq{<a class=path ${\($$item{href} ? "href='$$item{href}'" : '')} TABINDEX=-1>$$item{label}</a>};
}
$path .= <<EOH;
</td>
</tr>
<tr>
<td class=bgr8 colspan=4><img height=1 src="/i/0.gif" width=1 border=0></td>
</tr>
<tr>
<td class=bgr6 colspan=4><img height=1 src="/i/0.gif" width=1 border=0></td>
</tr>
</table>
</td>
</tr>
</table>
EOH
return $path;
}
sub draw_form_field {
my ($_SKIN, $field, $data) = @_;
if ($field -> {type} eq 'banner') {
my $colspan = 'colspan=' . ($field -> {colspan} + 1);
return qq{<td class='form-$$field{state}-label' $colspan nowrap align=center>$$field{html}</td>};
}
elsif ($field -> {type} eq 'hidden') {
return $field -> {html};
}
my $colspan = $field -> {colspan} ? 'colspan=' . $field -> {colspan} : '';
my $label_width = $field -> {label_width} ? 'width=' . $field -> {label_width} : '';
my $cell_width = $field -> {cell_width} ? 'width=' . $field -> {cell_width} : '';
return <<EOH;
<td class='form-$$field{state}-label' nowrap align=right $label_width>\n$$field{label}</td>
<td class='form-$$field{state}-inputs' $colspan $cell_width>\n$$field{html}</td>
EOH
}
sub draw_form_field_banner {
my ($_SKIN, $field, $data) = @_;
return $field -> {label};
}
sub draw_form_field_button {
my ($_SKIN, $options, $data) = @_;
return qq {<input type="button" name="_$$options{name}" value="$$options{value}" onClick="$$options{onclick}" tabindex=$tabindex>};
}
sub draw_form_field_string {
my ($_SKIN, $options, $data) = @_;
return '<input type="text"' . dump_attributes ($options -> {attributes}) . ' onKeyPress="if (window.event.keyCode != 27) is_dirty=true" onKeyDown="tabOnEnter()" onFocus="scrollable_table_is_blocked = true; " onBlur="scrollable_table_is_blocked = false; ">';
}
sub draw_form_field_datetime {
my ($_SKIN, $options, $data) = @_;
$options -> {name} = '_' . $options -> {name};
$options -> {onKeyDown} ="tabOnEnter()";
return $_SKIN -> _draw_input_datetime ($options);
}
sub draw_form_field_file {
my ($_SKIN, $options, $data) = @_;
my $attributes = dump_attributes ($options -> {attributes});
return <<EOH;
<input
type="file"
name="_$$options{name}"
size=$$options{size}
$attributes
onFocus="scrollable_table_is_blocked = true; "
onBlur="scrollable_table_is_blocked = false; "
onChange="is_dirty=true; $$options{onChange}"
tabindex=-1
>
EOH
}
sub draw_form_field_hidden {
my ($_SKIN, $options, $data) = @_;
return dump_tag (input => {
type => 'hidden',
name => '_' . $options -> {name},
value => $options -> {value},
});
}
sub draw_form_field_hgroup {
my ($_SKIN, $options, $data) = @_;
my $html = '';
foreach my $item (@{$options -> {items}}) {
next if $item -> {off};
$html .= $item -> {label} if $item -> {label};
$html .= $item -> {html};
$html .= ' ';
}
return $html;
}
sub draw_form_field_text {
my ($_SKIN, $options, $data) = @_;
my $attributes = dump_attributes ($options -> {attributes});
return <<EOH;
<textarea
$attributes
onFocus="scrollable_table_is_blocked = true; "
onBlur="scrollable_table_is_blocked = false; "
rows=$$options{rows}
cols=$$options{cols}
name="_$$options{name}"
onchange="is_dirty=true;"
>$$options{value}</textarea>
EOH
}
sub draw_form_field_password {
my ($_SKIN, $options, $data) = @_;
my $attributes = dump_attributes ($options -> {attributes});
return qq {<input type="password" name="_$$options{name}" size="$$options{size}" onKeyPress="if (window.event.keyCode != 27) is_dirty=true" $attributes onKeyDown="tabOnEnter()" onFocus="scrollable_table_is_blocked = true; " onBlur="scrollable_table_is_blocked = false; ">};
}
sub draw_form_field_static {
my ($_SKIN, $options, $data) = @_;
my $html = '';
if ($options -> {href}) {
my $state = $data -> {fake} == -1 ? 'deleted' : $_REQUEST {__read_only} ? 'passive' : 'active';
$options -> {a_class} ||= "form-$state-inputs";
$html = qq{<a href="$$options{href}" target="$$options{target}" class="$$options{a_class}">};
}
$html .= "<font color='$$options{color}'>" if ($options -> {color});
if (ref $options -> {value} eq ARRAY) {
$options -> {separator} ||= '<br>';
for (my $i = 0; $i < @{$options -> {value}}; $i++) {
if ($i) {
$html =~ s{\s*$}{};
$html =~ s{\s*$}{$options->{separator}};
}
$html .= $options -> {value} -> [$i] -> {label};
}
}
else {
$html .= $options -> {value};
}
$html .= '</font>' if ($options -> {color});
if ($options -> {href}) {
$html .= '</a>';
}
$html .= dump_hiddens ([$options -> {hidden_name} => $options ->{hidden_value}]) if $options -> {add_hidden};
return $html;
}
sub draw_form_field_checkbox {
my ($_SKIN, $options, $data) = @_;
my $attributes = dump_attributes ($options -> {attributes});
return qq {<input type="checkbox" name="_$$options{name}" $attributes $checked value=1 onChange="is_dirty=true" onKeyDown="tabOnEnter()">};
}
sub draw_form_field_radio {
my ($_SKIN, $options, $data) = @_;
my $html = '<table border=0 cellspacing=2 cellpadding=0 width=100%>';
foreach my $value (@{$options -> {values}}) {
delete $value -> {attributes} -> {name};
delete $value -> {attributes} -> {value};
delete $value -> {attributes} -> {id};
delete $value -> {attributes} -> {onclick};
my $attributes = dump_attributes ($value -> {attributes});
$html .= qq {\n<tr><td valign=top width=1%><nobr><input $attributes id="$value" onFocus="scrollable_table_is_blocked = true; " onBlur="scrollable_table_is_blocked = false; " type="radio" name="_$$options{name}" value="$$value{id}" onClick="is_dirty=true;$$value{onclick}" onChange="is_dirty=true;$$options{onchange}" onKeyDown="tabOnEnter()"> $$value{label}</nobr>};
$value -> {html} or next;
$html .= qq{\n\t\t<td><div style="display:expression(getElementById('$value').checked ? 'block' : 'none')">$$value{html}</div>};
}
$html .= '</table>';
return $html;
}
sub draw_form_field_select {
my ($_SKIN, $options, $data) = @_;
my $attributes = dump_attributes ($options -> {attributes});
if (defined $options -> {other}) {
$options -> {other} -> {width} ||= 600;
$options -> {other} -> {height} ||= 400;
my $d_style_top = "d.style.top = " . (defined $options -> {other} -> {top} ? "${$$options{other}}{top};" : "this.offsetTop + this.offsetParent.offsetTop + this.offsetParent.offsetParent.offsetTop;");
my $d_style_left = "d.style.left = " . (defined $options -> {other} -> {left} ? "${$$options{other}}{left};" : "this.offsetLeft + this.offsetParent.offsetLeft + this.offsetParent.offsetParent.offsetLeft;");
my $onchange = <<EOS;
var fname = '_$$options{name}_iframe';
var f = document.getElementById (fname);
var dname = '_$$options{name}_div';
var d = document.getElementById (dname);
f.src = '${$$options{other}}{href}&select=$$options{name}';
$d_style_top
$d_style_left
d.style.display = 'block';
this.style.display = 'none';
d.focus ();
EOS
$options -> {no_confirm} ||= $conf -> {core_no_confirm_other};
if ($options -> {no_confirm}) {
$options -> {onChange} .= <<EOJS;
if (this.options[this.selectedIndex].value == -1) {
$onchange
}
EOJS
} else {
$options -> {onChange} .= <<EOJS;
if (this.options[this.selectedIndex].value == -1) {
if (window.confirm ('$$i18n{confirm_open_vocabulary}')) {
$onchange
} else {
this.selectedIndex = 0;
}
}
EOJS
}
}
my $html = <<EOH;
<select
name="_$$options{name}"
id="_$$options{name}_select"
$attributes
onKeyDown="tabOnEnter()"
onChange="is_dirty=true; $$options{onChange}"
onKeyPress="typeAhead()"
style="visibility:expression((last_vert_menu && last_vert_menu [0]) || (window.top && window.top.last_vert_menu && window.top.last_vert_menu [0]) ? 'hidden' : '')"
>
EOH
if (defined $options -> {empty}) {
$html .= qq {<option value="0" $selected>$$options{empty}</option>\n};
}
foreach my $value (@{$options -> {values}}) {
$html .= qq {<option value="$$value{id}" $$value{selected}>$$value{label}</option>\n};
}
if (defined $options -> {other}) {
$html .= qq {<option value=-1>${$$options{other}}{label}</option>};
}
$html .= '</select>';
my $width;
if (defined $options -> {other} -> {width}) {
$width = "${$$options{other}}{width}";
} elsif (defined $options -> {other} -> {left}) {
$width = "expression(this.offsetParent.offsetWidth)";
} else {
$width = "expression(getElementById('_$$options{name}_select').offsetParent.offsetWidth - 10)";
}
if (defined $options -> {other}) {
$options -> {other} -> {height} ||= 300;
$html .= <<EOH;
<div id="_$$options{name}_div" style="{position:absolute; display:none; width:$width}">
<iframe name="_$$options{name}_iframe" id="_$$options{name}_iframe" width=100% height=${$$options{other}}{height} src="/i/0.html" application="yes">
</iframe>
</div>
EOH
}
return $html;
}
sub draw_form_field_checkboxes {
my ($_SKIN, $options, $data) = @_;
my $html = '';
my $tabindex = $_REQUEST {__tabindex} + 1;
my $v = $data -> {$options -> {name}};
my $disabled = ($options -> {disabled} > 0 ? 'disabled' : '');
if (ref $v eq ARRAY) {
my $n = 0;
$html .= "<table border=0 cellpadding=0 cellspacing=0 id='input_$$options{name}'><tr>";
foreach my $value (@{$options -> {values}}) {
my $checked = 0 + (grep {$_ eq $value -> {id}} @$v) ? 'checked' : '';
my $id = 'div_' . $value;
my $subhtml = '';
my $subattr = '';
my $display = $checked || $options -> {expand_all} ? '' : 'style={display:none}';
if ($value -> {html}) {
$subhtml .= $value -> {inline} ? qq{ <span id="$id" $display>} : qq{ </td><td id="$id" $display>};
$subhtml .= $value -> {html};
$subhtml .= $value -> {inline} ? qq{</span>} : '';
$subattr = qq{onClick="setVisible('$id', checked, '$$options{mark_sublevel}')"} unless $options -> {expand_all};
}
elsif ($value -> {items} && @{$value -> {items}} > 0) {
foreach my $subvalue (@{$value -> {items}}) {
my $subchecked = 0 + (grep {$_ eq $subvalue -> {id}} @$v) ? 'checked' : '';
$tabindex++;
$subhtml .= $subvalue -> {no_checkbox} ? qq{ $$subvalue{label} <br>} : qq { <input type="checkbox" name="_$$options{name}_$$subvalue{id}" value="1" $subchecked onChange="is_dirty=true" $disabled tabindex=$tabindex> $$subvalue{label} <br>};
}
$subhtml = <<EOH;
<div id="$id" $display>
$subhtml
</div>
EOH
$subattr = qq{onClick="setVisible('$id', checked, '$$options{mark_sublevel}')"} unless $options -> {expand_all};
}
$tabindex ++;
$n ++;
$html .= qq {<td><input $subattr type="checkbox" name="_$$options{name}_$$value{id}" value="1" $checked onChange="is_dirty=true" $disabled tabindex=$tabindex> $$value{label} $subhtml</td>};
$html .= '</tr><tr>' unless $n % $options -> {cols};
}
$html =~ s{\<tr\>$}{};
$html .= '</table>';
}
else {
foreach my $value (@{$options -> {values}}) {
my $checked = $v eq $value -> {id} ? 'checked' : '';
$tabindex++;
$html .= qq {<input type="checkbox" name="_$$options{name}" value="$$value{id}" $checked onChange="is_dirty=true" $disabled tabindex=$tabindex> $$value{label} <br>};
}
}
if ($options -> {height}) {
$html = <<EOH;
<div class="checkboxes" style="height:$$options{height}px;" id="input_$$options{name}">
$html
</div>
EOH
}
$_REQUEST {__tabindex} = $tabindex;
return $html;
}
sub draw_form_field_image {
my ($_SKIN, $options, $data) = @_;
return <<EOH;
<input type="hidden" name="_$$options{name}" value="$$options{id_image}">
<img src="$$options{src}" id="$$options{name}_preview" width = "$$options{width}" height = "$$options{height}">
<input type="button" value="$$i18n{Select}" onClick="nope('$$options{new_image_url}', 'selectImage' , '');">
EOH
}
sub draw_form_field_iframe {
my ($_SKIN, $options, $data) = @_;
$options -> {height} += 0;
return <<EOH;
<iframe name="$$options{name}" src="$$options{href}" width="$$options{width}" height="$$options{height}" application="yes"></iframe>
EOH
}
sub draw_form_field_dir {
my ($_SKIN, $options, $data) = @_;
my $salt = rand ();
$_REQUEST {__on_load} = qq{davdiv.navigateFrame("$$options{url}/", "$$options{name}");} . $_REQUEST {__on_load};
return <<EOH;
<iframe name="$$options{name}" src="" width="$$options{width}" height="$$options{height}" application="yes"></iframe>
EOH
}
sub draw_form_field_color {
my ($_SKIN, $options, $data) = @_;
my $html = <<EOH;
<table
align="absmiddle"
cellspacing=0
cellpadding=0
style="height:20px;width:40px;border:solid black 1px;background:#$$options{value}"
EOH
if (!$_REQUEST {__read_only}) {
$html .= <<EOH;
onClick="
var color = showModalDialog('$_REQUEST{__static_url}/colors.html?$_REQUEST{__static_salt}', window, 'dialogWidth:600px;dialogHeight:400px;help:no;scroll:no;status:no');
getElementById('td_color_$$options{name}').style.background = color;
getElementById('input_color_$$options{name}').value = color.substr (1);
"
EOH
}
$html .= <<EOH;
>
<tr height=20>
<td id="td_color_$$options{name}" >
<input id="input_color_$$options{name}" type="hidden" name="_$$options{name}" value="$$options{value}">
</td>
</tr>
</table>
EOH
return $html;
}
sub draw_form_field_htmleditor {
my ($_SKIN, $options, $data) = @_;
return '' if $options -> {off};
push @{$_REQUEST{__include_js}}, 'rte/fckeditor';
return <<EOH;
<SCRIPT language="javascript">
<!--
var oFCKeditor_$$options{name};
oFCKeditor_$$options{name} = new FCKeditor('_$$options{name}', '$$options{width}', '$$options{height}', '$$options{toolbar}');
oFCKeditor_$$options{name}.Value = '$$options{value}';
oFCKeditor_$$options{name}.Create ();
//-->
</SCRIPT>
EOH
}
sub draw_toolbar {
my ($_SKIN, $options) = @_;
if ($_REQUEST {select}) {
my $button = {
icon => 'cancel',
id => 'cancel',
label => $i18n -> {close},
href => !$_REQUEST {result_kind}
? "javaScript:window.parent.restoreSelectVisibility('_$_REQUEST{select}', true);window.parent.focus();"
: $_REQUEST {result_kind} == 2
? "javaScript:window.parent.restoreStringVocVisibility('_$_REQUEST{select}');window.parent.focus();"
: undef,
};
$button -> {html} = $_SKIN -> draw_toolbar_button ($button);
unshift @{$options -> {buttons}}, $button;
}
my $spacer = qq{img height=1 src="$_REQUEST{__static_url}/0.gif?$_REQUEST{__static_salt}" border=0 width=};
my $html = <<EOH;
<table class=bgr8 cellspacing=0 cellpadding=0 width="100%" border=0>
<form action=$_REQUEST{__uri} name=$options->{form_name} target="$$options{target}" method=post>
EOH
my %keep_params = map {$_ => 1} @{$options -> {keep_params}};
$html .= dump_hiddens (map {[$_ => $_REQUEST {$_}]} (keys %keep_params));
$html .= <<EOH;
<tr><td class=bgr0 colspan=20><${spacer}1></td></tr>
<tr><td class=bgr6 colspan=20><${spacer}1></td></tr>
<tr><td class=bgr8 width=30><${spacer}20></td>
EOH
foreach (@{$options -> {buttons}}) { $html .= $_ -> {html}; }
$html .= <<EOH;
<td class=bgr8 width=100%><${spacer}1></td></tr>
<tr><td class=bgr8 colspan=20><${spacer}1></td></tr>
<tr><td class=bgr6 colspan=20><${spacer}1></td></tr>
</form>
</table>
EOH
return $html;
}
sub draw_toolbar_break {
my ($_SKIN, $options) = @_;
my $html = <<EOH;
<td class=bgr8 width=100%><img height=1 src="/i/0.gif" width=1 border=0></td>
</tr>
<tr>
<td class=bgr8 colspan=20><img height=1 src="/i/0.gif" width=1 border=0></td>
</tr>
<tr>
<td class=bgr6 colspan=20><img height=1 src="/i/0.gif" width=1 border=0></td>
</tr>
EOH
if ($options -> {break_table}) {
$html .= '</table><table class=bgr8 cellspacing=0 cellpadding=0 width="100%" border=0>';
}
$html .= <<EOH;
<tr>
<td class=bgr0 colspan=20><img height=1 src="/i/0.gif" width=1 border=0></td>
</tr>
<tr>
<td class=bgr6 colspan=20><img height=1 src="/i/0.gif" width=1 border=0></td>
</tr>
<tr>
<td class=bgr8 width=30><img height=1 src="/i/0.gif" width=20 border=0></td>
EOH
return $html;
}
sub draw_toolbar_button {
my ($_SKIN, $options) = @_;
my $html = <<EOH;
<td class="button" onmouseover="style.borderStyle='groove';style.borderColor='#FFFFFF';" onmouseout="style.borderStyle='solid';style.borderColor='#D6D3CE';" nowrap> <a TABINDEX=-1 class=button href="$$options{href}" $onclick id="$$options{id}" target="$$options{target}">
EOH
if ($options -> {icon}) {
my $img_path = _icon_path ($options -> {icon});
$html .= qq {<img src="$img_path" alt="$label" border=0 hspace=0 vspace=1 align=absmiddle> };
}
$html .= $options -> {label};
$html .= <<EOH;
</a>
</td>
<td><img height=15 vspace=1 hspace=4 src='$_REQUEST{__static_url}/razd1.gif?$_REQUEST{__static_salt}' width=2 border=0></td>
EOH
return $html;
}
sub draw_toolbar_input_select {
my ($_SKIN, $options) = @_;
my $html = '<td nowrap>';
if ($options -> {label} && $options -> {show_label}) {
$html .= $options -> {label};
$html .= ': ';
}
my $name = $$options{name};
if (defined $options -> {other}) {
$name = "_$name";
$options -> {other} -> {width} ||= 600;
$options -> {other} -> {height} ||= 400;
my $d_style_top = "d.style.top = " . (defined $options -> {other} -> {top} ? "${$$options{other}}{top};" : "this.offsetTop + this.offsetParent.offsetTop + this.offsetParent.offsetParent.offsetTop;");
my $d_style_left = "d.style.left = " . (defined $options -> {other} -> {left} ? "${$$options{other}}{left};" : "this.offsetLeft + this.offsetParent.offsetLeft + this.offsetParent.offsetParent.offsetLeft;");
my $onchange = $_REQUEST {__windows_ce} ? "switchDiv(); loadSlaveDiv('${$$options{other}}{href}&select=$$options{name}');" : <<EOS;
var fname = '_$$options{name}_iframe';
var f = document.getElementById (fname);
var dname = '_$$options{name}_div';
var d = document.getElementById (dname);
f.src = '${$$options{other}}{href}&select=$$options{name}';
$d_style_top
$d_style_left
d.style.display = 'block';
this.style.display = 'none';
d.focus ();
EOS
$options -> {onChange} .= <<EOJS;
if (this.options[this.selectedIndex].value == -1 && window.confirm ('$$i18n{confirm_open_vocabulary}')) {
$onchange
}
else {
submit();
}
EOJS
}
my $read_only = $options -> {read_only} ? 'disabled' : '';
$html .= <<EOH;
<select name="$name" id="${name}_select" $read_only onChange="$$options{onChange}" onkeypress="typeAhead()" style="visibility:expression((last_vert_menu && last_vert_menu [0]) || (window.top && window.top.last_vert_menu && window.top.last_vert_menu [0]) ? 'hidden' : '')">
EOH
foreach my $value (@{$options -> {values}}) {
$html .= qq {<option value="$$value{id}" $$value{selected}>$$value{label}</option>};
}
$html .= '</select>';
if (defined $options -> {other}) {
$options -> {other} -> {height} ||= 300;
$html .= <<EOH;
<div id="_$$options{name}_div" style="{position:absolute; display:none;width:$options->{other}->{width}px">
<iframe name="_$$options{name}_iframe" id="_$$options{name}_iframe" width=100% height=${$$options{other}}{height} src="/i/0.html" application="yes">
</iframe>
</div>
EOH
}
$html .= "<td><img height=15 vspace=1 hspace=4 src='$_REQUEST{__static_url}/razd1.gif?$_REQUEST{__static_salt}' width=2 border=0></td>";
return $html;
}
sub draw_toolbar_input_checkbox {
my ($_SKIN, $options) = @_;
my $html = '<td nowrap>';
if ($options -> {label}) {
$html .= $options -> {label};
$html .= ': ';
}
$html .= qq {<input type=checkbox value=1 $$options{checked} name="$$options{name}" onClick="$$options{onClick}">};
$html .= "<td><img height=15 vspace=1 hspace=4 src='$_REQUEST{__static_url}/razd1.gif?$_REQUEST{__static_salt}' width=2 border=0></td>";
return $html;
}
sub draw_toolbar_input_submit {
my ($_SKIN, $options) = @_;
my $html = '<td nowrap>';
if ($options -> {label}) {
$html .= $options -> {label};
$html .= ': ';
}
$html .= qq {<input type=submit name="$$options{name}" value="$$options{label}">};
$html .= "<td><img height=15 vspace=1 hspace=4 src='$_REQUEST{__static_url}/razd1.gif?$_REQUEST{__static_salt}' width=2 border=0></td>";
return $html;
}
sub draw_toolbar_input_text {
my ($_SKIN, $options) = @_;
my $html = '<td nowrap>';
if ($options -> {label}) {
$html .= $options -> {label};
$html .= ': ';
}
$html .= <<EOH;
<input
onKeyPress="if (window.event.keyCode == 13) {form.submit()}"
type=text
size=$$options{size}
name=$$options{name}
value="$$options{value}"
onFocus="scrollable_table_is_blocked = true; "
onBlur="scrollable_table_is_blocked = false; "
style="visibility:expression((last_vert_menu && last_vert_menu [0]) || (window.top && window.top.last_vert_menu && window.top.last_vert_menu [0]) ? 'hidden' : '')"
id="$options->{id}"
>
EOH
$html .= "<td><img height=15 vspace=1 hspace=4 src='$_REQUEST{__static_url}/razd1.gif?$_REQUEST{__static_salt}' width=2 border=0></td>";
return $html;
}
sub draw_toolbar_input_datetime {
my ($_SKIN, $options) = @_;
$options -> {onClose} = "function (cal) { cal.hide (); $$options{onClose}; cal.params.inputField.form.submit () }";
$options -> {onKeyPress} = "if (window.event.keyCode == 13) {this.form.submit()}";
my $html = '<td nowrap>';
if ($options -> {label}) {
$html .= $options -> {label};
$html .= ': ';
}
$html .= $_SKIN -> _draw_input_datetime ($options);
$html .= "<td><img height=15 vspace=1 hspace=4 src='$_REQUEST{__static_url}/razd1.gif?$_REQUEST{__static_salt}' width=2 border=0></td>";
return $html;
}
sub draw_toolbar_pager {
my ($_SKIN, $options) = @_;
my $html = '<td nowrap>';
if ($options -> {total}) {
if ($options -> {rewind_url}) {
$html .= qq { <a TABINDEX=-1 href="$$options{rewind_url}" class=lnk0 onFocus="blur()"><<</a> };
}
if ($options -> {back_url}) {
$html .= qq { <a TABINDEX=-1 href="$$options{back_url}" class=lnk0 id="_pager_prev" onFocus="blur()"><</a> };
}
$html .= ($options -> {start} + 1);
$html .= ' - ';
$html .= ($options -> {start} + $options -> {cnt});
$html .= qq |$$i18n{toolbar_pager_of}<a TABINDEX=-1 class=lnk0 href="$$options{infty_url}">$$options{infty_label}</a>|;
if ($options -> {next_url}) {
$html .= qq { <a TABINDEX=-1 href="$$options{next_url}" class=lnk0 id="_pager_next" onFocus="blur()">></a> };
}
}
else {
$html .= $i18n -> {toolbar_pager_empty_list};
}
$html .= "<td><img height=15 vspace=1 hspace=4 src='$_REQUEST{__static_url}/razd1.gif?$_REQUEST{__static_salt}' width=2 border=0></td>";
return $html;
}
sub draw_centered_toolbar_button {
my ($_SKIN, $options) = @_;
my $html = <<EOH;
<td class="button" onmouseover="style.borderStyle='groove';style.borderColor='#FFFFFF';" onmouseout="style.borderStyle='solid';style.borderColor='#D6D3CE';" nowrap> <a TABINDEX=-1 class=button href="$$options{href}" id="$$options{id}" target="$$options{target}">
EOH
my $img_path = "$_REQUEST{__static_url}/0.gif?$_REQUEST{__static_salt}";
if ($options -> {icon}) {
$img_path = _icon_path ($options -> {icon});
$html .= qq {<img src="$img_path" alt="$label" border=0 hspace=0 vspace=1 align=absmiddle> }
}
$html .= <<EOH;
$$options{label}
</a></td>
<td><img height=15 vspace=1 hspace=4 src="$_REQUEST{__static_url}/razd1.gif?$_REQUEST{__static_salt}" width=2 border=0></td>
EOH
return $html;
}
sub draw_centered_toolbar {
my ($_SKIN, $options, $list) = @_;
our $__last_centered_toolbar_id = 'toolbar_' . int $list;
my $colspan = 3 * (1 + $options -> {cnt}) + 1;
my $html = <<EOH;
<table cellspacing=0 cellpadding=0 width="100%" border=0 id="$__last_centered_toolbar_id">
<tr>
<td class=bgr8>
<table cellspacing=0 cellpadding=0 width="100%" border=0>
<tr>
<td class=bgr0 colspan=$colspan><img height=1 src="/i/0.gif" width=1 border=0></td>
</tr>
<tr>
<td class=bgr6 colspan=$colspan><img height=1 src="/i/0.gif" width=1 border=0></td></tr>
<tr>
<td width="45%">
<table cellspacing=0 cellpadding=0 width="100%" border=0>
<tr>
<td _background="/i/toolbars/6ptbg.gif"><img height=17 hspace=0 src="/i/0.gif" width=1 border=0></td>
</tr>
</table>
</td>
<td><img height=15 vspace=1 hspace=4 src="$_REQUEST{__static_url}/razd1.gif?$_REQUEST{__static_salt}" width=2 border=0></td>
EOH
foreach (@$list) {
$html .= $_ -> {html};
}
$html .= <<EOH;
<td width="45%">
<table cellspacing=0 cellpadding=0 width="100%" border=0>
<tr>
<td _background="/i/toolbars/6ptbg.gif"><img height=17 hspace=0 src="/i/0.gif" width=1 border=0></td>
</tr>
</table>
</td>
<td align=right><img height=23 src="/i/0.gif" width=4 border=0></td>
</tr>
<tr>
<td class=bgr8 colspan=$colspan><img height=1 src="/i/0.gif" width=1 border=0></td>
</tr>
<tr>
<td class=bgr6 colspan=$colspan><img height=1 src="/i/0.gif" width=1 border=0></td>
</tr>
</td>
</tr>
</table>
</td>
</tr>
</table>
EOH
return $html;
}
sub draw_dump_button {
return {
label => 'Dump',
name => '_dump',
href => create_url () . '&__dump=1',
side => 'right_items',
target => '_blank',
no_off => 1,
};
}
sub draw_menu {
my ($_SKIN, $_options) = @_;
my @types = (@{$_options -> {left_items}}, BREAK, @{$_options -> {right_items}});
my $colspan = 1 + @types;
my $html = '<div style="position: relative">';
$html .= <<EOH;
<table width="100%" class=bgr8 cellspacing=0 cellpadding=0 border=0 onmousemove="blockEvent ();">
<tr>
<td class=bgr8 colspan=$colspan width=100%><img height=2 src="/i/0.gif" width=1 border=0></td>
<tr>
EOH
foreach my $type (@types) {
if ($type eq BREAK) {
$html .= qq{<td class=bgr8 width=100%><img height=1 src="/i/0.gif" width=1 border=0></td>};
next;
}
$html .= <<EOH;
<td onmouseover="if (!edit_mode) $$type{onhover}" onmouseout="$$type{onmouseout}" class="main-menu" nowrap>
<a class="main-menu" id="main_menu_$$type{name}" target="$$type{target}" href="$$type{href}" tabindex=-1 onclick="return !check_edit_mode ();"> $$type{label} </a> </td>
</td>
EOH
}
$html .= <<EOH;
<tr>
<td class=bgr8 colspan=$colspan width=100%><img height=2 src="/i/0.gif" width=1 border=0></td>
<tr>
<td class=bgr6 colspan=$colspan width=100%><img height=1 src="/i/0.gif" width=1 border=0></td>
<tr>
<td class=bgr0 colspan=$colspan width=100%><img height=1 src="/i/0.gif" width=1 border=0></td>
</table>
EOH
foreach my $type (@types) {
$html .= $type -> {vert_menu};
}
$html .= '</div>';
return $html;
}
sub draw_vert_menu {
my ($_SKIN, $name, $types, $level) = @_;
my $html = <<EOH;
<div id="vert_menu_$name" style="display:none; position:absolute; z-index:100; border-style: outset; border-width: 2px">
<table id="vert_menu_table_$name" width=1 bgcolor=#d5d5d5 cellspacing=0 cellpadding=0 border=0>
EOH
foreach my $type (@$types) {
if ($type eq BREAK) {
$html .= <<EOH;
<tr height=2>
<td>
<table width=90% border=0 cellspacing=0 cellpadding=0 align=center minheight=2>
<tr height=1><td bgcolor="#888888"><img height=1 src=/i/0.gif width=1 border=0></td></tr>
<tr height=1><td bgcolor="#ffffff"><img height=1 src=/i/0.gif width=1 border=0></td></tr>
</table>
</td>
</tr>
EOH
}
else {
my $td = $type -> {items} ? <<EOH : qq{<td nowrap onclick="$$type{onclick}" onmouseover="$$type{onhover}" onmouseout="$$type{onmouseout}" class="vert-menu"> $$type{label} </td>};
<td onclick="$$type{onclick}" onmouseover="$$type{onhover}" onmouseout="$$type{onmouseout}" class="vert-menu">
<table width=100% border=0 cellspacing=0 cellpadding=0 id="submenu">
<tr>
<td nowrap> $$type{label} </td>
<td width=5 nowrap align=right><font face=Marlett>8</font> </td>
</tr>
</table>
</td>
EOH
$html .= <<EOH;
<tr>
$td
</tr>
EOH
}
}
$html .= '</table>';
foreach my $type (@$types) {
$html .= $type -> {vert_menu};
}
$html .= '</div>';
return $html;
}
sub js_set_select_option {
my ($_SKIN, $name, $item, $fallback_href) = @_;
return ($fallback_href || $i) unless $_REQUEST {select};
my $question = js_escape ($i18n -> {confirm_close_vocabulary} . ' ' . $item -> {label} . '?');
if ( !$_REQUEST {result_kind} ) {
$name ||= '_' . $_REQUEST {select};
return 'javaScript:if (window.confirm(' . $question . ')) {parent.setSelectOption(' . js_escape ($name) . ', ' . $item -> {id} . ', ' . js_escape ($item -> {label}) . ');} else {document.body.style.cursor = \'default\'; nop ();}';
}
elsif ( $_REQUEST {result_kind} == 2 ) {
$name ||= $_REQUEST {select};
return 'javaScript:if (window.confirm(' . $question . ')) {parent.setStringVocValue(' . js_escape ($name) . ', ' . $item -> {id} . ', ' . js_escape ($item -> {label}) . ');} else {document.body.style.cursor = \'default\'; nop ();}';
}
}
sub draw_text_cell {
my ($_SKIN, $data, $options) = @_;
my $html = "\n\t<td ";
$html .= dump_attributes ($data -> {attributes}) if $data -> {attributes};
$html .= ' style="padding-left:' . ($data -> {level} * 15 + 3) . '"' if (defined $data -> {level});
$html .= '>';
unless ($data -> {off}) {
$data -> {label} =~ s{^\s+}{};
$data -> {label} =~ s{\s+$}{};
$data -> {label} =~ s{\n}{<br>}gsm if $data -> {no_nobr};
$html .= qq {<img src='/i/_skins/Classic/status_$data->{status}->{icon}.gif' border=0 alt='$data->{status}->{label}' align=absmiddle hspace=5>} if $data -> {status};
$html .= '<nobr>' unless $data -> {no_nobr};
$html .= ' ' unless (defined $data -> {level});
$html .= qq {<a id="$$data{a_id}" class=$$data{a_class} target="$$data{target}" href="$$data{href}" onFocus="blur()">} if $data -> {href};
$html .= '<b>' if $data -> {bold} || $options -> {bold};
$html .= '<i>' if $data -> {italic} || $options -> {italic};
$html .= '<strike>' if $data -> {strike} || $options -> {strike};
$html .= $data -> {label};
$html .= '</a>' if $data -> {href};
$html .= ' ';
$html .= '</nobr>' unless $data -> {no_nobr};
$html .= dump_hiddens ([$data -> {hidden_name} => $data -> {hidden_value}]) if $data -> {add_hidden};
}
$html .= '</td>';
return $html;
}
sub draw_radio_cell {
my ($_SKIN, $data, $options) = @_;
my $attributes = dump_attributes ($data -> {attributes});
return qq {<td $$options{data} $attributes><input type=radio name=$$data{name} $$data{checked} value='$$data{value}'></td>};
}
sub draw_checkbox_cell {
my ($_SKIN, $data, $options) = @_;
my $attributes = dump_attributes ($data -> {attributes});
return qq {<td $$options{data} $attributes><input type=checkbox name=$$data{name} $$data{checked} value='$$data{value}'></td>};
}
sub draw_select_cell {
my ($_SKIN, $data, $options) = @_;
my $attributes = dump_attributes ($data -> {attributes});
my $multiple = $data -> {rows} > 1 ? "multiple size=$$data{rows}" : '';
my $html = qq {<td $attributes><nobr><select name="$$data{name}" onChange="is_dirty=true; $$options{onChange}" onkeypress="typeAhead()" $multiple>};
$html .= qq {<option value="0">$$data{empty}</option>\n} if defined $data -> {empty};
foreach my $value (@{$data -> {values}}) {
$html .= qq {<option value="$$value{id}" $$value{selected}>$$value{label}</option>\n};
}
$html .= qq {</select></nobr></td>};
return $html;
}
sub draw_string_voc_cell {
my ($_SKIN, $data, $options) = @_;
my $attributes = dump_attributes ($data -> {attributes});
my $html;
if (defined $data -> {other}) {
$data -> {other} -> {width} ||= 600;
$data -> {other} -> {height} ||= 400;
my $d_style_top = "d.style.top = " . (defined $data -> {other} -> {top} ? "${$$data{other}}{top};" : "this.offsetTop + this.offsetParent.offsetTop + this.offsetParent.offsetParent.offsetTop;");
my $d_style_left = "d.style.left = " . (defined $data -> {other} -> {left} ? "${$$data{other}}{left};" : "this.offsetLeft + this.offsetParent.offsetLeft + this.offsetParent.offsetParent.offsetLeft;");
my $onchange = <<EOJS;
var fname = '_$$data{name}_iframe';
var f = document.getElementById (fname);
var dname = '_$$data{name}_div';
var d = document.getElementById (dname);
var q = encode1251(document.getElementById('$$data{name}_label').value);
f.src = '${$$data{other}}{href}&${$$data{other}}{param}=' + q + '&select=$$data{name}&result_kind=2';
$d_style_top
$d_style_left
d.style.display = 'block';
this.style.display = 'none';
d.focus ();
EOJS
$data -> {onChange} = $onchange . $data -> {onChange};
$html = <<EOH;
<div id="_$$data{name}_div" style="{position:absolute; display:none; z-index:200; width:${$$data{other}}{width}}">
<iframe name="_$$data{name}_iframe" id="_$$data{name}_iframe" width=100% height=${$$data{other}}{height} src="/i/0.html" application="yes">
</iframe>
</div>
EOH
}
$html .= qq {<td $attributes><nobr><span style="white-space: nowrap"><input type="text"}
. ($data -> {need_label} ? qq { name="_$$data{name}_label" } : '')
. qq { id="$$data{name}_label" value="$$data{label}" maxlength="$$data{max_len}" size="$$data{size}"> }
. ($data -> {other} ? qq [<input type="button" value="$data->{other}->{button}" id="_$$data{name}_button" onclick="$data->{onChange}">] : '')
. qq[<input type="hidden" name="_$$data{name}" value="$$data{id}" id="$$data{name}_id"></span>]
. qq[</nobr></td>];
return $html;
}
sub draw_input_cell {
my ($_SKIN, $data, $options) = @_;
my $attributes = dump_attributes ($data -> {attributes});
$data -> {label} =~ s{\"}{\"}gsm;
return qq {<td $$data{title} $attributes><nobr><input type="text" name="$$data{name}" value="$$data{label}" maxlength="$$data{max_len}" size="$$data{size}" onKeyDown="tabOnEnter()"></nobr></td>};
}
sub draw_textarea_cell {
my ($_SKIN, $data, $options) = @_;
my $attributes = dump_attributes ($data -> {attributes});
return qq {<td $$data{title} $attributes><textarea $attributes rows=$$data{rows} cols=$$data{cols} name="$$data{name}">$$data{label}</textarea></td>};
}
sub draw_embed_cell {
my ($_SKIN, $data, $options) = @_;
my $attributes = dump_attributes ($data -> {attributes});
return qq {<td $$options{data} width="1%" $attributes><embed src="$$data{src}" autostart="$$data{autostart}" type="$$data{src_type}" height="$$data{height}"/></td>};
}
sub draw_row_button {
my ($_SKIN, $options) = @_;
if ($options -> {off} || $_REQUEST {lpt}) {
return $conf -> {core_hide_row_buttons} == 2 ? '' : '<td class=bgr0 valign=top nowrap width="1%"> </td>';
}
if ($conf -> {core_show_icons} || $_REQUEST {__core_show_icons}) {
my $label = $options -> {label};
my $img_path = _icon_path ($options -> {icon});
$options -> {label} = qq| <img src="$img_path" alt="$$options{label}" border=0 hspace=0 vspace=0 align=absmiddle>|;
$options -> {label} .= " $label " if $options -> {force_label} || $conf -> {core_hide_row_buttons} > -1;
}
else {
$options -> {label} = "\ [$$options{label}]\ ";
}
my $vert_line = {label => $options -> {label}, href => $options -> {href}, target => $options -> {target}};
$vert_line -> {label} =~ s{[\[\]]}{}g;
push @{$_SKIN -> {__current_row} -> {__types}}, $vert_line;
if ($conf -> {core_hide_row_buttons} == 2) {
return '';
}
elsif ($conf -> {core_hide_row_buttons} == 1) {
return $_SKIN -> draw_text_cell ({label => ' '});
}
else {
return qq {<td $$options{title} class="row-button" valign=top nowrap width="1%"><a TABINDEX=-1 class="row-button" href="$$options{href}" target="$$options{target}">$$options{label}</a></td>};
}
}
sub draw_table_header {
my ($_SKIN, $data_rows, $html_rows) = @_;
my $html = '<thead>';
foreach (@$html_rows) {$html .= $_};
$html .= '</thead>';
}
sub draw_table_header_row {
my ($_SKIN, $data_cells, $html_cells) = @_;
my $html = '<tr>';
foreach (@$html_cells) {$html .= $_};
$html .= '</tr>';
return $html;
}
sub draw_table_header_cell {
my ($_SKIN, $cell) = @_;
return '' if $cell -> {hidden} || $cell -> {off} || (!$cell -> {label} && $conf -> {core_hide_row_buttons} == 2);
$cell -> {label} .= "\ \ <a class=lnk4 href=\"$$cell{href_asc}\"><b>\↑</b></a>" if $cell -> {href_asc};
$cell -> {label} .= "\ \ <a class=lnk4 href=\"$$cell{href_desc}\"><b>\↓</b></a>" if $cell -> {href_desc};
if ($cell -> {href}) {
$cell -> {label} = "<a class=lnk4 href=\"$$cell{href}\"><b>" . $cell -> {label} . "</b></a>";
}
my $attributes = dump_attributes ($cell -> {attributes});
my $z_index = $cell -> {no_scroll} ? 'style="z-index:110"' : 'style="z-index:100"';
return "<th $attributes $$cell{title} $z_index>\ $$cell{label}\ </th>";
}
sub draw_table {
my ($_SKIN, $tr_callback, $list, $options) = @_;
$options -> {height} ||= 10000;
$options -> {min_height} ||= 200;
$$options{toolbar} =~ s{^\s+}{}sm;
$$options{toolbar} =~ s{\s+$}{}sm;
my $html = <<EOH;
$$options{title}
$$options{path}
$$options{top_toolbar}
<table cellspacing=0 cellpadding=0 width="100%">
<tr>
<form name=$$options{name} action="$_REQUEST{__uri}$_REQUEST{__script_name}" method=post enctype=multipart/form-data target=invisible>
EOH
my %hidden = ();
$hidden {$_} = $_REQUEST {$_} foreach (
'__tree',
'__last_scrollable_table_row',
grep {/^[^_]/ or /^__get_ids_/} keys %_REQUEST
);
$hidden {$_} = $options -> {$_} foreach (
'type',
'action',
);
$hidden {__last_query_string} = $_REQUEST{__last_last_query_string};
while (my ($k, $v) = each %hidden) {
$html .= "\n" . dump_tag (input => {
type => 'hidden',
name => $k,
value => $v,
}) if defined $v;
}
$html .= $options -> {no_scroll} ?
qq {<td class=bgr8><div class="table-container-x">} :
qq {<td class=bgr8><div class="table-container" style="height: expression(actual_table_height(this,$$options{min_height},$$options{height},'$__last_centered_toolbar_id'));">};
$html .= qq {<table cellspacing=1 cellpadding=0 width="100%" id="scrollable_table" lpt=$$options{lpt}>\n};
$html .= $options -> {header} if $options -> {header};
$html .= qq {<tbody>\n};
if ($options -> {dotdot}) {
$html .= $options -> {dotdot};
}
my $menus = '';
foreach our $i (@$list) {
foreach my $tr (@{$i -> {__trs}}) {
$html .= "<tr id='$$i{__tr_id}'";
if (@{$i -> {__types}} && $conf -> {core_hide_row_buttons} > -1 && !$_REQUEST {lpt}) {
$menus .= $i -> {__menu};
$html .= qq{ oncontextmenu="open_popup_menu('$i'); blockEvent ();"};
}
$html .= '>';
$html .= $tr;
$html .= '</tr>';
}
}
$html .= <<EOH;
</tbody></table></div>$$options{toolbar}</td></form></tr></table>
$menus
EOH
$__last_centered_toolbar_id = '';
return $html;
}
sub draw_one_cell_table {
my ($_SKIN, $options, $body) = @_;
return <<EOH
<table cellspacing=0 cellpadding=0 width="100%">
<form name=form action=$_REQUEST{__uri} method=post enctype=multipart/form-data target=invisible>
<tr><td class=bgr8>$body</td></tr>
</form>
</table>
EOH
}
sub draw_tree {
my ($_SKIN, $node_callback, $list, $options) = @_;
my @nodes = ();
my ($root_id, $root_url, $selected_node_url, $selected_code);
our %idx = ();
our %lch = ();
foreach my $i (@$list) {
my $node = $i -> {__node};
push @nodes, $node;
($root_id, $root_url) = ($node -> {id}, $node -> {url}) unless $root_id;
if ($node -> {id} == $options -> {selected_node}) {
$selected_node_url = $node -> {url};
$selected_code = 'd.selectedFound = true; d.selectedNode = ' . (@nodes - 1);
}
$idx {$node -> {id}} = $node;
$lch {$node -> {pid}} = $node if $node -> {pid};
}
unless ($selected_node_url) {
$options -> {selected_node} = $root_id;
$selected_node_url = $root_url;
}
while (my ($k, $v) = each %lch) {
$idx {$k} -> {_hc} = 1;
$v -> {_ls} = 1;
}
my $nodes = $_JSON -> encode (\@nodes);
my $menus;
my $target = $options -> {target} || '_content_iframe';
my $html = <<EOH;
$$options{title}
<table class="dtree">
<tr>
<td>
<script type="text/javascript">
<!--
d = new dTree('d');
d.config.iconPath = '$_REQUEST{__static_url}/tree_';
d.config.target = '$target';
d.config.useStatusText = true;
d.icon.node = 'folderopen.gif';
var nodes = $nodes;
for (i = 0; i < nodes.length; i++) {
var node = nodes [i];
if (node.title) continue;
node.title = node.label;
}
d.aNodes = nodes;
EOH
foreach our $i (@$list) {
$menus .= $i -> {__menu};
}
$html .= <<EOH;
document.write(d);
//-->
</script>
</td>
</tr>
</table>
$menus
<iframe name="_content_iframe" id="__content_iframe" style="height: expression(document.body.offsetHeight - 80); width: expression(document.body.offsetWidth - $options->{width});" height="80%" src="/i/0.html" application="yes">
</iframe>
EOH
}
sub draw_node {
my ($_SKIN, $options, $i) = @_;
$options -> {label} =~ s{\"}{\"}gsm; #"
my $node = {
id => $options -> {id},
pid => $options -> {parent},
name => $options -> {label},
url => $ENV {SCRIPT_URI} . $options -> {href},
title => $options -> {title},
target => $options -> {target},
icon => $options -> {icon},
iconOpen => $options -> {iconOpen},
is_checkbox => $options -> {is_checkbox},
};
if ($options -> {title} && $options -> {title} ne $options -> {label}) {
$node -> {title} = $options -> {title};
}
if ($i -> {cnt_children} > 0) {
$node -> {_hc} = 1;
$node -> {_hac} = 0 + $i -> {cnt_actual_children};
$node -> {_io} = $i -> {id} == $_REQUEST {__parent} ? 1 : 0;
}
else {
$node -> {_hc} = 0;
}
$node -> {_io} = 1 if $options -> {'open'};
$node -> {context_menu} = $i . '' if $i -> {__menu};
foreach my $key (keys %$node) {defined $node -> {$key} or delete $node -> {$key}}
return $node;
}
sub start_page {
}
sub draw_page {
my ($_SKIN, $page) = @_;
$_REQUEST {__scrollable_table_row} ||= 0;
my $meta_refresh = $_REQUEST {__meta_refresh} ? qq{<META HTTP-EQUIV=Refresh CONTENT="$_REQUEST{__meta_refresh}; URL=@{[create_url()]}&__no_focus=1">} : '';
my $request_package = ref $apr;
my $mod_perl = $ENV {MOD_PERL};
$mod_perl ||= 'NO mod_perl AT ALL';
my $timeout = 1000 * (60 * $conf -> {session_timeout} - 1);
$_REQUEST {__select_rows} += 0;
$_REQUEST {__blur_all} += 0;
$_REQUEST {__no_focus} += 0;
$_REQUEST {__pack} += 0;
$_REQUEST {__im_delay} += 0;
$_REQUEST {__scrollable_table_row} += 0;
$_REQUEST {__on_load} .= $_REQUEST {__doc_on_load};
if ($_REQUEST {__tree}) {
$_REQUEST{__on_load} .= $_REQUEST {__edit} ? " parent.edit_mode = 1; \n" : " parent.edit_mode = 0; \n";
}
if ($_REQUEST {sid}) {
$_REQUEST {__on_load} .= <<EOH;
; keepaliveID = setTimeout ("nope('$_REQUEST{__uri}?keepalive=$_REQUEST{sid}', 'invisible'); clearTimeout (keepaliveID)", $timeout);
EOH
}
my $invisibles = '';
foreach my $name (@{$_REQUEST{__invisibles}}) {
$invisibles .= <<EOI;
<iframe name=$name src="/i/0.html" width=0 height=0 application="yes" style="display:none">
</iframe>
EOI
}
my $url_dump = create_url (__dump => 1);
return <<EOH;
<html>
<head>
<title>$$i18n{_page_title}</title>
<meta name="Generator" content="Eludia ${Eludia::VERSION} / $$SQL_VERSION{string}; parameters are fetched with $request_package; gateway_interface is $ENV{GATEWAY_INTERFACE}; $mod_perl is in use">
<meta http-equiv=Content-Type content="text/html; charset=$$i18n{_charset}">
$meta_refresh
<LINK href="$_REQUEST{__static_url}/eludia.css?$_REQUEST{__static_salt}" type=text/css rel=STYLESHEET>
@{[ map {<<EOJS} @{$_REQUEST{__include_css}} ]}
<LINK href="/i/$_.css" type=text/css rel=STYLESHEET>
EOJS
<script src="$_REQUEST{__static_url}/navigation.js?$_REQUEST{__static_salt}">
</script>
@{[ map {<<EOCSS} @{$_REQUEST{__include_js}} ]}
<script type="text/javascript" src="/i/${_}.js">
</script>
EOCSS
<script>
var select_rows = $_REQUEST{__select_rows};
var scrollable_table = null;
var scrollable_table_row_id = 0;
var scrollable_table_row = 0;
var scrollable_table_row_length = 0;
var scrollable_table_row_cell_old_style = '';
var is_dirty = false;
var scrollable_table_is_blocked = false;
var q_is_focused = false;
var left_right_blocked = false;
var scrollable_rows = new Array();
var td2sr = new Array ();
var td2sc = new Array ();
var last_vert_menu = [null, null, null, null, null];
var last_main_menu = null;
var keepaliveID = null;
var edit_mode = null;
var clockID = 0;
var clockSeparators = new Array (' ', '$_REQUEST{__clock_separator}');
var clockSeparatorID = 0;
var __im_delay = $_REQUEST{__im_delay};
var __im_idx = '/i/_mbox/$_USER->{id}.txt';
var __im_url = '/?sid=$_REQUEST{sid}&type=_mbox&action=read';
var __im_timer = 0;
function body_on_load () {
if (window.parent) window.parent.document.body.style.cursor = 'default';
initialize_controls ($_REQUEST{__no_focus}, $_REQUEST{__pack}, '$_REQUEST{__focused_input}', $_REQUEST{__blur_all}, $_REQUEST{__scrollable_table_row});
$_REQUEST{__on_load};
try {StartClock ()} catch (e) {}
try {__im_check ()} catch (e) {}
}
function check_edit_mode () {
if (edit_mode) {
alert("$$i18n{save_or_cancel}");
document.body.style.cursor = 'default';
return true;
}
return false;
}
$_REQUEST{__script}
</script>
</head>
<body
bgcolor=white
leftMargin=0
topMargin=0
marginwidth=0
marginheight=0
name="body"
id="body"
scroll="auto"
onload= "body_on_load ()"
onbeforeunload="document.body.style.cursor = 'wait'"
onunload=" try {KillClock ()} catch (e) {}"
onkeydown="
if (window.event.keyCode == 88 && window.event.altKey) {
document.location.href = '$_REQUEST{__uri}?type=_logout&sid=$_REQUEST{sid}&salt=@{[rand]}';
blockEvent ();
}
handle_basic_navigation_keys ();
@{[ map {&{"handle_hotkey_$$_{type}"} ($_)} @{$page->{scan2names}} ]}
"
@{[ $preconf -> {core_show_dump} ? <<EODUMP : '' ]}
onmousedown="
if (window.event.button == 2 && window.event.ctrlKey) {
nope ('$url_dump', '_blank', 'toolbar=no,resizable=yes,scrollbars=yes');
}
"
EODUMP
>
@{[ $_REQUEST{__help_url} ? <<EOHELP : '' ]}
<script for="body" event="onhelp">
nope ('$_REQUEST{__help_url}', '_blank', 'toolbar=no,resizable=yes');
event.returnValue = false;
</script>
EOHELP
<div id="bodyArea" _style='height:100%; padding:0px; margin:0px'>
<!-- invisible frames @{[ Dumper ($_REQUEST{__invisibles}) ]} -->
$invisibles
<!-- /invisible frames -->
<div id="davdiv" style="behavior:url(#default#httpFolder)">
</div>
$$page{auth_toolbar}
$$page{menu}
$$page{body}
</div>
</body>
</html>
EOH
}
sub handle_hotkey_focus {
my ($r) = @_;
<<EOJS
if (window.event.keyCode == $$r{code} && window.event.altKey && window.event.ctrlKey) {
document.form.$$r{data}.focus ();
blockEvent ();
}
EOJS
}
sub handle_hotkey_focus_id {
my ($r) = @_;
my $ctrl = $r -> {ctrl} ? '' : '!';
my $alt = $r -> {alt} ? '' : '!';
<<EOJS
if (window.event.keyCode == $$r{code} && $alt window.event.altKey && $ctrl window.event.ctrlKey) {
document.getElementById('$r->{data}').focus ();
return blockEvent ();
}
EOJS
}
sub handle_hotkey_href {
my ($r) = @_;
my $ctrl = $r -> {ctrl} ? '' : '!';
my $alt = $r -> {alt} ? '' : '!';
my $condition =
$r -> {off} ? '0' :
$r -> {confirm} ? 'window.confirm(' . js_escape ($r -> {confirm}) . ')' :
'1';
if ($r -> {href}) {
return <<EOJS
if (window.event.keyCode == $$r{code} && $alt window.event.altKey && $ctrl window.event.ctrlKey) {
if ($condition) {
nope ('$$r{href}&__from_table=1&salt=' + Math.random () + '&' + scrollable_rows [scrollable_table_row].id, '_self');
}
blockEvent ();
}
EOJS
}
else {
return <<EOJS
if (window.event.keyCode == $$r{code} && $alt window.event.altKey && $ctrl window.event.ctrlKey) {
if ($condition) {
var a = document.getElementById ('$$r{data}');
activate_link (a.href, a.target);
}
blockEvent ();
}
EOJS
}
}
sub lrt_print {
my $_SKIN = shift;
my $id = int (time * rand);
$r -> print ("<span id='$id'>");
$r -> print (@_);
$r -> print ("</span>");
$r -> print ($lrt_bar);
$r -> print (<<EOH);
<script>
document.getElementById ('$id').scrollIntoView (false);
</script>
</body></html>
EOH
}
sub lrt_println {
my $_SKIN = shift;
$_SKIN -> lrt_print (@_, '<br>');
}
sub lrt_ok {
my $_SKIN = shift;
my $color = $_[1] ? 'red' : 'yellow';
my $label = $_[1] ? 'Îøèáêà' : 'ÎÊ';
$_SKIN -> lrt_println ("$_[0] <font color='$color'><b>[$label]</b></font>");
}
sub lrt_start {
my $_SKIN = shift;
$|=1;
$r -> content_type ('text/html; charset=windows-1251');
$r -> send_http_header ();
$_SKIN -> lrt_print (<<EOH);
<html><BODY BGCOLOR='#000000' TEXT='#dddddd'><font face='Courier New'>
<iframe name=invisible src="$_REQUEST{__uri}0.html" width=0 height=0 application="yes">
</iframe>
EOH
}
sub lrt_finish {
my $_SKIN = shift;
my ($banner, $href) = @_;
$_SKIN -> lrt_print (<<EOH);
<script>
alert ('$banner');
document.location = '$href';
</script>
</body></html>
EOH
}
sub draw_logon_form {
my ($options) = @_;
$_REQUEST {__on_load} = "document.getElementsByName(\"password\")[0].focus()" if ($_COOKIES{user_login} && $_COOKIES{user_login}->value);
my $hiddens = dump_hiddens (
[type => 'logon'],
[action => 'execute'],
[redirect_params => $_REQUEST {redirect_params}],
[_url => $_REQUEST{_url}],
);
return <<EOH;
<table height="75%" cellspacing=0 cellpadding=0 width="100%" class=bgr8 border=0>
<tr>
<td align=middle>
<table cellspacing=0 cellpadding=0 border=0>
<form action="$_REQUEST{__uri}$_REQUEST{__script_name}" method=post autocomplete="off">
$hiddens
<tr>
<td width=1 bgcolor=black><img height=1 src="/i/0.gif" width=1 border=0></td>
<td valign=top>
<table height=32 cellspacing=0 cellpadding=0 border=0>
<tr>
<td bgcolor=#000000><img height=1 src="/i/0.gif" width=233 border=0></td>
</tr>
<tr>
<td>
<table height=68 cellspacing=0 cellpadding=0 width=244 border=0>
<tr>
<td bgcolor=#8e8e8e rowspan=2><img height=1 src="/i/0.gif" width=16 border=0></td>
<td class=color0 bgcolor=#8e8e8e> <b>$$i18n{name}:</b> </td>
<td align=middle bgcolor=#8e8e8e><input style="width: 130px" size=15 name=login value="${\( $_COOKIES{user_login} && $_COOKIES{user_login}->value )}"></td>
</tr>
<tr>
<td class=color0 bgcolor=#8e8e8e> <b>$$i18n{password}:</b> </td>
<td align=middle bgcolor=#8e8e8e><input style="width: 130px" type=password size=15 name=password></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor=#d1d0d0>
<table height=23 cellspacing=0 cellpadding=0 align=center border=0>
<tr>
<td align=right bgcolor=#d1d0d0><input class=txt7 type=submit value=$$i18n{log_on}> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor=#000000><img height=1 src="/i/0.gif" width=233 border=0></td>
</tr>
</table>
</td>
<td width=1 bgcolor=black><img height=1 src="/i/0.gif" width=1 border=0></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
EOH
}
1;