[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.4 and 1.5

version 1.4, 2003/02/07 19:30:43 version 1.5, 2003/02/10 21:27:27
Line 399  WIZBEGIN Line 399  WIZBEGIN
     Apache::lonwizard::resource_choice->new($wizard, "CHOOSE_FOLDER", "Select Folder", "", "", "CHOOSE_STUDENT_LEVEL", "RESOURCE_ID", sub {my $res = shift; return $res->is_map();});      Apache::lonwizard::resource_choice->new($wizard, "CHOOSE_FOLDER", "Select Folder", "", "", "CHOOSE_STUDENT_LEVEL", "RESOURCE_ID", sub {my $res = shift; return $res->is_map();});
     Apache::lonwizard::resource_choice->new($wizard, "CHOOSE_RESOURCE", "Select Resource", "", "", "CHOOSE_STUDENT_LEVEL", "RESOURCE_ID", sub {my $res = shift; return $res->is_map() || $res->is_problem();}, sub {my $res = shift; return $res->is_problem(); });      Apache::lonwizard::resource_choice->new($wizard, "CHOOSE_RESOURCE", "Select Resource", "", "", "CHOOSE_STUDENT_LEVEL", "RESOURCE_ID", sub {my $res = shift; return $res->is_map() || $res->is_problem();}, sub {my $res = shift; return $res->is_problem(); });
     Apache::lonwizard::switch_state->new($wizard, "CHOOSE_STUDENT_LEVEL", "Parameter Targets", "TARGETS", [      Apache::lonwizard::switch_state->new($wizard, "CHOOSE_STUDENT_LEVEL", "Parameter Targets", "TARGETS", [
        ["course", "Set for All Students in Course", "CHOOSE_DATE"],         ["course", "Set for All Studen####n Course", "CHOOSE_DATE"],
        ["section", "Set for Section", "CHOOSE_SECTION"],         ["section", "Set for Section", "CHOOSE_SECTION"],
        ["student", "Set for an Individual Student", "CHOOSE_STUDENT"]],         ["student", "Set for an Individual Student", "CHOOSE_STUDENT"]],
                                        "Whom should this setting affect?");                                         "Whom should this setting affect?");
Line 858  sub render { Line 858  sub render {
         } else {          } else {
             $result .= "<option value='$i'>";              $result .= "<option value='$i'>";
         }          }
         $result .= @months[$i] . "\n";          $result .= $months[$i] . "\n";
     }      }
     $result .= "</select>\n";      $result .= "</select>\n";
   
Removed from v.1.4  
changed lines
  Added in v.1.5

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