version 1.194, 2008/12/10 10:29:43
|
version 1.222, 2009/06/08 18:04:45
|
Line 62 use Apache::lonlocal;
|
Line 62 use Apache::lonlocal;
|
use Apache::lonnet; |
use Apache::lonnet; |
use LONCAPA; |
use LONCAPA; |
|
|
|
############################################## |
|
############################################## |
|
|
|
=pod |
|
|
|
=item confirm_success |
|
|
|
Successful completion of an operation message |
|
|
|
=cut |
|
|
|
sub confirm_success { |
|
my ($message,$failure)=@_; |
|
if ($failure) { |
|
return '<span class="LC_error">'."\n" |
|
.'<img src="/adm/lonIcons/navmap.wrong.gif" alt="'.&mt('Error').'" /> '."\n" |
|
.$message."\n" |
|
.'</span>'."\n"; |
|
} else { |
|
return '<span class="LC_success">'."\n" |
|
.'<img src="/adm/lonIcons/navmap.correct.gif" alt="'.&mt('Ok').'" /> '."\n" |
|
.$message."\n" |
|
.'</span>'."\n"; |
|
} |
|
} |
|
|
############################################## |
############################################## |
############################################## |
############################################## |
Line 105 sub dragmath_js {
|
Line 130 sub dragmath_js {
|
my ($popup) = @_; |
my ($popup) = @_; |
return <<ENDDRAGMATHJS; |
return <<ENDDRAGMATHJS; |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
function mathedit(textarea, doc) { |
function mathedit(textarea, doc) { |
targetEntry = textarea; |
targetEntry = textarea; |
targetDoc = doc; |
targetDoc = doc; |
newwin = window.open("/adm/dragmath/applet/$popup.html","","width=565,height=500,resizable"); |
newwin = window.open("/adm/dragmath/applet/$popup.html","","width=565,height=500,resizable"); |
} |
} |
|
// ]]> |
</script> |
</script> |
|
|
ENDDRAGMATHJS |
ENDDRAGMATHJS |
Line 136 sub authorbombs {
|
Line 163 sub authorbombs {
|
foreach (keys %bombs) { |
foreach (keys %bombs) { |
if ($_=~/^$udom\/$uname\//) { |
if ($_=~/^$udom\/$uname\//) { |
return '<a href="/adm/bombs/'.$url. |
return '<a href="/adm/bombs/'.$url. |
'"><img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/bomb.gif').'" border="0" /></a>'. |
'"><img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/bomb.gif').'" alt="'.&mt('Bomb').'" border="0" /></a>'. |
&Apache::loncommon::help_open_topic('About_Bombs'); |
&Apache::loncommon::help_open_topic('About_Bombs'); |
} |
} |
} |
} |
Line 285 sub checkbox {
|
Line 312 sub checkbox {
|
$Str .= 'value="'.$value.'"'; |
$Str .= 'value="'.$value.'"'; |
} |
} |
if ($checked) { |
if ($checked) { |
$Str .= ' checked="1"'; |
$Str .= ' checked="checked"'; |
} |
} |
$Str .= ' />'; |
$Str .= ' />'; |
return $Str; |
return $Str; |
Line 307 sub radio {
|
Line 334 sub radio {
|
$Str .= 'value="'.$value.'"'; |
$Str .= 'value="'.$value.'"'; |
} |
} |
if ($checked eq $value) { |
if ($checked eq $value) { |
$Str .= ' checked="1"'; |
$Str .= ' checked="checked"'; |
} |
} |
$Str .= ' />'; |
$Str .= ' />'; |
return $Str; |
return $Str; |
Line 405 sub date_setter {
|
Line 432 sub date_setter {
|
my $result = "\n<!-- $dname date setting form -->\n"; |
my $result = "\n<!-- $dname date setting form -->\n"; |
$result .= <<ENDJS; |
$result .= <<ENDJS; |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
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 465 document.$formname.$dname\_year.value,
|
Line 493 document.$formname.$dname\_year.value,
|
} |
} |
|
|
} |
} |
|
// ]]> |
</script> |
</script> |
ENDJS |
ENDJS |
$result .= ' <span class="LC_nobreak">'; |
$result .= ' <span class="LC_nobreak">'; |
Line 950 sub Create_PrgWin {
|
Line 979 sub Create_PrgWin {
|
#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 type="text/javascript">'. |
&r_print($r,'<script type="text/javascript">'. |
|
'// <![CDATA['. |
"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(\'".$start_page. |
"popwin.document.writeln(\'".$start_page. |
"<h4>".&mt("$heading")."<\/h4>". |
"<h4>".&mt("$heading")."<\/h4>". |
"<form action= \"\" name=\"popremain\" method=\"post\">". |
"<form action=\"\" 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>'); |
$prog_state{'formname'}='popremain'; |
$prog_state{'formname'}='popremain'; |
$prog_state{'inputname'}="remaining"; |
$prog_state{'inputname'}="remaining"; |
} elsif ($type eq 'inline') { |
} elsif ($type eq 'inline') { |
Line 993 sub Create_PrgWin {
|
Line 1025 sub Create_PrgWin {
|
# update progress |
# update progress |
sub Update_PrgWin { |
sub Update_PrgWin { |
my ($r,$prog_state,$displayString)=@_; |
my ($r,$prog_state,$displayString)=@_; |
&r_print($r,'<script type="text/javascript">'.$$prog_state{'window'}.'.document.'. |
&r_print($r,'<script type="text/javascript">'. |
|
'// <![CDATA['. |
|
$$prog_state{'window'}.'.document.'. |
$$prog_state{'formname'}.'.'. |
$$prog_state{'formname'}.'.'. |
$$prog_state{'inputname'}.'.value="'. |
$$prog_state{'inputname'}.'.value="'. |
$displayString.'";</script>'); |
$displayString.'";'. |
|
'// ]]>'. |
|
'</script>'); |
$$prog_state{'laststart'}=&Time::HiRes::time(); |
$$prog_state{'laststart'}=&Time::HiRes::time(); |
} |
} |
|
|
Line 1049 sub Increment_PrgWin {
|
Line 1085 sub Increment_PrgWin {
|
if ($user_browser eq 'explorer' && $user_os =~ 'mac') { |
if ($user_browser eq 'explorer' && $user_os =~ 'mac') { |
$lasttime = ''; |
$lasttime = ''; |
} |
} |
&r_print($r,'<script>'.$$prog_state{'window'}.'.document.'. |
&r_print($r,'<script>'. |
|
'// <![CDATA['. |
|
$$prog_state{'window'}.'.document.'. |
$$prog_state{'formname'}.'.'. |
$$prog_state{'formname'}.'.'. |
$$prog_state{'inputname'}.'.value="'. |
$$prog_state{'inputname'}.'.value="'. |
$$prog_state{'done'}.'/'.$$prog_state{'max'}. |
$$prog_state{'done'}.'/'.$$prog_state{'max'}. |
': '.$time_est.' '.&mt('remaining').' '.$lasttime.'";'.'</script>'); |
': '.$time_est.' '.&mt('remaining').' '.$lasttime.'";'. |
|
'// ]]>'. |
|
'</script>'); |
$$prog_state{'laststart'}=&Time::HiRes::time(); |
$$prog_state{'laststart'}=&Time::HiRes::time(); |
} |
} |
|
|
Line 1061 sub Increment_PrgWin {
|
Line 1101 sub Increment_PrgWin {
|
sub Close_PrgWin { |
sub Close_PrgWin { |
my ($r,$prog_state)=@_; |
my ($r,$prog_state)=@_; |
if ($$prog_state{'type'} eq 'popup') { |
if ($$prog_state{'type'} eq 'popup') { |
&r_print($r,'<script>popwin.close()</script>'."\n"); |
&r_print($r,'<script>'. |
|
'// <![CDATA['. |
|
'popwin.close()'. |
|
'// ]]>'. |
|
'</script>'."\n"); |
} elsif ($$prog_state{'type'} eq 'inline') { |
} elsif ($$prog_state{'type'} eq 'inline') { |
&Update_PrgWin($r,$prog_state,&mt('Done')); |
&Update_PrgWin($r,$prog_state,&mt('Done')); |
} |
} |
Line 1143 sub spellheader {
|
Line 1187 sub spellheader {
|
my $nothing=&javascript_nothing(); |
my $nothing=&javascript_nothing(); |
return (<<ENDCHECK); |
return (<<ENDCHECK); |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
//<!-- BEGIN LON-CAPA Internal |
//<!-- BEGIN LON-CAPA Internal |
var checkwin; |
var checkwin; |
|
|
Line 1153 function spellcheckerwindow(string) {
|
Line 1198 function spellcheckerwindow(string) {
|
checkwin.document.close(); |
checkwin.document.close(); |
} |
} |
// END LON-CAPA Internal --> |
// END LON-CAPA Internal --> |
|
// ]]> |
</script> |
</script> |
ENDCHECK |
ENDCHECK |
} |
} |
Line 1226 sub htmlareaselectactive {
|
Line 1272 sub htmlareaselectactive {
|
my @fields=@_; |
my @fields=@_; |
unless (&htmlareabrowser()) { return ''; } |
unless (&htmlareabrowser()) { return ''; } |
if (&htmlareablocked()) { return '<br />'.&enablelink(@fields); } |
if (&htmlareablocked()) { return '<br />'.&enablelink(@fields); } |
my $output='<script type="text/javascript" defer="1">'; |
my $output='<script type="text/javascript" defer="1">' |
|
.'// <![CDATA['; |
my $lang = &htmlarea_lang(); |
my $lang = &htmlarea_lang(); |
foreach my $field (@fields) { |
foreach my $field (@fields) { |
$output.=" |
$output.=" |
Line 1239 sub htmlareaselectactive {
|
Line 1286 sub htmlareaselectactive {
|
oFCKeditor.Config['DefaultLanguage'] = '$lang'; |
oFCKeditor.Config['DefaultLanguage'] = '$lang'; |
}"; |
}"; |
} |
} |
$output.="\nwindow.status='Activated Editfields';\n</script><br />". |
$output.="\nwindow.status='Activated Editfields';\n" |
|
.'// ]]>' |
|
.'</script><br />'. |
&disablelink(@fields); |
&disablelink(@fields); |
return $output; |
return $output; |
} |
} |
Line 1278 Inputs: $component (the large text on th
|
Line 1327 Inputs: $component (the large text on th
|
$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) |
$helplink (if 'nohelp' don't include the orange help link) |
$css_class (optional name for the class to apply to the table for CSS) |
$css_class (optional name for the class to apply to the table for CSS) |
|
$no_mt (optional flag, 1 if &mt() is _not_ to be applied to $component |
|
when including the text on the right. |
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 1303 returns: nothing
|
Line 1354 returns: nothing
|
my @Crumbs; |
my @Crumbs; |
|
|
sub breadcrumbs { |
sub breadcrumbs { |
my ($component,$component_help,$menulink,$helplink,$css_class) = @_; |
my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt, $CourseBreadcrumbs) = @_; |
# |
# |
$css_class ||= 'LC_breadcrumbs'; |
$css_class ||= 'LC_breadcrumbs'; |
my $Str = "\n".'<table class="'.$css_class.'"><tr><td><ol id="MenuBreadcrumbs">'; |
my $Str1 = '<div id="LC_head_subbox"><ol id="LC_MenuBreadcrumbs">'; |
|
|
|
if($CourseBreadcrumbs){ |
|
$Str1 = '<ul id="LC_CourseBreadcrumbs">'; |
|
} |
|
|
|
my $Str = ''; |
# |
# |
# Make the faq and bug data cascade |
# Make the faq and bug data cascade |
my $faq = ''; |
my $faq = ''; |
my $bug = ''; |
my $bug = ''; |
my $help=''; |
my $help=''; |
# Crumb Symbol |
# Crumb Symbol |
my $crumbsymbol = ' ▶ '; |
my $crumbsymbol = '» '; |
# The last breadcrumb does not have a link, so handle it separately. |
# The last breadcrumb does not have a link, so handle it separately. |
my $last = pop(@Crumbs); |
my $last = pop(@Crumbs); |
# |
# |
# The first one should be the course or a menu link |
# The first one should be the course or a menu link |
if (!defined($menulink)) { $menulink=1; } |
if (!defined($menulink)) { $menulink=1; } |
if ($menulink) { |
if ($menulink) { |
my $description = 'Menu'; |
my $description = 'Menu'; |
my $no_mt_descr = 0; |
my $no_mt_descr = 0; |
Line 1328 returns: nothing
|
Line 1385 returns: nothing
|
$env{'course.'.$env{'request.course.id'}.'.description'}; |
$env{'course.'.$env{'request.course.id'}.'.description'}; |
$no_mt_descr = 1; |
$no_mt_descr = 1; |
} |
} |
unshift(@Crumbs,{ |
$menulink = { href =>'/adm/menu', |
href =>'/adm/menu', |
title =>'Go to main menu', |
title =>'Go to main menu', |
target =>'_top', |
target =>'_top', |
text =>$description, |
text =>$description, |
no_mt =>$no_mt_descr, }; |
no_mt =>$no_mt_descr, |
if($last) { |
}); |
#$last set, so we have some crumbs |
|
unshift(@Crumbs,$menulink); |
|
} else { |
|
#only menulink crumb present |
|
$last = $menulink; |
|
} |
} |
} |
my $links .= |
my $links = join "", |
join($crumbsymbol, |
|
map { |
map { |
$faq = $_->{'faq'} if (exists($_->{'faq'})); |
$faq = $_->{'faq'} if (exists($_->{'faq'})); |
$bug = $_->{'bug'} if (exists($_->{'bug'})); |
$bug = $_->{'bug'} if (exists($_->{'bug'})); |
$help = $_->{'help'} if (exists($_->{'help'})); |
$help = $_->{'help'} if (exists($_->{'help'})); |
my $result = '<li><a href="'.$_->{'href'}.'" '; |
|
if (defined($_->{'target'}) && $_->{'target'} ne '') { |
my $result = htmltag( 'a', |
$result .= 'target="'.$_->{'target'}.'" '; |
$_->{no_mt} ? $_->{text} : mt($_->{text}), |
} |
{ |
if ($_->{'no_mt'}) { |
href => $_->{href}, |
$result .='title="'.$_->{'title'}.'">'. |
title => $_->{no_mt} ? $_->{title} : mt($_->{title}), |
$_->{'text'}.'</a></li>'; |
target => $_->{target}, |
} else { |
}); |
$result .='title="'.&mt($_->{'title'}).'">'. |
$result = htmltag( 'li', $crumbsymbol.$result); |
&mt($_->{'text'}).'</a></li>'; |
} @Crumbs; |
} |
#Workaround for edit course. |
$result; |
if(@Crumbs == 0 ){ |
} @Crumbs |
$links .= '<li>' if ($links ne ''); |
); |
} else { |
$links .= $crumbsymbol if ($links ne ''); |
$links .= '<li>'.$crumbsymbol if ($links ne ''); |
|
} |
|
#should the last Element be translated? |
if ($last->{'no_mt'}) { |
if ($last->{'no_mt'}) { |
$links .= '<li><b>'.$last->{'text'}.'</b></li>'; |
$links .= '<b>'.$last->{'text'}.'</b>'; |
} else { |
} else { |
$links .= '<li><b>'.&mt($last->{'text'}).'</b></li>'; |
$links .= '<b>'.&mt($last->{'text'}).'</b>'; |
} |
} |
# |
$links .= '</li>'; |
my $icons = ''; |
my $icons = ''; |
$faq = $last->{'faq'} if (exists($last->{'faq'})); |
$faq = $last->{'faq'} if (exists($last->{'faq'})); |
$bug = $last->{'bug'} if (exists($last->{'bug'})); |
$bug = $last->{'bug'} if (exists($last->{'bug'})); |
Line 1380 returns: nothing
|
Line 1443 returns: nothing
|
$faq,$bug); |
$faq,$bug); |
} |
} |
# |
# |
$Str .= $links.'</ol></td>'; |
|
|
|
|
if($CourseBreadcrumbs){ |
|
$Str1 .= $links.'</ul>'; |
|
} else { |
|
$Str1 .= $links.'</ol></div>'; |
|
} |
# |
# |
if (defined($component)) { |
if (defined($component)) { |
$Str .= '<td class="'.$css_class.'_component">'. |
$Str .= "\n".'<table class="'.$css_class.'">' |
&mt($component); |
.'<tr><td class="'.$css_class.'_component">'; |
|
if ($no_mt) { |
|
$Str .= $component; |
|
} else { |
|
$Str .= &mt($component); |
|
} |
if ($icons ne '') { |
if ($icons ne '') { |
$Str .= ' '.$icons; |
$Str .= ' '.$icons; |
} |
} |
$Str .= '</td>'; |
$Str .= '</td></tr></table>'."\n"; |
} |
} |
$Str .= '</tr></table>'."\n"; |
|
# |
# |
# Return the @Crumbs stack to what we started with |
# Return the @Crumbs stack to what we started with |
push(@Crumbs,$last); |
push(@Crumbs,$last); |
shift(@Crumbs); |
shift(@Crumbs); |
# |
# Return a table and after that the breadcrumb's line |
return $Str; |
return "$Str\n$Str1"; |
} |
} |
|
|
sub clear_breadcrumbs { |
sub clear_breadcrumbs { |
Line 1498 END
|
Line 1571 END
|
} |
} |
|
|
sub row_title { |
sub row_title { |
|
my ($title,$css_title_class,$css_value_class) = @_; |
$row_count[0]++; |
$row_count[0]++; |
my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row'; |
my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row'; |
my ($title,$css_title_class,$css_value_class) = @_; |
|
$css_title_class ||= 'LC_pick_box_title'; |
$css_title_class ||= 'LC_pick_box_title'; |
$css_title_class = 'class="'.$css_title_class.'"'; |
$css_title_class = 'class="'.$css_title_class.'"'; |
|
|
Line 1546 sub role_select_row {
|
Line 1619 sub role_select_row {
|
$output = &row_title($title,$css_class); |
$output = &row_title($title,$css_class); |
} |
} |
$output .= qq| |
$output .= qq| |
<select name="roles" multiple >\n|; |
<select name="roles" multiple="multiple">\n|; |
foreach my $role (@$roles) { |
foreach my $role (@$roles) { |
my $plrole; |
my $plrole; |
if ($role eq 'ow') { |
if ($role eq 'ow') { |
Line 1591 sub course_selection {
|
Line 1664 sub course_selection {
|
my ($formname,$totcodes,$codetitles,$idlist,$idlist_titles) = @_; |
my ($formname,$totcodes,$codetitles,$idlist,$idlist_titles) = @_; |
my $output = qq| |
my $output = qq| |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
function coursePick (formname) { |
function coursePick (formname) { |
for (var i=0; i<formname.coursepick.length; i++) { |
for (var i=0; i<formname.coursepick.length; i++) { |
if (formname.coursepick[i].value == 'category') { |
if (formname.coursepick[i].value == 'category') { |
Line 1613 sub course_selection {
|
Line 1687 sub course_selection {
|
formname.courselist = ''; |
formname.courselist = ''; |
} |
} |
} |
} |
|
// ]]> |
</script> |
</script> |
|; |
|; |
my $courseform='<b>'.&Apache::loncommon::selectcourse_link |
my $courseform='<b>'.&Apache::loncommon::selectcourse_link |
Line 1673 sub status_select_row {
|
Line 1748 sub status_select_row {
|
$output = &row_title($title,$css_class,'LC_pick_box_select'); |
$output = &row_title($title,$css_class,'LC_pick_box_select'); |
} |
} |
$output .= qq| |
$output .= qq| |
<select name="types" multiple>\n|; |
<select name="types" multiple="multiple">\n|; |
foreach my $status_type (sort(keys(%{$types}))) { |
foreach my $status_type (sort(keys(%{$types}))) { |
$output .= ' <option value="'.$status_type.'">'.$$types{$status_type}.'</option>'; |
$output .= ' <option value="'.$status_type.'">'.$$types{$status_type}.'</option>'; |
} |
} |
Line 1717 sub email_default_row {
|
Line 1792 sub email_default_row {
|
|
|
sub submit_row { |
sub submit_row { |
my ($title,$cmd,$submit_text,$css_class) = @_; |
my ($title,$cmd,$submit_text,$css_class) = @_; |
$submit_text = &mt($submit_text); |
|
my $output = &row_title($title,$css_class,'LC_pick_box_submit'); |
my $output = &row_title($title,$css_class,'LC_pick_box_submit'); |
$output .= qq| |
$output .= qq| |
<br /> |
<br /> |
Line 1756 sub course_custom_roles {
|
Line 1830 sub course_custom_roles {
|
# |
# |
sub topic_bar { |
sub topic_bar { |
my ($imgnum,$title) = @_; |
my ($imgnum,$title) = @_; |
return ' |
return '<div class="LC_topic_bar">' |
<div class="LC_topic_bar"> |
.'<img src="/res/adm/pages/bl_step'.$imgnum.'.gif"' |
<img alt="'.&mt('Step [_1]',$imgnum). |
.' alt="'.&mt('Step [_1]',$imgnum).'" />' |
'"src="/res/adm/pages/bl_step'.$imgnum.'.gif" /> |
.' '.$title |
<span>'.$title.'</span> |
.'</div>'; |
</div> |
|
'; |
|
} |
} |
|
|
############################################## |
############################################## |
Line 2014 END
|
Line 2086 END
|
return $scripttag; |
return $scripttag; |
} |
} |
|
|
|
|
|
# USAGE: htmltag(element, content, {attribute => value,...}); |
|
# |
|
# EXAMPLES: |
|
# - htmltag('a', 'this is an anchor', {href => 'www.example.com', |
|
# title => 'this is a title'}) |
|
# |
|
# - You might want to set up needed tags like: |
|
# |
|
# my $h3 = sub { return htmltag( "h3", @_ ) }; |
|
# |
|
# ... and use them: $h3->("This is a headline") |
|
# |
|
# - To set up a couple of tags, see sub inittags |
|
# |
|
# NOTES: |
|
# - Empty elements, such as <br/> are correctly terminated, |
|
# i.e. htmltag('br') returns <br/> |
|
# - Empty attributes (title="") are filtered out. |
|
# - The function will not check for deprecated attributes. |
|
# |
|
# OUTPUT: content enclosed in xhtml conform tags |
|
sub htmltag{ |
|
return |
|
qq|<$_[0]| |
|
. join( '', map { qq| $_="${$_[2]}{$_}"| if ${$_[2]}{$_} } keys %{ $_[2] } ) |
|
. ($_[1] ? qq|>$_[1]</$_[0]>| : qq|/>|). "\n"; |
|
}; |
|
|
|
|
|
# USAGE: inittags(@tags); |
|
# |
|
# EXAMPLES: |
|
# - my ($h1, $h2, $h3) = initTags( qw( h1 h2 h3 ) ) |
|
# $h1->("This is a headline") #Returns: <h1>This is a headline</h1> |
|
# |
|
# NOTES: See sub htmltag for further information. |
|
# |
|
# OUTPUT: List of subroutines. |
|
sub inittags { |
|
my @tags = @_; |
|
return map { my $tag = $_; |
|
sub { return htmltag( $tag, @_ ) } |
|
} @tags; |
|
} |
|
|
|
|
############################################## |
############################################## |
############################################## |
############################################## |
|
|
Line 2025 END
|
Line 2144 END
|
# An array of following structure: |
# An array of following structure: |
# ({ categorytitle => 'Categorytitle', |
# ({ categorytitle => 'Categorytitle', |
# items => [ |
# items => [ |
# { linktext => 'Text to be displayed', |
# { |
# url => 'URL the link is pointing to, i.e. /adm/site?action=dosomething', |
# linktext => 'Text to be displayed', |
|
# url => 'URL the link is pointing to, i.e. /adm/site?action=dosomething', |
# permission => 'Contains permissions as returned from lonnet::allowed(), |
# permission => 'Contains permissions as returned from lonnet::allowed(), |
# must evaluate to true in order to activate the link', |
# must evaluate to true in order to activate the link', |
# icon => 'icon filename', |
# icon => 'icon filename', |
# alttext => 'alt text for the icon', |
# alttext => 'alt text for the icon', |
# help => 'Name of the corresponding helpfile', |
# help => 'Name of the corresponding helpfile', |
Line 2047 END
|
Line 2167 END
|
# subject to change during this project. |
# subject to change during this project. |
# Don't rely on its current functionality as it might be |
# Don't rely on its current functionality as it might be |
# changed or removed. |
# changed or removed. |
# TODO: |
|
# check for empty values |
|
# -------------------------- |
# -------------------------- |
|
|
sub generate_menu { |
sub generate_menu { |
my @menu = @_; |
my @menu = @_; |
my $menu_html = qq|<div class="columnSection">|; |
# subs for specific html elements |
|
my ($h3, $div, $ul, $li, $a, $img) = inittags( qw(h3 div ul li a img) ); |
foreach my $category (@menu) { #FIXME: insert appropriate classnames for styles when they're finished. |
|
$menu_html .='<div class="ContentBoxSpecial"> |
my @categories; # each element represents the entire markup for a category |
<h3 class="hcell">'.mt($category->{'categorytitle'}).'</h3> |
|
<ul class="ListStyleNormal">'; |
foreach my $category (@menu) { |
foreach my $item ( @{ $category->{items} } ) { |
my @links; # contains the links for the current $category |
next unless $item->{'permission'}; |
foreach my $link (@{$$category{items}}) { |
$menu_html .= qq|<li class="LC_menubuttons_inline_text"><a href="$item->{'url'}" title="|.mt($item->{'linktitle'}).'">'; |
next unless $$link{permission}; |
if($item->{'icon'}){ |
|
$menu_html .= qq|<img class ="noBorder middle" src="/res/adm/pages/$item->{'icon'}" alt="|; |
# create the markup for the current $link and push it into @links. |
if($item->{'alttext'}){ |
# each entry consists of an image and a text optionally followed |
$menu_html .= $item->{'alttext'}.'"/></a>'; |
# by a help link. |
} else { #use linktext as alt text for the icon |
push @links, $li->( |
$menu_html .= qq|$item->{'linktext'}"/></a>|; |
$a->( |
} |
$img->("", { |
} |
class => "LC_noBorder LC_middle", |
$menu_html .= qq|<a href="$item->{'url'}" title="|.mt($item->{'linktitle'}).'">'; |
src => "/res/adm/pages/$$link{icon}", |
$menu_html .= mt($item->{'linktext'}).'</a>'; |
alt => mt(defined($$link{alttext}) ? |
if (exists($item->{'help'})) { |
$$link{alttext} : $$link{linktext}) |
$menu_html .= Apache::loncommon::help_open_topic($item->{'help'}); |
}), { |
} |
href => $$link{url}, |
$menu_html .= '</li>'; |
title => mt($$link{linktitle}) |
} |
}). |
$menu_html .= '</div>'; |
$a->(mt($$link{linktext}), { |
|
href => $$link{url}, |
|
title => mt($$link{linktitle}), |
|
class => "LC_menubuttons_link" |
|
}). |
|
(defined($$link{help}) ? |
|
Apache::loncommon::help_open_topic($$link{help}) : ''), |
|
{class => "LC_menubuttons_inline_text"}); |
|
} |
|
|
|
# wrap categorytitle in <h3>, concatenate with |
|
# joined and in <ul> tags wrapped @links |
|
# and wrap everything in an enclosing <div> and push it into |
|
# @categories |
|
# such that each element looks like: |
|
# <div><h3>title</h3><ul><li>...</li>...</ul></div> |
|
# the category won't be added if there aren't any links |
|
push @categories, |
|
$div->($h3->(mt($$category{categorytitle}), {class=>"LC_hcell"}). |
|
$ul->(join('' ,@links), {class =>"LC_ListStyleNormal" }), |
|
{class=>"LC_Box LC_400Box"}) if scalar(@links); |
} |
} |
$menu_html .= qq|</div>|; |
|
return $menu_html; |
|
} |
|
|
|
|
# wrap the joined @categories in another <div> (column layout) |
|
return $div->(join('', @categories), {class => "LC_columnSection"}); |
|
} |
|
|
1; |
1; |
|
|