--- rat/lonratedt.pm 2003/10/21 20:40:10 1.48 +++ rat/lonratedt.pm 2003/12/12 15:16:35 1.49 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Edit Handler for RAT Maps # -# $Id: lonratedt.pm,v 1.48 2003/10/21 20:40:10 albertel Exp $ +# $Id: lonratedt.pm,v 1.49 2003/12/12 15:16:35 sakharuk Exp $ # # Copyright Michigan State University Board of Trustees # @@ -206,7 +206,7 @@ sub mapread { $links[$number]=$content; } if ($command eq 'objparms') { - return('Map has resource parameters. Use advanced editor.',1); + return(&mt('Map has resource parameters. Use advanced editor.'),1); } } # ------------------------------------------------------- Is this a linear map? @@ -220,13 +220,13 @@ sub mapread { my ($start,$end,$cond)=split(/\:/,$_); if ((defined($starters[$start])) || (defined($endings[$end]))) { return - ('Map has branchings. Use advanced editor.',1); + (&mt('Map has branchings. Use advanced editor.'),1); } $starters[$start]=1; $endings[$end]=1; if ($cond) { return - ('Map has conditions. Use advanced editor.',1); + (&mt('Map has conditions. Use advanced editor.'),1); } } @@ -235,7 +235,7 @@ sub mapread { if (defined($resources[$i])) { unless (($starters[$i]) || ($endings[$i])) { return - ('Map has unconnected resources. Use advanced editor.',1); + (&mt('Map has unconnected resources. Use advanced editor.'),1); } } } @@ -414,12 +414,12 @@ sub buttons { my $adv=shift; my $output='
'; if ($adv==1) { - $output.=''; + $output.=''; } else { unless ($adv==2) { - $output.=''; + $output.=''; } - $output.=''; + $output.=''; } return $output.'

'; } @@ -654,7 +654,7 @@ sub smpedt { } if (-e $tmpfn) { $targetmsg= - 'You are working with an unsaved version of your map.
'; + ''.&mt('You are working with an unsaved version of your map.').'
'; my ($errtext,$fatal)=&mapread($tmpfn,''); } # ---------------------------------------------------------- Process form input @@ -893,7 +893,7 @@ sub smpedt { $idx=0; $targetdetail=''; my $targetwindow= - ''. + ''. join("\n",map { my ($name,$url)=split(/\:/,$resources[$_]); unless ($name) { $name=(split(/\//,$url))[-1]; } @@ -923,6 +923,10 @@ sub smpedt { 'mu' => 'Move Up', 'md' => 'Move Down', 're' => 'Rename', + 'as' => 'after selected', + 'cs' => 'Cut selected', + 'ps' => 'Copy selected', + 'pas' => 'Paste after selected', ); $r->print(< @@ -986,7 +990,7 @@ $buttons -after selected +$lt{'as'}
-after selected +$lt{'as'}
@@ -1018,13 +1022,13 @@ $importwindow -Cut selected
+$lt{'cs'}


-Copy selected
+$lt{'ps'}


-Paste after selected
+$lt{'pas'}