loncom/homework/randomlabel.pm - diff

Return to randomlabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.50, 2003/09/25 14:05:44	version 1.52, 2003/10/30 20:52:54
Line 120 sub start_randomlabel {	Line 120 sub start_randomlabel {
$temp_file = Apache::File->new('>>'.$filename);	$temp_file = Apache::File->new('>>'.$filename);
$newbgimg =~ s/(.*)\/res\//\/home\/httpd\/html\/res\//;	$newbgimg =~ s/(.*)\/res\//\/home\/httpd\/html\/res\//;
print $temp_file "$newbgimg\n";	print $temp_file "$newbgimg\n";
$bgimg =~ m/\/([^\/]+)$/;	$bgimg=~s/\/home\/httpd\/html\/res/\/home\/httpd\/prtspool/; }
$bgimg = '/home/httpd/prtspool/'.$1;
}
}	}
}	}
$bgimg=~s/\/$//;	$bgimg=~s/\/$//;
Line 406 sub start_label {	Line 404 sub start_label {
$result.=&Apache::edit::editline('',$text,'',50).	$result.=&Apache::edit::editline('',$text,'',50).
&Apache::edit::end_table();	&Apache::edit::end_table();
} elsif ($target eq 'modified') {	} elsif ($target eq 'modified') {
my $text=$$parser[-1]->get_text("/label");
$result = '<label>';	$result = '<label>';
if ($type eq 'image') {	if ($type eq 'image') {
my $constructtag=&Apache::edit::get_new_args($token,$parstack,	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
Line 418 sub start_label {	Line 415 sub start_label {
$result = $token->[4];	$result = $token->[4];
}	}
}	}
$result.=&Apache::edit::modifiedfield($token);	$result.=&Apache::edit::modifiedfield("/label",$parser);
}	}
return $result;	return $result;
}	}