version 1.23, 2002/09/13 20:01:04
|
version 1.24, 2002/10/09 20:16:12
|
Line 328 ENDNEWSCRIPT
|
Line 328 ENDNEWSCRIPT
|
&Apache::loncommon::bodytag('Course Documents','',$events)); |
&Apache::loncommon::bodytag('Course Documents','',$events)); |
unless ($showdoc) { |
unless ($showdoc) { |
# --------------------------------------------------------- Standard documents |
# --------------------------------------------------------- Standard documents |
|
$r->print('<table>'); |
if (($standard) && ($allowed) && (!$forcesupplement)) { |
if (($standard) && ($allowed) && (!$forcesupplement)) { |
$r->print('<h2>Main Course Documents</h2>'); |
$r->print('<tr><td bgcolor="#FFFFBB"><h2>Main Course Documents</h2>'); |
my $folder=$ENV{'form.folder'}; |
my $folder=$ENV{'form.folder'}; |
unless ($folder=~/^default/) { $folder='default'; } |
unless ($folder=~/^default/) { $folder='default'; } |
&editor($r,$coursenum,$coursedom,$folder,$allowed); |
&editor($r,$coursenum,$coursedom,$folder,$allowed); |
Line 417 value="$plainname=/adm/$udom/$uname/abou
|
Line 418 value="$plainname=/adm/$udom/$uname/abou
|
</td></tr> |
</td></tr> |
</table> |
</table> |
ENDFORM |
ENDFORM |
$r->print('<hr />'); |
$r->print('</td></tr>'); |
} |
} |
# ----------------------------------------------------- Supplemental documents |
# ----------------------------------------------------- Supplemental documents |
if (!$forcestandard) { |
if (!$forcestandard) { |
$r->print('<h2>Supplemental Course Documents</h2>'); |
$r->print( |
|
'<tr><td bgcolor="#BBFFFF"><h2>Supplemental Course Documents</h2>'); |
my $folder=$ENV{'form.folder'}; |
my $folder=$ENV{'form.folder'}; |
unless ($folder=~/supplemental/) { $folder='supplemental'; } |
unless ($folder=~/supplemental/) { $folder='supplemental'; } |
&editor($r,$coursenum,$coursedom,$folder,$allowed); |
&editor($r,$coursenum,$coursedom,$folder,$allowed); |
Line 489 value="$plainname=/adm/$udom/$uname/abou
|
Line 491 value="$plainname=/adm/$udom/$uname/abou
|
<input name="newaboutme" type="submit" value="My Personal Info" /> |
<input name="newaboutme" type="submit" value="My Personal Info" /> |
</form> |
</form> |
</td></tr> |
</td></tr> |
</table> |
</table></td></tr> |
ENDSUPFORM |
ENDSUPFORM |
} |
} |
} |
} |
if ($allowed) { |
if ($allowed) { |
$r->print('<form name="extimport"><input type="hidden" name="title"><input type="hidden" name="url"><input type="hidden" name="useform"></form>'); |
$r->print('<form name="extimport"><input type="hidden" name="title"><input type="hidden" name="url"><input type="hidden" name="useform"></form>'); |
} |
} |
|
$r->print('</table>'); |
} else { |
} else { |
# -------------------------------------------------------- This is showdoc mode |
# -------------------------------------------------------- This is showdoc mode |
$r->print("<h1>Uploaded Document</h1><p>It is recommended that you use an up-to-date virus scanner before handling this file.</p><p><table>". |
$r->print("<h1>Uploaded Document</h1><p>It is recommended that you use an up-to-date virus scanner before handling this file.</p><p><table>". |