loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.156, 2013/08/14 00:26:29	version 1.157, 2014/02/06 21:28:09
Line 313 foreach $texfile (@texfile) {	Line 313 foreach $texfile (@texfile) {

if ($tempo_array[3]) {	if ($tempo_array[3]) {
$name=$tempo_array[3];	$name=$tempo_array[3];
($name_range) = split(/,/,$name, 2);	$name =~ s{^\s+\|\s+$}{}g;
	if ($name =~ /,/) {
	($name_range) = split(/,/,$name, 2);
	} elsif ($name =~ /\s/) {
	$name_range = $name;
	$name_range =~ s/\s+/_/;
	} else {
	$name_range = $name;
	}
	$name_range =~ s/[^\w\:\-]+//g;
} else {	} else {
$name=$tempo_array[0].':'.$tempo_array[1];	$name=$tempo_array[0].':'.$tempo_array[1];
$name_range = $tempo_array[0];	$name_range = $tempo_array[0];
Line 336 foreach $texfile (@texfile) {	Line 345 foreach $texfile (@texfile) {
@tempo_array=split(/:/,$stud_info[-1]);	@tempo_array=split(/:/,$stud_info[-1]);
if ($tempo_array[3]) {	if ($tempo_array[3]) {
$name=$tempo_array[3];	$name=$tempo_array[3];
my ($lastname) = split(/,/, $name,2);	$name =~ s{^\s+\|\s+$}{}g;
	my $lastname;
	if ($name =~ /,/) {
	($lastname) = split(/,/, $name,2);
	} elsif ($name =~ /\s/) {
	$lastname = $name;
	$lastname =~ s/\s+/_/;
	} else {
	$lastname = $name;
	}
$name_range .= "-".$lastname;	$name_range .= "-".$lastname;
	$name_range =~ s/[^\w\:\-]+//g;
} else {	} else {
$name=$tempo_array[0].':'.$tempo_array[1];	$name=$tempo_array[0].':'.$tempo_array[1];
$name_range .= '-'.$tempo_array[0];	$name_range .= '-'.$tempo_array[0];