[LON-CAPA-cvs] cvs: loncom /interface slotrequest.pm

[albertel]

albertel		Tue Sep  6 17:31:05 2005 EDT

  Modified files:              
    /loncom/interface	slotrequest.pm 
  Log:
  - typo
  
  
Index: loncom/interface/slotrequest.pm
diff -u loncom/interface/slotrequest.pm:1.11 loncom/interface/slotrequest.pm:1.12
--- loncom/interface/slotrequest.pm:1.11	Tue Sep  6 16:54:58 2005
+++ loncom/interface/slotrequest.pm	Tue Sep  6 17:31:03 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler for requesting to have slots added to a students record
 #
-# $Id: slotrequest.pm,v 1.11 2005/09/06 20:54:58 albertel Exp $
+# $Id: slotrequest.pm,v 1.12 2005/09/06 21:31:03 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -514,6 +514,7 @@
 	return OK;
     }
     $env{'request.symb'}=$symb;
+    my $vgr=&Apache::lonnet::allowed('vgr',$env{'request.course.id'});
     if ($env{'form.command'} eq 'showslots' && $vgr eq 'F') {
 	&show_table($r,$symb);
     } else {
@@ -524,7 +525,6 @@
 	    &fail($r,'not_allowed');
 	    return OK;
 	}
-	my $vgr=&Apache::lonnet::allowed('vgr',$env{'request.course.id'});
 	if ($env{'form.requestattempt'}) {
 	    &show_choices($r,$symb);
 	} elsif ($env{'form.command'} eq 'release') {