version 1.283, 2003/10/02 05:45:38
|
version 1.287, 2003/10/24 21:31:05
|
Line 96 use Apache::style();
|
Line 96 use Apache::style();
|
use Apache::run(); |
use Apache::run(); |
use Apache::londefdef(); |
use Apache::londefdef(); |
use Apache::scripttag(); |
use Apache::scripttag(); |
|
use Apache::languagetags(); |
use Apache::edit(); |
use Apache::edit(); |
use Apache::inputtags(); |
use Apache::inputtags(); |
use Apache::outputtags(); |
use Apache::outputtags(); |
Line 280 sub printtokenheader {
|
Line 281 sub printtokenheader {
|
my %idhash=&Apache::lonnet::idrget($tudom,($tuname)); |
my %idhash=&Apache::lonnet::idrget($tudom,($tuname)); |
return |
return |
'<img align="right" src="/cgi-bin/barcode.png?encode='.$token.'" />'. |
'<img align="right" src="/cgi-bin/barcode.png?encode='.$token.'" />'. |
'Checked out for '.$plainname. |
&mt('Checked out for').' '.$plainname. |
'<br />User: '.$tuname.' at '.$tudom. |
'<br />'.&mt('User').': '.$tuname.' at '.$tudom. |
'<br />ID: '.$idhash{$tuname}. |
'<br />'.&mt('ID').': '.$idhash{$tuname}. |
'<br />CourseID: '.$tcrsid. |
'<br />'.&mt('CourseID').': '.$tcrsid. |
'<br />Course: '.$ENV{'course.'.$tcrsid.'.description'}. |
'<br />'.&mt('Course').': '.$ENV{'course.'.$tcrsid.'.description'}. |
'<br />DocID: '.$token. |
'<br />'.&mt('DocID').': '.$token. |
'<br />Time: '.localtime().'<hr />'; |
'<br />'.&mt('Time').': '.&Apache::lonlocal::locallocaltime().'<hr />'; |
} else { |
} else { |
return $token; |
return $token; |
} |
} |
Line 319 sub xmlparse {
|
Line 320 sub xmlparse {
|
&Apache::inputtags::initialize_inputtags(); |
&Apache::inputtags::initialize_inputtags(); |
&Apache::outputtags::initialize_outputtags(); |
&Apache::outputtags::initialize_outputtags(); |
&Apache::edit::initialize_edit(); |
&Apache::edit::initialize_edit(); |
|
&Apache::londefdef::initialize_londefdef(); |
|
|
# |
# |
# do we have a course style file? |
# do we have a course style file? |
Line 657 sub init_safespace {
|
Line 659 sub init_safespace {
|
$safeeval->permit("entereval"); |
$safeeval->permit("entereval"); |
$safeeval->permit(":base_math"); |
$safeeval->permit(":base_math"); |
$safeeval->permit("sort"); |
$safeeval->permit("sort"); |
|
$safeeval->permit("time"); |
$safeeval->deny(":base_io"); |
$safeeval->deny(":base_io"); |
$safehole->wrap(\&Apache::scripttag::xmlparse,$safeeval,'&xmlparse'); |
$safehole->wrap(\&Apache::scripttag::xmlparse,$safeeval,'&xmlparse'); |
$safehole->wrap(\&Apache::outputtags::multipart,$safeeval,'&multipart'); |
$safehole->wrap(\&Apache::outputtags::multipart,$safeeval,'&multipart'); |
Line 1196 sub handler {
|
Line 1199 sub handler {
|
unless ($ENV{'request.state'} eq 'published') { |
unless ($ENV{'request.state'} eq 'published') { |
if (($ENV{'form.savethisfile'}) || ($ENV{'form.attemptclean'})) { |
if (($ENV{'form.savethisfile'}) || ($ENV{'form.attemptclean'})) { |
if (&storefile($file,$ENV{'form.filecont'})) { |
if (&storefile($file,$ENV{'form.filecont'})) { |
$request->print("<font COLOR=\"#0000FF\">Updated: ". strftime("%d %b %H:%M:%S",localtime())." </font>"); |
$request->print("<font COLOR=\"#0000FF\">".&mt('Updated').": ". |
|
&Apache::lonlocal::locallocaltime(time)." </font>"); |
} |
} |
} |
} |
} |
} |
Line 1204 sub handler {
|
Line 1208 sub handler {
|
my $result = ''; |
my $result = ''; |
my $filecontents=&Apache::lonnet::getfile($file); |
my $filecontents=&Apache::lonnet::getfile($file); |
if ($filecontents eq -1) { |
if ($filecontents eq -1) { |
|
my $bodytag=&Apache::loncommon::bodytag('File Error'); |
|
my $fnf=&mt('File not found'); |
$result=(<<ENDNOTFOUND); |
$result=(<<ENDNOTFOUND); |
<html> |
<html> |
<head> |
<head> |
<title>File not found</title> |
<title>$fnf</title> |
</head> |
</head> |
<body bgcolor="#FFFFFF"> |
$bodytag |
<b>File not found: $file</b> |
<b>$fnf: $file</b> |
</body> |
</body> |
</html> |
</html> |
ENDNOTFOUND |
ENDNOTFOUND |