[LON-CAPA-cvs] cvs: loncom /interface lonwizard.pm

[albertel]

albertel		Mon Feb 10 16:27:27 2003 EDT

  Modified files:              
    /loncom/interface	lonwizard.pm 
  Log:
  - Good Perl 6 syntax, Bad Perl 5 syntax :-)
  
  
Index: loncom/interface/lonwizard.pm
diff -u loncom/interface/lonwizard.pm:1.4 loncom/interface/lonwizard.pm:1.5
--- loncom/interface/lonwizard.pm:1.4	Fri Feb  7 14:30:43 2003
+++ loncom/interface/lonwizard.pm	Mon Feb 10 16:27:27 2003
@@ -399,7 +399,7 @@
     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::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"],
        ["student", "Set for an Individual Student", "CHOOSE_STUDENT"]],
                                        "Whom should this setting affect?");
@@ -858,7 +858,7 @@
         } else {
             $result .= "<option value='$i'>";
         }
-        $result .= @months[$i] . "\n";
+        $result .= $months[$i] . "\n";
     }
     $result .= "</select>\n";