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

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.6 and 1.7

version 1.6, 2002/08/01 20:49:06 version 1.7, 2002/08/13 00:37:18
Line 68  sub MapOptions { Line 68  sub MapOptions {
     my $selected = 0;      my $selected = 0;
     foreach my $sequence (split(':',$data->{'orderedSequences'})) {      foreach my $sequence (split(':',$data->{'orderedSequences'})) {
  $Str .= '<option';   $Str .= '<option';
         if($data->{$page.'Map'} eq $data->{$sequence.':title'}) {          if($data->{$page.'Maps'} eq $data->{$sequence.':title'}) {
             $Str .= ' selected';              $Str .= ' selected';
             $selected = 1;              $selected = 1;
         }          }
Line 153  sub MultipleSectionSelect { Line 153  sub MultipleSectionSelect {
     my ($sections,$selectedSections)=@_;      my ($sections,$selectedSections)=@_;
   
     my $Str = '';      my $Str = '';
     $Str .= '<select name="Section" multiple="" size="4">'."\n";      $Str .= '<select name="Section" multiple="true" size="4">'."\n";
   
     foreach (@$sections) {      foreach (@$sections) {
         $Str .= '<option';          $Str .= '<option';
Line 294  sub FormatStudentInformation { Line 294  sub FormatStudentInformation {
     return $Str;      return $Str;
 }  }
   
   # Create progress
   sub Create_PrgWin {
       my ($r, $title, $heading)=@_;
       $r->print('<script>'.
       "popwin=open(\'\',\'popwin\',\'width=400,height=100\');".
       "popwin.document.writeln(\'<html><body bgcolor=\"#88DDFF\">".
                 "<title>$title</title>".
                 "<h4>$heading</h4>".
                 "<form name=popremain>".
                 "<input type=text size=35 name=remaining value=Starting></form>".
                 "</body></html>\');".
       "popwin.document.close();".
       "</script>");
   
       $r->rflush();
   }
   
   # update progress
   sub Update_PrgWin {
       my ($displayString,$r)=@_;
       $r->print('<script>popwin.document.popremain.remaining.value="'.
                 $displayString.'";</script>');
       $r->rflush();
   }
   
   # close Progress Line
   sub Close_PrgWin {
       my ($r)=@_;
       $r->print('<script>popwin.close()</script>'."\n");
       $r->rflush(); 
   }
   
 1;  1;
 __END__  __END__
Removed from v.1.6  
changed lines
  Added in v.1.7

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