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.111 and 1.112

version 1.111, 2006/06/22 15:46:28	version 1.112, 2006/06/22 15:56:03
Line 261 sub display_directory {	Line 261 sub display_directory {
$filename.'</a></td>');	$filename.'</a></td>');
$r->print('<td>'.$size.'</td>');	$r->print('<td>'.$size.'</td>');
$r->print('<td>'.&Apache::lonlocal::locallocaltime($mtime).'</td>');	$r->print('<td>'.&Apache::lonlocal::locallocaltime($mtime).'</td>');
$r->print('<td><nobr>'.&mt($curr_access).'   '.	$r->print('<td><span style="white-space: nowrap">'.&mt($curr_access).'   '.
'<a href="'.$url.'?access='.$filename.	'<a href="'.$url.'?access='.$filename.
'&currentpath='.$current_path.$groupecho.	'&currentpath='.$current_path.$groupecho.
'">'.&mt('View/Change').'</a></nobr></td>');	'">'.&mt('View/Change').'</a></span></td>');
$r->print('</tr>');	$r->print('</tr>');
}	}
}	}
Line 316 sub close_form {	Line 316 sub close_form {
$group.'" />');	$group.'" />');
}	}
$r->print('</p></form>');	$r->print('</p></form>');
$r->print('<form action="'.$url.'" method="POST">	$r->print('<form action="'.$url.'" method="post">
<p>	<p>
<input type="hidden" name="currentpath" value="'.	<input type="hidden" name="currentpath" value="'.
$env{'form.currentpath'}.'" />');	$env{'form.currentpath'}.'" />');
Line 1047 sub course_row {	Line 1047 sub course_row {
}	}
$max_id ++;	$max_id ++;
my $role_selects = &role_selectors($num,$role_id,$status,$type,\%content,'display');	my $role_selects = &role_selectors($num,$role_id,$status,$type,\%content,'display');
$r->print('<tr><td><nobr><label><input type="checkbox" name="delete_role_'.$num.'" value="'.$role_id.'" />'.&mt('Delete').'</label></nobr><br /><input type="hidden" name="preserve_role_'.$num.'" value="'.$role_id.'" /></td>'.$role_selects.'</tr>');	$r->print('<tr><td><span style="white-space: nowrap"><label><input type="checkbox" name="delete_role_'.$num.'" value="'.$role_id.'" />'.&mt('Delete').'</label></span><br /><input type="hidden" name="preserve_role_'.$num.'" value="'.$role_id.'" /></td>'.$role_selects.'</tr>');
}	}
$r->print('</table><br />'.&mt('Add a roles-based condition').' <input type="checkbox" name ="add_role_'.$num.'" onClick="javascript:setRoleOptions(this,'."'$num','$content{domain}','$content{number}','Course'".')" value="'.$max_id.'" /><input type="hidden" name="role_'.$num.'_'.$max_id.'" /><input type="hidden" name="access_'.$num.'_'.$max_id.'" /><input type="hidden" name="section_'.$num.'_'.$max_id.'" /><input type="hidden" name="group_'.$num.'_'.$max_id.'" /></td>');	$r->print('</table><br />'.&mt('Add a roles-based condition').' <input type="checkbox" name ="add_role_'.$num.'" onClick="javascript:setRoleOptions(this,'."'$num','$content{domain}','$content{number}','Course'".')" value="'.$max_id.'" /><input type="hidden" name="role_'.$num.'_'.$max_id.'" /><input type="hidden" name="access_'.$num.'_'.$max_id.'" /><input type="hidden" name="section_'.$num.'_'.$max_id.'" /><input type="hidden" name="group_'.$num.'_'.$max_id.'" /></td>');
} elsif ($status eq 'new') {	} elsif ($status eq 'new') {
Line 1063 sub domains_row {	Line 1063 sub domains_row {
my ($r,$status,$item,$all_doms,$access_controls,$now,$then) = @_;	my ($r,$status,$item,$all_doms,$access_controls,$now,$then) = @_;
my ($num,$scope,$end,$start) = &set_identifiers($status,$item,$now,$then,	my ($num,$scope,$end,$start) = &set_identifiers($status,$item,$now,$then,
'domains');	'domains');
my $dom_select = '<select name="dom_'.$num.'" size="4" multiple="true"/>'.	my $dom_select = '<select name="dom_'.$num.'" size="4" multiple="true">'.
' <option value="">'.&mt('Please select').'</option>';	' <option value="">'.&mt('Please select').'</option>';
if ($status eq 'old') {	if ($status eq 'old') {
my $content = $$access_controls{$item};	my $content = $$access_controls{$item};
Line 1081 sub domains_row {	Line 1081 sub domains_row {
$dom_select .= '<option value="'.$dom.'">'.$dom.'</option>';	$dom_select .= '<option value="'.$dom.'">'.$dom.'</option>';
}	}
}	}
	$dom_select .= '</select>';
$r->print('<td>'.&actionbox($status,$num,$scope).'</td><td>'.$dom_select.	$r->print('<td>'.&actionbox($status,$num,$scope).'</td><td>'.$dom_select.
'</td><td>'.&dateboxes($num,$start,$end).'</td>');	'</td><td>'.&dateboxes($num,$start,$end).'</td>');
}	}
Line 1105 sub additional_item {	Line 1106 sub additional_item {

sub actionbox {	sub actionbox {
my ($status,$num,$scope) = @_;	my ($status,$num,$scope) = @_;
my $output = '<nobr><label>';	my $output = '<span style="white-space: nowrap"><label>';
if ($status eq 'new') {	if ($status eq 'new') {
$output .= '<input type="checkbox" name="activate" value="'.$num.'" />'.	$output .= '<input type="checkbox" name="activate" value="'.$num.'" />'.
&mt('Activate');	&mt('Activate');
} else {	} else {
$output .= '<input type="checkbox" name="delete" value="'.$num.	$output .= '<input type="checkbox" name="delete" value="'.$num.
'" />'.&mt('Delete').'</label><br /><nobr>'.	'" />'.&mt('Delete').'</label></span><br /><span style="white-space: nowrap">'.
'<label><input type="checkbox" name="update" value="'.	'<label><input type="checkbox" name="update" value="'.
$num.'" />'.&mt('Update');	$num.'" />'.&mt('Update');
}	}
$output .= '</label></nobr><input type="hidden" name="scope_'.$num. '" value="'.$scope.'" />';	$output .= '</label></span><input type="hidden" name="scope_'.$num. '" value="'.$scope.'" />';
return $output;	return $output;
}	}

Line 1130 sub dateboxes {	Line 1131 sub dateboxes {
undef,undef,1);	undef,undef,1);
my $enddate = &Apache::lonhtmlcommon::date_setter('portform',	my $enddate = &Apache::lonhtmlcommon::date_setter('portform',
'enddate_'.$num,$end,undef,undef,undef,1,undef,	'enddate_'.$num,$end,undef,undef,undef,1,undef,
undef,undef,1). '  <nobr><label>'.	undef,undef,1). '  <span style="white-space: nowrap"><label>'.
'<input type="checkbox" name="noend_'.	'<input type="checkbox" name="noend_'.
$num.'" '.$noend.' />'.&mt('No end date').	$num.'" '.$noend.' />'.&mt('No end date').
'</label></nobr>';	'</label></span>';

my $output = &mt('Start: ').$startdate.'<br />'.&mt('End: ').$enddate;	my $output = &mt('Start: ').$startdate.'<br />'.&mt('End: ').$enddate;
return $output;	return $output;

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

Removed from v.1.111
changed lines
	Added in v.1.112