[LON-CAPA-cvs] cvs: loncom /interface lonmenu.pm /localize/localize newphrases.txt removephrases.txt

[albertel]

albertel		Thu Apr  1 10:29:40 2004 EDT

  Modified files:              
    /loncom/interface	lonmenu.pm 
    /loncom/localize/localize	newphrases.txt removephrases.txt 
  Log:
  - add PPRM button to all resources
  
  
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.106 loncom/interface/lonmenu.pm:1.107
--- loncom/interface/lonmenu.pm:1.106	Tue Dec  9 17:10:23 2003
+++ loncom/interface/lonmenu.pm	Thu Apr  1 10:29:40 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.106 2003/12/09 22:10:23 www Exp $
+# $Id: lonmenu.pm,v 1.107 2004/04/01 15:29:40 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -263,15 +263,14 @@
 # ============================ This is for URLs that actually can be registered
     if (($ENV{'request.noversionuri'}!~/^\/(res\/)*adm\//) || ($forcereg)) {
 # -- This applies to homework problems for users with grading privileges
-        my $hwkadd='';
-        if 
-      ($ENV{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form)$/) {
-	    my $crs='/'.$ENV{'request.course.id'};
-	    if ($ENV{'request.course.sec'}) {
-	        $crs.='_'.$ENV{'request.course.sec'};
-	    }
-	    $crs=~s/\_/\//g;
+	my $crs='/'.$ENV{'request.course.id'};
+	if ($ENV{'request.course.sec'}) {
+	    $crs.='_'.$ENV{'request.course.sec'};
+	}
+	$crs=~s/\_/\//g;
 
+        my $hwkadd='';
+        if ($ENV{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form)$/) {
 	    if (&Apache::lonnet::allowed('vgr',$crs)) {
 		$hwkadd.=&switch('','',7,1,'subm.gif','view sub-[_1]','missions[_1]',
                        "gocmd('/adm/grades','submission')",
@@ -282,11 +281,11 @@
                        "gocmd('/adm/grades','gradingmenu')",
                        'Modify user grades for this assessment resource');
             }
-	    if (&Apache::lonnet::allowed('opa',$crs)) {
-		$hwkadd.=&switch('','',7,3,'pparm.gif','problem[_2]','parms[_2]',
-                       "gocmd('/adm/parmset','set')",
-                       'Modify deadlines, etc, for this assessment resource');
-            }
+	}
+	if (&Apache::lonnet::allowed('opa',$crs)) {
+	    $hwkadd.=&switch('','',7,3,'pparm.gif','problem[_2]','parms[_2]',
+			     "gocmd('/adm/parmset','set')",
+			     'Modify deadlines, etc, for this resource');
 	}
 # -- End Homework
         ###
Index: loncom/localize/localize/newphrases.txt
diff -u loncom/localize/localize/newphrases.txt:1.43 loncom/localize/localize/newphrases.txt:1.44
--- loncom/localize/localize/newphrases.txt:1.43	Tue Mar  9 10:53:18 2004
+++ loncom/localize/localize/newphrases.txt	Thu Apr  1 10:29:40 2004
@@ -80,4 +80,5 @@
 Some items were not submitted
 #[_1] is the foil name
 Foil name <b><tt>[_1]</tt></b> appears more than once. Foil names need to be unique.
-TeX unconverted due to errors
\ No newline at end of file
+TeX unconverted due to errors
+Modify deadlines, etc, for this resource
\ No newline at end of file
Index: loncom/localize/localize/removephrases.txt
diff -u loncom/localize/localize/removephrases.txt:1.9 loncom/localize/localize/removephrases.txt:1.10
--- loncom/localize/localize/removephrases.txt:1.9	Fri Mar  5 16:31:07 2004
+++ loncom/localize/localize/removephrases.txt	Thu Apr  1 10:29:40 2004
@@ -29,4 +29,5 @@
 One particular problem
 Answer Submitted
 Found no analyzable parts in this problem, currently only Numerical, Formula and String response styles are supported.
-Some parts were not submitted
\ No newline at end of file
+Some parts were not submitted
+Modify deadlines, etc, for this assessment resource
\ No newline at end of file