version 1.182.4.5, 2009/08/13 16:12:51
|
version 1.182.4.8, 2009/08/23 12:59:18
|
Line 978 sub Create_PrgWin {
|
Line 978 sub Create_PrgWin {
|
|
|
#the whole function called through timeout is due to issues |
#the whole function called through timeout is due to issues |
#in mozilla Read BUG #2665 if you want to know the whole story |
#in mozilla Read BUG #2665 if you want to know the whole story |
&r_print($r,'<script type="text/javascript">'. |
&r_print($r,'<script type="text/javascript">'."\n". |
'// <![CDATA['. |
'// <![CDATA['."\n". |
"var popwin; |
"var popwin; |
function openpopwin () { |
function openpopwin () { |
popwin=open(\'\',\'popwin\',\'width=400,height=100\');". |
popwin=open(\'\',\'popwin\',\'width=400,height=100\');". |
Line 990 sub Create_PrgWin {
|
Line 990 sub Create_PrgWin {
|
&mt('Starting').'" /><\\/form>'.$end_page. |
&mt('Starting').'" /><\\/form>'.$end_page. |
"\');". |
"\');". |
"popwin.document.close();}". |
"popwin.document.close();}". |
"\nwindow.setTimeout(openpopwin,0). |
"\nwindow.setTimeout(openpopwin,0)\n". |
'// ]]>'. |
'// ]]>'."\n". |
'</script>"); |
'</script>'); |
$prog_state{'formname'}='popremain'; |
$prog_state{'formname'}='popremain'; |
$prog_state{'inputname'}="remaining"; |
$prog_state{'inputname'}="remaining"; |
} elsif ($type eq 'inline') { |
} elsif ($type eq 'inline') { |
Line 1025 sub Create_PrgWin {
|
Line 1025 sub Create_PrgWin {
|
# update progress |
# update progress |
sub Update_PrgWin { |
sub Update_PrgWin { |
my ($r,$prog_state,$displayString)=@_; |
my ($r,$prog_state,$displayString)=@_; |
&r_print($r,'<script type="text/javascript">'. |
&r_print($r,'<script type="text/javascript">'."\n". |
'// <![CDATA['. |
'// <![CDATA['."\n". |
$$prog_state{'window'}.'.document.'. |
$$prog_state{'window'}.'.document.'. |
$$prog_state{'formname'}.'.'. |
$$prog_state{'formname'}.'.'. |
$$prog_state{'inputname'}.'.value="'. |
$$prog_state{'inputname'}.'.value="'. |
$displayString.'";'. |
$displayString.'";'."\n". |
'// ]]>'. |
'// ]]>'."\n". |
'</script>'); |
'</script>'); |
$$prog_state{'laststart'}=&Time::HiRes::time(); |
$$prog_state{'laststart'}=&Time::HiRes::time(); |
} |
} |
Line 1085 sub Increment_PrgWin {
|
Line 1085 sub Increment_PrgWin {
|
if ($user_browser eq 'explorer' && $user_os =~ 'mac') { |
if ($user_browser eq 'explorer' && $user_os =~ 'mac') { |
$lasttime = ''; |
$lasttime = ''; |
} |
} |
&r_print($r,'<script>'. |
&r_print($r,'<script>'."\n". |
'// <![CDATA['. |
'// <![CDATA['."\n". |
$$prog_state{'window'}.'.document.'. |
$$prog_state{'window'}.'.document.'. |
$$prog_state{'formname'}.'.'. |
$$prog_state{'formname'}.'.'. |
$$prog_state{'inputname'}.'.value="'. |
$$prog_state{'inputname'}.'.value="'. |
$$prog_state{'done'}.'/'.$$prog_state{'max'}. |
$$prog_state{'done'}.'/'.$$prog_state{'max'}. |
': '.$time_est.' '.&mt('remaining').' '.$lasttime.'";'. |
': '.$time_est.' '.&mt('remaining').' '.$lasttime.'";'."\n". |
'// ]]>'. |
'// ]]>'."\n". |
'</script>'); |
'</script>'); |
$$prog_state{'laststart'}=&Time::HiRes::time(); |
$$prog_state{'laststart'}=&Time::HiRes::time(); |
} |
} |
Line 1101 sub Increment_PrgWin {
|
Line 1101 sub Increment_PrgWin {
|
sub Close_PrgWin { |
sub Close_PrgWin { |
my ($r,$prog_state)=@_; |
my ($r,$prog_state)=@_; |
if ($$prog_state{'type'} eq 'popup') { |
if ($$prog_state{'type'} eq 'popup') { |
&r_print($r,'<script>'. |
&r_print($r,'<script>'."\n". |
'// <![CDATA['. |
'// <![CDATA['."\n". |
'popwin.close()'. |
'popwin.close()'."n". |
'// ]]>'. |
'// ]]>'."\n". |
'</script>'."\n"); |
'</script>'."\n"); |
} elsif ($$prog_state{'type'} eq 'inline') { |
} elsif ($$prog_state{'type'} eq 'inline') { |
&Update_PrgWin($r,$prog_state,&mt('Done')); |
&Update_PrgWin($r,$prog_state,&mt('Done')); |
Line 1287 sub htmlareaselectactive {
|
Line 1287 sub htmlareaselectactive {
|
}"; |
}"; |
} |
} |
$output.="\nwindow.status='Activated Editfields';\n". |
$output.="\nwindow.status='Activated Editfields';\n". |
'// ]]>'. |
'// ]]>'."\n". |
'</script><br />'. |
'</script><br />'. |
&disablelink(@fields); |
&disablelink(@fields); |
return $output; |
return $output; |
Line 1813 sub topic_bar {
|
Line 1813 sub topic_bar {
|
return ' |
return ' |
<div class="LC_topic_bar"> |
<div class="LC_topic_bar"> |
<img alt="'.&mt('Step [_1]',$imgnum). |
<img alt="'.&mt('Step [_1]',$imgnum). |
'" src="/res/adm/pages/bl_step'.$imgnum.'.gif" /> '.$title |
'" src="/res/adm/pages/bl_step'.$imgnum.'.gif" /> '.$title.' |
</div> |
</div> |
'; |
'; |
} |
} |
Line 1950 sub set_form_elements {
|
Line 1950 sub set_form_elements {
|
$values{$name}[$i] =~ s/([\r\n\f]+)/\\n/g; |
$values{$name}[$i] =~ s/([\r\n\f]+)/\\n/g; |
$values{$name}[$i] =~ s/"/\\"/g; |
$values{$name}[$i] =~ s/"/\\"/g; |
} |
} |
if ($$elements{$name} eq 'text') { |
if (($$elements{$name} eq 'text') || ($$elements{$name} eq 'hidden')) { |
my $numvalues = @{$values{$name}}; |
my $numvalues = @{$values{$name}}; |
if ($numvalues > 1) { |
if ($numvalues > 1) { |
my $valuestring = join('","',@{$values{$name}}); |
my $valuestring = join('","',@{$values{$name}}); |
Line 1985 sub set_form_elements {
|
Line 1985 sub set_form_elements {
|
$output .= qq| |
$output .= qq| |
if (courseForm.elements['$name'].value == "$value") { |
if (courseForm.elements['$name'].value == "$value") { |
courseForm.elements['$name'].checked = true; |
courseForm.elements['$name'].checked = true; |
|
} else { |
|
courseForm.elements['$name'].checked = false; |
}|; |
}|; |
} |
} |
} |
} |