--- loncom/interface/lonsource.pm	2004/06/12 01:08:11	1.1
+++ loncom/interface/lonsource.pm	2004/06/18 15:13:07	1.3
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
-# Publication Handler
+# Souce Code handler
 #
-# $Id: lonsource.pm,v 1.1 2004/06/12 01:08:11 taceyjo1 Exp $
+# $Id: lonsource.pm,v 1.3 2004/06/18 15:13:07 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -42,43 +42,50 @@ use Apache::lonlocal;
 use HTML::Entities;
 
 sub make_link {
-	my ($filename) = @_;
-	my $sourcelink = "http://".$ENV{'SERVER_NAME'}."/adm/source/?filename=".$filename;
-	
-	
-return $sourcelink;
-	
+    my ($filename) = @_;
+    my $sourcelink = "http://".$ENV{'SERVER_NAME'}.
+	"/adm/source/?filename=".$filename;
+
+    return $sourcelink;
 }
 
 sub stage_2 {
-	my ($r, $filename) = @_;
-	$r->print("Comming Soon");
-	return OK;
+    my ($r, $filename) = @_;
+    $r->print("Coming Soon");
+    return OK;
 }
 
 sub print_item {
-	my ($r, $filename) = @_;
-	$filename = "/home/httpd/html".$filename;
-	my $file_output = &Apache::lonnet::getfile($filename);
-	my ($rows,$cols) = &Apache::edit::textarea_sizes(\$file_output);
-	$r->print('<textarea rows="'.$rows.'" cols="'.$cols.'" name="editxmltext">'.
-	    &HTML::Entities::encode($file_output,'<>&"').'</textarea>');
-	
-	return OK;
+    my ($r, $filename) = @_;
+    $filename = "/home/httpd/html".$filename;
+    my $file_output = &Apache::lonnet::getfile($filename);
+    my ($rows,$cols) = &Apache::edit::textarea_sizes(\$file_output);
+    $r->print('<textarea rows="'.$rows.'" cols="'.$cols.'" name="editxmltext">'.
+	      &HTML::Entities::encode($file_output,'<>&"').'</textarea>');
+    return OK;
 	
 }
 
 
 sub handler { 
-	my $r=shift;
-	if($ENV{'form.action'} eq 'stage2') { 
-		&stage_2($r, $ENV{'form.filename'});
-	} else {
-	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
-	     ['filename']);
-	return FORBIDDEN if !&Apache::lonnet::allowed('cre',$ENV{'form.filename'}) 
+    my $r=shift;
+    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+					    ['filename']);
+    my $filename = $ENV{'form.filename'};
+    my $source = &Apache::lonnet::metadata($filename,'sourceavail');
+    if ($source ne 'open') {
+	$ENV{'user.error.msg'}="$filename:cre:1:1:Source code not available";
+	return HTTP_NOT_ACCEPTABLE;
+    }
+    if ((!&Apache::lonnet::allowed('cre')) ||
+	(!&Apache::lonnet::allowed('bre',$filename))) {
+	$ENV{'user.error.msg'}="$filename:bre:1:1:Access to resource denied";
+	return HTTP_NOT_ACCEPTABLE;
+    }
+    if ($ENV{'form.action'} eq 'stage2') { 
+	&stage_2($r, $ENV{'form.filename'});
+    } else {
 	&Apache::loncommon::content_type($r,'text/html');
-	my $filename = $ENV{'form.filename'};
 	$r->send_http_header;
 	$r->print('		    <form name="copy" action="/adm/source/" target="_parent" method="post">
 				<input type="button" value="Close Window" name="close" onClick="window.close()">
@@ -88,12 +95,10 @@ sub handler {
 		    </form>');
 	$r->print('<hr />');
 	&print_item($r, $ENV{'form.filename'});
-	}
-	return OK;
-
+    }
+    return OK;
 }
 
-
 1;
 	
-	
\ No newline at end of file
+