loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.160, 2006/08/18 13:49:34	version 1.161, 2006/08/24 17:38:21
Line 191 sub display_directory_line {	Line 191 sub display_directory_line {
}	}
if ($lock_info) {	if ($lock_info) {
my %anchor_fields = ('lockinfo' => $fullpath);	my %anchor_fields = ('lockinfo' => $fullpath);
	if ($versions) { # hold the folder open
	my ($fname,$version,$extension) = &Apache::grades::file_name_version_ext($fullpath);
	$fname =~ s\|^/\|\|;
	$anchor_fields{'showversions'} = $fname.'.'.$extension;
	}
$lock_info = &make_anchor(undef,\%anchor_fields,$lock_info);	$lock_info = &make_anchor(undef,\%anchor_fields,$lock_info);
}	}
$r->print('<td colspan="2">'.$lock_info.'</td>');	$r->print('<td colspan="2">'.$lock_info.'</td>');
Line 496 sub done {	Line 501 sub done {
$message='Done';	$message='Done';
}	}
my %anchor_fields = (	my %anchor_fields = (
	'showversions' => $env{'form.showversions'},
'currentpath' => $env{'form.currentpath'},	'currentpath' => $env{'form.currentpath'},
'fieldname' => $env{'form.fieldname'},	'fieldname' => $env{'form.fieldname'},
'mode' => $env{'form.mode'}	'mode' => $env{'form.mode'}