| Current File : //var/wcp4/kamanleu/public_html/tmp/templates/compiled/confirm_delete.html.compiled |
# This file is a compiled version of a template that can be run much faster
# than reparsing the file, yet accomplishes the same thing. You should not
# attempt to modify this file as any changes you make would be lost as soon as
# the original template file is modified.
# Generated: Sun Jul 20 14:24:50 2003
# Editor: vim:syn=perl
local $^W;
{
parse_date => 1058682290,
deps => [],
parser_version => 2.078,
file_type => 'REL',
code => \>::Template::parsed_template
};
sub GT::Template::parsed_template {
local $^W; # Get rid of warnings. unfortunately, this won't work for Perl 5.6's -W switch
my $self = shift;
my $return = '';
my $escape = $self->{opt}->{escape};
my $strict = $self->{opt}->{strict};
my $tmp;
$return .= q{<link rel="stylesheet" href="};
$return .= $tmp if defined($tmp = $self->_get_var(q{html_url}, $escape, $strict));
$return .= q{/};
$return .= $tmp if defined($tmp = $self->_get_var(q{scheme}, $escape, $strict));
$return .= q{.css">
<body class="bg_main">
<form name='frm_main' action='};
$return .= $tmp if defined($tmp = $self->_get_var(q{http_ref}, $escape, $strict));
$return .= q{' method=post>
<table width=100% height=100%>
<tr><td>
<table width="500" border="1" cellspacing="0" cellpadding="0" align="center" class="bg_window">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#000066">
<tr bgcolor="#000066">
<td class="header_format" height=20 width=60%><Font color=white><b> Confirm </b></font></td>
<td class="header_format" height=20 width=40% align=right>
<a href="javascript:window.history.back()"><img src="};
$return .= $tmp if defined($tmp = $self->_get_var(q{html_url}, $escape, $strict));
$return .= q{/icons/close.gif" border=0></a>
</td>
</tr>
</table>
<table border="0" cellpadding="1" cellspacing="1" width="90%" align=center>
<tr>
<td>};
$return .= $tmp if defined($tmp = $self->_get_var(q{font}, $escape, $strict));
$return .= q{<BR>Do you want to remove all child files and directories in this directories? </font></td></tr>
<tr>
<td>};
$return .= $tmp if defined($tmp = $self->_get_var(q{font}, $escape, $strict));
$return .= q{<BR><b>};
$return .= $tmp if defined($tmp = $self->_get_var(q{file_cur}, $escape, $strict));
$return .= q{</b></font></td></tr>
<tr><td align=center><BR>
<input type=submit name=over value='Remove' class='submit'>
<input type=submit name=all value='Remove All' class='submit'>
<input type=submit name=skip value=' Skip ' class='submit'>
<input type=submit name=cancel value='Cancel' class='submit'><BR><BR>
</td></tr>
</table>
</td></tr>
</table>
</td></tr></table>
};
{
my $orig = {%{$self->{VARS}}};
my %loop_set;
LOOP1: {
my $loop_var = $self->{VARS}->{q{list_files}};
my $loop_type = ref $loop_var;
if ($loop_type eq 'CODE' or $loop_type eq 'ARRAY') {
my $next;
my $row_num = 0;
my $i = 0;
my $current = $loop_type eq 'CODE' ? $loop_var->() : $loop_var->[$i++];
if (ref $current eq 'ARRAY') {
$loop_type = 'ARRAY';
$loop_var = $current;
$current = $loop_var->[$i++];
}
next unless ref $current eq 'HASH'; # It didn't return anything useful
while ($current) {
if ($loop_type eq 'CODE') {
$next = $loop_var->();
}
else {
$next = $loop_var->[$i++];
}
my $copy = {%{$self->{VARS}}};
for (keys %loop_set) {
$copy->{$_} = $orig->{$_};
delete $loop_set{$_};
}
if (ref $current ne 'HASH') { # Whatever they gave us is bad.
$return .= q{Error: An iteration of loop variable 'list_files' returns something other than a hash reference};
last LOOP1;
}
for (qw/row_num first last inner even odd/, keys %$current) { $loop_set{$_} = 1 }
$copy->{row_num} = ++$row_num;
$copy->{first} = ($row_num == 1) || 0;
$copy->{last} = (!$next) || 0;
$copy->{inner} = (!$copy->{first} and !$copy->{last}) || 0;
$copy->{even} = ($row_num % 2 == 0) || 0;
$copy->{odd} = (not $copy->{even}) || 0;
for (keys %$current) { $copy->{$_} = $current->{$_} }
$self->{VARS} = $copy;
$current = $next;
$return .= q{
<input type=hidden name=c_edit value="};
$return .= $tmp if defined($tmp = $self->_get_var(q{name}, $escape, $strict));
$return .= q{">
};
}
}
}
for (keys %loop_set) { $self->{VARS}->{$_} = $orig->{$_} }
}
$return .= q{
<input type=hidden name=txt_input value="};
$return .= $tmp if defined($tmp = $self->_get_var(q{input}, $escape, $strict));
$return .= q{">
<input type=hidden name=file_cur value="};
$return .= $tmp if defined($tmp = $self->_get_var(q{file_cur}, $escape, $strict));
$return .= q{">
<input type=hidden name=work_path value="};
$return .= $tmp if defined($tmp = $self->_get_var(q{work_path}, $escape, $strict));
$return .= q{">
<input type=hidden name=cmd_do value="cmd_del_confirm">
<input type=hidden name=do value="fileman">
<input type=hidden name=page value="">
<!--Search options-->
<input type=hidden name="c_regex">
<input type=hidden name="c_case">
<input type=hidden name="c_word">
<input type=hidden name="c_content">
<input type=hidden name="c_bak">
<input type=hidden name="scope">
<input type=hidden name="txt_with">
};
unless ($self->_get_var(q{user_sessions}, 0, 0)) {
$return .= q{
<!--multi users-->
<input type=hidden name="session_id" value="};
$return .= $tmp if defined($tmp = $self->_get_var(q{session_id}, $escape, $strict));
$return .= q{">
};
}
$return .= q{
};
if ($self->_get_var(q{root_selected}, 0, 0)) {
$return .= q{
<input type=hidden name='root_selected' value="};
$return .= $tmp if defined($tmp = $self->_get_var(q{root_selected}, $escape, $strict));
$return .= q{">
};
}
$return .= q{
</form>
</body>
};
return \$return;
}