--- rat/lonratedt.pm 2003/09/22 03:02:06 1.47 +++ rat/lonratedt.pm 2003/12/12 15:19:29 1.50 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Edit Handler for RAT Maps # -# $Id: lonratedt.pm,v 1.47 2003/09/22 03:02:06 www Exp $ +# $Id: lonratedt.pm,v 1.50 2003/12/12 15:19:29 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 @@ -878,7 +878,7 @@ sub smpedt { $importdetail='&'.$importdetail; $importdetail=~s/^\&+/\&/; my $importwindow= - ''. + ''. join("\n",map { $idx++; if ($_) { @@ -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'}