![]() ![]() |
Scouting The NetRoundtable", $rTheme, $mFull[$rMonth], $rYear );
if( strlen( $pin[1] ) > 0 )
printf( " |
Home | Add a Site | Modify a Site | What's New | What's Cool | Top Rated | Random Link | Search | | ||||
![]()
| Top : Training : Roundtable : HandoutsMonthly Theme Information -- $rTheme\n"; echo $rDescription; echo "Handouts \n"; // Display Generated File Names echo $GenFiles; // Read Links File if( $lFile = fopen( "links.dat", rt ) ) { while( $lStr = fgets( $lFile, 10240 ) ) { if( strlen( $lStr ) < 5 ) continue; $lStr = rtrim( $lStr ); list ($year,$month,$title,$description,$url) = split( "\|", $lStr, 5 ); // Save default info if(($year==0)&&($month==0)){ $sTitle = $title; $sDescription = $description; $sUrl = $url; } // Check Year and Month for requested Month $dMonth = $month - 1; $dYear = $year - 2000; if( $dMonth < 1 ) { $dMonth = 12; $dYear = $dYear - 1; } if(( $sUrl=="" ) && ( $sTitle != "")) { echo " $sTitle - $sDescription \n"; $sTitle=""; $sDescription=""; continue; } if( ($dYear==$rYear) && ($dMonth==$rMonth) ) echo "$sTitle $title - $sDescription$description \n"; } fclose( $lFile ); } // Display associated themes (keyword based) echo " Related Themes - Other monthly themes that are related.... "; // Loop through the keyword array building a list of themes that have the same keywords foreach( $keywords as $kYear => $yData ) { foreach( $yData as $kMonth => $kWord ) { if( ( $kYear != $rYear ) || ( $kMonth != $rMonth ) ) { if( count( ($intersect = array_intersect( $kWord, $keywords[$rYear][$rMonth] ) ) ) > 0 ) { if( $UseFriendlyURL ) printf( "", $kYear, $kMonth ); else printf( "", $kYear, $kMonth ); printf( "%s 20%02d %s (%s) \n", $mFull[$kMonth], $kYear, $themes[$kYear][$kMonth], implode(", ", $intersect) ) ; } } } } } else { // Read Themes, Webelos Themes, and Descriptions from file if( $iFile = fopen( "theme.dat", rt ) ) { while( $iStr = fgets( $iFile, 10240 ) ) { list ($year,$month,$cstheme,$pin[1],$pin[2],$keyword,$description) = split( "\|", $iStr, 7 ); $dMonth = $month - 1; $dYear = $year - 2000; if( $dMonth < 1 ) { $dMonth = 12; $dYear = $dYear - 1; } if($dYear==$rYear) { echo '
\n" ); } } fclose( $iFile ); } } ?> |
Theme descriptions courtesy of BSA and the Scouting Bear's Cave.
![]() |
Service provided by: Arkie, Inc. |