loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.241, 2013/04/12 17:21:09	version 1.243, 2013/04/30 14:17:05
Line 640 sub display_file {	Line 640 sub display_file {

sub done {	sub done {
my ($linktext,$url)=@_;	my ($linktext,$url)=@_;
unless (defined $linktext) {	unless (defined($linktext)) {
$linktext='Return to directory';	$linktext='Return to directory';
}	}
my %anchor_fields = (	my %anchor_fields = (
Line 1219 sub update_access {	Line 1219 sub update_access {
$totalnew = $lastitem;	$totalnew = $lastitem;
my @numbers;	my @numbers;
for (my $i=$firstitem; $i<$lastitem; $i++) {	for (my $i=$firstitem; $i<$lastitem; $i++) {
push (@numbers,$i);	push(@numbers,$i);
}	}
&display_access_row($r,$status,$newitem,\@numbers,	&display_access_row($r,$status,$newitem,\@numbers,
$access_controls{$file_name},$now,$then);	$access_controls{$file_name},$now,$then);
Line 2750 sub handler {	Line 2750 sub handler {
} elsif ($env{'form.action'} eq 'modify_orightml') {	} elsif ($env{'form.action'} eq 'modify_orightml') {
if ($can_upload) {	if ($can_upload) {
my $result =	my $result =
&Apache::loncommon::modify_html_refs('portfolio',$port_path,$uname,$udom,$group,	&Apache::loncommon::modify_html_refs('portfolio',$port_path,$uname,
$portfolio_root,$group);	$udom,$portfolio_root);
$r->print($result.	$r->print($result.
&done('Return to directory',$url));	&done('Return to directory',$url));
} else {	} else {