[LON-CAPA-cvs] cvs: loncom /interface loncoursegroups.pm londocs.pm londropadd.pm lonmsgdisplay.pm lonnotify.pm lonparmset.pm lonpreferences.pm lonsearchcat.pm lonstatistics.pm lontrackstudent.pm lonwhatsnew.pm

albertel lon-capa-cvs@mail.lon-capa.org
Mon, 01 May 2006 19:37:34 -0000


This is a MIME encoded message

--albertel1146512254
Content-Type: text/plain

albertel		Mon May  1 15:37:34 2006 EDT

  Modified files:              
    /loncom/interface	loncoursegroups.pm londocs.pm londropadd.pm 
                     	lonmsgdisplay.pm lonnotify.pm lonparmset.pm 
                     	lonpreferences.pm lonsearchcat.pm 
                     	lonstatistics.pm lontrackstudent.pm 
                     	lonwhatsnew.pm 
  Log:
  - upadte breadcrumbs calls
  
  
--albertel1146512254
Content-Type: text/plain
Content-Disposition: attachment; filename="albertel-20060501153734.txt"

Index: loncom/interface/loncoursegroups.pm
diff -u loncom/interface/loncoursegroups.pm:1.13 loncom/interface/loncoursegroups.pm:1.14
--- loncom/interface/loncoursegroups.pm:1.13	Mon Apr 10 15:59:53 2006
+++ loncom/interface/loncoursegroups.pm	Mon May  1 15:37:33 2006
@@ -106,8 +106,7 @@
     &Apache::lonhtmlcommon::add_breadcrumb
         ({href=>"/adm/coursegroups",
           text=>"Course Groups",});
-    $r->print(&Apache::lonhtmlcommon::breadcrumbs
-              (undef,'Course Groups'));
+    $r->print(&Apache::lonhtmlcommon::breadcrumbs('Course Groups'));
     &display_groups($r,$cdom,$cnum,$function,$tabcol,$functions,$idx,
                     $view_permission,$manage_permission,$action,$rowColor1,
                     $rowColor2);
@@ -772,7 +771,7 @@
                 &Apache::lonhtmlcommon::add_breadcrumb(
                    {text=>"$trail{$action}{$state}"});
                 $r->print(&Apache::lonhtmlcommon::breadcrumbs
-                     (undef,'Course Groups Manager'));
+			  ('Course Groups Manager'));
                 &display_control($r,$cdom,$cnum,$tabcol,$action,$state,$page,
                        \%sectioncount,$groupname,$description,$functions,
                        \@tools,\%toolprivs,\%fixedprivs,$startdate,$enddate,
@@ -797,7 +796,7 @@
                         &Apache::lonhtmlcommon::add_breadcrumb(
                    {text=>"View groups"});
         $r->print(&Apache::lonhtmlcommon::breadcrumbs
-                     (undef,'Course Groups Manager'));
+		  ('Course Groups Manager'));
         &display_groups($r,$cdom,$cnum,$function,$tabcol,$functions,$idx,
                         $view_permission,$manage_permission,$action,
                         $rowColor1,$rowColor2);
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.225 loncom/interface/londocs.pm:1.226
--- loncom/interface/londocs.pm:1.225	Mon Apr 10 15:59:53 2006
+++ loncom/interface/londocs.pm	Mon May  1 15:37:33 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.225 2006/04/10 19:59:53 albertel Exp $
+# $Id: londocs.pm,v 1.226 2006/05/01 19:37:33 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -970,8 +970,7 @@
 		       
 						 
     }
-    return &Apache::lonhtmlcommon::breadcrumbs(undef,undef,undef,undef,undef,
-					       0,'nohelp');
+    return &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0,'nohelp');
 }
 
 sub editor {
Index: loncom/interface/londropadd.pm
diff -u loncom/interface/londropadd.pm:1.140 loncom/interface/londropadd.pm:1.141
--- loncom/interface/londropadd.pm:1.140	Wed Apr 26 10:52:22 2006
+++ loncom/interface/londropadd.pm	Mon May  1 15:37:33 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to drop and add students in courses 
 #
-# $Id: londropadd.pm,v 1.140 2006/04/26 14:52:22 albertel Exp $
+# $Id: londropadd.pm,v 1.141 2006/05/01 19:37:33 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2388,16 +2388,15 @@
     #
     # Main switch on form.action and form.state, as appropriate
     if (! exists($env{'form.action'})) {
-        $r->print(&Apache::lonhtmlcommon::breadcrumbs
-                  (undef,'Enrollment Manager'));
+        $r->print(&Apache::lonhtmlcommon::breadcrumbs('Enrollment Manager'));
         &print_main_menu($r,$enrl_permission,$view_permission,$grp_manage_permission,
                          $grp_view_permission);
     } elsif ($env{'form.action'} eq 'upload' && $enrl_permission) {
         &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/dropadd?action=upload&state=',
               text=>"Upload Classlist"});
