--- loncom/interface/lonsource.pm 2005/06/23 23:24:53 1.13
+++ loncom/interface/lonsource.pm 2005/06/23 23:51:32 1.14
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Souce Code handler
#
-# $Id: lonsource.pm,v 1.13 2005/06/23 23:24:53 www Exp $
+# $Id: lonsource.pm,v 1.14 2005/06/23 23:51:32 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -63,7 +63,7 @@ sub stage_2 {
-
+
');
return OK;
@@ -214,8 +214,7 @@ sub handler {
$env{'user.error.msg'}="$filename:cre:1:1:Source code not available";
return HTTP_NOT_ACCEPTABLE;
}
- if ((!&Apache::lonnet::allowed('cre',$filename)) ||
- (!&Apache::lonnet::allowed('bre',$filename))) {
+ unless (&Apache::lonnet::allowed('bre',$filename)) {
$env{'user.error.msg'}="$filename:bre:1:1:Access to resource denied";
return HTTP_NOT_ACCEPTABLE;
}