[BACK]Return to loncommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.911 and 1.925.2.1

version 1.911, 2009/11/06 16:36:27 version 1.925.2.1, 2009/12/07 17:11:49
Line 1877  sub select_form { Line 1877  sub select_form {
         $selectform.=          $selectform.=
     '<option value="'.&HTML::Entities::encode($key,'"<>&').'" '.      '<option value="'.&HTML::Entities::encode($key,'"<>&').'" '.
             ($key eq $def ? 'selected="selected" ' : '').              ($key eq $def ? 'selected="selected" ' : '').
                 ">".&mt($hash{$key})."</option>\n";                  ">".$hash{$key}."</option>\n";
     }      }
     $selectform.="</select>";      $selectform.="</select>";
     return $selectform;      return $selectform;
Line 4367  sub CSTR_pageheader { Line 4367  sub CSTR_pageheader {
     } else {      } else {
         $lastitem = $thisdisfn;          $lastitem = $thisdisfn;
     }      }
     return  
       my $output =
          '<div>'           '<div>'
         .&Apache::loncommon::help_open_menu('','',3,'Authoring') #FIXME: Broken? Where is it?          .&Apache::loncommon::help_open_menu('','',3,'Authoring') #FIXME: Broken? Where is it?
         .'<b>'.&mt('Construction Space:').'</b> '          .'<b>'.&mt('Construction Space:').'</b> '
         .'<form name="dirs" method="post" action="'.$formaction          .'<form name="dirs" method="post" action="'.$formaction
         .'" target="_top"><tt><b>' #FIXME lonpubdir: target="_parent"          .'" target="_top">' #FIXME lonpubdir: target="_parent"
         .&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv','','+1',1)."$lastitem</b></tt><br />"          .&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv',undef,undef);
   
       if ($lastitem) {
           $output .=
                '<span class="LC_filename">'
               .$lastitem
               .'</span>';
       }
       $output .=
            '<br />'
         #FIXME lonpubdir: &Apache::lonhtmlcommon::crumbs($uname.$thisdisfn.'/','_top','/priv','','+1',1)."</b></tt><br />"          #FIXME lonpubdir: &Apache::lonhtmlcommon::crumbs($uname.$thisdisfn.'/','_top','/priv','','+1',1)."</b></tt><br />"
         .&Apache::lonhtmlcommon::select_recent('construct','recent','this.form.action=this.form.recent.value;this.form.submit()')          .&Apache::lonhtmlcommon::select_recent('construct','recent','this.form.action=this.form.recent.value;this.form.submit()')
         .'</form>'          .'</form>'
         .&Apache::lonmenu::constspaceform()          .&Apache::lonmenu::constspaceform()
         .'</div>';          .'</div>';
   
       return $output;
 }  }
   
 ###############################################  ###############################################
Line 4503  sub bodytag { Line 4515  sub bodytag {
                         $env{'course.'.$env{'request.course.id'}.                          $env{'course.'.$env{'request.course.id'}.
                                  '.domain'}.'/'})) {                                   '.domain'}.'/'})) {
         my $cid = $env{'request.course.id'};          my $cid = $env{'request.course.id'};
         $dc_info.= $cid.' '.$env{'course.'.$cid.'.internal.coursecode'};          $dc_info = $cid.' '.$env{'course.'.$cid.'.internal.coursecode'};
         $dc_info =~ s/\s+$//;          $dc_info =~ s/\s+$//;
         $dc_info = '('.$dc_info.')';  
     }      }
   
     $role = '<span class="LC_nobreak">('.$role.')</span>' if $role;      $role = '<span class="LC_nobreak">('.$role.')</span>' if $role;
