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) || |