version 1.50, 2004/02/16 22:32:19
|
version 1.52, 2004/02/18 08:07:16
|
Line 560 Inputs
|
Line 560 Inputs
|
=item $type Either 'popup' or 'inline' (popup is assumed if nothing is |
=item $type Either 'popup' or 'inline' (popup is assumed if nothing is |
specified) |
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 $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 |
=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 |
Line 632 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 650 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 660 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; |
|
|
Line 792 sub crumbs {
|
Line 803 sub crumbs {
|
return $output.'</font></b></tt><br />'; |
return $output.'</font></b></tt><br />'; |
} |
} |
|
|
|
# ------------------------------------------------- Output headers for HTMLArea |
|
|
|
sub htmlareaheaders { |
|
unless (&htmlareabrowser()) { return ''; } |
|
my $lang='en'; |
|
return (<<ENDHEADERS); |
|
<script type="text/javascript" src="/htmlarea/htmlarea.js"></script> |
|
<script type="text/javascript" src="/htmlarea/lang/$lang.js"></script> |
|
<script type="text/javascript" src="/htmlarea/dialog.js"></script> |
|
<style type="text/css"> |
|
\@import url(/htmlarea/htmlarea.css); |
|
</style> |
|
ENDHEADERS |
|
} |
|
|
|
# ---------------------------------------------------------- Script to activate |
|
|
|
sub htmlareaactive { |
|
unless (&htmlareabrowser()) { return ''; } |
|
return (<<ENDSCRIPT); |
|
<script type="text/javascript" defer="1"> |
|
HTMLArea.replaceAll(); |
|
</script> |
|
ENDSCRIPT |
|
} |
|
|
|
# ---------------------------------------- Browser capable of running HTMLArea? |
|
|
|
sub htmlareabrowser { |
|
return 1; |
|
} |
|
|
1; |
1; |
|
|