version 1.182.4.5, 2009/08/13 16:12:51
|
version 1.182.4.6, 2009/08/13 16:19:13
|
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"; |
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; |