version 1.282, 2007/07/02 23:43:36
|
version 1.283, 2007/07/03 00:17:42
|
Line 122 sub dumpbutton {
|
Line 122 sub dumpbutton {
|
my ($home,$other,%outhash)=&authorhosts(); |
my ($home,$other,%outhash)=&authorhosts(); |
my $type = &Apache::loncommon::course_type(); |
my $type = &Apache::loncommon::course_type(); |
if ($home+$other==0) { return ''; } |
if ($home+$other==0) { return ''; } |
my $output='</td><td bgcolor="#DDDDCC">'; |
|
if ($home) { |
if ($home) { |
return '</td><td bgcolor="#DDDDCC">'. |
return '<div>'. |
'<input type="submit" name="dumpcourse" value="'. |
'<input type="submit" name="dumpcourse" value="'. |
&mt('Dump '.$type.' DOCS to Construction Space').'" />'. |
&mt('Dump '.$type.' DOCS to Construction Space').'" />'. |
&Apache::loncommon::help_open_topic('Docs_Dump_Course_Docs'); |
&Apache::loncommon::help_open_topic('Docs_Dump_Course_Docs'). |
|
'</div>'; |
} else { |
} else { |
return'</td><td bgcolor="#DDDDCC">'. |
return '<div>'. |
&mt('Dump '.$type. |
&mt('Dump '.$type. |
' DOCS to Construction Space: available on other servers'); |
' DOCS to Construction Space: available on other servers'). |
|
'</div>'; |
} |
} |
} |
} |
|
|
Line 199 sub dumpcourse {
|
Line 200 sub dumpcourse {
|
$fail=1; |
$fail=1; |
} |
} |
if ($fail) { |
if ($fail) { |
$r->print('<font color="red">fail</font>'); |
$r->print('<span class="LC_error">'.&mt('fail').'</span>'); |
} else { |
} else { |
$r->print('<font color="green">ok</font>'); |
$r->print('<span class="LC_success">'.&mt('ok').'</span>'); |
} |
} |
} |
} |
} else { |
} else { |
Line 257 sub dumpcourse {
|
Line 258 sub dumpcourse {
|
|
|
sub exportbutton { |
sub exportbutton { |
my $type = &Apache::loncommon::course_type(); |
my $type = &Apache::loncommon::course_type(); |
return '</td><td bgcolor="#DDDDCC">'. |
return '<div>'. |
'<input type="submit" name="exportcourse" value="'. |
'<input type="submit" name="exportcourse" value="'. |
&mt('Export '.$type.' to IMS').'" />'. |
&mt('Export '.$type.' to IMS').'" />'. |
&Apache::loncommon::help_open_topic('Docs_Export_Course_Docs'); |
&Apache::loncommon::help_open_topic('Docs_Export_Course_Docs').'</div>'; |
} |
} |
|
|
sub exportcourse { |
sub exportcourse { |
Line 1255 sub editor {
|
Line 1256 sub editor {
|
my ($breadcrumbtrail,$randompick,$ishidden,$isencrypted,$plain)=&breadcrumbs($folder); |
my ($breadcrumbtrail,$randompick,$ishidden,$isencrypted,$plain)=&breadcrumbs($folder); |
$r->print($breadcrumbtrail); |
$r->print($breadcrumbtrail); |
if ($fatal) { |
if ($fatal) { |
$r->print('<p><font color="red">'.$errtext.'</font></p>'); |
$r->print('<p><span class="LC_error">'.$errtext.'</span></p>'); |
} else { |
} else { |
# ------------------------------------------------------------ Process commands |
# ------------------------------------------------------------ Process commands |
|
|
Line 1296 sub editor {
|
Line 1297 sub editor {
|
# store the changed version |
# store the changed version |
($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container); |
($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container); |
if ($fatal) { |
if ($fatal) { |
$r->print('<p><font color="red">'.$errtext.'</font></p>'); |
$r->print('<p><span class="LC_error">'.$errtext.'</span></p>'); |
return; |
return; |
} |
} |
} |
} |
Line 1336 sub editor {
|
Line 1337 sub editor {
|
# store the changed version |
# store the changed version |
($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container); |
($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container); |
if ($fatal) { |
if ($fatal) { |
$r->print('<p><font color="red">'.$errtext.'</font></p>'); |
$r->print('<p><span class="LC_error">'.$errtext.'</span></p>'); |
return; |
return; |
} |
} |
} |
} |
Line 1370 sub editor {
|
Line 1371 sub editor {
|
# Store the result |
# Store the result |
($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container); |
($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container); |
if ($fatal) { |
if ($fatal) { |
$r->print('<p><font color="red">'.$errtext.'</font></p>'); |
$r->print('<p><span class="LC_error">'.$errtext.'</span></p>'); |
return; |
return; |
} |
} |
|
|
Line 1427 sub editor {
|
Line 1428 sub editor {
|
($errtext,$fatal)=&storemap($coursenum,$coursedom, |
($errtext,$fatal)=&storemap($coursenum,$coursedom, |
$folder.'.'.$container); |
$folder.'.'.$container); |
if ($fatal) { |
if ($fatal) { |
$r->print('<p><font color="red">'.$errtext.'</font></p>'); |
$r->print('<p><span class="LC_error">'.$errtext.'</span></p>'); |
return; |
return; |
} |
} |
} |
} |
Line 1447 sub editor {
|
Line 1448 sub editor {
|
($errtext,$fatal)=&group_import($coursenum, $coursedom, $folder, |
($errtext,$fatal)=&group_import($coursenum, $coursedom, $folder, |
$container,'londocs',@imports); |
$container,'londocs',@imports); |
if ($fatal) { |
if ($fatal) { |
$r->print('<p><font color="red">'.$errtext.'</font></p>'); |
$r->print('<p><span class="LC_error">'.$errtext.'</span></p>'); |
return; |
return; |
} |
} |
} |
} |
Line 1464 sub editor {
|
Line 1465 sub editor {
|
($errtext,$fatal)=&storemap($coursenum,$coursedom, |
($errtext,$fatal)=&storemap($coursenum,$coursedom, |
$folder.'.'.$container); |
$folder.'.'.$container); |
if ($fatal) { |
if ($fatal) { |
$r->print('<p><font color="red">'.$errtext.'</font></p>'); |
$r->print('<p><span class="LC_error">'.$errtext.'</span></p>'); |
return; |
return; |
} |
} |
} else { |
} else { |
$r->print('<p><font color="red">'.&mt('No map selected.').'</font></p>'); |
$r->print('<p><span class="LC_error">'.&mt('No map selected.').'</span></p>'); |
|
|
} |
} |
} |
} |
&log_differences($plain); |
&log_differences($plain); |
Line 1569 sub process_file_upload {
|
Line 1571 sub process_file_upload {
|
($errtext,$fatal)=&storemap($coursenum,$coursedom, |
($errtext,$fatal)=&storemap($coursenum,$coursedom, |
$folder.'.'.$container); |
$folder.'.'.$container); |
if ($fatal) { |
if ($fatal) { |
$$upload_output .= '<p><font color="red">'.$errtext.'</font></p>'; |
$$upload_output .= '<p><span class="LC_error">'.$errtext.'</span></p>'; |
return 'failed'; |
return 'failed'; |
} else { |
} else { |
if ($parseaction eq 'parse') { |
if ($parseaction eq 'parse') { |
Line 2011 sub checkonthis {
|
Line 2013 sub checkonthis {
|
if (($errorcount) || |
if (($errorcount) || |
($warningcount)) { |
($warningcount)) { |
if ($errorcount) { |
if ($errorcount) { |
$r->print('<img src="/adm/lonMisc/bomb.gif" /><font color="red"><b>'. |
$r->print('<img src="/adm/lonMisc/bomb.gif" /><span class="LC_error">'. |
$errorcount.' '. |
$errorcount.' '. |
&mt('error(s)').'</b></font> '); |
&mt('error(s)').'</span> '); |
} |
} |
if ($warningcount) { |
if ($warningcount) { |
$r->print('<font color="blue">'. |
$r->print('<span class="LC_warning">'. |
$warningcount.' '. |
$warningcount.' '. |
&mt('warning(s)').'</font>'); |
&mt('warning(s)').'</span>'); |
} |
} |
} else { |
} else { |
$r->print('<font color="green">'.&mt('ok').'</font>'); |
$r->print('<span class="LC_success">'.&mt('ok').'</span>'); |
} |
} |
$r->rflush(); |
$r->rflush(); |
} |
} |
Line 2033 sub checkonthis {
|
Line 2035 sub checkonthis {
|
} |
} |
} |
} |
} elsif ($result eq 'unavailable') { |
} elsif ($result eq 'unavailable') { |
$r->print('<font color="red"><b>'.&mt('connection down').'</b></font>'); |
$r->print('<span class="LC_error">'.&mt('connection down').'</span>'); |
} elsif ($result eq 'not_found') { |
} elsif ($result eq 'not_found') { |
unless ($url=~/\$/) { |
unless ($url=~/\$/) { |
$r->print('<font color="red"><b>'.&mt('not found').'</b></font>'); |
$r->print('<span class="LC_error">'.&mt('not found').'</b></font>'); |
} else { |
} else { |
$r->print('<font color="yellow"><b>'.&mt('unable to verify variable URL').'</b></font>'); |
$r->print('<span class="LC_unknown">'.&mt('unable to verify variable URL').'</span>'); |
} |
} |
} else { |
} else { |
$r->print('<font color="red"><b>'.&mt('access denied').'</b></font>'); |
$r->print('<span class="LC_error">'.&mt('access denied').'</span>'); |
} |
} |
} |
} |
} |
} |
Line 2083 sub verifycontent {
|
Line 2085 sub verifycontent {
|
foreach (keys %hash) { |
foreach (keys %hash) { |
if ($hash{$_}=~/\.(page|sequence)$/) { |
if ($hash{$_}=~/\.(page|sequence)$/) { |
if (($_=~/^src_/) && ($alreadyseen{&unescape($hash{$_})})) { |
if (($_=~/^src_/) && ($alreadyseen{&unescape($hash{$_})})) { |
$r->print('<hr /><font color="red">'. |
$r->print('<hr /><span class="LC_error">'. |
&mt('The following sequence or page is included more than once in your '.$type.': '). |
&mt('The following sequence or page is included more than once in your '.$type.': '). |
&unescape($hash{$_}).'</font><br />'. |
&unescape($hash{$_}).'</span><br />'. |
&mt('Note that grading records for problems included in this sequence or folder will overlap.<hr />')); |
&mt('Note that grading records for problems included in this sequence or folder will overlap.<hr />')); |
} |
} |
} |
} |
Line 2165 sub checkversions {
|
Line 2167 sub checkversions {
|
$env{'course.'.$env{'request.course.id'}.'.num'}) eq 'ok') { |
$env{'course.'.$env{'request.course.id'}.'.num'}) eq 'ok') { |
$r->print('<h1>'.&mt('Your Version Settings have been Saved').'</h1>'); |
$r->print('<h1>'.&mt('Your Version Settings have been Saved').'</h1>'); |
} else { |
} else { |
$r->print('<h1><font color="red">'.&mt('An Error Occured while Attempting to Save your Version Settings').'</font></h1>'); |
$r->print('<h1><span class="LC_error">'.&mt('An Error Occured while Attempting to Save your Version Settings').'</span></h1>'); |
} |
} |
&mark_hash_old(); |
&mark_hash_old(); |
} |
} |
Line 2396 sub changewarning {
|
Line 2398 sub changewarning {
|
'<script>function reinit(tf) { tf.submit();'.$postexec.' }</script>'."\n". |
'<script>function reinit(tf) { tf.submit();'.$postexec.' }</script>'."\n". |
'<form name="reinitform" method="post" action="/adm/roles" target="loncapaclient">'. |
'<form name="reinitform" method="post" action="/adm/roles" target="loncapaclient">'. |
'<input type="hidden" name="orgurl" value="'.$url. |
'<input type="hidden" name="orgurl" value="'.$url. |
'" /><input type="hidden" name="selectrole" value="1" /><h3><font color="red">'. |
'" /><input type="hidden" name="selectrole" value="1" /><h3><span class="LC_warning">'. |
&mt($message,' <input type="hidden" name="'. |
&mt($message,' <input type="hidden" name="'. |
$env{'request.role'}.'" value="1" /><input type="button" value="'. |
$env{'request.role'}.'" value="1" /><input type="button" value="'. |
&mt('re-initializing '.$course_type).'" onClick="reinit(this.form)" />'). |
&mt('re-initializing '.$course_type).'" onClick="reinit(this.form)" />'). |
$help{'Caching'}.'</font></h3></form>'."\n\n"); |
$help{'Caching'}.'</span></h3></form>'."\n\n"); |
} |
} |
|
|
# =========================================== Breadcrumbs for special functions |
# =========================================== Breadcrumbs for special functions |
Line 2682 sub handler {
|
Line 2684 sub handler {
|
|
|
$r->print(<<ENDCOURSEVERIFY); |
$r->print(<<ENDCOURSEVERIFY); |
<form name="renameform" method="post" action="/adm/coursedocs"> |
<form name="renameform" method="post" action="/adm/coursedocs"> |
<input type="hidden" name="title" /> |
<input type="hidden" name="title" /> |
<input type="hidden" name="cmd" /> |
<input type="hidden" name="cmd" /> |
<input type="hidden" name="markcopy" /> |
<input type="hidden" name="markcopy" /> |
<input type="hidden" name="copyfolder" /> |
<input type="hidden" name="copyfolder" /> |
$containertag |
$containertag |
</form> |
</form> |
<form name="simpleedit" method="post" action="/adm/coursedocs"> |
<form name="simpleedit" method="post" action="/adm/coursedocs"> |
<input type="hidden" name="importdetail" value="" /> |
<input type="hidden" name="importdetail" value="" /> |
$uploadtag |
$uploadtag |
</form> |
</form> |
<form action="/adm/coursedocs" method="post" name="courseverify"> |
<form action="/adm/coursedocs" method="post" name="courseverify"> |
<table bgcolor="#AAAAAA" width="100%" cellspacing="4" cellpadding="4"> |
<div class="LC_docs_course_commands"> |
<tr><td bgcolor="#DDDDCC"> |
|
<input type="submit" name="verify" value="$lt{'vc'}" />$help{'Verify_Content'} |
<div> |
</td><td bgcolor="#DDDDCC"> |
<input type="submit" name="verify" value="$lt{'vc'}" />$help{'Verify_Content'} |
<input type="submit" name="versions" value="$lt{'cv'}" />$help{'Check_Resource_Versions'} |
</div> |
$dumpbut |
<div> |
$exportbut |
<input type="submit" name="versions" value="$lt{'cv'}" />$help{'Check_Resource_Versions'} |
</td><td bgcolor="#DDDDCC"> |
</div> |
<input type="submit" name="listsymbs" value="$lt{'ls'}" /> |
$dumpbut |
</td><td bgcolor="#DDDDCC"> |
$exportbut |
<input type="hidden" name="folder" value="$env{'form.folder'}" /> |
<div> |
<input type="submit" name="docslog" value="$lt{'sl'}" /> |
<input type="submit" name="listsymbs" value="$lt{'ls'}" /> |
</td></tr></table> |
</div> |
|
<div> |
|
<input type="hidden" name="folder" value="$env{'form.folder'}" /> |
|
<input type="submit" name="docslog" value="$lt{'sl'}" /> |
|
</div> |
|
</div> |
</form> |
</form> |
|
<div style="clear: both; height: 0px;"> </div> |
ENDCOURSEVERIFY |
ENDCOURSEVERIFY |
$r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc', |
$r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc', |
&mt('Editing the Table of Contents for your '.$type))); |
&mt('Editing the Table of Contents for your '.$type))); |