--- loncom/interface/londocs.pm 2006/11/13 17:20:29 1.251 +++ loncom/interface/londocs.pm 2006/11/27 21:20:29 1.257 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.251 2006/11/13 17:20:29 www Exp $ +# $Id: londocs.pm,v 1.257 2006/11/27 21:20:29 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -147,6 +147,7 @@ sub dumpcourse { my $type = &Apache::loncommon::course_type(); $r->print(&Apache::loncommon::start_page('Dump '.$type.' DOCS to Construction Space'). '
'); + $r->print(&Apache::lonhtmlcommon::breadcrumbs('Dump '.$type.' DOCS to Construction Space')); my ($home,$other,%outhash)=&authorhosts(); unless ($home) { return ''; } my $origcrsid=$env{'request.course.id'}; @@ -315,6 +316,7 @@ sub exportcourse { } } $r->print(&Apache::loncommon::start_page('Export '.lc($type).' to IMS content package')); + $r->print(&Apache::lonhtmlcommon::breadcrumbs('Export '.lc($type).' to IMS content package')); $r->print($outcome); $r->print(&Apache::loncommon::end_page()); } else { @@ -456,6 +458,7 @@ function containerCheck(item) { |; $r->print(&Apache::loncommon::start_page('Export '.lc($type).' to IMS content package', $scripttag)); + $r->print(&Apache::lonhtmlcommon::breadcrumbs('Export '.lc($type).' to IMS content package')); $r->print($display.''. '

'. ''. ''); - + my %saveable_parameters = ('show' => 'scalar',); &Apache::loncommon::store_course_settings('docs_log', \%saveable_parameters); &Apache::loncommon::restore_course_settings('docs_log', \%saveable_parameters); if (!$env{'form.show'}) { $env{'form.show'}=10; } - + my %lt=('hiddenresource' => 'Resources hidden', + 'encrypturl' => 'URL hidden', + 'randompick' => 'Randomly pick', + 'set' => 'set to', + 'del' => 'deleted'); + my $countselect = &Apache::lonmeta::selectbox('show',$env{'form.show'},undef, (&mt('all'),10,20,50,100,1000,10000)); - + $r->print(''.&mt('[_1] Records',$countselect).''. '

