loncom/interface/groupsort.pm - diff

Return to groupsort.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.68.6.2, 2012/06/04 02:17:35	version 1.68.6.3, 2012/08/01 12:52:41
Line 37 use GDBM_File;	Line 37 use GDBM_File;
use Apache::loncommon;	use Apache::loncommon;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonnet;	use Apache::lonnet;
use LONCAPA;	use LONCAPA qw(:DEFAULT :match);

my $iconpath; # variable to be accessible to multiple subroutines	my $iconpath; # variable to be accessible to multiple subroutines
my %hash; # variable to tie to user specific database	my %hash; # variable to tie to user specific database
Line 411 END	Line 411 END
$r->print("<td>");	$r->print("<td>");
$r->print("<img src='$iconname' />");	$r->print("<img src='$iconname' />");
$r->print("</td><td>");	$r->print("</td><td>");
$r->print($resource->{'title'}.$resource->{'notes'}."</td><td>\n");	if (($env{'form.recover'}) &&
	($resource->{'url'} =~ m{/uploaded/$match_domain/$match_courseid/supplemental/})) {
	my $title = &Apache::loncommon::parse_supplemental_title($resource->{'title'});
	$r->print($title);
	} else {
	$r->print($resource->{'title'});
	}
	$r->print($resource->{'notes'}."</td><td>\n");
$r->print($resource->{'url'}."</td>"	$r->print($resource->{'url'}."</td>"
.&Apache::loncommon::end_data_table_row()	.&Apache::loncommon::end_data_table_row()
."\n");	."\n");