-        $r->print(&Apache::lonhtmlcommon::breadcrumbs
-                  (undef,'Upload Classlist','Course_Create_Class_List'));
+        $r->print(&Apache::lonhtmlcommon::breadcrumbs('Upload Classlist',
+						      'Course_Create_Class_List'));
         if (! exists($env{'form.state'})) {
             &print_first_courselist_upload_form($r);            
         } elsif ($env{'form.state'} eq 'got_file') {
@@ -2415,8 +2414,8 @@
         &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/dropadd?action=drop',
               text=>"Drop Students"});
-        $r->print(&Apache::lonhtmlcommon::breadcrumbs
-                  (undef,'Drop Students','Course_Drop_Student'));
+        $r->print(&Apache::lonhtmlcommon::breadcrumbs('Drop Students',
+						      'Course_Drop_Student'));
         if (! exists($env{'form.state'})) {
             &print_drop_menu($r);
         } elsif ($env{'form.state'} eq 'done') {
@@ -2428,8 +2427,8 @@
         &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/dropadd?action=enrollstudent',
               text=>"Enroll Student"});
-        $r->print(&Apache::lonhtmlcommon::breadcrumbs
-                  (undef,'Enroll Student','Course_Add_Student'));
+        $r->print(&Apache::lonhtmlcommon::breadcrumbs('Enroll Student',
+						      'Course_Add_Student'));
         if (! exists($env{'form.state'})) {
             &get_student_username_domain_form($r);
         } elsif ($env{'form.state'} eq 'gotusername') {
@@ -2443,8 +2442,8 @@
         &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/dropadd?action=classlist',
               text=>"View Classlist"});
-        $r->print(&Apache::lonhtmlcommon::breadcrumbs
-                  (undef,'View Classlist','Course_View_Class_List'));
+        $r->print(&Apache::lonhtmlcommon::breadcrumbs('View Classlist',
+						      'Course_View_Class_List'));
         if (! exists($env{'form.state'})) {
             &print_html_classlist($r,undef);
         } elsif ($env{'form.state'} eq 'csv') {
@@ -2458,8 +2457,8 @@
         &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/dropadd?action=modifystudent',
               text=>"Modify Student Data"});
-        $r->print(&Apache::lonhtmlcommon::breadcrumbs
-                  (undef,'Modify Student Data','Course_Modify_Student_Data'));
+        $r->print(&Apache::lonhtmlcommon::breadcrumbs('Modify Student Data',
+						      'Course_Modify_Student_Data'));
         if (! exists($env{'form.state'})) {
             &print_html_classlist($r);
         } elsif ($env{'form.state'} eq 'selected') {
@@ -2474,8 +2473,7 @@
         &Apache::lonnet::logthis("Undetermined state in londropadd.pm.  ".
                                  "form.action = ".$env{'form.action'}.
                                  "Someone should fix this.");
-        $r->print(&Apache::lonhtmlcommon::breadcrumbs
-                  (undef,'Enrollment Manager'));
+        $r->print(&Apache::lonhtmlcommon::breadcrumbs('Enrollment Manager'));
         &print_main_menu($r,$enrl_permission,$view_permission);
     }
     #
Index: loncom/interface/lonmsgdisplay.pm
diff -u loncom/interface/lonmsgdisplay.pm:1.21 loncom/interface/lonmsgdisplay.pm:1.22
--- loncom/interface/lonmsgdisplay.pm:1.21	Mon May  1 12:17:56 2006
+++ loncom/interface/lonmsgdisplay.pm	Mon May  1 15:37:33 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging display
 #
