version 1.158, 2007/05/07 14:02:45
|
version 1.159, 2007/05/13 18:03:15
|
Line 852 sub Create_PrgWin {
|
Line 852 sub Create_PrgWin {
|
popwin=open(\'\',\'popwin\',\'width=400,height=100\');". |
popwin=open(\'\',\'popwin\',\'width=400,height=100\');". |
"popwin.document.writeln(\'".$start_page. |
"popwin.document.writeln(\'".$start_page. |
"<h4>$heading<\/h4>". |
"<h4>$heading<\/h4>". |
"<form name=\"popremain\" method=\"post\">". |
"<form action= \"\" name=\"popremain\" method=\"post\">". |
'<input type="text" size="'.$width.'" name="remaining" value="'. |
'<input type="text" size="'.$width.'" name="remaining" value="'. |
&mt('Starting').'" /><\\/form>'.$end_page. |
&mt('Starting').'" /><\\/form>'.$end_page. |
"\');". |
"\');". |
Line 864 sub Create_PrgWin {
|
Line 864 sub Create_PrgWin {
|
$prog_state{'window'}='window'; |
$prog_state{'window'}='window'; |
if (!$formname) { |
if (!$formname) { |
$prog_state{'formname'}=&get_uniq_name(); |
$prog_state{'formname'}=&get_uniq_name(); |
&r_print($r,'<form name="'.$prog_state{'formname'}.'">'); |
&r_print($r,'<form action="" name="'.$prog_state{'formname'}.'">'); |
} else { |
} else { |
$prog_state{'formname'}=$formname; |
$prog_state{'formname'}=$formname; |
} |
} |
Line 891 sub Create_PrgWin {
|
Line 891 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>'.$$prog_state{'window'}.'.document.'. |
&r_print($r,'<script type="text/javascript">'.$$prog_state{'window'}.'.document.'. |
$$prog_state{'formname'}.'.'. |
$$prog_state{'formname'}.'.'. |
$$prog_state{'inputname'}.'.value="'. |
$$prog_state{'inputname'}.'.value="'. |
$displayString.'";</script>'); |
$displayString.'";</script>'); |