loncom/interface/groupsort.pm - diff

Return to groupsort.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/groupsort.pm between versions 1.35 and 1.40

version 1.35, 2005/06/10 15:17:35	version 1.40, 2006/03/19 22:26:31
Line 195 sub cleanup {	Line 195 sub cleanup {
&Apache::lonnet::logthis('Failed cleanup groupsort: hash');	&Apache::lonnet::logthis('Failed cleanup groupsort: hash');
}	}
}	}
	return OK;
}	}

# -------------------------------------------------------------- Read from file	# -------------------------------------------------------------- Read from file
Line 227 sub readfromfile {	Line 228 sub readfromfile {
&Apache::loncommon::plainname($2,$3).', '.	&Apache::loncommon::plainname($2,$3).', '.
&Apache::lonlocal::locallocaltime($1);	&Apache::lonlocal::locallocaltime($1);
}	}
	$name=~s/\&colon\;/\:/g;
$$thash{$url}=$name;	$$thash{$url}=$name;
$$shash{$url}=$n;	$$shash{$url}=$n;
$n++;	$n++;
Line 253 sub handler {	Line 255 sub handler {

# finish_import looks different for graphical or "simple" RAT	# finish_import looks different for graphical or "simple" RAT
my $finishimport='';	my $finishimport='';
	my $begincondition='';
	my $endcondition='';
	if ($env{'form.readfile'}) {
	$begincondition='if (eval("document.forms.groupsort.include"+num+".checked")) {';
	$endcondition='}';
	}
if ($env{'form.mode'} eq 'simple' \|\| $env{'form.mode'} eq '') {	if ($env{'form.mode'} eq 'simple' \|\| $env{'form.mode'} eq '') {
$finishimport=(<<ENDSMP);	$finishimport=(<<ENDSMP);
function finish_import() {	function finish_import() {
opener.document.forms.simpleedit.importdetail.value='';	opener.document.forms.simpleedit.importdetail.value='';
for (var num=0; num<document.forms.groupsort.fnum.value; num++) {	for (var num=0; num<document.forms.groupsort.fnum.value; num++) {
	$begincondition
opener.document.forms.simpleedit.importdetail.value+='&'+	opener.document.forms.simpleedit.importdetail.value+='&'+
escape(eval("document.forms.groupsort.title"+num+".value"))+'='+	escape(eval("document.forms.groupsort.title"+num+".value"))+'='+
escape(eval("document.forms.groupsort.filelink"+num+".value"));	escape(eval("document.forms.groupsort.filelink"+num+".value"));
	$endcondition
}	}
opener.document.forms.simpleedit.submit();	opener.document.forms.simpleedit.submit();
self.close();	self.close();
Line 271 ENDSMP	Line 281 ENDSMP
function finish_import() {	function finish_import() {
var linkflag=false;	var linkflag=false;
for (var num=0; num<document.forms.groupsort.fnum.value; num++) {	for (var num=0; num<document.forms.groupsort.fnum.value; num++) {
	$begincondition
insertRowInLastRow();	insertRowInLastRow();
placeResourceInLastRow(	placeResourceInLastRow(
eval("document.forms.groupsort.title"+num+".value"),	eval("document.forms.groupsort.title"+num+".value"),
Line 278 function finish_import() {	Line 289 function finish_import() {
linkflag	linkflag
);	);
linkflag=true;	linkflag=true;
	$endcondition
}	}
opener.editmode=0;	opener.editmode=0;
opener.notclear=0;	opener.notclear=0;
Line 289 ENDADV	Line 301 ENDADV
}	}

# output start of web page	# output start of web page
my $html=&Apache::lonxml::xmlbegin();	my $js = <<END;
$r->print(<<END);	<script type="text/javascript">
$html
<head>
<title>The LearningOnline Network With CAPA Group Sorter</title>
<script language='javascript'>
function insertRowInLastRow() {	function insertRowInLastRow() {
opener.insertrow(opener.maxrow);	opener.insertrow(opener.maxrow);
opener.addobj(opener.maxrow,'e&2');	opener.addobj(opener.maxrow,'e&2');
Line 322 function orderchange(val,newval) {	Line 330 function orderchange(val,newval) {
document.forms.groupsort.submit();	document.forms.groupsort.submit();
}	}
</script>	</script>
</head>
END	END
# read pertinent machine configuration	# read pertinent machine configuration
my $domain = $r->dir_config('lonDefDomain');	my $domain = $r->dir_config('lonDefDomain');
Line 340 END	Line 347 END

my $ctr = 0;	my $ctr = 0;
my $clen = scalar(keys %shash);	my $clen = scalar(keys %shash);
if ($clen > 1) {	if (($clen > 1) \|\| ($env{'form.readfile'})) {
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'fin'=> 'Finalize order of resources',	'fin'=> 'Finalize order of resources',
'gb' => 'Go Back',	'gb' => 'Go Back',
Line 349 END	Line 356 END
'ca' => 'Cancel',	'ca' => 'Cancel',
'co' => 'Change Order',	'co' => 'Change Order',
'ti' => 'Title',	'ti' => 'Title',
'pa' => 'Path'	'pa' => 'Path',
	'in' => 'Include'
);	);
$r->print(&Apache::loncommon::bodytag('Sort Imported Resources'));	$r->print(&Apache::loncommon::start_page('Sort Imported Resources',
	$js));
$r->print(<<END);	$r->print(<<END);
<b><font color="#888888">$lt{'fin'}</font></b>	<b><font color="#888888">$lt{'fin'}</font></b>
<form method='post' action='/adm/groupsort' name='groupsort'	<form method='post' action='/adm/groupsort' name='groupsort'
Line 360 END	Line 369 END
<input type="hidden" name="oldval" value="" />	<input type="hidden" name="oldval" value="" />
<input type="hidden" name="newval" value="" />	<input type="hidden" name="newval" value="" />
<input type="hidden" name="mode" value="$env{'form.mode'}" />	<input type="hidden" name="mode" value="$env{'form.mode'}" />
	<input type="hidden" name="readfile" value="$env{'form.readfile'}" />
	<input type="hidden" name="recover" value="$env{'form.recover'}" />
END	END

# --- Expand here if "GO BACK" button desired	# --- Expand here if "GO BACK" button desired
Line 385 END	Line 396 END
END	END
$r->print("<table border='0'><tr><td bgcolor='#eeeeee'>");	$r->print("<table border='0'><tr><td bgcolor='#eeeeee'>");
$r->print("<table border=0><tr>\n");	$r->print("<table border=0><tr>\n");
$r->print("<td colspan='2' bgcolor='$titleclr'><b>$lt{'co'}</b></td>\n");	if ($env{'form.readfile'}) {
	$r->print("<td bgcolor='$titleclr'><b>$lt{'in'}</b></td>\n");
	} else {
	$r->print("<td colspan='2' bgcolor='$titleclr'><b>$lt{'co'}</b></td>\n");
	}
$r->print("<td colspan='2' bgcolor='$titleclr'><b>$lt{'ti'}</b></td>\n");	$r->print("<td colspan='2' bgcolor='$titleclr'><b>$lt{'ti'}</b></td>\n");
$r->print("<td bgcolor='$titleclr'><b>$lt{'pa'}</b></td></tr>\n");	$r->print("<td bgcolor='$titleclr'><b>$lt{'pa'}</b></td></tr>\n");
} else {	} else {
	$r->print(&Apache::loncommon::start_page(undef,$js,
	{'only_body' => 1});
$r->print(<<END);	$r->print(<<END);
<body>
<form method='post' action='/adm/groupsort' name='groupsort'	<form method='post' action='/adm/groupsort' name='groupsort'
enctype='application/x-www-form-urlencoded'>	enctype='application/x-www-form-urlencoded'>
<input type="hidden" name="fnum" value="$clen" />	<input type="hidden" name="fnum" value="$clen" />
Line 403 END	Line 419 END
my $key=$_;	my $key=$_;
$ctr++;	$ctr++;
my $iconname=&Apache::loncommon::icon($key);	my $iconname=&Apache::loncommon::icon($key);
if ($clen > 1) {	if (($clen > 1) \|\| ($env{'form.readfile'})) {
$r->print("<tr><td bgcolor='$fileclr'>");	$r->print("<tr><td bgcolor='$fileclr'>");
$r->print(&movers($clen,$ctr));	if ($env{'form.readfile'}) {
	$r->print(&checkbox($ctr-1));
	} else {
	$r->print(&movers($clen,$ctr));
	}
}	}
$r->print(&hidden($ctr-1,$thash{$key},$key));	$r->print(&hidden($ctr-1,$thash{$key},$key));
if ($clen > 1) {	if (($clen > 1) \|\| ($env{'form.readfile'})) {
$r->print("</td><td bgcolor='$fileclr'>");	$r->print("</td>");
$r->print(&select_box($clen,$ctr));	unless ($env{'form.readfile'}) {
$r->print("</td><td bgcolor='$fileclr'>");	$r->print("<td bgcolor='$fileclr'>".
	&select_box($clen,$ctr).
	"</td>");
	}
	$r->print("<td bgcolor='$fileclr'>");
$r->print("<img src='$iconname' />");	$r->print("<img src='$iconname' />");
$r->print("</td><td bgcolor='$fileclr'>");	$r->print("</td><td bgcolor='$fileclr'>");
$r->print("$thash{$key}</td><td bgcolor='$fileclr'>\n");	$r->print("$thash{$key}$nhash{$key}</td><td bgcolor='$fileclr'>\n");
$r->print("$key</td></tr>\n");	$r->print("$key</td></tr>\n");
}	}
}	}
if ($clen > 1) {	if (($clen > 1) \|\| ($env{'form.readfile'})) {
$r->print("</table></td></tr></table></form>");	$r->print("</table></td></tr></table></form>");
} else {	} else {
$r->print(<<END);	$r->print(<<END);
Line 427 END	Line 451 END
</script>	</script>
END	END
}	}
$r->print(<<END);
</body>	$r->print(&Apache::loncommon::end_page());
</html>
END

return OK;	return OK;
}	}
Line 470 sub select_box {	Line 492 sub select_box {
my $string;	my $string;
$string = '<select name="alt'.$sel.'"';	$string = '<select name="alt'.$sel.'"';
$string .= " onChange='selectchange($sel)'>";	$string .= " onChange='selectchange($sel)'>";
$string .= "<option name='o0' value='0'>remove</option>";	$string .= "<option name='o0' value='0'>".&mt('discard')."</option>";
for my $cur (1..$total) {	for my $cur (1..$total) {
$string .= "<option name='o$cur' value='$cur'";	$string .= "<option name='o$cur' value='$cur'";
if ($cur == $sel) {	if ($cur == $sel) {
Line 482 sub select_box {	Line 504 sub select_box {
return $string;	return $string;
}	}

	# ------------------------------------------------------------------- Checkbox

	sub checkbox {
	my $sel=shift;
	return "<label><input type='checkbox' name='include$sel'".
	($env{"form.include$sel"}?' checked="checked"':'').
	' />'.&mt('Include').'</label>';
	}

1;	1;

__END__	__END__

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

Removed from v.1.35
changed lines
	Added in v.1.40