loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.242, 2013/04/24 02:23:51	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);