[LON-CAPA-cvs] cvs: loncom /xml lonxml.pm

[albertel]

albertel		Wed Feb 20 23:18:59 2002 EDT

  Modified files:              
    /loncom/xml	lonxml.pm 
  Log:
  Message applies to version 1.151 too.
  - debugging, and warning updates
  - added check for externally specfied target, checks vgr before allowing any target out side of tex and web in publications space, otherwise forces web target
  
  
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.152 loncom/xml/lonxml.pm:1.153
--- loncom/xml/lonxml.pm:1.152	Wed Feb 20 23:11:25 2002
+++ loncom/xml/lonxml.pm	Wed Feb 20 23:18:59 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.152 2002/02/21 04:11:25 albertel Exp $
+# $Id: lonxml.pm,v 1.153 2002/02/21 04:18:59 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1075,6 +1075,13 @@
     if ( defined($ENV{'form.grade_target'})
 	 && ($viewgrades == 'F' )) {
       return ($ENV{'form.grade_target'});
+    } elsif (defined($ENV{'form.grade_target'})) {
+      if (($ENV{'form.grade_target'} eq 'web') ||
+	  ($ENV{'form.grade_target'} eq 'tex') ) {
+	return $ENV{'form.grade_target'}
+      } else {
+	return 'web';
+      }
     } else {
       return 'web';
     }