-# $Id: lonmsgdisplay.pm,v 1.21 2006/05/01 16:17:56 albertel Exp $
+# $Id: lonmsgdisplay.pm,v 1.22 2006/05/01 19:37:33 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1654,7 +1654,7 @@
     $r->print(&Apache::loncommon::start_page('Communication and Messages',
 					     $extra));
     $r->print(&Apache::lonhtmlcommon::breadcrumbs
-	      (undef,($title?$title:'Communication and Messages')));
+	      (($title?$title:'Communication and Messages')));
 
 }
 
Index: loncom/interface/lonnotify.pm
diff -u loncom/interface/lonnotify.pm:1.17 loncom/interface/lonnotify.pm:1.18
--- loncom/interface/lonnotify.pm:1.17	Sun Apr 23 00:04:38 2006
+++ loncom/interface/lonnotify.pm	Mon May  1 15:37:33 2006
@@ -109,7 +109,7 @@
 				       {'add_entries' => 
 					    {'onload' => $loadcode,},});
     my $breadcrumbs =
-	&Apache::lonhtmlcommon::breadcrumbs(undef,$bread_title,
+	&Apache::lonhtmlcommon::breadcrumbs($bread_title,
 					    'Broadcast_system_email');
     my $output = <<"ENDONE";
 $start_page
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.297 loncom/interface/lonparmset.pm:1.298
--- loncom/interface/lonparmset.pm:1.297	Mon May  1 10:59:38 2006
+++ loncom/interface/lonparmset.pm	Mon May  1 15:37:33 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.297 2006/05/01 14:59:38 raeburn Exp $
+# $Id: lonparmset.pm,v 1.298 2006/05/01 19:37:33 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -649,8 +649,7 @@
 				       &page_js(),
 				       {'add_entries' => \%loaditems,});
     my $breadcrumbs = 
-	&Apache::lonhtmlcommon::breadcrumbs(undef,
-					    'Table Mode Parameter Setting');
+	&Apache::lonhtmlcommon::breadcrumbs('Table Mode Parameter Setting');
     $r->print(<<ENDHEAD);
 $start_page
 $breadcrumbs
@@ -1984,8 +1983,8 @@
     my $r=shift;
     my $setoutput='';
 
-    my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,
-						    'Edit Course Environment');
+    my $breadcrumbs = 
+	&Apache::lonhtmlcommon::breadcrumbs('Edit Course Environment');
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
 
@@ -2647,7 +2646,7 @@
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
     my $start_page = &Apache::loncommon::start_page('Set Parameters');
-    my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Overview');
+    my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview');
     $r->print(<<ENDOVER);
 $start_page
 $breadcrumbs
@@ -2801,7 +2800,7 @@
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
 
     my $start_page=&Apache::loncommon::start_page('Modify Parameters');
-    my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Overview');
+    my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview');
     $r->print(<<ENDOVER);
 $start_page
 $breadcrumbs
@@ -3091,8 +3090,7 @@
     my $put_result;
     
     $r->print(&Apache::loncommon::start_page('Restrict Metadata'));
-    $r->print(&Apache::lonhtmlcommon::breadcrumbs(undef,
-						    'Restrict Metadata'));
+    $r->print(&Apache::lonhtmlcommon::breadcrumbs('Restrict Metadata'));
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
     my $key_base = $env{'course.'.$env{'request.course.id'}.'.'};
@@ -3149,7 +3147,7 @@
 
     my $start_page = 
 	&Apache::loncommon::start_page('Parameter Setting Default Actions');
-    my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Defaults');
+    my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Defaults');
     $r->print(<<ENDDEFHEAD);
 $start_page
 $breadcrumbs
@@ -3500,8 +3498,7 @@
 
         } elsif (! exists($env{'form.action'})) {
             $r->print(&header());
-            $r->print(&Apache::lonhtmlcommon::breadcrumbs(undef,
-							 'Parameter Manager'));
+            $r->print(&Apache::lonhtmlcommon::breadcrumbs('Parameter Manager'));
             &print_main_menu($r,$parm_permission);
         } elsif ($env{'form.action'} eq 'crsenv' && $parm_permission) {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=crsenv',
Index: loncom/interface/lonpreferences.pm
diff -u loncom/interface/lonpreferences.pm:1.80 loncom/interface/lonpreferences.pm:1.81
--- loncom/interface/lonpreferences.pm:1.80	Mon Apr 10 14:59:30 2006
+++ loncom/interface/lonpreferences.pm	Mon May  1 15:37:34 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Preferences
 #
-# $Id: lonpreferences.pm,v 1.80 2006/04/10 18:59:30 albertel Exp $
+# $Id: lonpreferences.pm,v 1.81 2006/05/01 19:37:34 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1246,8 +1246,7 @@
 	    $help=$option->{'help'};
         }
     }
