loncom/interface/lonsimplepage.pm - diff

Return to lonsimplepage.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.51, 2007/07/13 00:29:21	version 1.53, 2008/01/18 16:41:27
Line 91 sub handler {	Line 91 sub handler {
my %curr_group = ();	my %curr_group = ();
my %groupinfo = ();	my %groupinfo = ();
if ($db_name =~ /^grppage_/) {	if ($db_name =~ /^grppage_/) {
my ($group)=(split(m{/},$r->uri))[4];	$group = (split(m{/},$r->uri))[4];
$group =~ s/\W//g;	$group =~ s/\W//g;
my %curr_groups = &Apache::longroup::coursegroups($dom,$crs,$group);	my %curr_groups = &Apache::longroup::coursegroups($dom,$crs,$group);
if (!%curr_groups) {	if (!%curr_groups) {
Line 286 sub handler {	Line 286 sub handler {
'<h3>Upload a Photo</h3>'.	'<h3>Upload a Photo</h3>'.
'<input type="file" name="uploaddoc" size="50" />'.	'<input type="file" name="uploaddoc" size="50" />'.
'<input type="submit" name="storeupl" value="Upload" />'.	'<input type="submit" name="storeupl" value="Upload" />'.
'</form><form method="post">');	'</form><form method="post">'.
	'<input type="hidden" name="forceedit" value="edit" />');
}	}
foreach my $field (sort(keys(%syllabusfields))) {	foreach my $field (sort(keys(%syllabusfields))) {
if (($syllabus{$field}) \|\| ($allowed) \|\|	if (($syllabus{$field}) \|\| ($allowed) \|\|