[LON-CAPA-cvs] cvs: rat / lonratedt.pm loncom/localize/localize removephrases.txt

[www]

www		Fri Apr 23 18:34:15 2004 EDT

  Modified files:              
    /loncom/localize/localize	removephrases.txt 
    /rat	lonratedt.pm 
  Log:
  The 0th step toward bug #883.
  
  
Index: loncom/localize/localize/removephrases.txt
diff -u loncom/localize/localize/removephrases.txt:1.10 loncom/localize/localize/removephrases.txt:1.11
--- loncom/localize/localize/removephrases.txt:1.10	Thu Apr  1 10:29:40 2004
+++ loncom/localize/localize/removephrases.txt	Fri Apr 23 18:34:13 2004
@@ -30,4 +30,5 @@
 Answer Submitted
 Found no analyzable parts in this problem, currently only Numerical, Formula and String response styles are supported.
 Some parts were not submitted
-Modify deadlines, etc, for this assessment resource
\ No newline at end of file
+Modify deadlines, etc, for this assessment resource
+Map has resource parameters. Use advanced editor.
Index: rat/lonratedt.pm
diff -u rat/lonratedt.pm:1.53 rat/lonratedt.pm:1.54
--- rat/lonratedt.pm:1.53	Wed Jan 14 22:18:20 2004
+++ rat/lonratedt.pm	Fri Apr 23 18:34:15 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Edit Handler for RAT Maps
 #
-# $Id: lonratedt.pm,v 1.53 2004/01/15 03:18:20 www Exp $
+# $Id: lonratedt.pm,v 1.54 2004/04/23 22:34:15 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -176,7 +176,7 @@
 use Apache::lonlocal;
 use File::Copy;
 
-use vars qw(@order @resources);
+use vars qw(@order @resources @resparms);
 
 
 # Mapread read maps into global arrays @links and @resources, determines status
@@ -206,7 +206,7 @@
             $links[$number]=$content;
         }
         if ($command eq 'objparms') {
-	    return(&mt('Map has resource parameters. Use advanced editor.'),1);
+	    $resparms[$number]=$content;
         }
     }
 # ------------------------------------------------------- Is this a linear map?
@@ -514,6 +514,9 @@
         if (defined($resources[$order[$i]])) {
 	    $output.='<&>objcont<:>'.$order[$i].'<:>'.$resources[$order[$i]];
         }
+	if (defined($resparms[$order[$i]])) {
+	    $output.='<&>objparms<:>'.$order[$i].'<:>'.$resparms[$order[$i]];
+	}
         if (defined($order[$i+1])) {
 	    if (defined($resources[$order[$i+1]])) {
                $output.='<&>objlinks<:>'.$k.'<:>'.