loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/portfolio.pm between versions 1.212.2.4 and 1.220

version 1.212.2.4, 2010/02/12 19:19:21	version 1.220, 2010/02/19 10:20:31
Line 94 sub display_common {	Line 94 sub display_common {
'createdir_label' => 'Create subdirectory in current directory',	'createdir_label' => 'Create subdirectory in current directory',
'parse' => 'Upload embedded images/multimedia/css/linked files if HTML file',	'parse' => 'Upload embedded images/multimedia/css/linked files if HTML file',
);	);

my $escuri = &HTML::Entities::encode($r->uri,'&<>"');	my $escuri = &HTML::Entities::encode($r->uri,'&<>"');
my $help_fileupload = &Apache::loncommon::help_open_topic('Portfolio AddFiles');	my $help_fileupload = &Apache::loncommon::help_open_topic('Portfolio AddFiles');
my $help_createdir = &Apache::loncommon::help_open_topic('Portfolio CreateDirectory');	my $help_createdir = &Apache::loncommon::help_open_topic('Portfolio CreateDirectory');
Line 118 END	Line 117 END
$r->print('<div class="LC_left_float">'	$r->print('<div class="LC_left_float">'
.'<form method="post" enctype="multipart/form-data" action="'.$escuri.'">'	.'<form method="post" enctype="multipart/form-data" action="'.$escuri.'">'
.'<fieldset>'	.'<fieldset>'
.'<legend><b>'.$lt{'upload_label'}.'</b></legend>'	.'<legend>'.$lt{'upload_label'}.'</legend>'
.$groupitem	.$groupitem
.'<input name="uploaddoc" type="file" />'	.'<input name="uploaddoc" type="file" />'
.'<input type="hidden" name="currentpath" value="'.$current_path.'" />'	.'<input type="hidden" name="currentpath" value="'.$current_path.'" />'
Line 136 END	Line 135 END
$r->print('<div class="LC_left_float">'	$r->print('<div class="LC_left_float">'
.'<form method="post" action="'.$escuri.'">'	.'<form method="post" action="'.$escuri.'">'
.'<fieldset>'	.'<fieldset>'
.'<legend><b>'.$lt{'createdir_label'}.'</b></legend>'	.'<legend>'.$lt{'createdir_label'}.'</legend>'
.'<input name="newdir" type="text" />'.$groupitem	.'<input name="newdir" type="text" />'.$groupitem
.'<input type="hidden" name="currentpath" value="'.$current_path.'" />'	.'<input type="hidden" name="currentpath" value="'.$current_path.'" />'
.'<input type="hidden" name="action" value="'.$env{"form.action"}.'" />'	.'<input type="hidden" name="action" value="'.$env{"form.action"}.'" />'
Line 224 sub display_usage {	Line 223 sub display_usage {
' <div id="meter3" style="display:block; background-color:'.$color.'; width:'.$prog_width.'%; height:10px; color:#000000; margin:0px;"></div>'."\n".	' <div id="meter3" style="display:block; background-color:'.$color.'; width:'.$prog_width.'%; height:10px; color:#000000; margin:0px;"></div>'."\n".
' </div>'."\n".	' </div>'."\n".
' </div>';	' </div>';
return $disk_meter;	return &Apache::loncommon::head_subbox($disk_meter);
}	}

sub display_directory_line {	sub display_directory_line {
Line 237 sub display_directory_line {	Line 236 sub display_directory_line {
$r->print($line); # contains first two cells of table	$r->print($line); # contains first two cells of table
my $lock_info;	my $lock_info;
if ($version_flag) { # versioned can't be versioned, so TRUE when root file	if ($version_flag) { # versioned can't be versioned, so TRUE when root file
$r->print('<td><img alt="" src="'.&Apache::loncommon::icon($filename).'" /></td>');	$r->print('<td><img alt="" src="'.&Apache::loncommon::icon($filename).'" class="LC_fileicon" /></td>');
$r->print('<td>'.$version_flag.'</td>');	$r->print('<td>'.$version_flag.'</td>');
} else { # this is a graded or handed back file	} else { # this is a graded or handed back file
my ($user,$domain) = &get_name_dom($env{'form.group'});	my ($user,$domain) = &get_name_dom($env{'form.group'});
Line 415 sub display_directory {	Line 414 sub display_directory {
$colspan_fill=' colspan="4"';	$colspan_fill=' colspan="4"';
}	}
$r->print('<tr class="LC_browser_folder">');	$r->print('<tr class="LC_browser_folder">');
$r->print('<td'.$colspan_folder.'><img alt="'.&mt('closed folder').'" src="'.$iconpath.'folder_closed.gif" /></td>'	$r->print('<td'.$colspan_folder.'><img alt="'.&mt('closed folder').'" src="'.$iconpath.'navmap.folder.closed.gif" class="LC_fileicon" /></td>'
.'<td>'.&mt('Go to ...').'</td>');	.'<td>'.&mt('Go to ...').'</td>');
my %anchor_fields = (	my %anchor_fields = (
'selectfile' => $filename.'/',	'selectfile' => $filename.'/',
Line 1779 function getIndexByName(item) {	Line 1778 function getIndexByName(item) {

</script>	</script>
END_SCRIPT	END_SCRIPT
$r->print(&mt('Select roles, course status, section(s) and group(s) for users who will be able to access the portfolio file.'));	$r->print(
$r->print('<form name="rolepicker" action="/adm/portfolio" method="post"><table><tr><th>'.&mt('Roles').'</th><th>'.&mt('[_1] status',$type).'</th><th>'.&mt('Sections').'</th><th>'.&mt('Groups').'</th></tr><tr>'.$role_selects.'</tr></table><br /><input type="button" name="rolepickbutton" value="Save selections" onclick="setRoles()" />');	'<p>'
	.&mt('Select roles, '.lc($type).' status, section(s) and group(s) for users'
	.' who will be able to access the portfolio file.')
	.'</p>'
	);
	$r->print(
	'<form name="rolepicker" action="/adm/portfolio" method="post">'
	.'<table><tr>'
	.'<th>'.&mt('Roles').'</th>'
	.'<th>'.&mt("$type status").'</th>'
	.'<th>'.&mt('Sections').'</th>'
	.'<th>'.&mt('Groups').'</th>'
	.'</tr><tr>'.$role_selects.'</tr>'
	.'</table><br />'
	.'<input type="button" name="rolepickbutton" value="'.&mt('Save').'" onclick="setRoles()" />'
	);
return;	return;
}	}

Line 2274 sub handler {	Line 2288 sub handler {
} else {	} else {
($uname,$udom) = &get_name_dom();	($uname,$udom) = &get_name_dom();
$portfolio_root = &get_portfolio_root();	$portfolio_root = &get_portfolio_root();
$title = &mt('Portfolio Manager');	$title = &mt('My Space');
$can_modify = 1;	$can_modify = 1;
$can_delete = 1;	$can_delete = 1;
$can_upload = 1;	$can_upload = 1;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.212.2.4
changed lines
	Added in v.1.220