[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.8

version 1.6, 2002/08/01 20:49:06 version 1.8, 2002/08/21 17:18:08
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 175  sub Title { Line 175  sub Title {
     my $Str = '';      my $Str = '';
   
     $Str .= '<html><head><title>'.$pageName.'</title></head>'."\n";      $Str .= '<html><head><title>'.$pageName.'</title></head>'."\n";
     $Str .= '<body bgcolor="#FFFFFF">'."\n";      $Str .= &Apache::loncommon::bodytag($pageName)."\n";
     $Str .= '<script>window.focus(); window.width=500;window.height=500;';      $Str .= '<script>window.focus(); window.width=500;window.height=500;';
     $Str .= '</script>'."\n";      $Str .= '</script>'."\n";
     $Str .= '<table width="100%"><tr><td valign="top">';  
     $Str .= '<h1> Course: ';  
     $Str .= $ENV{'course.'.$ENV{'request.course.id'}.'.description'};  
     $Str .= '</h1></td><td align="right">'."\n";  
     $Str .= '<img align="right" src=/adm/lonIcons/lonlogos.gif>';  
     $Str .= '</td></tr></table>'."\n";  
   
     return $Str;      return $Str;
 }  }
Line 294  sub FormatStudentInformation { Line 288  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.8

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