loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.95, 2005/01/11 20:49:05	version 1.97, 2005/01/11 22:08:08
Line 1237 END	Line 1237 END
$r->print(&commit_standardrole($url,$2,$start,$end,$1,undef,''));	$r->print(&commit_standardrole($url,$2,$start,$end,$1,undef,''));
}	}
}	}
# Assign the role and report it.
$r->print(&mt('Assigning').' '.$2.' in '.$url.': '.
($start?', '.&mt('starting').' '.localtime($start):'').
($end?', '.&mt('ending').' '.localtime($end):'').': <b>'.
&Apache::lonnet::assignrole(
$ENV{'form.ccdomain'},$ENV{'form.ccuname'},
$url,$2,$end,$start)
.'</b><br>');
} else {	} else {
$r->print('<p>'.&mt('ERROR').': '.&mt('Unknown command').' <tt>'.$_.'</tt></p><br>');	$r->print('<p>'.&mt('ERROR').': '.&mt('Unknown command').' <tt>'.$_.'</tt></p><br>');
}	}
Line 1256 END	Line 1248 END
}	}

sub commit_customrole {	sub commit_customrole {
my ($url,$three,$four,$five,$end,$start) = @_;	my ($url,$three,$four,$five,$start,$end) = @_;
my $output = &mt('Assigning custom role').' "'.$five.'" by '.$four.'@'.$three.' in '.$url.	my $output = &mt('Assigning custom role').' "'.$five.'" by '.$four.'@'.$three.' in '.$url.
($start?', '.&mt('starting').' '.localtime($start):'').	($start?', '.&mt('starting').' '.localtime($start):'').
($end?', ending '.localtime($end):'').': <b>'.	($end?', ending '.localtime($end):'').': <b>'.