loncom/interface/lonsource.pm - diff

Return to lonsource.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.2, 2004/06/12 04:44:31
+version 1.3, 2004/06/18 15:13:07
  Line 69  sub print_item {
  sub handler {
      my $r=shift;
-     if($ENV{'form.action'} eq 'stage2') {
+     &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::get_unprocessed_cgi($ENV{'QUERY_STRING'},
- 						['filename']);
- 	if (!&Apache::lonnet::allowed('cre',$ENV{'form.filename'})) {
- 	    return FORBIDDEN;
- 	}
  	&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()">