|
version 1.121, 2006/02/22 19:22:49
|
version 1.141, 2006/07/06 22:51:34
|
|
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('[_1]Select Date[_2]',$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('[_1]Select Date[_2]',$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 803 sub Create_PrgWin {
|
Line 840 sub Create_PrgWin {
|
| $prog_state{'type'}=$type; |
$prog_state{'type'}=$type; |
| if ($type eq 'popup') { |
if ($type eq 'popup') { |
| $prog_state{'window'}='popwin'; |
$prog_state{'window'}='popwin'; |
| my $html=&Apache::lonxml::xmlbegin(); |
my $start_page = |
| |
&Apache::loncommon::start_page($title,undef, |
| |
{'only_body' => 1, |
| |
'bgcolor' => '#88DDFF', |
| |
'js_ready' => 1}); |
| |
my $end_page = &Apache::loncommon::end_page({'js_ready' => 1}); |
| |
|
| #the whole function called through timeout is due to issues |
#the whole function called through timeout is due to issues |
| #in mozilla Read BUG #2665 if you want to know the whole story |
#in mozilla Read BUG #2665 if you want to know the whole story |
| &r_print($r,'<script>'. |
&r_print($r,'<script type="text/javascript">'. |
| "var popwin; |
"var popwin; |
| function openpopwin () { |
function openpopwin () { |
| popwin=open(\'\',\'popwin\',\'width=400,height=100\');". |
popwin=open(\'\',\'popwin\',\'width=400,height=100\');". |
| "popwin.document.writeln(\'".$html."<head><title>$title</title></head>". |
"popwin.document.writeln(\'".$start_page. |
| "<body bgcolor=\"#88DDFF\">". |
"<h4>$heading<\/h4>". |
| "<h4>$heading</h4>". |
"<form name=\"popremain\" method=\"post\">". |
| "<form name=popremain>". |
|
| '<input type="text" size="'.$width.'" name="remaining" value="'. |
'<input type="text" size="'.$width.'" name="remaining" value="'. |
| &mt('Starting').'"></form>'. |
&mt('Starting').'" /><\\/form>'.$end_page. |
| "</body></html>\');". |
"\');". |
| "popwin.document.close();}". |
"popwin.document.close();}". |
| "\nwindow.setTimeout(openpopwin,0)</script>"); |
"\nwindow.setTimeout(openpopwin,0)</script>"); |
| $prog_state{'formname'}='popremain'; |
$prog_state{'formname'}='popremain'; |
|
Line 940 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 956 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 974 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', |
| |
'add_entries' => { |
| |
'onload' => |
| |
'document.forms.spellcheckform.submit()', |
| |
} |
| |
}); |
| |
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"> |
| //<!-- BEGIN LON-CAPA Internal |
//<!-- BEGIN LON-CAPA Internal |
| var checkwin; |
var checkwin; |
| |
|
| function spellcheckerwindow() { |
function spellcheckerwindow(string) { |
| |
var esc_string = string.replace(/\"/g,'"'); |
| 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="'+esc_string+'" /><\/form>$end_page'); |
| checkwin.document.close(); |
checkwin.document.close(); |
| } |
} |
| // END LON-CAPA Internal --> |
// END LON-CAPA Internal --> |
|
Line 997 sub spelllink {
|
Line 1059 sub spelllink {
|
| my ($form,$field)=@_; |
my ($form,$field)=@_; |
| my $linktext=&mt('Check Spelling'); |
my $linktext=&mt('Check Spelling'); |
| return (<<ENDLINK); |
return (<<ENDLINK); |
| <a href="javascript:if (typeof(document.$form.onsubmit)!='undefined') { if (document.$form.onsubmit!=null) { document.$form.onsubmit();}};spellcheckerwindow();checkwin.document.forms.spellcheckform.text.value=this.document.forms.$form.$field.value;checkwin.document.forms.spellcheckform.submit();">$linktext</a> |
<a href="javascript:if (typeof(document.$form.onsubmit)!='undefined') { if (document.$form.onsubmit!=null) { document.$form.onsubmit();}};spellcheckerwindow(this.document.forms.$form.$field.value);">$linktext</a> |
| ENDLINK |
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 1050 sub disablelink {
|
Line 1128 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 1058 sub enablelink {
|
Line 1136 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 1106 A link to help for the component will be
|
Line 1184 A link to help for the component will be
|
| |
|
| All inputs can be undef without problems. |
All inputs can be undef without problems. |
| |
|
| Inputs: $color (the background color of the table returned), |
Inputs: $component (the large text on the right side of the table), |
| $component (the large text on the right side of the table), |
|
| $component_help |
$component_help |
| $function (role to get colors from) |
|
| $domain (domian of role) |
|
| $menulink (boolean, controls whether to include a link to /adm/menu) |
$menulink (boolean, controls whether to include a link to /adm/menu) |
| |
$helplink (if 'nohelp' don't include the orange help link) |
| |
$css_class (optional name for the class to apply to the table for CSS) |
| Returns a string containing breadcrumbs for the current page. |
Returns a string containing breadcrumbs for the current page. |
| |
|
| =item clear_breadcrumbs |
=item clear_breadcrumbs |
|
Line 1137 returns: nothing
|
Line 1213 returns: nothing
|
| my @Crumbs; |
my @Crumbs; |
| |
|
| sub breadcrumbs { |
sub breadcrumbs { |
| my ($color,$component,$component_help,$function,$domain,$menulink, |
my ($component,$component_help,$menulink,$helplink,$css_class) = @_; |
| $helplink) = @_; |
|
| if (! defined($color)) { |
|
| if (! defined($function)) { |
|
| $function = &Apache::loncommon::get_users_function(); |
|
| } |
|
| $color = &Apache::loncommon::designparm($function.'.tabbg', |
|
| $domain); |
|
| } |
|
| # |
# |
| my $Str = "\n". |
$css_class ||= 'LC_breadcrumbs'; |
| '<table width="100%" border="0" cellpadding="0" cellspacing="0">'. |
my $Str = "\n".'<table class="'.$css_class.'"><tr><td>'; |
| '<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 1205 returns: nothing
|
Line 1271 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($component, |
| |
$component_help, |
| |
$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="'.$css_class.'_component">'. |
| '<font size="+1">'.&mt($component).'</font></td>'; |
&mt($component).'</td>'; |
| } |
} |
| $Str .= '</tr></table>'."\n"; |
$Str .= '</tr></table>'."\n"; |
| # |
# |
|
Line 1410 sub course_select_row {
|
Line 1478 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". |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonhtmlcommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface