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

Diff for /loncom/interface/Attic/lonwizard.pm between versions 1.7 and 1.8

version 1.7, 2003/02/13 21:00:11 version 1.8, 2003/02/13 23:46:27
Line 659  sub render { Line 659  sub render {
     foreach (@keys)      foreach (@keys)
     {      {
  $result .= "<option value=\"" . HTML::Entities::encode($choices->{$_})    $result .= "<option value=\"" . HTML::Entities::encode($choices->{$_}) 
             . "\">" . HTML::Entities::encode($_) . "\n";              . "\">" . HTML::Entities::encode($_) . "</option>\n";
     }      }
     $result .= "</select>\n\n";      $result .= "</select>\n\n";
   
Line 870  sub render { Line 870  sub render {
         } else {          } else {
             $result .= "<option value='$i'>";              $result .= "<option value='$i'>";
         }          }
         $result .= $months[$i] . "\n";          $result .= $months[$i] . "</option>\n";
     }      }
     $result .= "</select>\n";      $result .= "</select>\n";
   
Line 882  sub render { Line 882  sub render {
         } else {          } else {
             $result .= '<option>';              $result .= '<option>';
         }          }
         $result .= "$i\n";          $result .= "$i</option>\n";
     }      }
     $result .= "</select>,\n";      $result .= "</select>,\n";
   
Line 894  sub render { Line 894  sub render {
         } else {          } else {
             $result .= "<option>";              $result .= "<option>";
         }          }
         $result .= "$i\n";          $result .= "$i</option>\n";
     }      }
     $result .= "</select>,\n";      $result .= "</select>,\n";
   
     # Display Hours and Minutes if they are called for      # Display Hours and Minutes if they are called for
     if (!$self->{DISPLAY_JUST_DATE}) {      if (!$self->{DISPLAY_JUST_DATE}) {
           # Build hour
         $result .= "<select name='$self->{VAR_NAME}hour'>\n";          $result .= "<select name='$self->{VAR_NAME}hour'>\n";
         if ($date->hour == 12) { $result .= "<option selected>12\n"; }          $result .= "<option " . ($date->hour == 0 ? 'selected ':'') .
         else { $result .= "<option>12\n" }              " value='0'>midnight</option>\n";
         for ($i = 1; $i < 12; $i++) {          for ($i = 1; $i < 12; $i++) {
             if (($date->hour) % 12 == $i % 12) {              if ($date->hour == $i) {
                 $result .= "<option selected>";                  $result .= "<option selected value='$i'>$i a.m.</option>\n";
             } else {              } else {
                 $result .= "<option>";                  $result .= "<option value='$i'>$i a.m</option>\n";
               }
           }
           $result .= "<option " . ($date->hour == 12 ? 'selected ':'') .
               " value='12'>noon</option>\n";
           for ($i = 13; $i < 24; $i++) {
               my $printedHour = $i - 12;
               if ($date->hour == $i) {
                   $result .= "<option selected value='$i'>$printedHour p.m.</option>\n";
               } else {
                   $result .= "<option value='$i'>$printedHour p.m.</option>\n";
             }              }
             $result .= "$i\n";  
         }          }
   
         $result .= "</select> :\n";          $result .= "</select> :\n";
   
         $result .= "<select name='$self->{VAR_NAME}minute'>\n";          $result .= "<select name='$self->{VAR_NAME}minute'>\n";
         for ($i = 0; $i < 60; $i++) {          for ($i = 0; $i < 60; $i++) {
               my $printedMinute = $i;
               if ($i < 10) {
                   $printedMinute = "0" . $printedMinute;
               }
             if ($date->min == $i) {              if ($date->min == $i) {
                 $result .= "<option selected>";                  $result .= "<option selected>";
             } else {              } else {
                 $result .= "<option>";                  $result .= "<option>";
             }              }
             $result .= "$i\n";              $result .= "$printedMinute</option>\n";
         }          }
         $result .= "</select>\n";          $result .= "</select>\n";
   
         $result .= "<select name='$self->{VAR_NAME}meridian'>\n";  
         if ($date->hour < 12) {  
             $result .= "<option selected>A.M.\n<option>P.M.\n";  
         } else {  
             $result .= "<option>A.M.\n<option selected>P.M.\n";  
         }  
         $result .= "</select>";  
     }      }
   
     if (defined ($self->{MESSAGE_AFTER})) {      if (defined ($self->{MESSAGE_AFTER})) {
Line 1195  sub render { Line 1202  sub render {
         $result .= '<font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br /><br />';          $result .= '<font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br /><br />';
     }      }
   
     $result .= $self->{MESSAGE_BEFORE} if (defined $self->{MESSAGE_BEFORE});      $result .= $self->{MESSAGE_BEFORE} . '<br /><br />'
           if (defined $self->{MESSAGE_BEFORE});
     # Get the course nav map  
     my $navmap = Apache::lonnavmaps::navmap->new(  
                            $ENV{"request.course.fn"}.".db",  
                            $ENV{"request.course.fn"}."_parms.db", 0, 0);  
   
     if (!defined($navmap)) {  
         return "<font color='red' size='+1'>Something has gone wrong with the map selection feature. Please contact your administrator.</font>";  
     }  
   
     my $iterator = $navmap->getIterator(undef, undef, undef, 0, 0);  
     my $filterFunc = $self->{FILTER_FUNC};      my $filterFunc = $self->{FILTER_FUNC};
     my $choiceFunc = $self->{CHOICE_FUNC};      my $choiceFunc = $self->{CHOICE_FUNC};
   
Line 1227  sub render { Line 1225  sub render {
     };      };
   
     $result .=       $result .= 
         &Apache::lonnavmaps::render( { "iterator" => $iterator,          &Apache::lonnavmaps::render( { 'cols' => [$renderColFunc, 
                                        'cols' => [$renderColFunc,   
                                                   Apache::lonnavmaps::resource()],                                                    Apache::lonnavmaps::resource()],
                                        'showParts' => 0,                                         'showParts' => 0,
                                        'queryString' => $wizard->queryStringVars() . '&folderManip=1',                                         'queryString' => $wizard->queryStringVars() . '&folderManip=1',
                                        'url' => '/adm/wizard'} );                                         'url' => '/adm/wizard',
                                          'filterFunc' => $filterFunc } );
                                                                                                   
     $navmap->untieHashes();  
   
     $result .= $self->{MESSAGE_AFTER} if (defined $self->{MESSAGE_AFTER});      $result .= $self->{MESSAGE_AFTER} if (defined $self->{MESSAGE_AFTER});
   
     return $result;      return $result;
Removed from v.1.7  
changed lines
  Added in v.1.8

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