[LON-CAPA-cvs] cvs: loncom /interface lonannounce.pm loncommon.pm loncreateuser.pm londocs.pm lonhtmlcommon.pm lonnavmaps.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Mon, 26 Jun 2006 22:32:00 -0000
albertel Mon Jun 26 18:32:00 2006 EDT
Modified files:
/loncom/interface lonannounce.pm loncommon.pm loncreateuser.pm
londocs.pm lonhtmlcommon.pm lonnavmaps.pm
Log:
- morphing to use changee help_open_menu calling
Index: loncom/interface/lonannounce.pm
diff -u loncom/interface/lonannounce.pm:1.54 loncom/interface/lonannounce.pm:1.55
--- loncom/interface/lonannounce.pm:1.54 Wed Jun 7 18:30:23 2006
+++ loncom/interface/lonannounce.pm Mon Jun 26 18:31:56 2006
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Announce
#
-# $Id: lonannounce.pm,v 1.54 2006/06/07 22:30:23 albertel Exp $
+# $Id: lonannounce.pm,v 1.55 2006/06/26 22:31:56 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -50,7 +50,7 @@
my $enddateform = &Apache::lonhtmlcommon::date_setter('anno',
'enddate',
$end);
- my $help=&Apache::loncommon::help_open_menu('','Calendar Add Announcement','Calendar_Add_Announcement','',274,'Communication Tools');
+ my $help=&Apache::loncommon::help_open_menu('Calendar Add Announcement','Calendar_Add_Announcement',274,'Communication Tools');
my %lt=&Apache::lonlocal::texthash('post' => 'Post Announcement',
'start' => 'Starting date',
'end' => 'Ending date',
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.400 loncom/interface/loncommon.pm:1.401
--- loncom/interface/loncommon.pm:1.400 Mon Jun 26 18:12:29 2006
+++ loncom/interface/loncommon.pm Mon Jun 26 18:31:56 2006
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.400 2006/06/26 22:12:29 albertel Exp $
+# $Id: loncommon.pm,v 1.401 2006/06/26 22:31:56 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2926,7 +2926,7 @@
$lastitem = $thisdisfn;
}
$titleinfo =
- &Apache::loncommon::help_open_menu('','','','',3,'Authoring').
+ &Apache::loncommon::help_open_menu('','',3,'Authoring').
'<b>Construction Space</b>: '.
'<form name="dirs" method="post" action="'.$formaction
.'" target="_top"><tt><b>'
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.121 loncom/interface/loncreateuser.pm:1.122
--- loncom/interface/loncreateuser.pm:1.121 Mon Jun 26 17:36:53 2006
+++ loncom/interface/loncreateuser.pm Mon Jun 26 18:31:56 2006
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Create a user
#
-# $Id: loncreateuser.pm,v 1.121 2006/06/26 21:36:53 foxr Exp $
+# $Id: loncreateuser.pm,v 1.122 2006/06/26 22:31:56 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -142,7 +142,7 @@
'nr' => "Name of Role",
'cre' => "Custom Role Editor"
);
- my $help = &Apache::loncommon::help_open_menu('',undef,undef,'',282,'Instructor Interface');
+ my $help = &Apache::loncommon::help_open_menu(undef,undef,282,'Instructor Interface');
my $helpsiur=&Apache::loncommon::help_open_topic('Course_Change_Privileges');
my $helpecpr=&Apache::loncommon::help_open_topic('Course_Editing_Custom_Roles');
$r->print(<<"ENDDOCUMENT");
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.232 loncom/interface/londocs.pm:1.233
--- loncom/interface/londocs.pm:1.232 Mon Jun 19 05:40:17 2006
+++ loncom/interface/londocs.pm Mon Jun 26 18:31:56 2006
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.232 2006/06/19 09:40:17 www Exp $
+# $Id: londocs.pm,v 1.233 2006/06/26 22:31:56 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2207,7 +2207,7 @@
$script = '<script type="text/javascript">'."\n".$script."\n".'</script>';
$r->print(&Apache::loncommon::start_page("$type Documents", $script,
{'force_register' => $showdoc,}).
- &Apache::loncommon::help_open_menu('','','','',273,'RAT'));
+ &Apache::loncommon::help_open_menu('','',273,'RAT'));
my %allfiles = ();
my %codebase = ();
Index: loncom/interface/lonhtmlcommon.pm
diff -u loncom/interface/lonhtmlcommon.pm:1.136 loncom/interface/lonhtmlcommon.pm:1.137
--- loncom/interface/lonhtmlcommon.pm:1.136 Thu Jun 22 19:22:41 2006
+++ loncom/interface/lonhtmlcommon.pm Mon Jun 26 18:31:56 2006
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common html routines
#
-# $Id: lonhtmlcommon.pm,v 1.136 2006/06/22 23:22:41 albertel Exp $
+# $Id: lonhtmlcommon.pm,v 1.137 2006/06/26 22:31:56 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1266,9 +1266,9 @@
# $icons .= &Apache::loncommon::help_open_bug($bug);
# }
if ($helplink ne 'nohelp') {
- $icons .= &Apache::loncommon::help_open_menu(undef,$component,
+ $icons .= &Apache::loncommon::help_open_menu($component,
$component_help,
- undef,$faq,$bug);
+ $faq,$bug);
}
if ($icons ne '') {
$Str .= $icons.' ';
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.387 loncom/interface/lonnavmaps.pm:1.388
--- loncom/interface/lonnavmaps.pm:1.387 Mon Jun 5 13:55:59 2006
+++ loncom/interface/lonnavmaps.pm Mon Jun 26 18:31:56 2006
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Navigate Maps Handler
#
-# $Id: lonnavmaps.pm,v 1.387 2006/06/05 17:55:59 albertel Exp $
+# $Id: lonnavmaps.pm,v 1.388 2006/06/26 22:31:56 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -273,9 +273,9 @@
# Check that it's defined
if (!($navmap->courseMapDefined())) {
- $r->print(&Apache::loncommon::help_open_menu('','Navigation Screen','Navigation_Screen','',undef,'RAT'));
- $r->print('<font size="+2" color="red">'.&mt('Coursemap undefined.').
- '</font>' .
+ $r->print(&Apache::loncommon::help_open_menu('Navigation Screen','Navigation_Screen',undef,'RAT'));
+ $r->print('<span class="LC_error">'.&mt('Coursemap undefined.').
+ '</span>' .
&Apache::loncommon::end_page());
return OK;
}
@@ -1474,7 +1474,7 @@
$navmap = Apache::lonnavmaps::navmap->new();
if (!defined($navmap)) {
# no londer in course
- return '<font color="red">'.&mt('No course selected').'</font><br />
+ return '<span class="LC_error">'.&mt('No course selected').'</span><br />
<a href="/adm/roles">'.&mt('Select a course').'</a><br />';
}
}
@@ -1663,7 +1663,7 @@
if ($args->{'caller'} eq 'navmapsdisplay') {
$result .= '<table><tr><td>'.
- &Apache::loncommon::help_open_menu('','Navigation Screen','Navigation_Screen','',undef,'RAT').'</td>';
+ &Apache::loncommon::help_open_menu('Navigation Screen','Navigation_Screen',undef,'RAT').'</td>';
if ($env{'environment.remotenavmap'} ne 'on') {
$result .= '<td> </td>';
} else {