loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.154, 2007/06/11 22:13:07	version 1.156, 2007/06/11 22:33:27
Line 1710 ENDCCF	Line 1710 ENDCCF
&Apache::loncommon::end_data_table_row());	&Apache::loncommon::end_data_table_row());
}	}
$r->print(&Apache::loncommon::end_data_table().	$r->print(&Apache::loncommon::end_data_table().
'<input type="reset" value="Reset"><input type="submit" value="'.&mt('Define Role').'" /></form>'.	'<input type="reset" value="'.&mt("Reset").'" /><input type="submit" value="'.&mt('Define Role').'" /></form>'.
&Apache::loncommon::end_page());	&Apache::loncommon::end_page());
}	}
# --------------------------------------------------------	# --------------------------------------------------------
Line 1735 sub make_script_template {	Line 1735 sub make_script_template {
$return_script .= 'function set_'.$role.'() {'."\n";	$return_script .= 'function set_'.$role.'() {'."\n";
my @temp = split(/:/,$Apache::lonnet::pr{$role.':c'});	my @temp = split(/:/,$Apache::lonnet::pr{$role.':c'});
my %role_c;	my %role_c;
foreach my $priv(@temp) {	foreach my $priv (@temp) {
my ($priv_item, $dummy) = split(/\&/,$priv);	my ($priv_item, $dummy) = split(/\&/,$priv);
$role_c{$priv_item} = 1;	$role_c{$priv_item} = 1;
}	}