Line 4513  sub bodytag { Line 4524  sub bodytag {
   
     if ($env{'environment.remote'} eq 'off') {      if ($env{'environment.remote'} eq 'off') {
         # No Remote          # No Remote
         if ($no_nav_bar) { return $bodytag; }           if ($no_nav_bar || $env{'form.inhibitmenu'} eq 'yes') { 
               return $bodytag; 
           } 
   
         if ($env{'request.state'} eq 'construct') { $forcereg=1; }          if ($env{'request.state'} eq 'construct') { $forcereg=1; }
   
Line 4521  sub bodytag { Line 4534  sub bodytag {
         #        $titleinfo = &CSTR_pageheader(); #FIXME: Will be removed once all scripts have their own calls          #        $titleinfo = &CSTR_pageheader(); #FIXME: Will be removed once all scripts have their own calls
         #    }          #    }
   
         $bodytag .= qq|<div id="LC_nav_bar">$name $role<br />  
             <em>$realm</em> $dc_info</div>| unless $env{'form.inhibitmenu'};  
   
         if (   $env{'form.inhibitmenu'} eq 'yes'   
             || $ENV{'REQUEST_URI'} eq '/adm/logout'  
             || $env{'request.noversionuri'} =~ m{^/res/adm/pages/}) {  
   
           if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) {
                if ($dc_info) {
                    $dc_info = qq|<span class="LC_cusr_subheading">$dc_info</span>|;
                }
                $bodytag .= qq|<div id="LC_nav_bar">$name $role<br />
                   <em>$realm</em> $dc_info</div>|;
             return $bodytag;              return $bodytag;
         }          }
   
           $bodytag .= qq|<div id="LC_nav_bar">$name $role</div>|;
   
         $bodytag .= Apache::lonhtmlcommon::scripttag(          $bodytag .= Apache::lonhtmlcommon::scripttag(
             Apache::lonmenu::utilityfunctions(), 'start');              Apache::lonmenu::utilityfunctions(), 'start');
   
         $bodytag .= Apache::lonmenu::primary_menu();          $bodytag .= Apache::lonmenu::primary_menu();
   
           if ($dc_info) {
               $dc_info = &dc_courseid_toggle($dc_info);
           }
           $bodytag .= qq|<div id="LC_realm">$realm $dc_info</div>|;
   
         #don't show menus for public users          #don't show menus for public users
         if($env{'user.name'} ne 'public' && $env{'user.domain'} ne 'public'){          if($env{'user.name'} ne 'public' && $env{'user.domain'} ne 'public'){
             $bodytag .= Apache::lonmenu::secondary_menu();              $bodytag .= Apache::lonmenu::secondary_menu();
             $bodytag .= Apache::lonmenu::serverform();              $bodytag .= Apache::lonmenu::serverform();
             $bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');               $bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');
             $bodytag .= Apache::lonmenu::innerregister($forcereg) if $forcereg;              if ($env{'request.state'} eq 'construct') {
                   $bodytag .= &Apache::lonmenu::innerregister($forcereg,'',
                                   $args->{'bread_crumbs'});
               } elsif ($forcereg) { 
                   $bodytag .= &Apache::lonmenu::innerregister($forcereg);
               }
         }else{          }else{
             # this is to seperate menu from content when there's no secondary              # this is to seperate menu from content when there's no secondary
             # menu. Especially needed for public accessible ressources.              # menu. Especially needed for public accessible ressources.
Line 4567  sub bodytag { Line 4593  sub bodytag {
     # Explicit link to get inline menu      # Explicit link to get inline menu
     my $menu= ($no_inline_link?''      my $menu= ($no_inline_link?''
        :'<a href="/adm/remote?action=collapse" target="_top">'.&mt('Switch to Inline Menu Mode').'</a>');         :'<a href="/adm/remote?action=collapse" target="_top">'.&mt('Switch to Inline Menu Mode').'</a>');
     $bodytag .= qq|<div id="LC_nav_bar">$name $role  
             <em>$realm</em> $dc_info </div>      if ($dc_info) {
           $dc_info = qq|<span class="LC_cusr_subheading">($dc_info)</span>|;
       }
   
       $bodytag .= qq|<div id="LC_nav_bar">$name $role</div>
             <ol class="LC_primary_menu LC_right">              <ol class="LC_primary_menu LC_right">
                 <li>$menu</li>                  <li>$menu</li>
             </ol>| unless $env{'form.inhibitmenu'};              </ol><div id="LC_realm"> $realm $dc_info</div>| unless $env{'form.inhibitmenu'};
     #  
     return(<<ENDBODY);      return(<<ENDBODY);
 $bodytag  $bodytag
 <table id="LC_title_bar" class="LC_with_remote">  <table id="LC_title_bar" class="LC_with_remote">
Line 4585  $bodytag Line 4614  $bodytag
 ENDBODY  ENDBODY
 }  }
   
   sub dc_courseid_toggle {
       my ($dc_info) = @_;
       return ' <span id="dccidtext" class="LC_cusr_subheading">'.
              '<a href="javascript:showCourseID();">'.
              &mt('(More ...)').'</a></span>'.
              '<div id="dccid" class="LC_dccid">'.$dc_info.'</div>';
   }
   
 sub make_attr_string {  sub make_attr_string {
     my ($register,$attr_ref) = @_;      my ($register,$attr_ref) = @_;
   
Line 4731  body { Line 4768  body {
   color:$font;    color:$font;
 }  }
   
 a:link,  
 a:visited {  
   font-size:100%;  
 }  
   
 a:focus {  a:focus {
   color: red;    color: red;
   background: yellow;    background: yellow;
Line 4762  form, .inline { Line 4794  form, .inline {
 .LC_filename {  .LC_filename {
   font-family: $mono;    font-family: $mono;
   white-space:pre;    white-space:pre;
     font-size: 120%;
 }  }
   
 .LC_fileicon {  .LC_fileicon {
Line 4852  table.LC_pastsubmission { Line 4885  table.LC_pastsubmission {
   margin: 2px;    margin: 2px;
 }  }
   
 table#LC_top_nav,  table#LC_menubuttons {
 table#LC_menubuttons,  
 table#LC_nav_location {  
   width: 100%;    width: 100%;
   background: $pgbg;    background: $pgbg;
   border: 2px;    border: 2px;
Line 4885  table#LC_title_bar.LC_with_remote { Line 4916  table#LC_title_bar.LC_with_remote {
   margin: 0;    margin: 0;
 }  }
   
 table#LC_title_bar td {  /* #SD START (work in progress)*/
   background: $tabbg;  
 }  
   
 table#LC_menubuttons img {  ul.LC_bct {
   border: none;      margin: 0;
       padding: 0;
 }  }
   ul.LC_bct ol {
 table#LC_top_nav td {      display: inline;
   background: $tabbg;  }
   border: none;  ul.LC_bct ul {
   font-size: small;      display: inline;
   vertical-align:top;      padding: 0;
   padding:2px 5px 2px 5px;  }
   ul.LC_bct li {
       list-style-type: none;
       display: inline;
 }  }
   
 table#LC_top_nav td a,  
 div#LC_top_nav a {  ul.LC_breadcrumb_tools {
   color: $font;  
 }  }
   
 table#LC_top_nav td.LC_top_nav_logo {  li.LC_breadcrumb_tools {
   background: $tabbg;  }
   text-align: left;  li.LC_breadcrumb_tools img{
   white-space: nowrap;      vertical-align: middle;
   width: 31px;  
 }  }
   
 table#LC_top_nav td.LC_top_nav_logo img {  .LC_breadcrumb_tools_A {
   border: none;      margin: 0 0 0 1em;
   vertical-align: bottom;  
 }  }
   .LC_breadcrumb_tools_B {
       float: right;
       margin-top: 0.4em;
   }
   .LC_breadcrumb_tools_C {
       margin: 0 1em 0 0;
       float: right;
   }
   /* #SD END */
   
 table#LC_top_nav td.LC_top_nav_exit,  table#LC_title_bar td {
 table#LC_top_nav td.LC_top_nav_help {    background: $tabbg;
   width: 2.0em;  
 }  }
   
 table#LC_top_nav td.LC_top_nav_login {  table#LC_menubuttons img {
   width: 4.0em;    border: none;
   text-align: center;  
 }  }
   
 .LC_breadcrumbs_component {  .LC_breadcrumbs_component {
Line 4940  td.LC_table_cell_checkbox { Line 4977  td.LC_table_cell_checkbox {
   text-align: center;    text-align: center;
 }  }
   
 table#LC_mainmenu td.LC_mainmenu_column {  
   vertical-align: top;  
 }  
   
 .LC_fontsize_small {  .LC_fontsize_small {
   font-size: 70%;    font-size: 70%;
 }  }
Line 4953  table#LC_mainmenu td.LC_mainmenu_column Line 4986  table#LC_mainmenu td.LC_mainmenu_column
   background: $sidebg;    background: $sidebg;
   border-bottom: 1px solid $lg_border_color;    border-bottom: 1px solid $lg_border_color;
   line-height: 2.5em;    line-height: 2.5em;
  /* SD working here       /* SD working here 
  height: 2.5em;       height: 2.5em;
  overflow: hidden; */       overflow: hidden; */
   margin: 0;    margin: 0;
   padding: 0;    padding: 0;
 }  }
