version 1.122, 2006/03/21 18:39:02
|
version 1.136, 2006/06/22 23:22:41
|
Line 60 use Time::Local;
|
Line 60 use Time::Local;
|
use Time::HiRes; |
use Time::HiRes; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonnet; |
use Apache::lonnet; |
|
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
|
|
############################################## |
############################################## |
############################################## |
############################################## |
Line 93 sub authorbombs {
|
Line 95 sub authorbombs {
|
|
|
sub recent_filename { |
sub recent_filename { |
my $area=shift; |
my $area=shift; |
return 'nohist_recent_'.&Apache::lonnet::escape($area); |
return 'nohist_recent_'.&escape($area); |
} |
} |
|
|
sub store_recent { |
sub store_recent { |
my ($area,$name,$value)=@_; |
my ($area,$name,$value,$freeze)=@_; |
my $file=&recent_filename($area); |
my $file=&recent_filename($area); |
my %recent=&Apache::lonnet::dump($file); |
my %recent=&Apache::lonnet::dump($file); |
if (scalar(keys(%recent))>20) { |
if (scalar(keys(%recent))>20) { |
# remove oldest value |
# remove oldest value |
my $oldest=time; |
my $oldest=time(); |
my $delkey=''; |
my $delkey=''; |
foreach (keys %recent) { |
foreach my $item (keys(%recent)) { |
my $thistime=(split(/\&/,$recent{$_}))[0]; |
my $thistime=(split(/\&/,$recent{$item}))[0]; |
if ($thistime<$oldest) { |
if (($thistime ne "always_include") && ($thistime<$oldest)) { |
$oldest=$thistime; |
$oldest=$thistime; |
$delkey=$_; |
$delkey=$item; |
} |
} |
} |
} |
&Apache::lonnet::del($file,[$delkey]); |
&Apache::lonnet::del($file,[$delkey]); |
} |
} |
# store new value |
# store new value |
|
my $timestamp; |
|
if ($freeze) { |
|
$timestamp = "always_include"; |
|
} else { |
|
$timestamp = time(); |
|
} |
&Apache::lonnet::put($file,{ $name => |
&Apache::lonnet::put($file,{ $name => |
time.'&'.&Apache::lonnet::escape($value) }); |
$timestamp.'&'.&escape($value) }); |
} |
} |
|
|
sub remove_recent { |
sub remove_recent { |
Line 130 sub select_recent {
|
Line 138 sub select_recent {
|
my $return="\n<select name='$fieldname'". |
my $return="\n<select name='$fieldname'". |
($event?" onchange='$event'":''). |
($event?" onchange='$event'":''). |
">\n<option value=''>--- ".&mt('Recent')." ---</option>"; |
">\n<option value=''>--- ".&mt('Recent')." ---</option>"; |
foreach (sort keys %recent) { |
foreach my $value (sort(keys(%recent))) { |
unless ($_=~/^error\:/) { |
unless ($value =~/^error\:/) { |
my $escaped = &Apache::loncommon::escape_url($_); |
my $escaped = &Apache::loncommon::escape_url($value); |
$return.="\n<option value='$escaped'>". |
$return.="\n<option value='$escaped'>". |
&Apache::lonnet::unescape((split(/\&/,$recent{$_}))[1]). |
&unescape((split(/\&/,$recent{$value}))[1]). |
'</option>'; |
'</option>'; |
} |
} |
} |
} |
Line 147 sub get_recent {
|
Line 155 sub get_recent {
|
my %recent=&Apache::lonnet::dump(&recent_filename($area)); |
my %recent=&Apache::lonnet::dump(&recent_filename($area)); |
|
|
# Create hash with key as time and recent as value |
# Create hash with key as time and recent as value |
|
# Begin filling return_hash with any 'always_include' option |
my %time_hash = (); |
my %time_hash = (); |
foreach (keys %recent) { |
my %return_hash = (); |
my $thistime=(split(/\&/,$recent{$_}))[0]; |
foreach my $item (keys %recent) { |
$time_hash{$thistime} = $_; |
my ($thistime,$thisvalue)=(split(/\&/,$recent{$item})); |
|
if ($thistime eq 'always_include') { |
|
$return_hash{$item} = &unescape($thisvalue); |
|
$n--; |
|
} else { |
|
$time_hash{$thistime} = $item; |
|
} |
} |
} |
|
|
# Sort by decreasing time and return key value pairs |
# Sort by decreasing time and return key value pairs |
my %return_hash = (); |
|
my $idx = 1; |
my $idx = 1; |
foreach (reverse sort keys %time_hash) { |
foreach my $item (reverse(sort(keys(%time_hash)))) { |
$return_hash{$time_hash{$_}} = |
$return_hash{$time_hash{$item}} = |
&Apache::lonnet::unescape((split(/\&/,$recent{$_}))[1]); |
&unescape((split(/\&/,$recent{$time_hash{$item}}))[1]); |
if ($n && ($idx++ >= $n)) {last;} |
if ($n && ($idx++ >= $n)) {last;} |
} |
} |
|
|
return %return_hash; |
return %return_hash; |
} |
} |
|
|
|
sub get_recent_frozen { |
|
my ($area) = @_; |
|
my %recent=&Apache::lonnet::dump(&recent_filename($area)); |
|
|
|
# Create hash with all 'frozen' items |
|
my %return_hash = (); |
|
foreach my $item (keys(%recent)) { |
|
my ($thistime,$thisvalue)=(split(/\&/,$recent{$item})); |
|
if ($thistime eq 'always_include') { |
|
$return_hash{$item} = &unescape($thisvalue); |
|
} |
|
} |
|
return %return_hash; |
|
} |
|
|
|
|
|
|
=pod |
=pod |
Line 178 sub get_recent {
|
Line 207 sub get_recent {
|
sub textbox { |
sub textbox { |
my ($name,$value,$size,$special) = @_; |
my ($name,$value,$size,$special) = @_; |
$size = 40 if (! defined($size)); |
$size = 40 if (! defined($size)); |
|
$value = &HTML::Entities::encode($value,'<>&"'); |
my $Str = '<input type="text" name="'.$name.'" size="'.$size.'" '. |
my $Str = '<input type="text" name="'.$name.'" size="'.$size.'" '. |
'value="'.$value.'" '.$special.' />'; |
'value="'.$value.'" '.$special.' />'; |
return $Str; |
return $Str; |
Line 280 The method used to restrict user input w
|
Line 310 The method used to restrict user input w
|
############################################## |
############################################## |
sub date_setter { |
sub date_setter { |
my ($formname,$dname,$currentvalue,$special,$includeempty,$state, |
my ($formname,$dname,$currentvalue,$special,$includeempty,$state, |
$no_hh_mm_ss,$defhour,$defmin,$defsec) = @_; |
$no_hh_mm_ss,$defhour,$defmin,$defsec,$nolink) = @_; |
my $wasdefined=1; |
my $wasdefined=1; |
if (! defined($state) || $state ne 'disabled') { |
if (! defined($state) || $state ne 'disabled') { |
$state = ''; |
$state = ''; |
Line 322 sub date_setter {
|
Line 352 sub date_setter {
|
} |
} |
my $result = "\n<!-- $dname date setting form -->\n"; |
my $result = "\n<!-- $dname date setting form -->\n"; |
$result .= <<ENDJS; |
$result .= <<ENDJS; |
<script language="Javascript"> |
<script type="text/javascript"> |
function $dname\_checkday() { |
function $dname\_checkday() { |
var day = document.$formname.$dname\_day.value; |
var day = document.$formname.$dname\_day.value; |
var month = document.$formname.$dname\_month.value; |
var month = document.$formname.$dname\_month.value; |
Line 385 document.$formname.$dname\_year.value,
|
Line 415 document.$formname.$dname\_year.value,
|
} |
} |
</script> |
</script> |
ENDJS |
ENDJS |
$result .= ' <nobr>'; |
$result .= ' <span style="white-space: nowrap;">'; |
my $monthselector = qq{<select name="$dname\_month" $special $state onchange="javascript:$dname\_checkday()" >}; |
my $monthselector = qq{<select name="$dname\_month" $special $state onchange="javascript:$dname\_checkday()" >}; |
# Month |
# Month |
my @Months = qw/January February March April May June |
my @Months = qw/January February March April May June |
Line 428 ENDJS
|
Line 458 ENDJS
|
$hourselector .= " </select>\n"; |
$hourselector .= " </select>\n"; |
my $minuteselector = qq{<input type="text" name="$dname\_minute" $special $state value="$min" size="3" />}; |
my $minuteselector = qq{<input type="text" name="$dname\_minute" $special $state value="$min" size="3" />}; |
my $secondselector= qq{<input type="text" name="$dname\_second" $special $state value="$sec" size="3" />}; |
my $secondselector= qq{<input type="text" name="$dname\_second" $special $state value="$sec" size="3" />}; |
my $cal_link = qq{<a href="javascript:$dname\_opencalendar()">}; |
my $cal_link; |
|
if (!$nolink) { |
|
$cal_link = qq{<a href="javascript:$dname\_opencalendar()">}; |
|
} |
# |
# |
if ($no_hh_mm_ss) { |
if ($no_hh_mm_ss) { |
$result .= &mt('[_1] [_2] [_3] [_4]Select Date[_5]', |
$result .= &mt('[_1] [_2] [_3] ', |
$monthselector,$dayselector,$yearselector, |
$monthselector,$dayselector,$yearselector); |
$cal_link,'</a>'); |
if (!$nolink) { |
|
$result .= &mt('[_4]Select Date[_5]',$cal_link,'</a>'); |
|
} |
} else { |
} else { |
$result .= &mt('[_1] [_2] [_3] [_4] [_5]m [_6]s [_7]Select Date[_8]', |
$result .= &mt('[_1] [_2] [_3] [_4] [_5]m [_6]s ', |
$monthselector,$dayselector,$yearselector, |
$monthselector,$dayselector,$yearselector, |
$hourselector,$minuteselector,$secondselector, |
$hourselector,$minuteselector,$secondselector); |
$cal_link,'</a>'); |
if (!$nolink) { |
|
$result .= &mt('[_7]Select Date[_8]',$cal_link,'</a>'); |
|
} |
} |
} |
$result .= "</nobr>\n<!-- end $dname date setting form -->\n"; |
$result .= "</span>\n<!-- end $dname date setting form -->\n"; |
return $result; |
return $result; |
} |
} |
|
|
Line 524 sub get_date_from_form {
|
Line 561 sub get_date_from_form {
|
if (($year<70) || ($year>137)) { return undef; } |
if (($year<70) || ($year>137)) { return undef; } |
if (defined($sec) && defined($min) && defined($hour) && |
if (defined($sec) && defined($min) && defined($hour) && |
defined($day) && defined($month) && defined($year) && |
defined($day) && defined($month) && defined($year) && |
eval(&timelocal($sec,$min,$hour,$day,$month,$year))) { |
eval('&timelocal($sec,$min,$hour,$day,$month,$year)')) { |
return &timelocal($sec,$min,$hour,$day,$month,$year); |
return &timelocal($sec,$min,$hour,$day,$month,$year); |
} else { |
} else { |
return undef; |
return undef; |
Line 817 sub Create_PrgWin {
|
Line 854 sub Create_PrgWin {
|
function openpopwin () { |
function openpopwin () { |
popwin=open(\'\',\'popwin\',\'width=400,height=100\');". |
popwin=open(\'\',\'popwin\',\'width=400,height=100\');". |
"popwin.document.writeln(\'".$start_page. |
"popwin.document.writeln(\'".$start_page. |
"<h4>$heading</h4>". |
"<h4>$heading<\/h4>". |
"<form name=popremain>". |
"<form name=\"popremain\" method=\"post\">". |
'<input type="text" size="'.$width.'" name="remaining" value="'. |
'<input type="text" size="'.$width.'" name="remaining" value="'. |
&mt('Starting').'"></form>'.$end_page. |
&mt('Starting').'" /><\\/form>'.$end_page. |
"\');". |
"\');". |
"popwin.document.close();}". |
"popwin.document.close();}". |
"\nwindow.setTimeout(openpopwin,0)</script>"); |
"\nwindow.setTimeout(openpopwin,0)</script>"); |
Line 945 sub r_print {
|
Line 982 sub r_print {
|
# ------------------------------------------------------- Puts directory header |
# ------------------------------------------------------- Puts directory header |
|
|
sub crumbs { |
sub crumbs { |
my ($uri,$target,$prefix,$form,$size,$noformat)=@_; |
my ($uri,$target,$prefix,$form,$size,$noformat,$skiplast)=@_; |
if (! defined($size)) { |
if (! defined($size)) { |
$size = '+2'; |
$size = '+2'; |
} |
} |
Line 961 sub crumbs {
|
Line 998 sub crumbs {
|
foreach my $dir (split('/',$uri)) { |
foreach my $dir (split('/',$uri)) { |
if (! $dir) { next; } |
if (! $dir) { next; } |
$path .= $dir; |
$path .= $dir; |
unless ($path eq $uri) { $path.='/'; } |
if ($path eq $uri) { |
|
if ($skiplast) { |
|
$output.=$dir; |
|
last; |
|
} |
|
} else { |
|
$path.='/'; |
|
} |
my $linkpath = &Apache::loncommon::escape_single($path); |
my $linkpath = &Apache::loncommon::escape_single($path); |
if ($form) { |
if ($form) { |
$linkpath= |
$linkpath= |
Line 979 sub crumbs {
|
Line 1023 sub crumbs {
|
# --------------------- A function that generates a window for the spellchecker |
# --------------------- A function that generates a window for the spellchecker |
|
|
sub spellheader { |
sub spellheader { |
my $html=&Apache::lonxml::xmlbegin(); |
my $start_page= |
|
&Apache::loncommon::start_page('Speller Suggestions',undef, |
|
{'only_body' => 1, |
|
'js_ready' => 1, |
|
'bgcolor' => '#DDDDDD',}); |
|
my $end_page= |
|
&Apache::loncommon::end_page({'js_ready' => 1}); |
|
|
my $nothing=&javascript_nothing(); |
my $nothing=&javascript_nothing(); |
return (<<ENDCHECK); |
return (<<ENDCHECK); |
<script type="text/javascript"> |
<script type="text/javascript"> |
Line 988 var checkwin;
|
Line 1039 var checkwin;
|
|
|
function spellcheckerwindow() { |
function spellcheckerwindow() { |
checkwin=window.open($nothing,'spellcheckwin','height=320,width=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no'); |
checkwin=window.open($nothing,'spellcheckwin','height=320,width=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no'); |
checkwin.document.writeln('$html<head></head><body bgcolor="#DDDDDD"><form name="spellcheckform" action="/adm/spellcheck" method="post"><input type="hidden" name="text" value="" /></form></body></html>'); |
checkwin.document.writeln('$start_page<form name="spellcheckform" action="/adm/spellcheck" method="post"><input type="hidden" name="text" value="" /><\\/form>$end_page'); |
checkwin.document.close(); |
checkwin.document.close(); |
} |
} |
// END LON-CAPA Internal --> |
// END LON-CAPA Internal --> |
Line 1008 ENDLINK
|
Line 1059 ENDLINK
|
|
|
# ------------------------------------------------- Output headers for HTMLArea |
# ------------------------------------------------- Output headers for HTMLArea |
|
|
|
{ |
|
my @htmlareafields; |
|
sub init_htmlareafields { |
|
undef(@htmlareafields); |
|
} |
|
|
|
sub add_htmlareafields { |
|
my (@newfields) = @_; |
|
push(@htmlareafields,@newfields); |
|
} |
|
|
|
sub get_htmlareafields { |
|
return @htmlareafields; |
|
} |
|
} |
|
|
sub htmlareaheaders { |
sub htmlareaheaders { |
if (&htmlareablocked()) { return ''; } |
if (&htmlareablocked()) { return ''; } |
unless (&htmlareabrowser()) { return ''; } |
unless (&htmlareabrowser()) { return ''; } |
Line 1055 sub disablelink {
|
Line 1122 sub disablelink {
|
if (defined($#fields)) { |
if (defined($#fields)) { |
unless ($#fields>=0) { return ''; } |
unless ($#fields>=0) { return ''; } |
} |
} |
return '<a href="'.&HTML::Entities::encode('/adm/preferences?action=set_wysiwyg&wysiwyg=off&returnurl=','<>&"').&Apache::lonnet::escape($ENV{'REQUEST_URI'}).'">'.&mt('Disable WYSIWYG Editor').'</a>'; |
return '<a href="'.&HTML::Entities::encode('/adm/preferences?action=set_wysiwyg&wysiwyg=off&returnurl=','<>&"').&escape($ENV{'REQUEST_URI'}).'">'.&mt('Disable WYSIWYG Editor').'</a>'; |
} |
} |
|
|
sub enablelink { |
sub enablelink { |
Line 1063 sub enablelink {
|
Line 1130 sub enablelink {
|
if (defined($#fields)) { |
if (defined($#fields)) { |
unless ($#fields>=0) { return ''; } |
unless ($#fields>=0) { return ''; } |
} |
} |
return '<a href="'.&HTML::Entities::encode('/adm/preferences?action=set_wysiwyg&wysiwyg=on&returnurl=','<>&"').&Apache::lonnet::escape($ENV{'REQUEST_URI'}).'">'.&mt('Enable WYSIWYG Editor').'</a>'; |
return '<a href="'.&HTML::Entities::encode('/adm/preferences?action=set_wysiwyg&wysiwyg=on&returnurl=','<>&"').&escape($ENV{'REQUEST_URI'}).'">'.&mt('Enable WYSIWYG Editor').'</a>'; |
} |
} |
|
|
# ----------------------------------------- Script to activate only some fields |
# ----------------------------------------- Script to activate only some fields |
Line 1142 returns: nothing
|
Line 1209 returns: nothing
|
my @Crumbs; |
my @Crumbs; |
|
|
sub breadcrumbs { |
sub breadcrumbs { |
my ($color,$component,$component_help,$function,$domain,$menulink, |
my ($component,$component_help,$menulink,$helplink) = @_; |
$helplink) = @_; |
|
if (! defined($color)) { |
|
if (! defined($function)) { |
|
$function = &Apache::loncommon::get_users_function(); |
|
} |
|
$color = &Apache::loncommon::designparm($function.'.tabbg', |
|
$domain); |
|
} |
|
# |
# |
my $Str = "\n". |
my $Str = "\n".'<table id="LC_breadcrumbs"><tr><td>'; |
'<table width="100%" border="0" cellpadding="0" cellspacing="0">'. |
|
'<tr><td bgcolor="'.$color.'">'. |
|
'<font size="-1">'; |
|
# |
# |
# Make the faq and bug data cascade |
# Make the faq and bug data cascade |
my $faq = ''; |
my $faq = ''; |
Line 1210 returns: nothing
|
Line 1266 returns: nothing
|
# $icons .= &Apache::loncommon::help_open_bug($bug); |
# $icons .= &Apache::loncommon::help_open_bug($bug); |
# } |
# } |
if ($helplink ne 'nohelp') { |
if ($helplink ne 'nohelp') { |
$icons .= &Apache::loncommon::help_open_menu($color,$component,$component_help,$function,$faq,$bug); |
$icons .= &Apache::loncommon::help_open_menu(undef,$component, |
|
$component_help, |
|
undef,$faq,$bug); |
} |
} |
if ($icons ne '') { |
if ($icons ne '') { |
$Str .= $icons.' '; |
$Str .= $icons.' '; |
} |
} |
# |
# |
$Str .= $links.'</font></td>'; |
$Str .= $links.'</td>'; |
# |
# |
if (defined($component)) { |
if (defined($component)) { |
$Str .= '<td align="right" bgcolor="'.$color.'">'. |
$Str .= '<td class="LC_breadcrumb_component">'. |
'<font size="+1">'.&mt($component).'</font></td>'; |
&mt($component).'</td>'; |
} |
} |
$Str .= '</tr></table>'."\n"; |
$Str .= '</tr></table>'."\n"; |
# |
# |
Line 1415 sub course_select_row {
|
Line 1473 sub course_select_row {
|
|; |
|; |
my $courseform='<b>'.&Apache::loncommon::selectcourse_link |
my $courseform='<b>'.&Apache::loncommon::selectcourse_link |
($formname,'pickcourse','pickdomain','coursedesc','',1).'</b>'; |
($formname,'pickcourse','pickdomain','coursedesc','',1).'</b>'; |
|
$output .= '<input type="radio" name="coursepick" value="all" onclick="coursePick(this.form)" />'.&mt('All courses').'<br />'; |
if ($totcodes > 0) { |
if ($totcodes > 0) { |
$output .= '<input type="radio" name="coursepick" value="all" onclick="coursePick(this.form)" />'.&mt('All courses'); |
|
my $numtitles = @$codetitles; |
my $numtitles = @$codetitles; |
if ($numtitles > 0) { |
if ($numtitles > 0) { |
$output .= '<br /><input type="radio" name="coursepick" value="category" onclick="coursePick(this.form);alert('."'".&mt('Choose categories, from left to right')."'".')" />'.&mt('Pick courses by category:').' <br />'; |
$output .= '<input type="radio" name="coursepick" value="category" onclick="coursePick(this.form);alert('."'".&mt('Choose categories, from left to right')."'".')" />'.&mt('Pick courses by category:').' <br />'; |
$output .= '<table><tr><td>'.$$codetitles[0].'<br />'."\n". |
$output .= '<table><tr><td>'.$$codetitles[0].'<br />'."\n". |
'<select name="'.$$codetitles[0]. |
'<select name="'.$$codetitles[0]. |
'" onChange="setPick(this.form);courseSet('."'$$codetitles[0]'".')">'."\n". |
'" onChange="setPick(this.form);courseSet('."'$$codetitles[0]'".')">'."\n". |