[LON-CAPA-cvs] cvs: loncom /auth lonroles.pm /homework grades.pm /interface lonaboutme.pm lonannounce.pm loncommon.pm londocs.pm lonquickgrades.pm lonremote.pm lonrss.pm portfolio.pm
kaisler
kaisler@source.lon-capa.org
Wed, 10 Dec 2008 21:46:59 -0000
This is a MIME encoded message
--kaisler1228945619
Content-Type: text/plain
kaisler Wed Dec 10 21:46:59 2008 EDT
Modified files:
/loncom/auth lonroles.pm
/loncom/homework grades.pm
/loncom/interface lonaboutme.pm lonannounce.pm loncommon.pm
londocs.pm lonquickgrades.pm lonremote.pm
lonrss.pm portfolio.pm
Log:
Added Breadcrumbs in Sites that dose not have any
Added a parameter bread_crumbs to the start_page function, so it can handel the creation of breadcrumbs
--kaisler1228945619
Content-Type: text/plain
Content-Disposition: attachment; filename="kaisler-20081210214659.txt"
Index: loncom/auth/lonroles.pm
diff -u loncom/auth/lonroles.pm:1.212 loncom/auth/lonroles.pm:1.213
--- loncom/auth/lonroles.pm:1.212 Thu Dec 4 16:56:46 2008
+++ loncom/auth/lonroles.pm Wed Dec 10 21:46:50 2008
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# User Roles Screen
#
-# $Id: lonroles.pm,v 1.212 2008/12/04 16:56:46 bisitz Exp $
+# $Id: lonroles.pm,v 1.213 2008/12/10 21:46:50 kaisler Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -535,8 +535,9 @@
$r->send_http_header;
return OK if $r->header_only;
+ my @brcrum =[{href=>"/admmm/roles",text=>"User Roles"}];
my $swinfo=&Apache::lonmenu::rawconfig();
- my $start_page=&Apache::loncommon::start_page('User Roles');
+ my $start_page=&Apache::loncommon::start_page('User Roles',undef,{bread_crumbs=>@brcrum});
my $standby=&mt('Role selected. Please stand by.');
$standby=~s/\n/\\n/g;
my $noscript='<span class="LC_error">'.&mt('Use of LON-CAPA requires Javascript to be enabled in your web browser.').'<br />'.&mt('As this is not the case, most functionality in the system will be unavailable.').'</span><br />';
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.533 loncom/homework/grades.pm:1.534
--- loncom/homework/grades.pm:1.533 Mon Dec 8 18:25:13 2008
+++ loncom/homework/grades.pm Wed Dec 10 21:46:54 2008
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.533 2008/12/08 18:25:13 bisitz Exp $
+# $Id: grades.pm,v 1.534 2008/12/10 21:46:54 kaisler Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -8820,7 +8820,8 @@
}
$ssi_error = 0;
- $request->print(&Apache::loncommon::start_page('Grading'));
+ my @brcrum = [{href=>"/adm/grades",text=>"Grading"}];
+ $request->print(&Apache::loncommon::start_page('Grading',undef,{bread_crumbs => @brcrum}));
if ($symb eq '' && $command eq '') {
if ($env{'user.adv'}) {
if (($env{'form.codeone'}) && ($env{'form.codetwo'}) &&
Index: loncom/interface/lonaboutme.pm
diff -u loncom/interface/lonaboutme.pm:1.81 loncom/interface/lonaboutme.pm:1.82
--- loncom/interface/lonaboutme.pm:1.81 Wed Dec 10 15:58:36 2008
+++ loncom/interface/lonaboutme.pm Wed Dec 10 21:46:58 2008
@@ -1,7 +1,7 @@
# The LearningOnline Network
# "About Me" Personal Information
#
-# $Id: lonaboutme.pm,v 1.81 2008/12/10 15:58:36 ehlerst Exp $
+# $Id: lonaboutme.pm,v 1.82 2008/12/10 21:46:58 kaisler Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -167,13 +167,16 @@
if ($is_course) {
if ($target ne 'tex') {
+ my @brcrum = [{href=>"/adm/navmaps",text=>"Navigate Course Contents"},
+ {href=>"/adm/aboutme",text=>"Course Information"}];
my $start_page =
&Apache::loncommon::start_page(
"Course Information",
undef,
{'function' => $env{'forcestudent'},
'domain' => $cdom,
- 'force_register' => $env{'forceregister'},});
+ 'force_register' => $env{'forceregister'},
+ bread_crumbs => @brcrum});
$r->print($start_page);
$r->print('<h2>'.&mt('Group files').'</h2>');
&print_portfiles_link($r,$is_course);
@@ -201,6 +204,7 @@
if ($env{'form.popup'}) {
$args->{'no_nav_bar'} = 1;
}
+ $args->{'bread_crumbs'} = [{href=>"/adm/fhwfdev/$cnum/aboutme",text=>"Personal Information"}];
my $start_page =
&Apache::loncommon::start_page("Personal Information",$rss_link,$args);
$r->print($start_page);
Index: loncom/interface/lonannounce.pm
diff -u loncom/interface/lonannounce.pm:1.74 loncom/interface/lonannounce.pm:1.75
--- loncom/interface/lonannounce.pm:1.74 Tue Oct 14 13:52:23 2008
+++ loncom/interface/lonannounce.pm Wed Dec 10 21:46:58 2008
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Announce
#
-# $Id: lonannounce.pm,v 1.74 2008/10/14 13:52:23 amueller Exp $
+# $Id: lonannounce.pm,v 1.75 2008/12/10 21:46:58 kaisler Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -538,8 +538,8 @@
&dialscript().
'<font size="1">');
} else {
- $r->print(&Apache::loncommon::start_page("Announcements and Calendar",
- $js));
+ my @brcrum = [{href=>"/adm/announcements",text=>"Announcements and Calendar"}];
+ $r->print(&Apache::loncommon::start_page("Announcements and Calendar",$js,{'bread_crumbs' => @brcrum}));
}
# does this user have privileges to post, etc?
my $allowed=0;
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.712 loncom/interface/loncommon.pm:1.713
--- loncom/interface/loncommon.pm:1.712 Wed Dec 10 15:37:43 2008
+++ loncom/interface/loncommon.pm Wed Dec 10 21:46:58 2008
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.712 2008/12/10 15:37:43 muellerd Exp $
+# $Id: loncommon.pm,v 1.713 2008/12/10 21:46:58 kaisler Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -6017,11 +6017,21 @@
}
if ($args->{'js_ready'}) {
- $result = &js_ready($result);
+ $result = &js_ready($result);
}
if ($args->{'html_encode'}) {
- $result = &html_encode($result);
+ $result = &html_encode($result);
+ }
+
+ if (exists $args->{'bread_crumbs'}) {
+ &Apache::lonhtmlcommon::clear_breadcrumbs();
+ my $temp = $args->{'bread_crumbs'};
+ foreach my $crumb (@$temp){
+ &Apache::lonhtmlcommon::add_breadcrumb($crumb);
+ }
+ $result .= &Apache::lonhtmlcommon::breadcrumbs();
}
+
return $result;
}
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.317 loncom/interface/londocs.pm:1.318
--- loncom/interface/londocs.pm:1.317 Fri Nov 21 20:31:48 2008
+++ loncom/interface/londocs.pm Wed Dec 10 21:46:58 2008
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.317 2008/11/21 20:31:48 jms Exp $
+# $Id: londocs.pm,v 1.318 2008/12/10 21:46:58 kaisler Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2578,8 +2578,9 @@
}
# -------------------------------------------------------------------- Body tag
$script = '<script type="text/javascript">'."\n".$script."\n".'</script>';
+ my @brcrum = [{href=>"/adm/createuser",text=>"$type Documents"}];
$r->print(&Apache::loncommon::start_page("$type Documents", $script,
- {'force_register' => $showdoc,}).
+ {'force_register' => $showdoc, bread_crumbs => @brcrum}).
&Apache::loncommon::help_open_menu('','',273,'RAT'));
my %allfiles = ();
Index: loncom/interface/lonquickgrades.pm
diff -u loncom/interface/lonquickgrades.pm:1.43 loncom/interface/lonquickgrades.pm:1.44
--- loncom/interface/lonquickgrades.pm:1.43 Thu Oct 16 16:35:53 2008
+++ loncom/interface/lonquickgrades.pm Wed Dec 10 21:46:58 2008
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Quick Student Grades Display
#
-# $Id: lonquickgrades.pm,v 1.43 2008/10/16 16:35:53 bisitz Exp $
+# $Id: lonquickgrades.pm,v 1.44 2008/12/10 21:46:58 kaisler Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -82,7 +82,8 @@
# Header
my $title = $showPoints ? "Points Display" : "Completed Problems Display";
- $r->print(&Apache::loncommon::start_page($title));
+ my @brcrum = [{href=>"/adm/quickgrades",text => "Points Display"}];
+ $r->print(&Apache::loncommon::start_page($title,undef,{bread_crumbs => @brcrum}));
if (!$showPoints && !$notshowSPRSlink ) {
$r->print('<p>'
Index: loncom/interface/lonremote.pm
diff -u loncom/interface/lonremote.pm:1.24 loncom/interface/lonremote.pm:1.25
--- loncom/interface/lonremote.pm:1.24 Wed Mar 12 02:45:07 2008
+++ loncom/interface/lonremote.pm Wed Dec 10 21:46:58 2008
@@ -1,7 +1,7 @@
# The LearningOnline Network
# User Authentication Module
#
-# $Id: lonremote.pm,v 1.24 2008/03/12 02:45:07 raeburn Exp $
+# $Id: lonremote.pm,v 1.25 2008/12/10 21:46:58 kaisler Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -64,9 +64,12 @@
sub collapseremote {
my ($r,$lowerurl)=@_;
# -------------------------------------------------------- Menu script and info
+ my @brcrum = [{href=>"/adm/preferences",text=>"Set User Preferences"},
+ {href=>"/adm/remote?url=/adm/preferences&action=collapse",text=>"Collapse Remote Control"}];
my $start_page = &Apache::loncommon::start_page('Collapse Remote Control',
undef,
- {'no_inline_link' => 1,});
+ {'bread_crumbs' => @brcrum,
+ 'no_inline_link' => 1,});
my $end_page = &Apache::loncommon::end_page();
my $windowinfo=&Apache::lonmenu::close();
# my $switch='<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'">';
Index: loncom/interface/lonrss.pm
diff -u loncom/interface/lonrss.pm:1.39 loncom/interface/lonrss.pm:1.40
--- loncom/interface/lonrss.pm:1.39 Mon Dec 8 23:16:46 2008
+++ loncom/interface/lonrss.pm Wed Dec 10 21:46:58 2008
@@ -1,7 +1,7 @@
# The LearningOnline Network
# RSS Feeder
#
-# $Id: lonrss.pm,v 1.39 2008/12/08 23:16:46 raeburn Exp $
+# $Id: lonrss.pm,v 1.40 2008/12/10 21:46:58 kaisler Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -323,8 +323,10 @@
my $title = $displayfeedname?$displayfeedname
:"Available RSS Feeds and Blogs";
my $rss_link = &Apache::lonrss::rss_link($uname,$udom);
+ my @brcrumb = [{href=>$rss_link,text=>"Available RSS Feeds and Blogs"}];
$r->print(&Apache::loncommon::start_page($title,$rss_link,
- {'domain' => $udom,
+ {'bread_crumbs' => @brcrumb,
+ 'domain' => $udom,
'force_register' =>
$env{'form.register'}}).
&changed_js());
Index: loncom/interface/portfolio.pm
diff -u loncom/interface/portfolio.pm:1.201 loncom/interface/portfolio.pm:1.202
--- loncom/interface/portfolio.pm:1.201 Mon Dec 8 23:15:56 2008
+++ loncom/interface/portfolio.pm Wed Dec 10 21:46:58 2008
@@ -1,7 +1,7 @@
# The LearningOnline Network
# portfolio browser
#
-# $Id: portfolio.pm,v 1.201 2008/12/08 23:15:56 raeburn Exp $
+# $Id: portfolio.pm,v 1.202 2008/12/10 21:46:58 kaisler Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2245,6 +2245,7 @@
&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
# Give the LON-CAPA page header
+ my @brcrum = [{href=>"/adm/portfolio",text=>"Portfolio Manager"}];
if ($env{"form.mode"} eq 'selectfile'){
$r->print(&Apache::loncommon::start_page($title,undef,
{'only_body' => 1}));
@@ -2252,7 +2253,7 @@
$r->print(&Apache::loncommon::start_page('New role-based condition',undef,
{'no_nav_bar' => 1, }));
} else {
- $r->print(&Apache::loncommon::start_page($title));
+ $r->print(&Apache::loncommon::start_page($title,undef,{bread_crumbs => @brcrum}));
}
$r->rflush();
if (!&Apache::lonnet::usertools_access($uname,$udom,'portfolio')) {
--kaisler1228945619--