version 1.92, 2003/10/29 21:21:55
|
version 1.98, 2004/01/13 01:55:22
|
Line 425 END
|
Line 425 END
|
# Figure out what kind of a resource this is |
# Figure out what kind of a resource this is |
my ($extension)=($url=~/\.(\w+)$/); |
my ($extension)=($url=~/\.(\w+)$/); |
my $uploaded=($url=~/^\/*uploaded\//); |
my $uploaded=($url=~/^\/*uploaded\//); |
my $icon='unknown'; |
my $icon=&Apache::loncommon::icon($url); |
if (-e "/home/httpd/html/adm/lonIcons/$extension.gif") { |
|
$icon=$extension; |
|
} |
|
my $isfolder=0; |
my $isfolder=0; |
if ($uploaded) { |
if ($uploaded) { |
if ($extension eq 'sequence') { |
if ($extension eq 'sequence') { |
$icon='folder_closed'; |
$icon=$iconpath.'/folder_closed.gif'; |
$url=~/\/(\w+)\.sequence/; |
$url=~/\/(\w+)\.sequence/; |
$url='/adm/coursedocs?folder='.$1; |
$url='/adm/coursedocs?folder='.$1; |
$isfolder=1; |
$isfolder=1; |
Line 454 END
|
Line 451 END
|
if ($isfolder) { $url.='&foldername='. |
if ($isfolder) { $url.='&foldername='. |
&Apache::lonnet::escape($foldertitle); } |
&Apache::lonnet::escape($foldertitle); } |
$line.='<td bgcolor="#FFFFBB"><a href="'.$url.'" target="cat_'.$folder. |
$line.='<td bgcolor="#FFFFBB"><a href="'.$url.'" target="cat_'.$folder. |
'"><img src="/adm/lonIcons/'. |
'"><img src="'.$icon.'" border="0"></a></td>'. |
$icon.'.gif" border="0"></a></td>'. |
|
"<td bgcolor='#FFFFBB'><a href='$url' target='cat_$folder'>$title</a></td></tr>"; |
"<td bgcolor='#FFFFBB'><a href='$url' target='cat_$folder'>$title</a></td></tr>"; |
return $line; |
return $line; |
} |
} |
Line 510 sub checkonthis {
|
Line 506 sub checkonthis {
|
&Apache::lonxml::xmlparse($r,'web', |
&Apache::lonxml::xmlparse($r,'web', |
&Apache::lonnet::getfile( |
&Apache::lonnet::getfile( |
&Apache::lonnet::filelocation('',$url))); |
&Apache::lonnet::filelocation('',$url))); |
|
undef($Apache::lonhomework::parsing_a_problem); |
$ENV{'request.filename'}=$oldpath; |
$ENV{'request.filename'}=$oldpath; |
if (($Apache::lonxml::errorcount) || |
if (($Apache::lonxml::errorcount) || |
($Apache::lonxml::warningcount)) { |
($Apache::lonxml::warningcount)) { |
if ($Apache::lonxml::errorcount) { |
if ($Apache::lonxml::errorcount) { |
$r->print('<font color="red"><b>'. |
$r->print('<img src="/adm/lonMisc/bomb.gif" /><font color="red"><b>'. |
$Apache::lonxml::errorcount.' '. |
$Apache::lonxml::errorcount.' '. |
&mt('error(s)').'</b></font> '); |
&mt('error(s)').'</b></font> '); |
} |
} |
Line 596 sub checkversions {
|
Line 593 sub checkversions {
|
$haschanged=1; |
$haschanged=1; |
foreach (keys %hash) { |
foreach (keys %hash) { |
if ($_=~/^ids\_(\/res\/.+)$/) { |
if ($_=~/^ids\_(\/res\/.+)$/) { |
my $src=$1; |
$newsetversions{$1}='mostrecent'; |
} |
} |
} |
} |
} elsif ($ENV{'form.setcurrent'}) { |
} elsif ($ENV{'form.setcurrent'}) { |
$haschanged=1; |
$haschanged=1; |
foreach (keys %hash) { |
foreach (keys %hash) { |
if ($_=~/^ids\_(\/res\/.+)$/) { |
if ($_=~/^ids\_(\/res\/.+)$/) { |
my $src=$1; |
my $getvers=&Apache::lonnet::getversion($1); |
|
if ($getvers>0) { |
|
$newsetversions{$1}=$getvers; |
|
} |
} |
} |
} |
} |
} elsif ($ENV{'form.setversions'}) { |
} elsif ($ENV{'form.setversions'}) { |
Line 714 ENDHEADERS
|
Line 714 ENDHEADERS
|
if ($changes{$_}>$starttime) { |
if ($changes{$_}>$starttime) { |
my ($root,$extension)=($_=~/^(.*)\.(\w+)$/); |
my ($root,$extension)=($_=~/^(.*)\.(\w+)$/); |
my $currentversion=&Apache::lonnet::getversion($_); |
my $currentversion=&Apache::lonnet::getversion($_); |
|
if ($currentversion<0) { |
|
$currentversion=&mt('Could not be determined.'); |
|
} |
my $linkurl=&Apache::lonnet::clutter($_); |
my $linkurl=&Apache::lonnet::clutter($_); |
$r->print( |
$r->print( |
'<tr><td><b>'. |
'<tr><td><b>'. |
Line 725 ENDHEADERS
|
Line 728 ENDHEADERS
|
$currentversion.'</font></td><td><font size="+2">'); |
$currentversion.'</font></td><td><font size="+2">'); |
# Used in course |
# Used in course |
my $usedversion=$hash{'version_'.$linkurl}; |
my $usedversion=$hash{'version_'.$linkurl}; |
if ($usedversion) { |
if (($usedversion) && ($usedversion ne 'mostrecent')) { |
$r->print($usedversion); |
$r->print($usedversion); |
} else { |
} else { |
$r->print($currentversion); |
$r->print($currentversion); |
Line 735 ENDHEADERS
|
Line 738 ENDHEADERS
|
$r->print(&Apache::loncommon::select_form($setversions{$linkurl}, |
$r->print(&Apache::loncommon::select_form($setversions{$linkurl}, |
'set_version_'.$linkurl, |
'set_version_'.$linkurl, |
('' => '', |
('' => '', |
'current' => 'most recent', |
'mostrecent' => 'most recent', |
map {$_,$_} (1..$currentversion)))); |
map {$_,$_} (1..$currentversion)))); |
$r->print('</td><td><font size="1"><ul>'); |
$r->print('</td><td><font size="1"><ul>'); |
my $lastold=1; |
my $lastold=1; |
Line 789 sub handler {
|
Line 792 sub handler {
|
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
&Apache::lonlocal::clearreroutetrans(); |
|
# --------------------------------------------- Initialize help topics for this |
# --------------------------------------------- Initialize help topics for this |
foreach ('Adding_Course_Doc','Main_Course_Documents', |
foreach ('Adding_Course_Doc','Main_Course_Documents', |
'Adding_External_Resource','Navigate_Content', |
'Adding_External_Resource','Navigate_Content', |
Line 981 ENDNEWSCRIPT
|
Line 983 ENDNEWSCRIPT
|
'sipr' => 'Simple Problem', |
'sipr' => 'Simple Problem', |
'scuf' => 'Score Upload Form', |
'scuf' => 'Score Upload Form', |
'bull' => 'Bulletin Board', |
'bull' => 'Bulletin Board', |
'mypi' => 'My Personal Info' |
'mypi' => 'My Personal Info', |
|
'file' => 'File', |
|
'title' => 'Title', |
|
'comment' => 'Comment' |
); |
); |
# ----------------------------------------------------------------------------- |
# ----------------------------------------------------------------------------- |
if ($allowed) { |
if ($allowed) { |
Line 1011 $dumpbut
|
Line 1016 $dumpbut
|
</form> |
</form> |
ENDCOURSEVERIFY |
ENDCOURSEVERIFY |
$r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc', |
$r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc', |
'Editing the Table of Contents for your Course')); |
&mt('Editing the Table of Contents for your Course'))); |
} |
} |
# --------------------------------------------------------- Standard documents |
# --------------------------------------------------------- Standard documents |
$r->print('<table border=2 cellspacing=4 cellpadding=4>'); |
$r->print('<table border=2 cellspacing=4 cellpadding=4>'); |
Line 1040 ENDCOURSEVERIFY
|
Line 1045 ENDCOURSEVERIFY
|
<th bgcolor="#DDDDDD">$lt{'spec'}</th> |
<th bgcolor="#DDDDDD">$lt{'spec'}</th> |
</tr> |
</tr> |
<tr><td bgcolor="#DDDDDD"> |
<tr><td bgcolor="#DDDDDD"> |
File:<br /> |
$lt{'file'}:<br /> |
<form action="/adm/coursedocs" method="post" enctype="multipart/form-data"> |
<form action="/adm/coursedocs" method="post" enctype="multipart/form-data"> |
<input type="file" name="uploaddoc" size="40"> |
<input type="file" name="uploaddoc" size="40"> |
<br /> |
<br /> |
Title:<br /> |
$lt{'title'}:<br /> |
<input type="text" size="50" name="comment"> |
<input type="text" size="50" name="comment"> |
<input type="hidden" name="folder" value="$folder"> |
<input type="hidden" name="folder" value="$folder"> |
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}"> |
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}"> |
Line 1190 ENDFORM
|
Line 1195 ENDFORM
|
<tr><td bgcolor="#DDDDDD"> |
<tr><td bgcolor="#DDDDDD"> |
<form action="/adm/coursedocs" method="post" enctype="multipart/form-data"> |
<form action="/adm/coursedocs" method="post" enctype="multipart/form-data"> |
<input type="file" name="uploaddoc" size="40"> |
<input type="file" name="uploaddoc" size="40"> |
<br />Comment:<br /> |
<br />$lt{'comment'}:<br /> |
<textarea cols=50 rows=4 name='comment'> |
<textarea cols=50 rows=4 name='comment'> |
</textarea> |
</textarea> |
<input type="hidden" name="folder" value="$folder"> |
<input type="hidden" name="folder" value="$folder"> |
Line 1276 ENDSUPFORM
|
Line 1281 ENDSUPFORM
|
&entryline(0,&mt("Click to download or use your browser's Save Link function"),$showdoc).'</table></p>'); |
&entryline(0,&mt("Click to download or use your browser's Save Link function"),$showdoc).'</table></p>'); |
} |
} |
} |
} |
$r->print(&Apache::lonlocal::endreroutetrans().'</body></html>'); |
$r->print('</body></html>'); |
return OK; |
return OK; |
} |
} |
|
|