/[webpac2]/trunk/web/browse.cgi
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/web/browse.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 54 by dpavlin, Mon Nov 14 16:16:57 2005 UTC revision 60 by dpavlin, Tue Nov 15 14:30:50 2005 UTC
# Line 48  if ($q->path_info =~ m#xml#) { Line 48  if ($q->path_info =~ m#xml#) {
48          if (@ds && $#ds > 0) {          if (@ds && $#ds > 0) {
49                  print qq{<response>                  print qq{<response>
50  <action type='html' target='div_record' errorCode='' errorMessage='' >  <action type='html' target='div_record' errorCode='' errorMessage='' >
51                  }, $out->apply(                  }, $iconv_utf8->convert( $out->apply(
52                          template => $template,                          template => $template,
53                          data => \@ds,                          data => \@ds,
54                  ), qq{                  ) ), qq{
55    
56  <script type='text/javascript'>  </action>
57    <action type='javascript' errorCode='' errorMessage='' >
58  <!--  <!--
59          var el = iwfGetById('div_record_nr');          var el = iwfGetById('div_record_nr');
60          if (el) el.innerHTML = '# <b>$rec</b>';          if (el) el.innerHTML = '# <b>$rec</b>';
61          //iwfShow('div_record');          //iwfShow('div_record');
62          iwfOpacity('div_record', 100);          iwfOpacity('div_record', 100);
63  //-->  //-->
 </script>  
   
64  </action>  </action>
65  </response>  </response>
66  };  };
# Line 71  if ($q->path_info =~ m#xml#) { Line 70  if ($q->path_info =~ m#xml#) {
70  <action type='html' target='div_record' errorCode='' errorMessage='' >  <action type='html' target='div_record' errorCode='' errorMessage='' >
71    
72  <b>Record $rec not found!</b>  <b>Record $rec not found!</b>
73  <script type='text/javascript'>  </action>
74    <action type='javascript' errorCode='' errorMessage='' >
75  <!--  <!--
76          var el = iwfGetById('div_record_nr');          var el = iwfGetById('div_record_nr');
77          if (el) el.innerHTML = '<strike>$rec</strike>';          if (el) el.innerHTML = '<strike>&nbsp;$rec&nbsp;</strike>';
78  //-->  //-->
 </script>  
   
79  </action>  </action>
80  </response>  </response>
81  };  };
# Line 90  if ($q->path_info =~ m#xml#) { Line 88  if ($q->path_info =~ m#xml#) {
88    
89                  if ($q->param('save_template')) {                  if ($q->param('save_template')) {
90    
91                          my $tmpl = $q->param('tt_template') || die "no template?";                          my $tmpl = $iconv_loc->convert( $q->param('tt_template') ) || die "no template?";
92                            sub _conv_js {
93                                    my $t = shift || return;
94                                    return $iconv_loc->convert(chr(hex($t)));
95                            }
96                            $tmpl =~ s/%u([a-fA-F0-9]{4})/_conv_js($1)/gex;
97    
98                          my $tmpl_file = $out->{'include_path'} . '/' . $template;                          my $tmpl_file = $out->{'include_path'} . '/' . $template;
99                          write_file($tmpl_file . '.new', $iconv_loc->convert($tmpl)) || die "can't save $tmpl_file: $!";                          write_file($tmpl_file . '.new', $tmpl) || die "can't save $tmpl_file: $!";
100                          rename $tmpl_file . '.new', $tmpl_file || die "can't rename to $tmpl_file: $!";                          rename $tmpl_file . '.new', $tmpl_file || die "can't rename to $tmpl_file: $!";
101    
102                          print qq{<response>                          print qq{<response>
103  <action type='html' target='div_status' errorCode='' errorMessage='' >  <action type='html' target='div_status' errorCode='' errorMessage='' >
104  $template saved  <tt>$template</tt> saved
105  </action>  </action>
106  <action type='js'>  <action type='js'>
107  <!--  <!--
108    iwfShow('div_status', 1);
109  reload_rec();  reload_rec();
110    iwfHideGentlyDelay('div_status', 2, 2000, 1);
111  -->  -->
112  </action>  </action>
113  </response>  </response>
# Line 159  function update_status(text) { Line 165  function update_status(text) {
165  }  }
166    
167  function load_rec(nr) {  function load_rec(nr) {
168            if (nr == 1) {
169                    iwfHide('a_left_arr', 1);
170            } else {
171                    iwfShow('a_left_arr', 1);
172            }
173          update_status(nr+'...');          update_status(nr+'...');
174          iwfRequest( url+'/xml/?rec='+nr, 'div_record' );          iwfRequest( url+'/xml/?rec='+nr, 'div_record' );
175          iwfOpacity('div_record', 30);          iwfOpacity('div_record', 30);
# Line 171  function inc_rec() { Line 182  function inc_rec() {
182  }  }
183    
184  function dec_rec() {  function dec_rec() {
185          rec--;          if (rec > 1) {
186          load_rec(rec);                  rec--;
187                    load_rec(rec);
188            }
189          return false;          return false;
190  }  }
191    
# Line 198  template = <tt>$template</tt><br/> Line 211  template = <tt>$template</tt><br/>
211  </div>  </div>
212    
213  <div style="background: #e0e0e0; padding: 0.5em; display: block;">  <div style="background: #e0e0e0; padding: 0.5em; display: block;">
214          <a href="$self?rec=}, $rec - 1, qq{" onClick="return dec_rec();">&#8678;</a>&nbsp;          <a id="a_left_arr" href="$self?rec=}, $rec - 1, qq{" onClick="return dec_rec();">&#8678;</a>
215          <span id="div_record_nr"> none </span>          <span id="div_record_nr"> none </span>
216    
217          <a href="$self?rec=}, $rec + 1, qq{" onClick="return inc_rec();">&#8680;</a>&nbsp;          <a id="a_right_arr" href="$self?rec=}, $rec + 1, qq{" onClick="return inc_rec();">&#8680;</a>
218          <a href="$self?rec=}, $rec, qq{" onClick="return reload_rec();">&#8634;</a>&nbsp;          <a id="a_reload" href="$self?rec=}, $rec, qq{" onClick="return reload_rec();">&#8634;</a>
219          <a href="#" onClick="iwfRefreshLog(); return false;">&#9636;</a>&nbsp;          <a href="#" onClick="iwfRefreshLog(); return false;">&#9636;</a>
220    
221  </div>  </div>
222    
Legend:
Removed from v.54  
changed lines
  Added in v.60
  ViewVC Help
Powered by ViewVC 1.1.26