Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv14153/bin
Modified Files:
sandweb.cgi
Log Message:
Browse->get_browser() no longer uses HTML::Template, returns
reference to array that contains reference to a hash for each file
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.216
retrieving revision 1.217
diff -U2 -r1.216 -r1.217
--- sandweb.cgi 24 Feb 2002 08:01:08 -0000 1.216
+++ sandweb.cgi 25 Feb 2002 21:49:09 -0000 1.217
@@ -593,5 +593,5 @@
);
- my $browser = $browse->get_browser(
+ my %browser = $browse->get_browser(
'location' => $location,
'progname' => $progname,
@@ -600,9 +600,23 @@
);
+ my @loop_data = ();
+
+ my $count = 0;
+ while ( $browser{'ENTRY_LOOP'}->[$count] ) {
+ $log->debug('dump', $browser{'ENTRY_LOOP'}->[$count]);
+ push (@loop_data, $browser{'ENTRY_LOOP'}->[$count]);
+ $count++;
+ }
+
+ my $browser_menu = $ui->get_menu(
+ MENU => 'browse_module',
+ ENTRY_LOOP => \@loop_data,
+ );
+
my $browse_module_footer = $ui->get_menu(
MENU => 'browse_module_footer',
);
- my $content = "$browse_module_header $toolbar $current_location $browser $browse_module_footer";
+ my $content = "$browse_module_header $toolbar $current_location $browser_menu $browse_module_footer";
print CGI::header( -cookie => $ck_auth );
|
