[BACK]Return to lonhtmlcommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.50 and 1.51

version 1.50, 2004/02/16 22:32:19 version 1.51, 2004/02/16 23:27:03
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;
           
Removed from v.1.50  
changed lines
  Added in v.1.51

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>