Line 4968  table#LC_mainmenu td.LC_mainmenu_column Line 5001  table#LC_mainmenu td.LC_mainmenu_column
 #LC_head_subbox {  #LC_head_subbox {
   clear:both;    clear:both;
   background: #F8F8F8; /* $sidebg; */    background: #F8F8F8; /* $sidebg; */
   border-bottom: 1px solid $lg_border_color;    border: 1px solid $sidebg;
   margin: 0 0 10px 0;    margin: 0 0 10px 0;      
   padding: 5px;  
 }  }
   
 .LC_fontsize_medium {  .LC_fontsize_medium {
Line 5006  td.LC_menubuttons_text { Line 5038  td.LC_menubuttons_text {
   background: $tabbg;    background: $tabbg;
 }  }
   
 .LC_new_mail {  
   background: $tabbg;  
   font-weight: bold;  
 }  
   
 table.LC_data_table,  table.LC_data_table,
 table.LC_mail_list {  table.LC_mail_list {
   border: 1px solid #000000;    border: 1px solid #000000;
Line 5060  table.LC_data_table tr.LC_info_row > td Line 5087  table.LC_data_table tr.LC_info_row > td
   text-align: left;    text-align: left;
 }  }
   
 table.LC_data_table tr.LC_odd_row > td,  table.LC_data_table tr.LC_odd_row > td {
     background-color: $data_table_light;
     padding: 2px;
     vertical-align: top;
   }
   
 table.LC_pick_box tr > td.LC_odd_row {  table.LC_pick_box tr > td.LC_odd_row {
   background-color: $data_table_light;    background-color: $data_table_light;
     vertical-align: top;
   }
   
   table.LC_data_table tr.LC_even_row > td {
     background-color: $data_table_dark;
   padding: 2px;    padding: 2px;
   vertical-align: top;    vertical-align: top;
 }  }
   
 table.LC_data_table tr.LC_even_row > td,  
 table.LC_pick_box tr > td.LC_even_row {  table.LC_pick_box tr > td.LC_even_row {
   background-color: $data_table_dark;    background-color: $data_table_dark;
   padding: 2px;  
   vertical-align: top;    vertical-align: top;
 }  }
   
Line 5159  table.LC_createuser tr.LC_info_row td  { Line 5194  table.LC_createuser tr.LC_info_row td  {
 table.LC_calendar {  table.LC_calendar {
   border: 1px solid #000000;    border: 1px solid #000000;
   border-collapse: collapse;    border-collapse: collapse;
     width: 98%;
 }  }
   
 table.LC_calendar_pickdate {  table.LC_calendar_pickdate {
Line 5168  table.LC_calendar_pickdate { Line 5204  table.LC_calendar_pickdate {
 table.LC_calendar tr td {  table.LC_calendar tr td {
   border: 1px solid #000000;    border: 1px solid #000000;
   vertical-align: top;    vertical-align: top;
     width: 14%;
 }  }
   
 table.LC_calendar tr td.LC_calendar_day_empty {  table.LC_calendar tr td.LC_calendar_day_empty {
Line 5186  table.LC_mail_list tr.LC_mail_new:hover Line 5223  table.LC_mail_list tr.LC_mail_new:hover
   background-color: $mail_new_hover;    background-color: $mail_new_hover;
 }  }
   
 table.LC_mail_list tr.LC_mail_even {  
 }  
   
 table.LC_mail_list tr.LC_mail_odd {  
 }  
   
 table.LC_mail_list tr.LC_mail_read {  table.LC_mail_list tr.LC_mail_read {
   background-color: $mail_read;    background-color: $mail_read;
 }  }
Line 5471  table.LC_notify_front_page td { Line 5502  table.LC_notify_front_page td {
   
 .LC_topic_bar {  .LC_topic_bar {
   font-weight: bold;    font-weight: bold;
   width: 100%;  
   background: $tabbg;    background: $tabbg;
   vertical-align: middle;    margin: 1em 0em 1em 2em;
   margin: 2ex 0ex 2ex 0ex;  
   padding: 3px;    padding: 3px;
     font-size: 1.2em;
 }  }
   
 .LC_topic_bar span {  .LC_topic_bar span {
     left: 0.5em;
     position: absolute;
   vertical-align: middle;    vertical-align: middle;
     font-size: 1.2em;
 }  }
   
 .LC_topic_bar img {  .LC_topic_bar img {
Line 5595  span.LC_prior_string, Line 5628  span.LC_prior_string,
 span.LC_prior_custom,  span.LC_prior_custom,
 span.LC_prior_reaction,  span.LC_prior_reaction,
 span.LC_prior_math {  span.LC_prior_math {
   font-family: monospace;    font-family: $mono;
   white-space: pre;    white-space: pre;
 }  }
   
 span.LC_prior_string {  span.LC_prior_string {
   font-family: monospace;    font-family: $mono;
   white-space: pre;    white-space: pre;
 }  }
   
Line 5633  span.LC_cusr_subheading { Line 5666  span.LC_cusr_subheading {
   font-size: 85%;    font-size: 85%;
 }  }
   
 table.LC_docs_documents {  
   background: #BBBBBB;  
   border-width: 0;  
   border-collapse: collapse;  
 }  
   
 table.LC_docs_documents td.LC_docs_document {  
   border: 2px solid black;  
   padding: 4px;  
 }  
   
 div.LC_docs_entry_move {  div.LC_docs_entry_move {
   border: 1px solid #BBBBBB;    border: 1px solid #BBBBBB;
   background: #DDDDDD;    background: #DDDDDD;
Line 5844  img.stift { Line 5866  img.stift {
   vertical-align: middle;    vertical-align: middle;
 }  }
   
 table#LC_mainmenu {  table td.LC_mainmenu_col_fieldset {
   margin-top:10px;  
   width:80%;  
 }  
   
 table#LC_mainmenu td.LC_mainmenu_col_fieldset {  
   vertical-align: top;    vertical-align: top;
   width: 45%;  
 }  
   
 .LC_mainmenu_fieldset_category {  
   color: $font;  
   background: $pgbg;  
   font-size: small;  
   font-weight: bold;  
 }  }
   
 div.LC_createcourse {  div.LC_createcourse {
   margin: 10px 10px 10px 10px;    margin: 10px 10px 10px 10px;
 }  }
   
   .LC_dccid {
     margin: 0.2em 0 0 0;
     padding: 0;
     font-size: 90%;
     display:none;
   }
   
 /* ---- Remove when done ----  /* ---- Remove when done ----
 # The following styles is part of the redesign of LON-CAPA and are  # The following styles is part of the redesign of LON-CAPA and are
 # subject to change during this project.  # subject to change during this project.
Line 5914  h6 { Line 5930  h6 {
   border: 0;    border: 0;
 }  }
   
 .LC_Right {  
   float: right;  
   margin: 0;  
   padding: 0;  
 }  
   
 .LC_FormSectionClearButton input {  .LC_FormSectionClearButton input {
   background-color:transparent;    background-color:transparent;
   border: none;    border: none;
Line 5955  fieldset > legend { Line 5965  fieldset > legend {
   margin: 0.2em 0 0 0;    margin: 0.2em 0 0 0;
 }  }
   
   #LC_realm {
     margin: 0.2em 0 0 0;
     padding: 0;
     font-weight: bold;
     text-align: center;
   }
   
 #LC_nav_bar em {  #LC_nav_bar em {
   font-weight: bold;    font-weight: bold;
   font-style: normal;    font-style: normal;
Line 6119  ol#LC_PathBreadcrumbs { Line 6136  ol#LC_PathBreadcrumbs {
   padding-left: 10px;    padding-left: 10px;
   margin: 0;    margin: 0;
   list-style-position: inside;    list-style-position: inside;
     /* SD working here      /* SD working here 
     white-space: nowrap; */      white-space: nowrap; */
 }  }
   
Line 6128  ol#LC_PathBreadcrumbs li, Line 6145  ol#LC_PathBreadcrumbs li,
 ul.LC_CourseBreadcrumbs li {  ul.LC_CourseBreadcrumbs li {
   display: inline;    display: inline;
   white-space: nowrap;    white-space: nowrap;
     /* SD working here      /* SD working here  
     white-space: normal; */      white-space: normal; */ 
 }  }
   
 ol#LC_MenuBreadcrumbs li a,  ol#LC_MenuBreadcrumbs li a,
Line 6170  dl.LC_ListStyleClean dd { Line 6187  dl.LC_ListStyleClean dd {
 .LC_ListStyleClean,  .LC_ListStyleClean,
 .LC_ListStyleSimple,  .LC_ListStyleSimple,
 .LC_ListStyleNormal,  .LC_ListStyleNormal,
 .LC_ListStyle_Border,  
 .LC_ListStyleSpecial {  .LC_ListStyleSpecial {
   /* display:block; */    /* display:block; */
   list-style-position: inside;    list-style-position: inside;
Line 6305  table.LC_tableOfContent a { Line 6321  table.LC_tableOfContent a {
   text-decoration: none;    text-decoration: none;
 }  }
   
 table.LC_tableBrowseRes tr.LC_trOdd,  
 table.LC_tableOfContent tr.LC_trOdd {  
   background-color: #EEEEEE;  
 }  
   
 table.LC_tableOfContent img {  table.LC_tableOfContent img {
   border: none;    border: none;
   height: 1.3em;    height: 1.3em;
Line 6383  a.LC_toolbarItem { Line 6394  a.LC_toolbarItem {
   background-color:transparent;    background-color:transparent;
 }  }
   
   ul.LC_funclist {
       margin: 0;
       padding: 0.5em 1em 0.5em 0;
   }
   
   ul.LC_funclist + ul.LC_funclist {
       /* 
          left border as a seperator if we have more than
          one list 
       */
       border-left: 1px solid $sidebg;
       /* 
          this hides the left border behind the border of the 
          outer box if element is wrapped to the next 'line' 
       */
       margin-left: -1px;
   }
   
 ul.LC_funclist li {  ul.LC_funclist li {
   float: left;    display: inline;
   white-space: nowrap;    white-space: nowrap;
   height: 35px; /* at least as high as heighest list item */    margin: 0 0 0 25px;
   margin: 0 15px 15px 10px;    line-height: 150%;
 }  }
   
   #gciheader {
     float:left;
     width:100%;
     background:#DAE0D2 url("/gcimenu_bg.gif") repeat-x bottom;
     font-size:93%;
     line-height:normal;
   }
   #gciheader ul {
     margin:0;
     padding:10px 10px 0;
     list-style:none;
   }
   #gciheader li {
     float:left;
     background:url("/gcimenu_left.gif") no-repeat left top;
     margin:0;
     padding:0 0 0 9px;
   }
   #gciheader a {
     display:block;
     background:url("/gcimenu_right.gif") no-repeat right top;
     padding:5px 15px 4px 6px;
   }
   #gciheader #current {
     background-image:url("/gcimenu_left_on.gif");
   }
   #gciheader #current a {
     background-image:url("/gcimenu_right_on.gif");
     padding-bottom:5px;
   }
   
 END  END
 }  }
Line 6666  sub start_page { Line 6725  sub start_page {
     # Don't add anything more if only_body wanted      # Don't add anything more if only_body wanted
     return $result if $args->{'only_body'};      return $result if $args->{'only_body'};
   
       #Breadcrumbs for Construction Space provided by &bodytag. 
       if (($env{'environment.remote'} eq 'off') && ($env{'request.state'} eq 'construct')) {
           return $result;
       }
    
     #Breadcrumbs      #Breadcrumbs
     if (exists($args->{'bread_crumbs'}) or exists($args->{'bread_crumbs_component'})) {      if (exists($args->{'bread_crumbs'}) or exists($args->{'bread_crumbs_component'})) {
  &Apache::lonhtmlcommon::clear_breadcrumbs();   &Apache::lonhtmlcommon::clear_breadcrumbs();
Line 9544  sub extract_categories { Line 9608  sub extract_categories {
                 my $trailstr;                  my $trailstr;
                 if ($name eq 'instcode') {                  if ($name eq 'instcode') {
                     $trailstr = &mt('Official courses (with institutional codes)');                      $trailstr = &mt('Official courses (with institutional codes)');
                   } elsif ($name eq 'communities') {
                       $trailstr = &mt('Communities');
                 } else {                  } else {
                     $trailstr = $name;                      $trailstr = $name;
                 }                  }
Line 9656  cathash - reference to hash of categorie Line 9722  cathash - reference to hash of categorie
   
 currcat - scalar with an & separated list of categories assigned to a course.   currcat - scalar with an & separated list of categories assigned to a course. 
   
   type    - scalar contains course type (Course or Community).
   
 Returns: $output (markup to be displayed)   Returns: $output (markup to be displayed) 
   
 =cut  =cut
   
 sub assign_categories_table {  sub assign_categories_table {
     my ($cathash,$currcat) = @_;      my ($cathash,$currcat,$type) = @_;
     my $output;      my $output;
     if (ref($cathash) eq 'HASH') {      if (ref($cathash) eq 'HASH') {
         my (@cats,@trails,%allitems,%idx,@jsarray,@path,$maxdepth);          my (@cats,@trails,%allitems,%idx,@jsarray,@path,$maxdepth);
Line 9670  sub assign_categories_table { Line 9738  sub assign_categories_table {
         if (@cats > 0) {          if (@cats > 0) {
             my $itemcount = 0;              my $itemcount = 0;
             if (ref($cats[0]) eq 'ARRAY') {              if (ref($cats[0]) eq 'ARRAY') {
                 $output = &Apache::loncommon::start_data_table();  
                 my @currcategories;                  my @currcategories;
                 if ($currcat ne '') {                  if ($currcat ne '') {
                     @currcategories = split('&',$currcat);                      @currcategories = split('&',$currcat);
                 }                  }
                   my $table;
                 for (my $i=0; $i<@{$cats[0]}; $i++) {                  for (my $i=0; $i<@{$cats[0]}; $i++) {
                     my $parent = $cats[0][$i];                      my $parent = $cats[0][$i];
                     my $css_class = $itemcount%2?' class="LC_odd_row"':'';  
                     next if ($parent eq 'instcode');                      next if ($parent eq 'instcode');
                       if ($type eq 'Community') {
                           next unless ($parent eq 'communities');
                       } else {
                           next if ($parent eq 'communities');
                       }
                       my $css_class = $itemcount%2?' class="LC_odd_row"':'';
                     my $item = &escape($parent).'::0';                      my $item = &escape($parent).'::0';
                     my $checked = '';                      my $checked = '';
                     if (@currcategories > 0) {                      if (@currcategories > 0) {
Line 9686  sub assign_categories_table { Line 9759  sub assign_categories_table {
                             $checked = ' checked="checked"';                              $checked = ' checked="checked"';
                         }                          }
                     }                      }
                     $output .= '<tr '.$css_class.'><td><span class="LC_nobreak">'.                      my $parent_title = $parent;
                                '<input type="checkbox" name="usecategory" value="'.                      if ($parent eq 'communities') {
                                $item.'"'.$checked.' />'.$parent.'</span>'.                          $parent_title = &mt('Communities');
                                '<input type="hidden" name="catname" value="'.$parent.'" /></td>';                      }
                       $table .= '<tr '.$css_class.'><td><span class="LC_nobreak">'.
                                 '<input type="checkbox" name="usecategory" value="'.
                                 $item.'"'.$checked.' />'.$parent_title.'</span>'.
                                 '<input type="hidden" name="catname" value="'.$parent.'" /></td>';
                     my $depth = 1;                      my $depth = 1;
                     push(@path,$parent);                      push(@path,$parent);
                     $output .= &assign_category_rows($itemcount,\@cats,$depth,$parent,\@path,\@currcategories);                      $table .= &assign_category_rows($itemcount,\@cats,$depth,$parent,\@path,\@currcategories);
                     pop(@path);                      pop(@path);
                     $output .= '</tr><tr><td colspan="'.$maxdepth.'" class="LC_row_separator"></td></tr>';                      $table .= '</tr><tr><td colspan="'.$maxdepth.'" class="LC_row_separator"></td></tr>';
                     $itemcount ++;                      $itemcount ++;
                 }                  }
                 $output .= &Apache::loncommon::end_data_table();                  if ($itemcount) {
                       $output = &Apache::loncommon::start_data_table().
                                 $table.
                                 &Apache::loncommon::end_data_table();
                   }
             }              }
         }          }
     }      }
Line 10630  sub clean_symb { Line 10711  sub clean_symb {
     return ($symb,$enc);      return ($symb,$enc);
 }  }
   
   sub needs_gci_custom {
       my $custommenu;
       my $numdc = &check_for_gci_dc();
       unless ($numdc) {
           my $then=$env{'user.login.time'};
           my $now = time;
           my %cnums = (
                           review => '9615072b469884921gcil1',
                           submit => '1H96711d710194bfegcil1',
                       );
           if ($env{'user.role.st./gci/'.$cnums{'review'}}) {
               my ($start,$end) =
                   split('.',$env{'user.role.st./gci/'.$cnums{'review'}});
               if (((!$start) || ($start && $start <= $now)) &&
                   ((!$end) || ($end > $now))) {
                   $custommenu = 1;
                   if ($env{'user.role.cc./gci/'.$cnums{'review'}}) {
                       my ($ccstart,$ccend) =
                           split('.',$env{'user.role.cc./gci/'.$cnums{'review'}});
                       if (((!$start) || ($start && $start <= $now)) &&
                               ((!$end) || ($end > $now))) {
                           $custommenu = '';
                       }
                   }
               }
           }
       }
       return $custommenu;
   }
   
   sub check_for_gci_dc {
       my $then=$env{'user.login.time'};
       my $numdc = 0;
       foreach my $dom ('gci','gcitest') {
           if ($env{'user.role.dc./'.$dom.'/'}) {
               my $livedc = 1;
               my ($tstart,$tend)=split(/\./,$env{'user.role.dc./'.$dom.'/'});
               if ($tstart && $tstart>$then) { $livedc = 0; }
               if ($tend   && $tend  <$then) { $livedc = 0; }
               if ($livedc) {
                   $numdc++;
               }
           }
       }
       return $numdc;
   }
   
   sub existing_gcitest_courses {
       my %courses;
       my $cdom = 'gcitest';
       my $role = 'cc';
       my $now = time;
       foreach my $envkey (keys(%env)) {
           my $cnum;
           if ($envkey =~ m{^user\.role\.\Q$role\E\./\Q$cdom\E/($match_courseid)$}) {
               $cnum = $1;
           } else {
               next;
           }
           my ($tstart,$tend) = split(':',$env{$envkey});
           if (((!$tstart) || ($tstart < $now)) && ((!$tend) || ($tend > $now))) {
               my %coursehash = &Apache::lonnet::coursedescription($cdom.'/'.$cnum);
               $courses{$cdom.'_'.$cnum}{'description'} = $coursehash{'description'};
               $courses{$cdom.'_'.$cnum}{'owner'} = $coursehash{'internal.courseowner'};
               if (defined($coursehash{'default_enrollment_start_date'}) ) {
                   $courses{$cdom.'_'.$cnum}{'startaccess'} =
                       &Apache::lonlocal::locallocaltime($coursehash{'default_enrollment_start_date'});
               }
               if (defined($coursehash{'default_enrollment_end_date'}) ) {
                   $courses{$cdom.'_'.$cnum}{'endaccess'} =
                       &Apache::lonlocal::locallocaltime($coursehash{'default_enrollment_end_date'});
                   if ($coursehash{'default_enrollment_end_date'} == 0) {
                       $courses{$cdom.'_'.$cnum}{'endaccess'} = &mt('No ending date');
                   }
               }
           }
       }
       return %courses;
   }
   
 =pod  =pod
   
 =back  =back
Removed from v.1.911  
changed lines
  Added in v.1.925.2.1

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>