-    $r->print(&Apache::lonhtmlcommon::breadcrumbs
-              (undef,'Change Preferences',$help));
+    $r->print(&Apache::lonhtmlcommon::breadcrumbs('Change Preferences',$help));
     my $error;
     if (defined($call)) {
         $error = $call->($r);
Index: loncom/interface/lonsearchcat.pm
diff -u loncom/interface/lonsearchcat.pm:1.262 loncom/interface/lonsearchcat.pm:1.263
--- loncom/interface/lonsearchcat.pm:1.262	Tue Apr 11 15:53:11 2006
+++ loncom/interface/lonsearchcat.pm	Mon May  1 15:37:34 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Search Catalog
 #
-# $Id: lonsearchcat.pm,v 1.262 2006/04/11 19:53:11 albertel Exp $
+# $Id: lonsearchcat.pm,v 1.263 2006/05/01 19:37:34 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -660,9 +660,8 @@
     my ($r,$closebutton,$hidden_fields) = @_;
     my $result = ($env{'form.catalogmode'} ne 'groupsearch');
     my $bread_crumb =
-        &Apache::lonhtmlcommon::breadcrumbs(undef,'Searching','Search_Basic',
-                                   undef,undef,
-                                   $env{'form.catalogmode'} ne 'groupsearch');
+        &Apache::lonhtmlcommon::breadcrumbs('Searching','Search_Basic',
+					    $env{'form.catalogmode'} ne 'groupsearch');
     my $scrout = &Apache::loncommon::start_page('Search').$bread_crumb;
     if (&Apache::lonnet::allowed('bre',$env{'request.role.domain'})) {
         # Define interface components
@@ -794,10 +793,8 @@
 sub print_advanced_search_form{
     my ($r,$closebutton,$hidden_fields) = @_;
     my $bread_crumb = 
-        &Apache::lonhtmlcommon::breadcrumbs(undef,'Searching',
-                                            'Search_Advanced',
-                                            undef,undef,
-                                  $env{'form.catalogmode'} ne 'groupsearch');
+        &Apache::lonhtmlcommon::breadcrumbs('Searching','Search_Advanced',
+					    $env{'form.catalogmode'} ne 'groupsearch');
     my %lt=&Apache::lonlocal::texthash('srch' => 'Search',
 				       'reset' => 'Reset',
 				       'help' => 'Help');
@@ -2109,9 +2106,8 @@
     my $start_page = &Apache::loncommon::start_page('Results',$js,
 						    {'only_body' => 1});
     my $breadcrumbs=
-        &Apache::lonhtmlcommon::breadcrumbs
-        (undef,'Searching','Searching',undef,undef,
-         $env{'form.catalogmode'} ne 'groupsearch');
+        &Apache::lonhtmlcommon::breadcrumbs('Searching','Searching',
+					    $env{'form.catalogmode'} ne 'groupsearch');
 
     my $result = <<END;
 $start_page
@@ -2339,9 +2335,9 @@
     #
     my $start_page = &Apache::loncommon::start_page('Search Status',undef,
 						    {'only_body' => 1});
-    my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs
-        (undef,'Searching','Searching',undef,undef,
-         $env{'form.catalogmode'} ne 'groupsearch');
+    my $breadcrumbs =
+	&Apache::lonhtmlcommon::breadcrumbs('Searching','Searching',
+					    $env{'form.catalogmode'} ne 'groupsearch');
     $r->print(<<END);
 $start_page
 $breadcrumbs
Index: loncom/interface/lonstatistics.pm
diff -u loncom/interface/lonstatistics.pm:1.131 loncom/interface/lonstatistics.pm:1.132
--- loncom/interface/lonstatistics.pm:1.131	Mon May  1 12:11:25 2006
+++ loncom/interface/lonstatistics.pm	Mon May  1 15:37:34 2006
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstatistics.pm,v 1.131 2006/05/01 16:11:25 albertel Exp $
+# $Id: lonstatistics.pm,v 1.132 2006/05/01 19:37:34 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -922,7 +922,7 @@
     #
     # Output some of the standard interface components
     my $Str;
-    $Str .= &Apache::lonhtmlcommon::breadcrumbs(undef,'Select One Student');
+    $Str .= &Apache::lonhtmlcommon::breadcrumbs('Select One Student');
     $Str .= '<p><table cellspacing="5">'."\n";
     $Str .= '<tr>';
     $Str .= '<th align="center"><b>'.&mt('Sections').'</b></th>';
@@ -1163,8 +1163,7 @@
                                             bug=>'Statistics and Charts'});
     if (! exists($env{'form.reportSelected'}) || 
         $env{'form.reportSelected'} eq '') {
-        $r->print(&Apache::lonhtmlcommon::breadcrumbs
-                  (undef,&mt('Statistics Main Page')).
+        $r->print(&Apache::lonhtmlcommon::breadcrumbs('Statistics Main Page').
                   &CreateMainMenu());
     } else {
     #
Index: loncom/interface/lontrackstudent.pm
diff -u loncom/interface/lontrackstudent.pm:1.18 loncom/interface/lontrackstudent.pm:1.19
--- loncom/interface/lontrackstudent.pm:1.18	Wed Mar 15 14:41:26 2006
+++ loncom/interface/lontrackstudent.pm	Mon May  1 15:37:34 2006
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lontrackstudent.pm,v 1.18 2006/03/15 19:41:26 albertel Exp $
+# $Id: lontrackstudent.pm,v 1.19 2006/05/01 19:37:34 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -511,7 +511,7 @@
     #
     # Give the LON-CAPA page header
     $r->print(&Apache::loncommon::start_page('Student Activity',&styles()).
-              &Apache::lonhtmlcommon::breadcrumbs(undef,'Student Activity'));
+              &Apache::lonhtmlcommon::breadcrumbs('Student Activity'));
     $r->rflush();
     #
     # Begin form output
Index: loncom/interface/lonwhatsnew.pm
diff -u loncom/interface/lonwhatsnew.pm:1.53 loncom/interface/lonwhatsnew.pm:1.54
--- loncom/interface/lonwhatsnew.pm:1.53	Sun Apr 23 00:04:38 2006
+++ loncom/interface/lonwhatsnew.pm	Mon May  1 15:37:34 2006
@@ -1,5 +1,5 @@
 #
-# $Id: lonwhatsnew.pm,v 1.53 2006/04/23 04:04:38 albertel Exp $
+# $Id: lonwhatsnew.pm,v 1.54 2006/05/01 19:37:34 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -100,32 +100,32 @@
             ({href=>'/adm/whatsnew?command=chgthreshold&refpage='.$refpage,
               text=>"Change thresholds"});
         $r->print(&Apache::lonhtmlcommon::breadcrumbs
-            (undef,"What's New?",#'Course_Action_Items_Thresholds'
+            ("What's New?",#'Course_Action_Items_Thresholds'
 	     ));
     } elsif (($command eq 'chginterval') && $checkallowed{'versionchanges'} ) {
         &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/whatsnew?command=chginterval&refpage='.$refpage,
               text=>"Change interval"});
         $r->print(&Apache::lonhtmlcommon::breadcrumbs
-            (undef,"What's New?",#'Course_Action_Items_Intervals'
+            ("What's New?",#'Course_Action_Items_Intervals'
 	     ));
     } elsif (($command eq 'chgdisc') && $checkallowed{'coursediscussion'}) {
         &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/whatsnew?command=chgdisc&refpage='.$refpage,
               text=>"Change discussion display"});
         $r->print(&Apache::lonhtmlcommon::breadcrumbs
-            (undef,"What's New?",#'Course_Action_Items_Intervals'
+            ("What's New?",#'Course_Action_Items_Intervals'
 	     ));
     } elsif ($command eq 'courseinit') {
         &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/whatsnew?command=courseinit&refpage='.$refpage,
               text=>"Course initialization preference"});
         $r->print(&Apache::lonhtmlcommon::breadcrumbs
-            (undef,"What's New?",#'Course_Action_Items_Initialization'
+            ("What's New?",#'Course_Action_Items_Initialization'
 	     ));
     } else {
         $r->print(&Apache::lonhtmlcommon::breadcrumbs
-            (undef,"What's New?",#'Course_Action_Items_Display'
+            ("What's New?",#'Course_Action_Items_Display'
 	     ));
     }
     &display_main_box($r,$command,$refpage,\%checkallowed);

--albertel1146512254--