[LON-CAPA-cvs] cvs: loncom /homework edit.pm

[www]

www		Wed Nov  5 16:53:48 2003 EDT

  Modified files:              
    /loncom/homework	edit.pm 
  Log:
  Minimal internationalization
  
  
Index: loncom/homework/edit.pm
diff -u loncom/homework/edit.pm:1.70 loncom/homework/edit.pm:1.71
--- loncom/homework/edit.pm:1.70	Thu Oct 30 15:52:54 2003
+++ loncom/homework/edit.pm	Wed Nov  5 16:53:48 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # edit mode helpers
 #
-# $Id: edit.pm,v 1.70 2003/10/30 20:52:54 albertel Exp $
+# $Id: edit.pm,v 1.71 2003/11/05 21:53:48 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -33,6 +33,7 @@
 use strict;
 use Apache::lonnet();
 use HTML::Entities();
+use Apache::lonlocal;
 
 # Global Vars
 # default list of colors to use in editing
@@ -561,7 +562,7 @@
     my $result;
     my $optionlist="";
     my $allselected=$token->[2]{$name};
-    $result=$description;
+    $result=&mt($description);
     foreach my $option (@$list) {
 	my ($value,$text);
 	if ( ref($option) eq 'ARRAY') {
@@ -590,7 +591,7 @@
     my $result;
     if (!defined $size) { $size=20; }
     my $arg=$token->[2]{$name};
-    $result=$description.'&nbsp;<input name="'.&html_element_name($name).
+    $result=&mt($description).'&nbsp;<input name="'.&html_element_name($name).
 	'" type="text" value="'.$arg.'" size="'.$size.'" />';
     return '<nobr>'.$result.'</nobr>';
 }
@@ -648,7 +649,7 @@
     }
     $optionlist.="<option value=\"TYPEDINVALUE\"".
  	((!$found)?' selected="on"':'').
- 	">Type in value</option>\n";
+ 	">".&mt('Type in value')."</option>\n";
 #
     my $element=&html_element_name($name);
     my $selectelement='select_list_'.$element;
@@ -661,6 +662,7 @@
 	     '.options['.$selectedindex.'].value';
     my $typedinvalue='this.form.'.$typeinelement.'.value';
     my $selecttypeinindex='this.form.'.$selectelement.'.options.length';
+    $description=&mt($description);
 #
     return (<<ENDSELECTORTYPE);
 <nobr>