--- loncom/interface/lonpickcode.pm 2004/04/22 22:57:53 1.1 +++ loncom/interface/lonpickcode.pm 2004/04/24 08:31:57 1.2 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a CODE from the list of possible CODEs # -# $Id: lonpickcode.pm,v 1.1 2004/04/22 22:57:53 albertel Exp $ +# $Id: lonpickcode.pm,v 1.2 2004/04/24 08:31:57 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -94,8 +94,7 @@ ENDDOCUMENT 'form','scantron_format', 'scantron_CODElist']); - if (! - ($ENV{'request.course.id'}) && + if (!($ENV{'request.course.id'}) && (&Apache::lonnet::allowed('usc',$ENV{'request.course.id'}))) { $r->print('
Access not allowed.'); return OK; @@ -104,12 +103,12 @@ ENDDOCUMENT $r->print(&Apache::loncommon::bodytag("Selecting a CODE")); $r->print(<