loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.235, 2004/11/30 19:08:18	version 1.237, 2004/12/01 23:18:23
Line 2285 sub get_student_view {	Line 2285 sub get_student_view {
if (defined($moreenv)) {	if (defined($moreenv)) {
%form=(%form,%{$moreenv});	%form=(%form,%{$moreenv});
}	}
if ($target eq 'tex') {$form{'grade_target'} = 'tex';}	if (defined($target)) { $form{'grade_target'} = $target; }
$feedurl=&Apache::lonnet::clutter($feedurl);	$feedurl=&Apache::lonnet::clutter($feedurl);
my $userview=&Apache::lonnet::ssi_body($feedurl,%form);	my $userview=&Apache::lonnet::ssi_body($feedurl,%form);
$userview=~s/\<body[^\>]*\>//gi;	$userview=~s/\<body[^\>]*\>//gi;
Line 2606 ENDROLE	Line 2606 ENDROLE
($ENV{'request.filename'} =~ m\|^/home/([^/]+)/public_html/(.*)\|);	($ENV{'request.filename'} =~ m\|^/home/([^/]+)/public_html/(.*)\|);
my $formaction='/priv/'.$uname.'/'.$thisdisfn;	my $formaction='/priv/'.$uname.'/'.$thisdisfn;
$formaction=~s/\/+/\//g;	$formaction=~s/\/+/\//g;
unless ($customtitle) {	unless ($customtitle) { #this is for resources; directories have customtitle, and crumbs and select recent are created in lonpubdir.pm
my $parentpath = $thisdisfn;	my $parentpath = '';
if ($thisdisfn =~ m-(.+/)[^/]*$-) {	if ($thisdisfn =~ m-(.+/)[^/]*$-) {
$parentpath = $1;	$parentpath = $1;
}	}