version 1.49, 2004/02/16 22:28:55
|
version 1.51, 2004/02/16 23:27:03
|
Line 557 Inputs
|
Line 557 Inputs
|
|
|
=item $number_to_do The total number of items being processed. |
=item $number_to_do The total number of items being processed. |
|
|
|
=item $type Either 'popup' or 'inline' (popup is assumed if nothing is |
|
specified) |
|
|
|
=item $width Specify the width in charaters of the input field. |
|
|
|
=item $formname Only useful in the inline case, if a form already exists, this needs to be used and specfiy the name of the form, otherwise the Progress line will be created in a new form of it's own |
|
|
|
=item $inputname Only useful in the inline case, if a form and an input of type text exists, use this to specify the name of the input field |
|
|
=back |
=back |
|
|
Returns a hash containing the progress state data structure. |
Returns a hash containing the progress state data structure. |
Line 625 Returns: none
|
Line 634 Returns: none
|
######################################################## |
######################################################## |
######################################################## |
######################################################## |
|
|
|
my $uniq=0; |
|
sub get_uniq_name { |
|
$uniq++; |
|
return 'uniquename'.$uniq; |
|
} |
|
|
# Create progress |
# Create progress |
sub Create_PrgWin { |
sub Create_PrgWin { |
my ($r, $title, $heading, $number_to_do,$type,$formname,$inputname)=@_; |
my ($r, $title, $heading, $number_to_do,$type,$width,$formname, |
|
$inputname)=@_; |
if (!defined($type)) { $type='popup'; } |
if (!defined($type)) { $type='popup'; } |
|
if (!defined($width)) { $width=55; } |
my %prog_state; |
my %prog_state; |
$prog_state{'type'}=$type; |
$prog_state{'type'}=$type; |
if ($type eq 'popup') { |
if ($type eq 'popup') { |
Line 643 sub Create_PrgWin {
|
Line 660 sub Create_PrgWin {
|
"<body bgcolor=\"#88DDFF\">". |
"<body bgcolor=\"#88DDFF\">". |
"<h4>$heading</h4>". |
"<h4>$heading</h4>". |
"<form name=popremain>". |
"<form name=popremain>". |
'<input type="text" size="55" name="remaining" value="'. |
'<input type="text" size="'.$width.'" name="remaining" value="'. |
&mt('Starting').'"></form>'. |
&mt('Starting').'"></form>'. |
"</body></html>\');". |
"</body></html>\');". |
"popwin.document.close();}". |
"popwin.document.close();}". |
Line 653 sub Create_PrgWin {
|
Line 670 sub Create_PrgWin {
|
} elsif ($type eq 'inline') { |
} elsif ($type eq 'inline') { |
$prog_state{'window'}='window'; |
$prog_state{'window'}='window'; |
if (!$formname) { |
if (!$formname) { |
&r_print($r,'<form name="progresswindow">'); |
$prog_state{'formname'}=&get_uniq_name(); |
$prog_state{'formname'}='progresswindow'; |
&r_print($r,'<form name="'.$prog_state{'formname'}.'">'); |
} else { |
} else { |
$prog_state{'formname'}=$formname; |
$prog_state{'formname'}=$formname; |
} |
} |
if (!$inputname) { |
if (!$inputname) { |
&r_print($r,'<input type="text" name="progressline" />'); |
$prog_state{'inputname'}=&get_uniq_name(); |
$prog_state{'inputname'}="progressline"; |
&r_print($r,'<input type="text" name="'.$prog_state{'inputname'}. |
|
'" size="'.$width.'" />'); |
} else { |
} else { |
$prog_state{'inputname'}=$inputname; |
$prog_state{'inputname'}=$inputname; |
|
|