loncom/homework/inputtags.pm - diff - 1.175

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/inputtags.pm between versions 1.174 and 1.175

version 1.174, 2005/08/02 18:15:27	version 1.175, 2005/09/09 18:45:56
Line 306 sub end_hiddenline {	Line 306 sub end_hiddenline {
# $which -> 'uploadedonly' -> only newly uploaded files	# $which -> 'uploadedonly' -> only newly uploaded files
# 'portfolioonly' -> only allow files from portfolio	# 'portfolioonly' -> only allow files from portfolio
# 'both' -> allow files from either location	# 'both' -> allow files from either location
	# $extratext -> additional text to go between the link and the input box
# returns a table row <tr>	# returns a table row <tr>
sub file_selector {	sub file_selector {
my ($part,$id,$uploadedfiletypes,$which)=@_;	my ($part,$id,$uploadedfiletypes,$which,$extratext)=@_;
if (!$uploadedfiletypes) { return ''; }	if (!$uploadedfiletypes) { return ''; }

my $jspart=$part;	my $jspart=$part;
Line 343 sub file_selector {	Line 344 sub file_selector {
$result.='<br />'.'<strong>'.&mt('OR:').'</strong><br />';	$result.='<br />'.'<strong>'.&mt('OR:').'</strong><br />';
}	}
if ($which eq 'portfolioonly' \|\| $which eq 'both') {	if ($which eq 'portfolioonly' \|\| $which eq 'both') {
$result.='<a href='."'".'javascript:void(window.open("/adm/portfolio?mode=selectfile&fieldname=HWPORT'.$jspart.'_'.$id.'","cat","height=600,width=800,scrollbars=1,resizable=1,menubar=2,location=1"))'."'".'>'.	$result.=$extratext.'<a href='."'".'javascript:void(window.open("/adm/portfolio?mode=selectfile&fieldname=HWPORT'.$jspart.'_'.$id.'","cat","height=600,width=800,scrollbars=1,resizable=1,menubar=2,location=1"))'."'".'>'.
&mt('Select Portfolio Files').'</a><br />'.	&mt('Select Portfolio Files').'</a><br />'.
'<input type="text" size="50" name="HWPORT'.$jspart.'_'.$id.'" value="" />'.	'<input type="text" size="50" name="HWPORT'.$jspart.'_'.$id.'" value="" />'.
'<br />';	'<br />';

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