'); $r->print(&Apache::loncommon::start_data_table().&Apache::loncommon::start_data_table_header_row(). @@ -1125,9 +1130,16 @@ sub docs_change_log { my $oldname=(split(/\:/,$docslog{$id}{'logentry'}{'before_resources_'.$idx}))[0]; my $newname=(split(/\:/,$docslog{$id}{'logentry'}{'after_resources_'.$idx}))[0]; if ($oldname ne $newname) { - $r->print(&LONCAPA::map::qtunescape($oldname)); + $r->print(&LONCAPA::map::qtescape($oldname)); } } + $r->print(''); # After $r->print(''); @@ -1135,9 +1147,28 @@ sub docs_change_log { my $oldname=(split(/\:/,$docslog{$id}{'logentry'}{'before_resources_'.$idx}))[0]; my $newname=(split(/\:/,$docslog{$id}{'logentry'}{'after_resources_'.$idx}))[0]; if ($oldname ne $newname) { - $r->print(&LONCAPA::map::qtunescape($newname)); + $r->print(&LONCAPA::map::qtescape($newname)); } } + $r->print(''); + if ($docslog{$id}{'logentry'}{'parameter_res'}) { + $r->print(&LONCAPA::map::qtescape((split(/\:/,$docslog{$id}{'logentry'}{'parameter_res'}))[0]).':'); + } # End $r->print(''.&Apache::loncommon::end_data_table_row()); $shown++; @@ -1958,6 +1989,7 @@ sub list_symbs { my ($r) = @_; $r->print(&Apache::loncommon::start_page('Symb List')); + $r->print(&Apache::lonhtmlcommon::breadcrumbs('Symb List')); my $navmap = Apache::lonnavmaps::navmap->new(); $r->print("
\n");
     foreach my $res ($navmap->retrieveResources()) {
@@ -1977,6 +2009,7 @@ sub verifycontent {
    my $loaderror=&Apache::lonnet::overloaderror($r);
    if ($loaderror) { return $loaderror; }
    $r->print(&Apache::loncommon::start_page('Verify '.$type.' Documents'));
+   $r->print(&Apache::lonhtmlcommon::breadcrumbs('Verify '.$type.' Documents'));
    $hashtied=0;
    undef %alreadyseen;
    %alreadyseen=();
@@ -2012,6 +2045,7 @@ sub checkversions {
     my ($r) = @_;
     my $type = &Apache::loncommon::course_type();
     $r->print(&Apache::loncommon::start_page("Check $type Document Versions"));
+    $r->print(&Apache::lonhtmlcommon::breadcrumbs("Check $type Document Versions"));
     my $header='';
     my $startsel='';
     my $monthsel='';
@@ -2303,6 +2337,22 @@ sub changewarning {
 $help{'Caching'}.''."\n\n");
 }
 
+# =========================================== Breadcrumbs for special functions
+
+sub init_breadcrumbs {
+    my ($form,$text)=@_;
+    &Apache::lonhtmlcommon::clear_breadcrumbs();
+    &Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/coursedocs",
+					    text=>&Apache::loncommon::course_type()." Documents",
+					    faq=>273,
+					    bug=>'Instructor Interface',
+                                            help => 'Docs_Adding_Course_Doc'});
+    &Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/coursedocs?".$form.'=1',
+					    text=>$text,
+					    faq=>273,
+					    bug=>'Instructor Interface'});
+}
+
 # ================================================================ Main Handler
 sub handler {
     my $r = shift;
@@ -2331,22 +2381,28 @@ sub handler {
 		    'Docs_About_Bulletin_Board,Docs_Editing_Templated_Pages');
     $help{'My Personal Info'} = &Apache::loncommon::help_open_topic(
 		  'Docs_About_My_Personal_Info,Docs_Editing_Templated_Pages');
+    $help{'Group Files'} = &Apache::loncommon::help_open_topic('Docs_About_Group_Files');
     $help{'Caching'} = &Apache::loncommon::help_open_topic('Caching');
 
 # does this user have privileges to modify docs
     my $allowed=&Apache::lonnet::allowed('mdc',$env{'request.course.id'});
-
   if ($allowed && $env{'form.verify'}) {
+      &init_breadcrumbs('verify','Verify Content');
       &verifycontent($r);
   } elsif ($allowed && $env{'form.listsymbs'}) {
+      &init_breadcrumbs('listsymbs','List Symbs');
       &list_symbs($r);
   } elsif ($allowed && $env{'form.docslog'}) {
+      &init_breadcrumbs('docslog','Show Log');
       &docs_change_log($r);
   } elsif ($allowed && $env{'form.versions'}) {
+      &init_breadcrumbs('versions','Check/Set Resource Versions');
       &checkversions($r);
   } elsif ($allowed && $env{'form.dumpcourse'}) {
+      &init_breadcrumbs('dumpcourse','Dump '.&Apache::loncommon::course_type().' DOCS to Construction Space');
       &dumpcourse($r);
   } elsif ($allowed && $env{'form.exportcourse'}) {
+      &init_breadcrumbs('exportcourse','Export '.&Apache::loncommon::course_type().' to IMS');
       &exportcourse($r);
   } else {
 # is this a standard course?
@@ -2525,6 +2581,7 @@ sub handler {
                 'scuf' => 'Score Upload Form',
                 'bull' => 'Bulletin Board',
                 'mypi' => 'My Personal Info',
+                'grpo' => 'Group Files',
 		'abou' => 'About User',
                 'imsf' => 'Import IMS package',
                 'file' =>  'File',
@@ -2564,7 +2621,7 @@ sub handler {
 $containertag
 
 

-
+
 $uploadtag
 

 

@@ -2678,7 +2735,7 @@ ENDFORM
 

 
 $uploadtag
-
+
 
  $help{'Adding_External_Resource'}
@@ -2696,7 +2753,7 @@ ENDFORM
            $r->print(<
 
-
+
 
 $help{'Adding_Fold
 
 

 
-
+
 
 $help{'Adding_Page
 
 

 $uploadtag
-
+
 
  
  $help{'Syllabus'}
@@ -2723,8 +2780,8 @@ value="Syllabus=/public/$coursedom/$cour
 
 

 $uploadtag
-
+
 
 
 $help{'Navigate_Content'}
@@ -2732,7 +2789,7 @@ $help{'Navigate_Content'}
 
 

 $uploadtag
-
+
 
  $help{'Simple Page'}
@@ -2740,7 +2797,7 @@ onClick="javascript:makesmppage();" /> $
 
 

 $uploadtag
-
+
 
 $help{'Simple Problem'}
@@ -2748,7 +2805,7 @@ onClick="javascript:makesmpproblem();" /
 
 

 $uploadtag      
-
+
           
 
@@ -2756,7 +2813,7 @@ onClick="javascript:makedropbox();" />
  
 

 $uploadtag
-
+
 
 
@@ -2765,7 +2822,7 @@ $help{'Score_Upload_Form'}
 
 

 $uploadtag
-
+
 
 
@@ -2774,8 +2831,8 @@ $help{'Bulletin Board'}
 
 

 $uploadtag
-
+
 
 
 $help{'My Personal Info'}
@@ -2783,19 +2840,28 @@ $help{'My Personal Info'}
 
 

 $uploadtag
-
+
 
 
 
 

+

+$uploadtag
+
+
+
+$help{'Group Files'}
+
+

 ENDFORM
        }
        if ($env{'form.pagepath'}) {
            $r->print(<
 $uploadtag
-
+
 
 $help{'Simple Problem'}
@@ -2803,7 +2869,7 @@ onClick="javascript:makesmpproblem();" /
 
 

 $uploadtag
-
+
 
 
@@ -2867,7 +2933,7 @@ $lt{'comment'}:

 
 
 
-
+
 
  $help{'Adding_Fol
 
 

 
-
+
 
  $help{'Adding_Ext
 
 

 
-
+
 
 
 $help{'Syllabus'}
@@ -2894,8 +2960,8 @@ $help{'Syllabus'}
 
 

 
-
+
 
 
 $help{'My Personal Info'}