loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.113 and 1.115

version 1.113, 2003/08/26 17:20:45	version 1.115, 2003/09/10 15:06:34
Line 1780 show a snapshot of what student was look	Line 1780 show a snapshot of what student was look

sub get_student_view {	sub get_student_view {
my ($symb,$username,$domain,$courseid,$target) = @_;	my ($symb,$username,$domain,$courseid,$target) = @_;
my ($map,$id,$feedurl) = split(/___/,$symb);	my ($map,$id,$feedurl) = &Apache::lonnet::decode_symb($symb);
my (%old,%moreenv);	my (%old,%moreenv);
my @elements=('symb','courseid','domain','username');	my @elements=('symb','courseid','domain','username');
foreach my $element (@elements) {	foreach my $element (@elements) {
Line 1816 show a snapshot of how student was answe	Line 1816 show a snapshot of how student was answe

sub get_student_answers {	sub get_student_answers {
my ($symb,$username,$domain,$courseid,%form) = @_;	my ($symb,$username,$domain,$courseid,%form) = @_;
my ($map,$id,$feedurl) = split(/___/,$symb);	my ($map,$id,$feedurl) = &Apache::lonnet::decode_symb($symb);
my (%old,%moreenv);	my (%old,%moreenv);
my @elements=('symb','courseid','domain','username');	my @elements=('symb','courseid','domain','username');
foreach my $element (@elements) {	foreach my $element (@elements) {
Line 2542 sub csv_samples_select_table {	Line 2542 sub csv_samples_select_table {
}	}

=pod	=pod

	=item clean_excel_name($name)

	Returns a replacement for $name which does not contain any illegal characters.

	=cut

	sub clean_excel_name {
	my ($name) = @_;
	$name =~ s/[:\*\?\/\\]//g;
	if (length($name) > 31) {
	$name = substr($name,0,31);
	}
	return $name;
	}

	=pod

=item * check_if_partid_hidden($id,$symb,$udom,$uname)	=item * check_if_partid_hidden($id,$symb,$udom,$uname)

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

Removed from v.1.113
changed lines
	Added in v.1.115